لقد وضعت هذا الكود في زر
abstable1.delete;
لكن المشكلة انه بمجرد ما اضغط على اضافة سجل جديد يعطيني الرقم ما بعد الرقم الذي كان في قاعدة البيانات قبل افراغها
يعني كانت قتعدة البيانت تحتوي على 5 سجلات وعندما افرغتها تطهر لي فارغة اي لم يبقى بها اي سجل
وعندما اردت التسجيل بها من جديد واقصد التسجيل التلقائي اعطتني رقم السجل 6
علما ان نوع الحقل الموجود هو (+)
فكيف لي ان افرغ قاعدة البيانات من هذا النوع على ان يكون نوع الحقل (+) وفي حالة اضافة سجل على انها فارغة تعطيني رقم 1وجزاكم الله عنا كل خير
لقد وجدت الحل من طرف احد الأصدقاء بأحد المنتديات
واردت ان اضعه هنا بالمنتدى من اجل تعميم الفائدة
كود :
with DM Do begin
ABSTable1.Close;
ABSTable1.EmptyTable;
ABSTable1.Open;
end;
والله ولي التوفيق
إقتباس :واردت ان اضعه هنا بالمنتدى من اجل تعميم الفائدة
جزاك الله خيرا على هذا,
القاعدة تقول, تعلم و علّم ما تعلمت,
والسلام عليكم
بفضل نصائحكم وتوجيهاتكم احببت ان ارفع على المنتدى هذا الإنجاز البسيط
وهو عبارة عن كود لإفراغ قاعدة البيانات مع إضافة شروط
وهذ للمبتدئين مثلي ولتعم الفائدة وجزاكم الله عنا كل خير
كود :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ArabMessageDlg('هل انت متأكد من انك ترغب بافراغ قاعدة البيانات',mtWarning,mbOKCancel,0)=mrOK then begin
with DM Do begin
ABSTable1.Close;
ABSTable1.EmptyTable;
ABSTable1.Open;
ABSTable2.Close;
ABSTable2.EmptyTable;
ABSTable2.Open;
end;
ArabShowMessage('تمت العملية بنجاح');
end else begin
ArabShowMessage('لقد تم إلغاء عملية إفراغ المعطيات');
end;
end;
الله ولي التوفيق
السلام عليكم
اخي الكريم, جزاك الله خيرا
اسمح لي بسؤآل عن هذه,,
وما الخآص بها بالنسبة للعرب ؟
اعتقد انه مكون لاظهار الرسالة وازرارها بالعربي بغض النظر عن لغة الجهاز الافتراضية
هذا ناتج عن مكون الديلوق العربي عليك بإضافة الوحدة باس الي يوزيس
اضف الكلمة ADialogs في Uses الأولى
ثم اضف عبارة Arab قبل كلمة Message
والمكون في المرفقات
السلام عليكم ورحمة الله تعالى وبركاته
بعدما انفذ عملية إفراغ قاعدة البيانات
وانتقل الى الفورم التابعة لها اجد الديبقريد المتعلق بالداتاسورس المرتبطة بالجدول فارغة
والديبقريد المتعلق بالداتاسورس المرتبطة بالكويري غير فارغة
وهذا حتى اخرج من البرنامج واعد تشغيله من جديداجد الديبيقريد المتعلق بالداتاسورس المرتبطةبالكويري فارغ
**** ما حل هذه المشكلة
إقتباس :الديبقريد المتعلق بالداتاسورس المرتبطة بالكويري غير فارغة
طبيعي لان الQuery تم تنفيذه والقاعدة غير فارغة
قبل إفراغ القاعدة عليك غلق كل الجداول والQuery بالقاعدة
ثم اعد فتحها بعد الافراغ
وبالتوفيق
شكرًا جزيلاً
لكن كيف يتم ذلك
في أي حدث تكتب الكود
وهل كود غلق الجداول والكويري هو هذا
ABSTable1.Close;
ABSQuery1.Close;