+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تطبيق أكثر من تعليمة في شرط واحد (/showthread.php?tid=1528)
تطبيق أكثر من تعليمة في شرط واحد - yahia1921 - 19-01-2010
بسم الله
السلام عليكم
اخوتي الاعزاء خبراء الدالفي اعمل على ان اظهر بعض المعلومات من قاعدة المعطيات في 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 - 19-01-2010
وعليكم السلام ورحمة الله
أخي الكريم
أكتب عنوان مناسب للسؤال بارك الله فيك.
الحل: أضف 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 - 19-01-2010
بارك الله فيك اخي هدا الدي ابغي التوجيه الف شكر لك
تطبيق أكثر من تعليمة في شرط واحد - yahia1921 - 19-01-2010
لم تصلح المحاولة اضنه ليس في ادراج
Begin و End
حيث يتم اظهار typ-prod في11 edit ثم تظهر رسالة خطأ
تطبيق أكثر من تعليمة في شرط واحد - yahia1921 - 19-01-2010
اخي الكريم تم التدارك لكن وبأي طريقة
والله ماني قادر استصيغها الطريقة هادي
لقد قمت بتغيير
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