Delphi Forum

Program sadece ilk açılıştamı select sorgusunu yeniliyor sanırım sorunun öyle birşey arada atıyorum dakika da bir sorguyu yenilet görünmesi llazım. refresh te sorun verebilir belki ama select sorgusunu tekrar aktif edersen sorun kalkacaktır diye düşünüyorum. birde aynı kayıt içerisinde iki kişi aynı ...

konuyla ilgili insert komutunu kullanarak aktif kayit içini istediğinkadar kopyalayabilirisn
ör =

with query do
begin
close;
sql.clear;
sql.text:='INSERT INTO table (alan1,alan2,alan3) values (:param1,:param2,:param3)'
ParamByName('param1').value:=DBGrid.Columns.Grid.Fields[1].AsString ...

procedure TForm9.Edit1Change(Sender: TObject);
begin
if Trim(Edit1.Text) <> '' Then
begin
Table1.Filtered := False;
Table1.FilterOptions := [foCaseInsensitive]; // Büyük Küçük Harf Duyarlılığını İptal
Table1.Filter := 'PROGRAMADI like ' + #39+Edit1.Text + '*' +#39 +' and tarihsutunuadi ...

ozaman filtrenin ardından maskedit.refresh gibi editi tetikliyecek bir şey denesen belki şini görür ama benim tavsiyem her türlü filtrelemeyi yinede slq sorgusu şeklinde kullanmam hata alma riskin azalır.

barkod okuyucu olayı gayet basittir. Barkod okuyucu bir nevi klavvye düşün barkodu okuduktan klavyeden tuşlamışsın gibi yazar direk deneme yapmak istiyorsan bir barkod al notpadi aç ve direk barkodu okut barkodda önemli iki nokta cümleler arası boşluk alt çizgi ile birde başlangıç ve bitiş ...

queryi açmamışsın o yüzden vermiyor sonucu sorgulama yapıyorsan query.open;
insert, update veya delete gibi işlemleri yapıyorsan query.execsql kullanman gerekiyor.
Gidipte
query.execsql peşine
query.active:=true kullanırsan selectte sorun olmaz ama diğer işlemlerde kodu 2 kere çalıştırmış olursun ...

SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '''+Ana_Pencere.DBEdit6.Text+''' ');


buşekilde bir sorguda kafadan hata alırsın


SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '+#39+Ana_Pencere.DBEdit6.Text+#39 );kullanırsan daha iyi



yani



SERVIS_KABUL_DB.SQL.Add('WHERE URUN_ADI ...

with FormMain.DBGridDurum.DataSource.DataSet do
begin
for i := 1 to FormMain.DBGridDurum.SelectedRows.Count-1 do
begin
GotoBookmark(Pointer(FormMain.DBGridDurum.SelectedRows.Items[i]));
Barcode2D_QRCode1.Image:=qrimage[i+1];
Barcode2D_QRCode1.Barcode:=StringOfChar('0',13-length(FormOrtak ...

evet selection.top ve selection.bottom dün uğraştım okadar olmadı ama şuan istediğime ulaştım . Yardımın için teşekkür ederim.

Onlarıda denedim olmadı ama bakayım mecbur selection.top, selection .bottom vs kullanarak yapacağım gibi görünüyor yine ama araya iyi bir fonksiyon gömmem gerekiyor neyse kolları sıvayalım.

Filtre için kullandığın kodu verirsen yardımcı olmaya çalışalım

kodu görmeden bir tavsiye filtreyi değişkende tut

değişkenleri peşpeşe ekle ama filtreleme olaylarını querynin ki gibi hazır filtreleme alanı yerine sorguyla yaparsan hata payı daha aşşağı iner ve çok daha hızlı işlem yapar az ...

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
edit1.Text:=ExtractFileExt(opendialog1.filename);

if edit1.text='.wav' then
begin
if channel<>0 then
bass_StreamFree(channel);
Channel := Bass_StreamCreateFile(false,pChar(opendialog1.filename), 0,0,0);
BASs ...

Sutun satır seçimi tabiki col,row bana seçilen hücreler lazım yani birden fazla hücre seçimi hatta satır olarak direk multirow diye birşey yok ben bunu yapmaya çalışıyorum. Diğer bir deyişle db gridle

with FormMain.DBGridDurum.DataSource.DataSet do
begin
for i := 1 to FormMain.DBGridDurum ...

Arkadaşlar inşallah yanlış anlatmamışımdır. bir sonuç bulamadım sadece mouse seçilen ile satırları okumam lazım kare barkod yazdırıyorum her satırdan üç colombu alıyor kare barkodu oluşturup barkod yazıcıdan yazıyor db gridde yapılabiliyor string gridde sadece seçilenleri yazdıracağım bir türlü ...

bu arada release komutu bir tek quickrep te hata veriyor şimdiye kadar karşılaştığım ondada
nil
free dedimmi aynı işi yapıyor.