Edite1e girilen kaydın diğer bilgilerini edit2de gösterme

[regedit1]

Arkadaşlar edit1e girilen stok koduna göre diğer editlere edit1e girilen kaydın diğer bilgilerini nasıl getiririm. Stok kodu bibincil anahtar.

Başka bir deyişle stok koduna göre arama yaptırıp bulunan kaydı getiren kod lazım

[bgoktas]

arama butonuna basıldıktan sonra bir query ile arama yapmalısın;

query.sql.clear;
query.sql.add('select * from tablo where id=:id');
query.parameters[0].asstring := edit1.text;
query.open;


dönen sonucuda editlerinde şöyle gösterebilirsin;

edit1.text := query.FieldByName('fieldadi1').asstring;
edit2.text := query.FieldByName('fieldadi2').asstring;
edit3.text := query.FieldByName('fieldadi3').asstring;
edit4.text := query.FieldByName('fieldadi4').asstring;

[regedit1]

query demişiniz ama ben adotable kullanıyorum bir farklılık varmıdır acaba? Sadece bir örnek alabilirmiyim?

[Lost Soul]

query sql sorgulama için kullanılır. ado için e query yapılabilir. sql sorgulamasını bilmiyorsanız.

birinci tabloya ait dataset'in onchange olayı içine ikinci tablo için locate metodunu kullanabilirsiniz.

[conari]

Filtreleme yolu ile ulaşabilirsiniz stokkodu PK dır

Kod: Tümünü seç

ADOTable1.Filtered:=false;
ADOtable1.Filter:='stokkodu='+QuotedStr(Edit1.Text);
ADOTable1.Filtered:=true;
ADOTable1.open;

[regedit1]

Deniycem teşekkürler...

[regedit1]

Arkadaşlar şu şekilde çözdüm olayı belki işe yarar.

Edit in onkeypress olayına;

if key = #13 then
begin
datamodule1.ADOTable1.Locate('urunadi',Edit2.Text,[]);
edit1.Text := DataModule1.ADOTable1stokkodu.Value;
edit3.Text := datamodule1.ADOTable1barkodno.Value;
FloatEdit1.Text := datamodule1.ADOTable1miktar.Value;
MaskEdit2.Text := DateToStr(DataModule1.ADOTable1tarih.value);
Memo1.Text := DataModule1.ADOTable1aklama.Value;
MaskEdit1.Text := CurrToStr(DataModule1.ADOTable1birimfiyat.Value);
end;

[conari]

datacontrolleri kullansaydın bu şekilde kod yazmana gerek kalmazdı.
dbedit, dbtext v.s.