DBGrid1 de Kayıt Bulmak !

[ozcank]

Arkadaşlar Merhaba;
DBGrid1 de kayıt bulmaya çalışıyorum kod hata veriyor yardımcı olabilir misiniz?

Kod: Tümünü seç

procedure TForm17.Button2Click(Sender: TObject);
var
ESILARA:Variant;
ESILBul:TADOQuery;
begin
ESILARA:=ESILBul.Lookup('ESTOK_KODU','+#39+''+Edit1.Text+''+#39+');
if VarIsNull(ESILARA) Then //boş sa
ShowMessage('Kayıt Bulunamadı')
else
ShowMessage('BULDUM');
end;

[Error] Unit17.pas(213): Not enough actual parameters

[varyemez]

Clientdataset1.Locate('ESTOK_KODU',Uppercase(Edit1.text),[]) bulursa true döner

[freeman35]

yazdığın kodun neresi "DBGrid1" ?

[ozcank]

freeman35 özür dilerim haklısınız. Şu şekilde halletim ;

Kod: Tümünü seç

If Edit1.Text='0' Then
Begin
Application.MessageBox('Stok Kodu Boş Geçilemez !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION);
Exit
end
Else
If Edit1.Text='' Then
Begin
ESILRapor.Close;
Exit
end
else
ESILRapor.Open;
if not ESILRapor.Locate('ESTOK_KODU',Edit1.Text,[]) = True Then
Begin
ESILRapor.Close;
Application.MessageBox('Aradığınız Stok Bulunamadı !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION);
Exit
end
else
BitBtn2.Enabled:=False;
DBGRid1.Enabled:=True;

[freeman35]

azarlamak için yazmamıştım, class ları bilmezseniz havanda su döversiniz.

Kod: Tümünü seç

if not ESILRapor.Locate('ESTOK_KODU',Edit1.Text,[]) = True Then

360 derece dönüp aynı yere gideceksen neden dönüyorsun?

Kod: Tümünü seç

if not ESILRapor.Locate('ESTOK_KODU',Edit1.Text,[]) Then
yada
if ESILRapor.Locate('ESTOK_KODU',Edit1.Text,[]) = False Then

[ozcank]

Sıfır ve Boş kayıt kontrolü yapamadığımdan bu şekilde IF li şartlar yaptım başka şekilde kontrol edebilir miyim ?