在delphi中处理数据库日期型字段显示与输入

《在delphi中处理数据库日期型字段显示与输入》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、专栏：Delphi技术文章编号：934文章类别：原创作者：yh加贴时间：00-5-2011:57:05在Delphi中处理数据库日期型字段的显示与输入关键词：Delphi-MIS----在使用Delphi进行数据库设计时，不可避免的会涉及到日期型字段的输入问题。不过与Microsoft的Access97中文版等相比，Delphi本身提供的日期型字段的显示和输入方式并不适合中国人的习惯。因此对于日期型字段的处理，大家提出了不少解决方法，但是处理结果在显示和输入上并不统一，例如显示时可以实现“yyyy年mm月dd日”的格式，但是在输入时还是要按照国外的习惯用“yy

2、yy-mm-dd”的形式进行输入；而使用TdateTimePicker进行选择输入总嫌麻烦；有些方法还要修改系统的一些设置属性，因而在进行软件发布时要将系统的属性进行调整；采用第三方控件的方式则还要将控件打包发布。而且对于常用到的“1999年”、“1999年11月”等日期格式，没有进行相应的处理。这里我根据自己的实践，利用TField的OnGetText和OnSetText两个事件的结合，以期达到日期型字段的显示和输入的统一，并可以处理我们常见的“1999年”、“1999年11月”等日期形式的显示和输入，全部利用Delphi提供的事件实现，不需要修改任何系统设

3、置。进行相应的扩展后，还可以用于时间的显示和输入，如“hh点mm分”等。同时，由于是直接控制TField的事件，所以不论使用TDBGrid还是用TDBEdit，都可以正常的进行统一处理，而不必分开考虑。采用类似的方法，还可以应用于非数据库应用程序中的日期输入。----1基本思想----利用TField的EditMask属性，将其同时作为显示和输入的掩码，在TField的OnGetText事件中处理日期字段的显示，而在OnSetText事件中处理输入值的有效性判断。为了重复利用代码，将OnGetText和OnSetText的事件处理过程调用的过程和函数放到一个独

4、立的单元中。----2具体实现代码{显示和判断单元}unitDBDateEditMaskTrans;interfaceusesWindows,SysUtils,Controls,Forms,Db;{日期型字段显示过程,在OnGetText事件中调用}procedureDateFieldGetText(Sender:TField;varText:String);{日期型字段输入判断函数,在OnSetText事件中调用}functionDateFieldSetText(Sender:TField;constText:String):Boolean;implemen

5、tationprocedureDateFieldGetText(Sender:TField;varText:String);vardDate:TDate;wYear,wMonth,wDay:Word;aryTestYMD:Array[1..2]ofChar;{测试输入掩码用临时数组}iYMD:Integer;begindDate:=Sender.AsDateTime;DecodeDate(dDate,wYear,wMonth,wDay);{测试输入掩码所包含的格式.}aryTestYMD:='年';ifStrScan(PChar(Sender.EditMask

6、),aryTestYMD[1])<>niltheniYMD:=1;aryTestYMD:='月';ifStrScan(PChar(Sender.EditMask),aryTestYMD[1])<>niltheniYMD:=2;aryTestYMD:='日';ifStrScan(PChar(Sender.EditMask),aryTestYMD[1])<>niltheniYMD:=3;caseiYMDof1:{输入掩码为:”yyyy年”的格式.}Text:=IntToStr(wYear)+'年';2:{输入掩码为:”yyyy年mm月”的格式.}Text:=Int

7、ToStr(wYear)+'年'+IntToStr(wMonth)+'月';3:{输入掩码为:”yyyy年mm月dd日”的格式.}Text:=IntToStr(wYear)+'年'+IntToStr(wMonth)+'月'+IntToStr(wDay)+'日';else{默认为:”yyyy年mm月dd日”的格式.}Text:=IntToStr(wYear)+'年'+IntToStr(wMonth)+'月'+IntToStr(wDay)+'日';end;end;functionDateFieldSetText(Sender:TField;constText:St

8、ring):Boolean;vardD