+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : بخصوص استعمال combobox للتبديل بين الجداول (/showthread.php?tid=2478)
بخصوص استعمال combobox للتبديل بين الجداول - وليد - 09-10-2010
عندي سؤال أودا من الإخوة أن يجيبوني عليه ولهم من جزيل الشكر.
السؤال:
عندي جدولين أو أكثر وكل جدول يحتوي على حقول عدة وأبغي إدخال البيانات إلى كل جدول عن طريق dbedit موضوعين على فورم واحد فكيف أبدل بين الجداول عن طريق combobox أي أضع قائمة باسم الجداول في combobox فإذا اخترت إسم لجدول منها فإني أستطيع إدخال البيانات إلى ذلك الجدول من خلال مجموعةdbedit التي على الفورم.
علما أن قاعدة البيانات هي أكسس والمثال مبرمج بالدلفي 2010.
وأرفق المثال حتى يتسنى لكم التعديل عليه وجزاكم الله خيرا
بخصوص استعمال combobox للتبديل بين الجداول - Lam.Abdeldjalil - 09-10-2010
و عليكم السلام و رحمة الله
مثال بالتغيير في الـ ComboBox1 في الحدث ComboBox1Change
كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: begin
ADOTable2.Close ;
DataSource1.DataSet :=ADOTable1 ;
dbedit1.DataField :='الرقم';
dbedit2.DataField :='الإسم واللقب';
dbedit3.DataField :='تاريخ الميلاد';
dbedit4.DataField :='مكان الميلاد';
dbedit5.DataField :='العنوان';
ADOTable1.Open ;
end ;
1: begin
ADOTable1.Close ;
DataSource1.DataSet :=ADOTable2 ;
dbedit1.DataField :='الرقم';
dbedit2.DataField :='الإسم واللقب';
dbedit3.DataField :='الوظيفة';
dbedit4.DataField :='الملاحظة';
dbedit5.DataField :='';
ADOTable2.Open ;
end
end;بخصوص استعمال combobox للتبديل بين الجداول - hasob2000 - 10-10-2010
استخدم الكود التالي
كود :
ADOConnection1.GetTableNames(ComboBox1.Items);
ADOTable1.TableName:=ComboBox1.Text;تم التعديل في المرفقات
بخصوص استعمال combobox للتبديل بين الجداول - وليد - 10-10-2010
لقد استعملت الطريقة الأولى ونجحت فيها وساعدني بعض الإخوة في ذلك فبارك الله فيكم جميعا ووفقكم الله لما يحبه ويرضاه