Absolute database

[igidher]

السلام عليكم و رحمة الله و بركاته
واجهت مشكلة بسيطة في تعاملي مع قواعد بيانات Absolute و هو أنه عند حذفك لسطر ما ABSTable1.delete (ليس السطر الأخير) و إضافتك لسطر جديد Insert OR Append ... تجد السطر الجديد أخذ مكان القديم و لا يأتي أسفل الجدول و ذلك يخل بالترتيب خاصة لو كنا نتعامل بالتواريخ في كل سطر
فهل من فكرة غابت عني لتدارك هذه المشكلة ؟؟

للتذكير فقط ... لم أواجه هذه المشكلة في قاعدة بيانات أكسس

جزاكم الله خيرا و بلغنا و إياكم العيد و تقبل منا رمضان
السلام عليكم

[محمد الدرة]

استخدم append بدل insert

[igidher]

استعملت كليهما و النتيجة واحدة

[igidher]

كيف نعدل على هذا الكود الموجود في 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) //------------------------------------------------------------------------------

[ibrahimkira]

السلام عليكم و رحمة الله تعالى و بركاته

صحيح اخي لقد لقيت نفس المشكلة .... و لقد و جدت الحل

و هذا الحل من استنتاجي فقط ممكن انني مخطأ

اصل المشكلة هي في الصف المحدد اي التحديد

كل ما عليك هو نقل التحديد الى الصف الاخير

و لقد قمت بفعل التالي

كود :

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;

و الآن قم بالاضافة او الحذف و ان شاء الله لن تجد مشكلة