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; ParamByName(...

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 = '+#39+ Mas...

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ş karakterl...

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 bu...

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 LIKE '+#39 + Edi...

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.ZQueryDuru...

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 kayıtta s...

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_channelplay(Chan...

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.SelectedRo...

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ü bula...

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.