معالجة عرض وإدخال حقول تاريخ قاعدة البيانات في دلفي ===>>>وحدة النافذة الرئيسية

{وحدة النافذة الرئيسية}

الوحدة الرئيسية؛

واجهة

الاستخدامات

…{حذف محتوى آخر}

جدول الإجراءات 1 عيد ميلاد GetText (المرسل: TField؛

var Text: String;DisplayText: Boolean);

الإجراء Table1BirthdaySetText(Sender: TField;

نص ثابت: سلسلة)؛

خاص

{تصريحات خاصة}

عام

{التصريحات العامة}

……{طفيف}

تطبيق

{تضمين الوحدات المخصصة}

يستخدم DBDateEditMaskTrans؛

{$R *.DFM}

...{تم حذف العمليات الأخرى}

الإجراء TForm1.FormActivate(Sender: TObject);

{قم بتعيين قناع الإدخال لحقل التاريخ،

يمكن وضعها في تعريف حقل TField. }

يبدأ

Table1.FieldByName('Birthday').EditMask:=

'9999年99月99日;1;_';

نهاية؛

الإجراء TForm1.Table1BirthdayGetText(المرسل:

TField; var Text: String;

يبدأ

DateFieldGetText(Sender,Text);

نهاية؛

الإجراء TForm1.Table1BirthdaySetText(المرسل:

TField; نص ثابت: سلسلة);

يبدأ

إذا كان DateFieldSetText(Sender,Text)=False إذن

إحباط {فشل التحويل، التاريخ غير قانوني}

نهاية؛

نهاية.