+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي و التعامل مع قواعد البيانات (https://delphi4arab.net/forum/forumdisplay.php?fid=23)
+--- الموضوع : الــــ bookmark و حفظ تأشير الــ DataSet (/showthread.php?tid=2177)
الــــ bookmark و حفظ تأشير الــ DataSet - Lam.Abdeldjalil - 12-07-2010
السلام عليكم
كثير منا يتسائل عن 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
و السلام عليكم
الــــ bookmark و حفظ تأشير الــ DataSet - S.FATEH - 15-07-2010
السلام عليكم
موضوع مفيد اخي Lam.Abdeldjalil بارك الله فيك
لكن ما الفرق بين TBookmark و TBookmarkStr
http://www.delphi4arab.net/forum/showpost.php?p=5894&postcount=2
سلامي
الــــ bookmark و حفظ تأشير الــ DataSet - Lam.Abdeldjalil - 15-07-2010
السلام عليكم
بارك الله فيك أخي S.FATEH
ذكر في كتاب Mastering Delphi 7 أن TBookmarkStr أحدث من TBookmark و الله أعلم
يمكن العمل بـ TBookmark بالطريقة التالية :
كود :
var bookmarkname: TBookMark;كود :
bookmarkname:= ADOTable1.GetBookMark;كود :
ADOTable1.GotoBookmark(bookmarkname);كود :
ADOTable1.FreeBookmark(bookmarkname);الــــ bookmark و حفظ تأشير الــ DataSet - Lam.Abdeldjalil - 10-03-2011
و عليكم السلام و رحمة الله
إستخدمت في المثال TBookMark لأنه تم التخلي عن TBookmarkStr : المصدر
إقتباس :بالتوفيق
الــــ bookmark و حفظ تأشير الــ DataSet - ouazanilarbi - 15-03-2011
أين يمكن إيجاد هذا المركب ؟ هل يعمل مع الدلفي 7
وشكراً
الــــ bookmark و حفظ تأشير الــ DataSet - kachwahed - 15-03-2011
إقتباس :أين يمكن إيجاد هذا المركبعن أي مركب تتحدث؟
إقتباس : ADOTable1.GotoBookmark(bookmarkname);يستحسن قبل استعادة أي TBookmark التحقق من صحته أولا:
PHP كود :
if ADODataSet1.BookmarkValid(bookmarkname) then
الــــ bookmark و حفظ تأشير الــ DataSet - madi - 14-10-2012
بارك الله فيك وجزاك الله خيرا