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

[yahia1921]

بسم الله
السلام عليكم
اخوتي الاعزاء خبراء الدالفي اعمل على ان اظهر بعض المعلومات من قاعدة المعطيات في edit
تنجح مع المهمة لكن كيف لي ان اظهر اكثر من حقل في اكثر من edit من جدول واحد تبعا لشرط واحد مثل التالي

كود :

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

جربت بأكثر من طريقة لكن لانتيجة تدكر
التوجيه يهمني

[kachwahed]

وعليكم السلام ورحمة الله
أخي الكريم
أكتب عنوان مناسب للسؤال بارك الله فيك.
الحل: أضف Begin و End ضمن الحيز كما يلي:

كود :

procedure TForm3.proChange(Sender: TObject); begin if adodataset3.locate('num-prod',pro.Text,[]) then [color=Red]begin[/color] edit11.Text:= adodataset3.fieldbyname('typ-prod') .value; edit8.Text:= adodataset3.fieldbyname('cat-prod') .value; edit10.Text:= adodataset3.fieldbyname('nat-prod') .value; [color=Red]end[/color]; end;

أنصحك بقراءة كتاب الدلفي من هنا.
وقبله كتاب تعلم لغة Pascal هنا.
بالتوفيق.

[yahia1921]

بارك الله فيك اخي هدا الدي ابغي التوجيه الف شكر لك

[yahia1921]

لم تصلح المحاولة اضنه ليس في ادراج
Begin و End
حيث يتم اظهار typ-prod في11 edit ثم تظهر رسالة خطأ

[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