كيف يمكن تقييد صيغة ادخال البيانات في dbgrid

[احمد العراقي]

مرحبا اخواني الاعزاء...
كيف يمكن لي ان احدد صيغة البيانات التي سوف يتم ادخالها الى dbgrid مثلا عندي حقل تاريخ او حقل رقم و اريد ان امنع المستخدم من ادخال التاريخ بصورة خاطئة في dbgrid حيث انا استخدم dbgrid  لادخال و تحرير البيانات

[Delphi4Us]

اذا كان الحقل رقمي فلن تستطيع ادخال حروف ، هذا يحدث اوتوماتيكيا سواء في DBgride او اي DBcontrol اما صيغة التاريخ فيمكنك ذلك من نافذة خصائص الحقول في الجدول تحديد الـ FormatField او الـ Mask او ما شابه

عن طريق الجدول نفسه

PHP كود :

TFloatField(MyDs.FieldByName('Cost')).DisplayFormat := '0.00'; 


عن طريق الاداة

PHP كود :

procedure TFormMain.DBGridCompareDrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if Field.Name = 'FIELDNAME' then
    TFloatField(Field).DisplayFormat := '#,##0.00';
end; 


[احمد العراقي]

اذا كان الحقل رقمي فلن تستطيع ادخال حروف ، هذا يحدث اوتوماتيكيا سواء في DBgride او اي DBcontrol اما صيغة التاريخ فيمكنك ذلك من نافذة خصائص الحقول في الجدول تحديد الـ FormatField او الـ Mask او ما شابه

عن طريق الجدول نفسه

PHP كود :

TFloatField(MyDs.FieldByName('Cost')).DisplayFormat := '0.00'; 


عن طريق الاداة

PHP كود :

procedure TFormMain.DBGridCompareDrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if Field.Name = 'FIELDNAME' then
    TFloatField(Field).DisplayFormat := '#,##0.00';
end; 


اخي العزيز لم يعمل الكود عندي اذا ممكن طريقة اخرى ولكن بصورة اوضح مثلا كود يمنع المستخدم من ادخالةصورة غير صحيحة للتاربخ و يظهر له رسالة بالعربية يخبره بذلك طبعا هذا كله داخل عنصر dbgrid