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

最新推荐文章于 2025-10-18 11:39:46 发布

原创最新推荐文章于 2025-10-18 11:39:46 发布 · 810 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #数据库 #table #string #interface

小技巧专栏收录该内容

13 篇文章

订阅专栏

该博客主要围绕Delphi展开，涉及数据库操作。代码中设置了日期型字段的输入掩码，还包含获取和设置日期字段文本的过程，若日期转换不成功则判定为非法日期。

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