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;
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??
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.
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.