{主窗口单元}unit Main;
interface
uses……{略去其他内容}procedure Table1BirthdayGetText(Sender: TField;var Text: String;DisplayText: Boolean);procedure Table1BirthdaySetText(Sender: TField; const Text: String);private{ Private declarations }public{ Public declarations }……{略}implementation
{将自定义的单元包含进来}uses DBDateEditMaskTrans;
{$R *.DFM}……{其他过程略}procedure TForm1.FormActivate(Sender: TObject);{设置一个日期型字段的输入掩码,可以放到TField字段定义中。}begin Table1.FieldByName(''''Birthday'''').EditMask:=''''9999\年99\月99\日;1;_'''';end;
procedure TForm1.Table1BirthdayGetText(Sender: TField; var Text: String;DisplayText: Boolean);begin DateFieldGetText(Sender,Text);end;
procedure TForm1.Table1BirthdaySetText(Sender:TField; const Text: String);begin if DateFieldSetText(Sender,Text)=False then Abort; {转换不成功,日期非法}end;
end.
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18