كيف امنع المستخدم من تغير تاريخ الموجود في البرنامج

اولا تقراء التاريخ من جدول Table1 مثلا الحقل اسمه LastD وتقارنه بالتاريخ الحالي الذي تحصل عليه بNow او Date

if Table1.FieldByName('LastD').AsDateTime>Date then Application.Terminate;
ِClose;

ان كان التاريخ الموجود بالحقل احدث من التاريخ الحالي يتم ايقاف التطبيق باستدعاء Terminate ولا تنتبه لClose اظفتها فقط للدعابة

-

الان ان لم يتوقف البرنامج واتبع يعني ان المقارنة لم تنجع نقوم بحفظ التاريخ

Table1.Edit;
Table1.FieldByName('LastD').AsDateTime:=Date;
Table1.Post;

ملاحظة: ان كان الهدف من هذا حماية البرنامج فهذا غير كافي ويتم تجاوزه في دقائق

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

مع الشكر واتمنى لك مستقبل مبدع يا مبدع DeltaAziz

أخ ابراهيم abo-ghadab

يا أخي عبد العزيز أرجو المعذرة

لقد جربت الكود لكن لا أعرف أين أضعه

جربت في الفورم 1 ووضعته في oncreate وفي onshow

ووضعته في projectوما مشي الحال

جزاك الله خيراً

يمكن وضعه في نفس المكان الذي تضع فيه Table1.Open