دخول

**Lam.Abdeldjalil** · 09-10-2010, 04:00 PM

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

مثال بالتغيير في الـ 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;

بالتوفيق

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة