كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات

[medreg]

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

[أبو معاذ]

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

[medreg]

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

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
يتم ذلك من خلال TADOTable أو TADOQuery من الخاصية MaxRecords أو عبر TDBGrid كما يلي:

كود :

(DBGrid1.DataSource.DataSet as TADOTable).MaxRecords := 20;

بالتوفيق.

[medreg]

وعليكم السلام ورحمة الله وبركاته
يتم ذلك من خلال TADOTable أو TADOQuery من الخاصية MaxRecords أو عبر TDBGrid كما يلي:

كود :

(DBGrid1.DataSource.DataSet as TADOTable).MaxRecords := 20;

بالتوفيق.

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

[kachwahed]

[COLOR="black"]

انا استعمل المكون Table ليس AddoTable

إذا تفحص RecordCount بعد كل إضافة، مبدئيا عند AfterPost

كود :

if Table1.RecordCount > 20 then Table1.Delete;

جرب أكثر وحاول. بالتوفيق.[/COLOR]

[medreg]

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