+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : العلاقة بين copmbobox و EDdit (/showthread.php?tid=5910)
العلاقة بين copmbobox و EDdit - مبرمج مبتدأ - 01-02-2014
السلام عليكم و رحمة الله و بركاته
لدي ComboBox و مربوطة بقاعدة بيانات تحتوي على أسماء و تواريخ الميلاد، كيف لما اختار اسم من الـ ComboBox يظهر تاريخ الميلاد في الـ Edit.
جربت في OnChange الخاصة بالـ ComboBox هذا الكود
كود :
edit1.Text := abstable2.FieldByName('name').AsString;العلاقة بين copmbobox و EDdit - مبرمج مبتدأ - 02-02-2014
هل من حل جزاكم الله خيرا
العلاقة بين copmbobox و EDdit - Najy Ibraheem - 02-02-2014
السلام عليكم...
إذا كانت الأسماء غير مكررة:
كود :
if abstable2.Locate('name_field', Combo1.Text, [loCaseInsensitive]) then begin
if abstable2.FieldByName('date_field').IsNull then
Edit1.Text := ''
else
Edit1.Text := abstable2.FieldByName('date_field').AsString;
end
else begin
Edit1.Text := '';
ShowMessage('الاسم المحدد غير موجود');
end;حيث Combo1 هو اسم الـ ComboBox و Edit1 هو اسم مربع النص، و name_field هو اسم حقل الاسم، و date_field هو اسم حقل التاريخ.
نرجو الاستفادة و السلام.
العلاقة بين copmbobox و EDdit - مبرمج مبتدأ - 02-02-2014
جزاك الله خيرا أخي الكريم، و بارك الله في علمك
مع تمنياتي أن تشرح لي الكود و جزاك الله خيرا
مع تمنياتي أن تشرح لي الكود و جزاك الله خيرا