+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم أمثلة ومشاريع Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=216)
+--- الموضوع : برمجة زر dbnavigator (/showthread.php?tid=30161)
برمجة زر dbnavigator - abu ammar - 05-07-19
السلام عليكم يسعدني المشاركة بشرح برمجة أزرار المكون DBnavigator :
المكون DBnavigator يستخدم في التنقل بين سجلات قواعد البيانات و اجراء عمليات
الاضافة والتعديل والحذف والحفظ والالغاء والتحديث لسجلات قاعدة البيانات دون تدخل من المبرمج
يأخد اسم برمجي يبدأ بـ nb r قمثلا زر الحفظ nbpost
قد يحتاج المبرمج تعديل برمجة زر من هذه الأزرار وهذا مثال على ذلك :
في حدث النقر على المكون :
كود :
procedure TForm1.DBNavigator1Click(Sender: TObject;
Button: TDBNavButtonType);
begin
if Button = nbDelete then
showmessage('you are about to delete this record');
end;
end;RE: برمجة زر dbnavigator - viv - 07-07-19
شكرا اخ ابو عمر
ايضا لاتنسو ان هناك احداث لمكون الجدول نفسه يمكن برمجة ماتحتاج ايضا هناك
احداث ما قبل الاضافة او بعد الاضافة ما قبل التعديل او بعد التعديل ماقبل الحذف او بعد الحذف او عندما يتحرك المؤشر الى سجل اخر وهلم جرا
يمكنك ان تربط الاداة هذه بشكل عادي وتبرمج ما تريد هناك مثلا تؤدي نفس الغرض والنتيجة ، الامر عائد للمبرمج