delphi4arab منتديات دلفي للعرب

بسم الله
السلام عليكم
اخوتي الاعزاء خبراء الدالفي اعمل على ان اظهر بعض المعلومات من قاعدة المعطيات في 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;

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

وعليكم السلام ورحمة الله
أخي الكريم
أكتب عنوان مناسب للسؤال بارك الله فيك.
الحل: أضف 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 هنا.
بالتوفيق.

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

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

اخي الكريم تم التدارك لكن وبأي طريقة
والله ماني قادر استصيغها الطريقة هادي
لقد قمت بتغيير
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

yahia1921

kachwahed

yahia1921

yahia1921

yahia1921