📄 delp013.html
字号:
<html><!-- #BeginTemplate "/Templates/fwolf001.dwt" --><head><!-- #BeginEditable "doctitle" --> <title>独孤之所 - 在Delphi中处理数据库日期型字段的显示与输入 </title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><!-- #EndEditable --> <style type="text/css"><!--body { font-family: "宋体"; font-size: 9pt}td { font-family: "宋体"; font-size: 9pt}a:hover { text-decoration: underline}a { text-decoration: none}input { font-family: "宋体"; font-size: 9pt}select { font-family: "宋体"; font-size: 9pt}--></style></head><body><!-- #BeginEditable "2%C7%F8" --> <!-- #EndEditable --><div align="left"> <table width="98%" border="0" align="center"> <tr> <td width="33%"><a href="../../../index.html"><img src="../../../logos/fwolf9.gif" width="271" height="60" alt="独孤之所首页" border="0"></a></td> <td width="67%"> <div align="center"> </div> </td> </tr> </table> </div><table width="100%" border="0" align="center" cellspacing="1" bgcolor="#66FF66"> <tr> <td width="90%"><a href="../../../index2.html">独孤之所</a> > </td> <td width="10%"> <div align="center"><a href="javascript:window.close()">[关闭窗口]</a></div> </td> </tr></table><hr size="1"><!-- #BeginEditable "old%20data" --><!-- #EndEditable --> <br><table width="584" border="0" align="center" cellspacing="1"> <tr> <td width="582"> <font color="#FF3333"> <div align="center"><!-- #BeginEditable "%B1%EA%CC%E2" --> <!-- #EndEditable --></div> </font> </td> </tr> <tr> <td width="582"> <div align="center"><!-- #BeginEditable "%D7%F7%D5%DF" --><!-- #EndEditable --></div> </td> </tr> <tr> <td width="582"><!-- #BeginEditable "%CE%C4%B1%BE%C7%F8" --> <center> <font color="#0000c0"> <font color="#FF3333">在Delphi中处理数据库日期型字段的显示与输入 </font></font> <h3> </h3> </center> <p><font color="#ffffff">----</font> 在使用Delphi进行数据库设计时，不可避免的会涉及到日期型字段的输入问题。不过与Microsoft的Access 97中文版等相比，Delphi本身提供的日期型字段的显示和输入方式并不适合中国人的习惯。因此对于日期型字段的处理，大家提出了不少解决方法，但是处理结果在显示和输入上并不统一，例如显示时可以实现“yyyy年mm月dd日”的格式，但是在输入时还是要按照国外的习惯用“yyyy-mm-dd”的形式进行输入；而使用TdateTimePicker进行选择输入总嫌麻烦；有些方法还要修改系统的一些设置属性，因而在进行软件发布时要将系统的属性进行调整；采用第三方控件的方式则还要将控件打包发布。而且对于常用到的“1999年”、“1999年11月”等日期格式，没有进行相应的处理。这里我根据自己的实践，利用TField的OnGetText和OnSetText两个事件的结合，以期达到日期型字段的显示和输入的统一，并可以处理我们常见的“1999年”、“1999年11月”等日期形式的显示和输入，全部利用Delphi提供的事件实现，不需要修改任何系统设置。进行相应的扩展后，还可以用于时间的显示和输入，如“hh点mm分”等。同时，由于是直接控制TField的事件，所以不论使用TDBGrid还是用TDBEdit，都可以正常的进行统一处理，而不必分开考虑。采用类似的方法，还可以应用于非数据库应用程序中的日期输入。 <p><font color="#ffffff">----</font> <b>1 基本思想</b> <p><font color="#ffffff">----</font> 利用TField的EditMask属性，将其同时作为显示和输入的掩码，在TField的OnGetText事件中处理日期字段的显示，而在OnSetText事件中处理输入值的有效性判断。为了重复利用代码，将OnGetText和OnSetText的事件处理过程调用的过程和函数放到一个独立的单元中。 <p><font color="#ffffff">----</font> <b>2 具体实现代码</b> <pre>{显示和判断单元}unit DBDateEditMaskTrans;interfaceuses Windows, SysUtils, Controls, Forms,Db; {日期型字段显示过程,在OnGetText事件中调用} procedure DateFieldGetText(Sender: TField; var Text: String); {日期型字段输入判断函数,在OnSetText事件中调用} function DateFieldSetText(Sender: TField; const Text: String):Boolean;implementationprocedure DateFieldGetText(Sender: TField; var Text: String);var dDate:TDate; wYear,wMonth,wDay:Word; aryTestYMD:Array [1..2] of Char;{测试输入掩码用临时数组} iYMD:Integer;begin dDate:=Sender.AsDateTime; DecodeDate(dDate,wYear,wMonth,wDay); {测试输入掩码所包含的格式.} aryTestYMD:='年'; if StrScan(PChar(Sender.EditMask),aryTestYMD[1])< >nil then iYMD:=1; aryTestYMD:='月'; if StrScan(PChar(Sender.EditMask),aryTestYMD[1])< >nil then iYMD:=2; aryTestYMD:='日'; if StrScan(PChar(Sender.EditMask),aryTestYMD[1])< >nil then iYMD:=3; case iYMD of 1:{输入掩码为:”yyyy年”的格式.} Text:=IntToStr(wYear)+'年'; 2: {输入掩码为:”yyyy年mm月”的格式.} Text:=IntToStr(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;function DateFieldSetText(Sender: TField; const Text: String):Boolean;var dDate:TDate; sYear,sMonth,sDay:String; aryTestYMD:Array [1..2] of Char; iYMD:Integer;begin {获得用户输入的日期} sYear:=Copy(Text,1,4); sMonth:=Copy(Text,7,2); SDay:=Copy(Text,11,2); {测试输入掩码所包含的格式.} aryTestYMD:='年'; if StrScan(PChar(Sender.EditMask),aryTestYMD[1])< >nil then iYMD:=1; aryTestYMD:='月'; if StrScan(PChar(Sender.EditMask),aryTestYMD[1])< >nil then iYMD:=2; aryTestYMD:='日'; if StrScan(PChar(Sender.EditMask),aryTestYMD[1])< >nil then iYMD:=3; {利用Try…Except进行输入的日期转换} try begin case iYMD of 1: {输入掩码为:”yyyy年”的格式.} begin dDate:=StrToDate(sYear+'-01-01') ;{中文Windows默认的日期格式为:yyyy-mm-dd.下同} Sender.AsDateTime:=dDate; end; 2: {输入掩码为:”yyyy年mm月”的格式.} begin dDate:=StrToDate(sYear+'-'+sMonth+'-01'); Sender.AsDateTime:=dDate; end; 3: {输入掩码为:”yyyy年mm月dd日”的格式.} begin dDate:=StrToDate(sYear+'-'+sMonth+'-'+sDay); Sender.AsDateTime:=dDate; end; else {默认为:”yyyy年mm月dd日”的格式.} begin dDate:=StrToDate(sYear+'-'+sMonth+'-'+sDay); Sender.AsDateTime:=dDate; end; end; DateFieldSetText:=True; end; except {日期转换出错} begin Application.MessageBox(PChar(Text+'不是有效的日期!'),'错误',mb_Ok+mb_IconError); DateFieldSetText:=False; end; end;end;end.{主窗口单元}unit Main;interfaceuses……{略去其他内容}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.</pre> <font color="#ffffff">----</font> 以上代码在中文Windows95 + Delphi3 + Paradox7环境下测试通过。 <!-- #EndEditable --></td> </tr> <tr> <td width="582"><!-- #BeginEditable "%B1%B8%D7%A2" --><!-- #EndEditable --></td> </tr></table><br><hr size="1"><table width="25%" border="1" align="center" cellspacing="0" cellpadding="0" bordercolorlight="#CCCCFF" bordercolordark="#000033" bordercolor="#6666FF"> <tr align="center"> <td> 转载请注明出于 <a href="http://fwolf.yeah.net" target="_blank">独孤之所</a><!--Fwolf出品fwolf001@163.nethttp://fwolf.yeah.net --> </td> </tr> <tr align="center"> <td> <script>document.write("<a href=http://www.topcn.com/siteinfo.asp?UserName=fwolf2000&SiteType=0 target=_blank><img src=http://www1.topcn.com:8081/statistics.asp?fwolf2000&referURL="+escape(top.document.referrer)+"&curURL="+escape(top.document.URL)+"&imgStyle=0"+" border=0 alt='Top中文网站龙虎榜' ></a>");</script> <script>document.write("<a href=http://www.textclick.com/viewmain.asp?name=fwolf2000 target=_blank><img src=http://ad.t2t2.com/stat.asp?user=fwolf2000&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" alt=太极统计 border=0></a>");</script> </td> </tr></table><table width="100%" border="0" align="center" cellspacing="1" bgcolor="#66FF66"> <tr> <td width="10%"><a href="javascript:window.close()">[关闭窗口]</a></td> <td width="90%"> <div align="left"></div> </td> </tr></table><div id="Layer1" style="position:absolute; width:470px; height:60; z-index:1; left: 293px; top: 13px; overflow: hidden"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="60"> <tr> <td><a href="http://202.99.67.100/adclick2/click/random.cgi?job=go&id=1490" target="_blank"><img src="http://202.99.67.100/adclick2/click/random.cgi?id=1490" border="0" width="468" height="60"></a> </td> </tr> </table></div><div align="center"></div><p align="center"> <script language="JavaScript1.1" src=http://ad.t2t2.com/textclick.asp?user=fwolf&style=4&bkcolor=no></script></p><p align="center"> </p></body><!-- #EndTemplate --></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -