delphi4arab منتديات دلفي للعرب
كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات (/showthread.php?tid=1361)



كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - medreg - 03-12-2009

عيدكم مبروك وكل عام وانتم بخير
السلام عليكم ورحمة الله تعالى وبركاته
احتاج التحكم في DBGrid1 على ان لا يقبل اكثر من 20 سجل وعندما احتاج ان اضيف سجل ليصبح عدد السجلات به 21 سجل لا يتيح لي المجال للزيادة اكثر من 20 سجل
علما ان الحقل Cde هو المفتاح لقاعدة البيانات المربوطة مع DBGrid1
وجزاكم الله عنا كل خير


كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - أبو معاذ - 03-12-2009

و عليكم السلام و رحمة الله وبركاته ،
يمكن أن تستعمل الحدث BeforeInsert التابع للمكون Table .


كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - medreg - 03-12-2009

مشكور لكن
ماذا تكتب في هذا الحدث
وجزاكم الله عنا كل خير


كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - kachwahed - 04-12-2009

وعليكم السلام ورحمة الله وبركاته
يتم ذلك من خلال TADOTable أو TADOQuery من الخاصية MaxRecords أو عبر TDBGrid كما يلي:
كود :
(DBGrid1.DataSource.DataSet as TADOTable).MaxRecords := 20;
بالتوفيق.



كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - medreg - 04-12-2009

kachwahed كتب :وعليكم السلام ورحمة الله وبركاته
يتم ذلك من خلال TADOTable أو TADOQuery من الخاصية MaxRecords أو عبر TDBGrid كما يلي:
كود :
(DBGrid1.DataSource.DataSet as TADOTable).MaxRecords := 20;
بالتوفيق.

شكرًا جزيلاً
انا استعمل المكون Table ليس AddoTable
فكيف لي ان استعمل هذا الكود وفي اي حدث اضعه في DBGrid
وجزاكم الله عنا كل خير


كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - kachwahed - 06-12-2009

[COLOR="black"]
إقتباس :انا استعمل المكون Table ليس AddoTable
إذا تفحص RecordCount بعد كل إضافة، مبدئيا عند AfterPost
كود :
if Table1.RecordCount > 20 then Table1.Delete;
جرب أكثر وحاول. بالتوفيق.[/COLOR]


كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات - medreg - 17-12-2009

جزاكم الله عنا كل خير
لقد استعملت الكود الذي اشرت الي به في الحدث AfterInsert
ونجحت العملية وشكرًا جزيلاً