05-07-19, 08:48 PM
السلام عليكم يسعدني المشاركة بشرح برمجة أزرار المكون DBnavigator :
المكون DBnavigator يستخدم في التنقل بين سجلات قواعد البيانات و اجراء عمليات
الاضافة والتعديل والحذف والحفظ والالغاء والتحديث لسجلات قاعدة البيانات دون تدخل من المبرمج
يأخد اسم برمجي يبدأ بـ nb r قمثلا زر الحفظ nbpost
قد يحتاج المبرمج تعديل برمجة زر من هذه الأزرار وهذا مثال على ذلك :
في حدث النقر على المكون :
المكون 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;