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

السلام عليكم و رحمة الله و بركاته
لدي ComboBox و مربوطة بقاعدة بيانات تحتوي على أسماء و تواريخ الميلاد، كيف لما اختار اسم من الـ ComboBox يظهر تاريخ الميلاد في الـ Edit.
جربت في OnChange الخاصة بالـ ComboBox هذا الكود

كود :
edit1.Text := abstable2.FieldByName('name').AsString;

لكن يظهر التاريخ لمرة واحدة و لا يتغير بعدها.

هل من حل جزاكم الله خيرا

السلام عليكم...

إذا كانت الأسماء غير مكررة:

كود :
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 هو اسم حقل التاريخ.

نرجو الاستفادة و السلام.

جزاك الله خيرا أخي الكريم، و بارك الله في علمك

مع تمنياتي أن تشرح لي الكود و جزاك الله خيرا

مبرمج مبتدأ

مبرمج مبتدأ

Najy Ibraheem

مبرمج مبتدأ