12-07-2010, 09:18 PM
السلام عليكم
كثير منا يتسائل عن bookmark و إستخدامها
الــ bookmark : هي عبارة عن حفظ تأشير في DataSet مع إمكانية إسترجاعها بسهولة
يمكن تطبيقه لإسترداد مرجعية السجل الحالي ( العودة إليه بعد الإنتقال إلى سجلات أخرى )
و هذه أمثلة عن إستعمالاته
1- حفظ مؤشر واحد والعودة إليه بعد التجول في البيانات أو بعد القيام بعمليات على البيانات
مثال : عليك بتصريح متغير (يستعمل في الفورم) :كود حفظ التأشير
كود إسترجاع التأشير
2- حذف عدة تسجيلات مختارة في DBGrid ( دون إستعمال المتغير )
أولا عليك تفعيل خاصية تعدد الإختيارللـ DBGrid في خاصية Options القيمة dgMultiSelect إجعلها True
كود الحذف
3- نسخ التسجيلات المختارة في DBGrid إلى جدول آخر
نفس الطريقة السابقة ( دون إستعمال المتغير )
كود مثال
*ملاحظة : ليست كل أنواع الـ DataSet تدعم bookmark
و السلام عليكم
كثير منا يتسائل عن bookmark و إستخدامها
الــ bookmark : هي عبارة عن حفظ تأشير في DataSet مع إمكانية إسترجاعها بسهولة
يمكن تطبيقه لإسترداد مرجعية السجل الحالي ( العودة إليه بعد الإنتقال إلى سجلات أخرى )
و هذه أمثلة عن إستعمالاته
1- حفظ مؤشر واحد والعودة إليه بعد التجول في البيانات أو بعد القيام بعمليات على البيانات
مثال : عليك بتصريح متغير (يستعمل في الفورم) :
كود :
bookmarkname: TBookmarkStr;
كود :
bookmarkname := ADOTable1.Bookmark;
كود :
ADOTable1.Bookmark:=bookmarkname ;
2- حذف عدة تسجيلات مختارة في DBGrid ( دون إستعمال المتغير )
أولا عليك تفعيل خاصية تعدد الإختيارللـ DBGrid في خاصية Options القيمة dgMultiSelect إجعلها True
كود الحذف
كود :
for i := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
ADOTable1.Bookmark := DBGrid1.SelectedRows[i];
ADOTable1.Delete;
end;
3- نسخ التسجيلات المختارة في DBGrid إلى جدول آخر
نفس الطريقة السابقة ( دون إستعمال المتغير )
كود مثال
كود :
for i := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
ADOTable1.Bookmark := DBGrid1.SelectedRows[i];
ADOTable2.Append ;
ADOTable2Nom.Value :=ADOTable1Nom.Value ;
ADOTable2Pren.Value := ADOTable1Pren.Value;
ADOTable2.Post ;
*ملاحظة : ليست كل أنواع الـ DataSet تدعم bookmark
و السلام عليكم