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

عندي سؤال أودا من الإخوة أن يجيبوني عليه ولهم من جزيل الشكر.
السؤال:
عندي جدولين أو أكثر وكل جدول يحتوي على حقول عدة وأبغي إدخال البيانات إلى كل جدول عن طريق dbedit موضوعين على فورم واحد فكيف أبدل بين الجداول عن طريق combobox أي أضع قائمة باسم الجداول في combobox فإذا اخترت إسم لجدول منها فإني أستطيع إدخال البيانات إلى ذلك الجدول من خلال مجموعةdbedit التي على الفورم.
علما أن قاعدة البيانات هي أكسس والمثال مبرمج بالدلفي 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;

بالتوفيق

استخدم الكود التالي

كود :
ADOConnection1.GetTableNames(ComboBox1.Items);
ADOTable1.TableName:=ComboBox1.Text;

تم التعديل في المرفقات

لقد استعملت الطريقة الأولى ونجحت فيها وساعدني بعض الإخوة في ذلك فبارك الله فيكم جميعا ووفقكم الله لما يحبه ويرضاه

وليد

Lam.Abdeldjalil

hasob2000

وليد