العلاقة بين copmbobox و EDdit

[مبرمج مبتدأ]

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

كود :

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

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

[مبرمج مبتدأ]

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

[Najy Ibraheem]

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

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

كود :

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

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

[مبرمج مبتدأ]

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

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