+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استعمال dbgrid لاظهار نوافذ حسب رقم السجل (/showthread.php?tid=8892)
كيف استعمال dbgrid لاظهار نوافذ حسب رقم السجل - widad-wac - 24-09-2017
السلام عليكم و رحمة الله و بركاته
![[صورة: 366378747.png]](http://www13.0zz0.com/2017/09/24/21/366378747.png)
كيف عند الضغط على السطر رقم 1 لـ dbgrid الى الفورم رقم 2
و عند الضغط على السطر التاني لـ dbgrid انتقل اى الفورم رقم 3
وهكذا مع باقي السطور
يعني كل سطر يقبله فورم جديد
RE: مساعدة حول استعمال dbgrid - محمد عبد العزيز - 24-09-2017
كود :
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;RE: مساعدة حول استعمال dbgrid - widad-wac - 24-09-2017
شكرا لك أخي بارك الله فيك
و جزاك كل خير
وجعلك من اهل الجنة
RE: كيف استعمال dbgrid لاظهار نوافذ حسب رقم السجل - محمد عبد العزيز - 26-09-2017
ملاحظة: اذاكان ال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;