السلام عليكم و رحمة الله و بركاته
واجهت مشكلة بسيطة في تعاملي مع قواعد بيانات Absolute و هو أنه عند حذفك لسطر ما ABSTable1.delete (ليس السطر الأخير) و إضافتك لسطر جديد Insert OR Append ... تجد السطر الجديد أخذ مكان القديم و لا يأتي أسفل الجدول و ذلك يخل بالترتيب خاصة لو كنا نتعامل بالتواريخ في كل سطر
فهل من فكرة غابت عني لتدارك هذه المشكلة ؟؟
للتذكير فقط ... لم أواجه هذه المشكلة في قاعدة بيانات أكسس
جزاكم الله خيرا و بلغنا و إياكم العيد و تقبل منا رمضان
السلام عليكم
استعملت كليهما و النتيجة واحدة
كيف نعدل على هذا الكود الموجود في vclAbsDBd19.bpl حتى نستطيع تجاوز المشكلة؟؟
كود :
procedure TABSDataSet.InitRecord(Buffer: TAbsPByte);
{$IFDEF DEBUG_TRACE_DATASET}const FunctionName = 'TABSDataSet.InitRecord';{$ENDIF}
begin
{$IFDEF DEBUG_TRACE_DATASET}aaWriteToLog(SABSFuncStart, [FunctionName]);{$ENDIF}
try
inherited InitRecord(Buffer);
PABSBookmarkInfo(Buffer + FHandle.BookmarkOffset)^.BookmarkFlag := abfInserted;
PABSBookmarkInfo(Buffer + FHandle.BookmarkOffset)^.BookmarkData.PageNo := INVALID_PAGE_NO;
PABSBookmarkInfo(Buffer + FHandle.BookmarkOffset)^.BookmarkData.PageItemNo := $FFFF;
finally
{$IFDEF DEBUG_TRACE_DATASET}aaWriteToLog(SABSFuncEnd, [FunctionName]);{$ENDIF}
end;
end;// InitRecord
//------------------------------------------------------------------------------
// appending table (Append flag - ignored, record will be inserted at first empty position)
//------------------------------------------------------------------------------
السلام عليكم و رحمة الله تعالى و بركاته
صحيح اخي لقد لقيت نفس المشكلة .... و لقد و جدت الحل
و هذا الحل من استنتاجي فقط ممكن انني مخطأ
اصل المشكلة هي في الصف المحدد اي التحديد
كل ما عليك هو نقل التحديد الى الصف الاخير
و لقد قمت بفعل التالي
كود :
procedure TForm1.ABSTable1AfterDelete(DataSet: TDataSet);
begin
ABSTable1.Last ;
end;
-------------------------------------------------------
procedure TForm1.ABSTable1AfterPost(DataSet: TDataSet);
begin
ABSTable1.Last ;
end;
-----------------------------------------------------------
procedure TForm1.ABSTable1BeforeInsert(DataSet: TDataSet);
begin
ABSTable1.Last ;
end;
-------------------------------------------------------------
procedure TForm1.ABSTable1BeforePost(DataSet: TDataSet);
begin
DBGrid1.SelectedIndex := ABSTable1.RecNo ;
end;
و الآن قم بالاضافة او الحذف و ان شاء الله لن تجد مشكلة