dbeditte arama yaparken ekleme yapmasını engellemek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
echobility
Üye
Mesajlar: 14
Kayıt: 17 Eki 2006 02:11

dbeditte arama yaparken ekleme yapmasını engellemek

Mesaj gönderen echobility »

Herkese kolay gelsin.Doğru başlığı bulamadım.
dbeditten veri girdiğimde vt de arayarak varsa o veri ile ilgili kayıtları yoksa yeni kayıt eklemeyi yapmak istiyorum.ama ben dbedite veri girdiğim anada vt ye ekliyor ve bu kayıt var diyor.
ikut

Re: dbeditte arama yaparken ekleme yapmasını engellemek

Mesaj gönderen ikut »

echobility yazdı:Herkese kolay gelsin.Doğru başlığı bulamadım.
dbeditten veri girdiğimde vt de arayarak varsa o veri ile ilgili kayıtları yoksa yeni kayıt eklemeyi yapmak istiyorum.ama ben dbedite veri girdiğim anada vt ye ekliyor ve bu kayıt var diyor.
arama için db edit kullanmana gerek yokki. normal editle neden yapmyorsun ?
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

Mesaj gönderen pasa_yasar »

arama kaydını aynı tabloyu seçeceğin başka bir table üzerinde yap. bir tablo ekrandaki alanlara bağlı olsun. editlerin bağlı olduğu adamın giriş yaptığı editlere. diğeri ise yine aynı tabloya bağlı ama aramak için kullan. varsa. uyarı ver işlemi abort et.
echobility
Üye
Mesajlar: 14
Kayıt: 17 Eki 2006 02:11

Mesaj gönderen echobility »

pasa_yasar dediğini tam anlamadım biraz daha açarmısın
Kullanıcı avatarı
kadirkurtoglu
Üye
Mesajlar: 748
Kayıt: 22 May 2005 01:20
Konum: Uzakta Görünen Tepeden...

Mesaj gönderen kadirkurtoglu »

normal tablo için bir dataset veya query arama için bir dataset veya query.

DBEdit in OnExit yordamına

Kod: Tümünü seç

QueryAra.close;
QueryAra.SQL.clear;
QueryAra.SQL.Add('select alan1 ,alan2 veya * from Table Where alan = :aranacak');
QueryAra.Params[0].AsString := DBEdit1.text;
QueryAra.Open;
QueryAra.FetchAll;
if Queryara.RecordCount >0 Then
kayıt var
else
kayıt yok..
Kolay Gelsin...
Kullanıcı avatarı
kadirkurtoglu
Üye
Mesajlar: 748
Kayıt: 22 May 2005 01:20
Konum: Uzakta Görünen Tepeden...

Mesaj gönderen kadirkurtoglu »

+

eğer OnExit yordamında yaparsan aramayı

Data State sorgula

Kod: Tümünü seç

if Query.State in [dsInsert] Then //Durum Yeni Kayıt ise 
arama yap
yani kayıt ilk defa girilirken arasın aksi takdirde kayıt zaten vardır.
Kullanıcı avatarı
pasa_yasar
Üye
Mesajlar: 570
Kayıt: 07 Haz 2004 12:35

Mesaj gönderen pasa_yasar »

dataset koymana gerek yok query yeter
Cevapla