كيف استعمال dbgrid لاظهار نوافذ حسب رقم السجل

[widad-wac]

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

كيف عند الضغط على السطر رقم 1 لـ dbgrid الى الفورم رقم 2
 و عند الضغط على السطر التاني لـ dbgrid انتقل اى الفورم رقم 3
 وهكذا مع باقي السطور
 يعني كل سطر يقبله فورم جديد

[محمد عبد العزيز]

كود :

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if DBGrid1.DataSource.DataSet.RecNo=1 then form2.showmodal; if DBGrid1.DataSource.DataSet.RecNo=2 then form3.showmodal; if DBGrid1.DataSource.DataSet.RecNo=3 then form4.showmodal; if DBGrid1.DataSource.DataSet.RecNo=4 then form5.showmodal; end;

[widad-wac]

شكرا لك أخي بارك الله فيك

و جزاك كل خير

وجعلك من اهل الجنة

[محمد عبد العزيز]

ملاحظة: اذاكان الDbgrid1 ربط بDataSource1 التي بدورها ربطت AdoTable1 يمكن كتابة الكود السابق

كود :

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if AdoTable1.RecNo=1 then form2.showmodal; if AdoTable1.RecNo=2 then form3.showmodal; if AdoTable1.RecNo=3 then form4.showmodal; if AdoTable1.RecNo=4 then form5.showmodal; end;