استعمال ComboBox والاستغناء عن Edit في الجداول

[سيل الجليد]

السلام عليكم ورحمة الله وبركاته

احتاج الاستغناء عن Edit لتعبأه بيانات في الجدول و استخدام المركبة التالية ComboBox

فرضاً في ComboBox1 مكتوب فيها عدة مدن فرضاً السعودية و الأمارات والجزائر وفرنسا وكندا

وهكذا...

ويكون موجود حقل بأسم ( المدن) يقوم بختيار من ComboBox1 ليظهر له المدن المتاحه فقط

نعرف ان كود ادخال من Edit

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
    Table1.Append;
    Table1(------).Value := Edit1.Text;
    
    Table1.Post;

    Edit1.Text := '';
    
end; 


اتمنى تكوون الصورة واضحه

تحياتي

[imad_soft]

السلام عليكم
حسب مافهمت اليك الحل
اربط dbcombobox1 ب datasource: datasource1
datefield: مدن
button double click
table1.post

[سيل الجليد]

imad_soft

لا ليس ما احتاجه

الي ابغـاه هو combobox في مدن على حسب اختياري

ويوجد حقل في قاعدة البيانات بأسم المدن

عند الاختيار من combobox المدينة نضغط على الزر لأدخاله في قاعدة البيانات

اتمنى تكون وصلت المعلومة

وشكراً جزيلاً لكـ

[imad_soft]

تريد ان تملا combobox بالمدن

[سيل الجليد]

imad_soft

نعم

وايضاً عملية ادخالها الى جدول به حقل اسمة (مدن)

هل هذا الكود صحيح لأدخال الى الجدول

PHP كود :

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Table1.Append; 
    Table1city.Value := combobox1.Text; 
     
    Table1.Post; 

    combobox.Text := ''; 
     
end; 


[الكاسر الآخر]

إذا كان حقل المدينة في قاعدة البيانات من نوع نصي فهذا الكود صحيح ...
وللضمانة ممكن تكتب

كود :

Table1.FieldByName('City').AsString := ComboBox1.Text;

أو ممكن

كود :

Table1.FieldByName('City').AsString := ComboBox1.Items[ComboBox1.ItemIndex];

[سيل الجليد]

الكاسر الآخر
شكراً لك

ولاكن ا اكتب المدن في combobox كيف اقوم بذالك
عالماً ان المدن من اختياري
هذا المشروع كمثال، فقط امسحوا الكود الموجود في combobox

[imad_soft]

لماذا لاتستعمل dbcombobox1 اسهل
املا dbcombobox1
items
ادخل المدن
اربط dbcombobox1 ب datasource: datasource1
datefield: مدن
button double click
table1.post

[سيل الجليد]

imad_soft

ما فهمت كيف اقوم بجعل الزر يدخل البيانات من dbcombobox1 الى قاعدة البيانات

هل اكتب فقط

table1.post

لانه لم ينفع معي

[imad_soft]

عادي جدا
املا dbcombobox1 ب المدن
اربط dbcombobox1 ب datasource: datasource1
ثم
datefield: مدن
button
table1.open
table1.post