SQL Karşılaştırma !!

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ozcank
Üye
Mesajlar: 937
Kayıt: 28 Nis 2005 05:29

SQL Karşılaştırma !!

Mesaj gönderen ozcank »

Arkadaşlar Query de karşılaştırma yapamadım yardım edin lütfen kod şöyle;

Kod: Tümünü seç


       if RadioButton2.Checked then
   if (Query1.locate('SISKOD1',Edit1.Text,[]))<>false then
   begin
ShowMessage('Girmiş Olduğunuz Kod 1 Veriler arasında yok  !!! ');
Edit1.Setfocus;
Exit;
end
else
begin
Query1.Sql.Clear;
Query1.Sql.Add('Select * From SISTEMFOR');
Query1.Sql.Add('Where SISTAR Between :SERTAR1 AND :SERTAR2 AND SISKOD1=:SISKODBIR');
Query1.ParamByName('SISKODBIR').AsString:=Edit1.Text;
Query1.ParamByName('SERTAR1').AsDate:=DateTimePicker1.date;
Query1.ParamByName('SERTAR2').AsDate:=DateTimePicker2.Date;
       end;
Query1.Active:=true;
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7604
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Koddan birşey anlayamadım ben, ne yapmak istediğinizi sözle anlatabilir misiniz? Query1 için yukarda Locate kullanmışsınız ama Query1 aşağıda açılıyor??

Kolay gelsin.
ozcank
Üye
Mesajlar: 937
Kayıt: 28 Nis 2005 05:29

Mesaj gönderen ozcank »

ben şunu yapmak istedim SISKOD1 ile Edit1 e girilen rakamı karşılaştırıp eğer varsa rapor alacak yoksa uygun bir kod girin mesajını vermesini istiyorum.
ozcank
Üye
Mesajlar: 937
Kayıt: 28 Nis 2005 05:29

Mesaj gönderen ozcank »

arkadaşlar neden cevap yazmıyorsunuz anlaşılmayan birşey mi var tekrar yazayım ;
yapmak istediğim ;

Kod: Tümünü seç

if (Query1.locate('SISKOD1',Edit1.Text,[]))<>false then 
   begin 
ShowMessage('Girmiş Olduğunuz Kod 1 Veriler arasında yok  !!! '); 
Edit1.Setfocus; 
Exit; 
end 
else 
begin 

bu arada SISKOD1 Edit1 e ile eşitse rapor alacak değilse mesaj verecek bunu yapamadım.
Cevapla