+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استعمال ComboBox والاستغناء عن Edit في الجداول (/showthread.php?tid=2017)
الصفحات:
1
2
استعمال ComboBox والاستغناء عن Edit في الجداول - سيل الجليد - 16-05-2010
السلام عليكم ورحمة الله وبركاته
احتاج الاستغناء عن Edit لتعبأه بيانات في الجدول و استخدام المركبة التالية ComboBox
فرضاً في ComboBox1 مكتوب فيها عدة مدن فرضاً السعودية و الأمارات والجزائر وفرنسا وكندا
وهكذا...
ويكون موجود حقل بأسم ( المدن) يقوم بختيار من ComboBox1 ليظهر له المدن المتاحه فقط
نعرف ان كود ادخال من Edit
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1(------).Value := Edit1.Text;
Table1.Post;
Edit1.Text := '';
end;
اتمنى تكوون الصورة واضحه
تحياتي
استعمال ComboBox والاستغناء عن Edit في الجداول - imad_soft - 16-05-2010
السلام عليكم
حسب مافهمت اليك الحل
اربط dbcombobox1 ب datasource: datasource1
datefield: مدن
button double click
table1.post
استعمال ComboBox والاستغناء عن Edit في الجداول - سيل الجليد - 16-05-2010
imad_soft
لا ليس ما احتاجه
الي ابغـاه هو combobox في مدن على حسب اختياري
ويوجد حقل في قاعدة البيانات بأسم المدن
عند الاختيار من combobox المدينة نضغط على الزر لأدخاله في قاعدة البيانات
اتمنى تكون وصلت المعلومة
وشكراً جزيلاً لكـ
استعمال ComboBox والاستغناء عن Edit في الجداول - imad_soft - 16-05-2010
تريد ان تملا combobox بالمدن
استعمال ComboBox والاستغناء عن Edit في الجداول - سيل الجليد - 16-05-2010
imad_soft
نعم
وايضاً عملية ادخالها الى جدول به حقل اسمة (مدن)
هل هذا الكود صحيح لأدخال الى الجدول
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1city.Value := combobox1.Text;
Table1.Post;
combobox.Text := '';
end;
استعمال ComboBox والاستغناء عن Edit في الجداول - الكاسر الآخر - 17-05-2010
إذا كان حقل المدينة في قاعدة البيانات من نوع نصي فهذا الكود صحيح ...
وللضمانة ممكن تكتب
كود :
Table1.FieldByName('City').AsString := ComboBox1.Text;كود :
Table1.FieldByName('City').AsString := ComboBox1.Items[ComboBox1.ItemIndex];استعمال ComboBox والاستغناء عن Edit في الجداول - سيل الجليد - 17-05-2010
الكاسر الآخر
شكراً لك
ولاكن ا اكتب المدن في combobox كيف اقوم بذالك
عالماً ان المدن من اختياري
هذا المشروع كمثال، فقط امسحوا الكود الموجود في combobox
استعمال ComboBox والاستغناء عن Edit في الجداول - imad_soft - 17-05-2010
لماذا لاتستعمل dbcombobox1 اسهل
املا dbcombobox1
items
ادخل المدن
اربط dbcombobox1 ب datasource: datasource1
datefield: مدن
button double click
table1.post
استعمال ComboBox والاستغناء عن Edit في الجداول - سيل الجليد - 17-05-2010
imad_soft
ما فهمت كيف اقوم بجعل الزر يدخل البيانات من dbcombobox1 الى قاعدة البيانات
هل اكتب فقط
table1.post
لانه لم ينفع معي
استعمال ComboBox والاستغناء عن Edit في الجداول - imad_soft - 17-05-2010
عادي جدا
املا dbcombobox1 ب المدن
اربط dbcombobox1 ب datasource: datasource1
ثم
datefield: مدن
button
table1.open
table1.post