在Delphi中处理数据库日期型字段的显示与输入===>>>主窗口单元

    技术2022-05-11  11

    {主窗口单元}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.


    最新回复(0)