تطبيق أكثر من تعليمة في شرط واحد

[yahia1921]

اخي الكريم تم التدارك لكن وبأي طريقة
والله ماني قادر استصيغها الطريقة هادي
لقد قمت بتغيير
typ-prod الى typprod
و
cat-prod الى catprod
و
nat-prod الى natprod
في قاعدة المعطيات فاصبح الكود كالتالي:

procedure TForm3.proChange(Sender: TObject);
begin
if adodataset3.locate('num-prod',pro.Text,[]) then
begin
edit11.Text:= adodataset3.fieldbyname('typprod') .value;
edit8.Text:= adodataset3.fieldbyname('catprod') .value;
edit10.Text:= adodataset3.fieldbyname('natprod') .value;
end;
end