delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف يتم التحكم في الديبيقريد على ان لا يقبل اكثر من عدد معين من السجلات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عيدكم مبروك وكل عام وانتم بخير
السلام عليكم ورحمة الله تعالى وبركاته
احتاج التحكم في DBGrid1 على ان لا يقبل اكثر من 20 سجل وعندما احتاج ان اضيف سجل ليصبح عدد السجلات به 21 سجل لا يتيح لي المجال للزيادة اكثر من 20 سجل
علما ان الحقل Cde هو المفتاح لقاعدة البيانات المربوطة مع DBGrid1
وجزاكم الله عنا كل خير
و عليكم السلام و رحمة الله وبركاته ،
يمكن أن تستعمل الحدث BeforeInsert التابع للمكون Table .
مشكور لكن
ماذا تكتب في هذا الحدث
وجزاكم الله عنا كل خير
وعليكم السلام ورحمة الله وبركاته
يتم ذلك من خلال TADOTable أو TADOQuery من الخاصية MaxRecords أو عبر TDBGrid كما يلي:
كود :
(DBGrid1.DataSource.DataSet as TADOTable).MaxRecords := 20;
بالتوفيق.
kachwahed كتب :وعليكم السلام ورحمة الله وبركاته
يتم ذلك من خلال TADOTable أو TADOQuery من الخاصية MaxRecords أو عبر TDBGrid كما يلي:
كود :
(DBGrid1.DataSource.DataSet as TADOTable).MaxRecords := 20;
بالتوفيق.

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