OnChange Olayında Barkod Kullanma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
akuyumcu63
Üye
Mesajlar: 386
Kayıt: 02 Tem 2007 09:43

OnChange Olayında Barkod Kullanma

Mesaj gönderen akuyumcu63 »

merhaba
ürünleri fatura listesine eklerken barkod kullanıyorum. Edit'in OnChange olayında sql kodu kullanarak ilgili barkodu buldurup listeye ekletiyorum. ürün sayısı az iken kayıtın bulunup listeye eklenmesinde hız problemi yoktu. ürün sayısı fazlalaşınca barkod okuyucudan her gelen rakam için Onchange olayındaki kodlar çalıştığı için barkod değerinin tamamının edite yazılıp listeye eklenmesi çok yavaş oluyor.

edit e barkoddan değerler geldiktin sonra ilgili sql kodunun çalışmasını nasıl sağlayabilirim.

Kod: Tümünü seç

Edit1.OnChange: = nil;
Edit1.OnChange: = Edit1Change;
gibi kodlar kullandım. ama OnChange deki komutların edite değerler yazıldıktan sonra çalışmasın sağlayamadım
İsteyen, yapabildiğinden daha fazlasını yapar.
varyemez
Üye
Mesajlar: 262
Kayıt: 01 Oca 2009 11:00
Konum: Bursa
İletişim:

Re: OnChange Olayında Barkod Kullanma

Mesaj gönderen varyemez »

barkod tam olarak okunduktan sonra enter kodunu kontrol et chr(13) , #13
ondan sonra sql i çalıştır. onchange değil onkeypress veya onkeydown dene.

if key=#13 then ............
tayipk
Üye
Mesajlar: 284
Kayıt: 27 Kas 2013 11:32

Re: OnChange Olayında Barkod Kullanma

Mesaj gönderen tayipk »

bu işi en rahat onkeypress olayında yapabilirsin çünkü onkeydown yaptığında yine otomatik olarak girilen her rakamdan sonra arama yapabilir en kolayı onkeypress

if key=#13 then diye yazıp sorgulamanı rahat bir şekilde yapabilirsin ben o şekilde yapıyorum ürün kartlarımda 16.000 den fazla ürün kayıtlı sorunsuz hızlı geliyor
Soru Sorarken yazmaya Üşenmeyen Parmaklar Sorunun Çözüldükten Sonra Teşekkür etmeye de Üşenmesin.
akuyumcu63
Üye
Mesajlar: 386
Kayıt: 02 Tem 2007 09:43

Re: OnChange Olayında Barkod Kullanma

Mesaj gönderen akuyumcu63 »

değerli arkadaşlar;
hepinize çok teşekkür ederim. onKeypress olayına

Kod: Tümünü seç

if key=#13 then
begin
     ilgili komutlar
end
yukarıdaki şekilde yaptım çok güzel oldu.
İsteyen, yapabildiğinden daha fazlasını yapar.
Cevapla