Delphi Forum

ademiz · Mesaj gönderen **ademiz** » 28 Eki 2003 10:49

Arkadaşlar Table1 nesnesinde kullanılan " SetKey ve GotoKey metodlarının ADOQuery deki karşılıkları hangileridir.

Mesaj gönderen **mussimsek** » 28 Eki 2003 10:56

Merhaba,

Locate kullanabilirsin.

Kolay gelsin.

ademiz · Mesaj gönderen **ademiz** » 28 Eki 2003 11:18

Locate ile benzer kayıtlarıda getiriyor.Ben sadece neyi aradıysam onun gelmesini istiyorum

Mesaj gönderen **mussimsek** » 28 Eki 2003 11:28

verdiğiniz parametrelere bağlı olarak getirebilir ancak normal kullanımda sadece tam verilen kaydı getirir. Yani adı 'MUSTAFA' olanları aratıyorsanız, sadece MUSTAFA olanalar gelir.

Delphi yardımda örnek kodlar var. Bir inceleyin. Olmazsa kodunuzu atın, yanlış nerde bakalım.

Kolay gelsin.

ademiz · Mesaj gönderen **ademiz** » 28 Eki 2003 11:32

procedure TarzKytForm.Edit1Exit(Sender: TObject);
begin
Edit1.Color := clWindow;
Label3.Font.Style := Label3.Font.Style - [fsBold];
with Edit1 do
if Text <> '' then
begin
DATAForm.arizaKayitADOQuery1.Locate('ArizaKod',Edit1.Text,[loPartialKey]);
Edit1.Visible := false;
ArizaKod.Visible := true;
end
else
ArizaKod.Text := Edit1.Text;
Edit1.Visible := false;
ArizaKod.Visible := true;
end;

Mesaj gönderen **mussimsek** » 28 Eki 2003 11:42

loPartialKey'i sil, o parametre olduğu için benzer kayıtları getiriyor. [] şeklinde yaz.

Kolay gelsin.

ademiz · Mesaj gönderen **ademiz** » 28 Eki 2003 12:14

Aynı kaydı bulunca getiriyor.Fakat bulamadığı kayıt olunca bu sefer ilk kaydı getiriyor

Mesaj gönderen **asavas** » 28 Eki 2003 12:34

if table1.locate şeklinde yazarsan kodu, kaydı bulamadığı zamanı kontrol emiş olursun. Kaydı bulamazsa false dönecektir ..

ademiz · Mesaj gönderen **ademiz** » 28 Eki 2003 03:38

Arkadaşlar teşekkür ederim.Kodu en son aşağıdaki şekle getirince düzgün çalıştı

procedure TarzKytForm.Edit1Exit(Sender: TObject);
begin
Edit1.Color := clWindow;
Label3.Font.Style := Label3.Font.Style - [fsBold];
Edit1.Color := clWindow;
Label3.Font.Style := Label3.Font.Style - [fsBold];
with Edit1 do
if Text <> '' then
if DATAForm.arizaKayitADOQuery1.Locate('ArizaKod',Edit1.Text,[]) then
begin
Edit1.Visible := false;
ArizaKod.Visible := true;
end
else
DATAForm.arizaKayitADOQuery1.Insert;
DBCheckBox1.State := cbUnchecked;
DBCheckBox2.State := cbUnchecked;
DBCheckBox3.State := cbUnchecked;
DBCheckBox4.State := cbUnchecked;
DBCheckBox5.State := cbUnchecked;
DBCheckBox6.State := cbUnchecked;
Edit1.Visible := false;
ArizaKod.Text := Edit1.Text;
ArizaKod.Visible := true;
end;