Delphi 資料庫日期型欄位的顯示與輸入

bestlong

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，都可以正常的进行统一处理，而不必分开考虑。采用类似的方法，还可以应用于非数据库应用程序中的日期输入。

1 基本思想

　　利用TField的EditMask属性，将其同时作为显示和输入的掩码，在TField的OnGetText事件中处理日期字段的显示，而在OnSetText事件中处理输入值的有效性判断。为了重复利用代码，将OnGetText和OnSetText的事件处理过程调用的过程和函数放到一个独立的单元中。

2 具体实现代码

1. {显示和判断单元}
   
2. unit DBDateEditMaskTrans;
   
3. interface
   
4. uses
   
5. Windows, SysUtils, Controls, Forms,Db;
   
6. 
   
7. {日期型字段显示过程,在OnGetText事件中调用}
   
8. procedure DateFieldGetText(Sender: TField; var Text: String);
   
9. 
   
10. {日期型字段输入判断函数,在OnSetText事件中调用}
    
11. function DateFieldSetText(Sender: TField; const Text: String):Boolean;
    
12. 
    
13. implementation
    
14. 
    
15. procedure DateFieldGetText(Sender: TField; var Text: String);
    
16. var
    
17. 　　dDate:TDate;
    
18. 　　wYear,wMonth,wDay:Word;
    
19. 　　aryTestYMD:Array [1..2] of Char ;{测试输入掩码用临时数组}
    
20. 　　iYMD:I ger;
    
21. begin
    
22. 　　dDate:=Sender.AsDateTime;
    
23. 　　DecodeDate(dDate,wYear,wMonth,wDay);
    
24. {测试输入掩码所包含的格式.}
    
25. 　　aryTestYMD:=’年’;
    
26. 　　if StrScan(PChar(Sender.EditMask),
    
27. 　　aryTestYMD[1])$#@60; $#@62;nil then
    
28. 　　iYMD:=1;
    
29. 　　aryTestYMD:=’月’;
    
30. 　　if StrScan(PChar(Sender.EditMask),
    
31. 　　aryTestYMD[1])$#@60; $#@62;nil then
    
32. 　　iYMD:=2;
    
33. 　　aryTestYMD:=’日’;
    
34. 　　if StrScan(PChar(Sender.EditMask),
    
35. 　　aryTestYMD[1])$#@60; $#@62;nil then
    
36. 　　iYMD:=3;
    
37. 
    
38. case iYMD of
    
39. 　1:{输入掩码为:”yyyy年”的格式.}
    
40. 　　Text:=IntToStr(wYear)+’年’;
    
41. 　2: {输入掩码为:”yyyy年mm月”的格式.}
    
42. 　　Text:=IntToStr(wYear)+’年’+IntToStr(wMonth)+’月’;
    
43. 　3: {输入掩码为:”yyyy年mm月dd日”的格式.}
    
44. 　　Text:=IntToStr(wYear)+’年’+IntToStr(wMonth)+’月’ +IntToStr(wDay)+’日’;
    
45. 　else {默认为:”yyyy年mm月dd日”的格式.}
    
46. 　　Text:=IntToStr(wYear)+’年’+IntToStr(wMonth)+’月’ +IntToStr(wDay)+’日’;
    
47. end;
    
48. 
    
49. end;
    
50. 
    
51. function DateFieldSetText(Sender: TField; const Text: String):Boolean;
    
52. var
    
53. 　　dDate:TDate;
    
54. 　　sYear,sMonth,sDay:String;
    
55. 　　aryTestYMD:Array [1..2] of Char;
    
56. 　　iYMD:Integer;
    
57. begin
    
58. {获得用户输入的日期}
    
59. 　　sYear:=Copy(Text,1,4);
    
60. 　　sMonth:=Copy(Text,7,2);
    
61. 　　SDay:=Copy(Text,11,2);
    
62. 
    
63. {测试输入掩码所包含的格式.}
    
64. 　　aryTestYMD:=’年’;
    
65. if StrScan(PChar(Sender.EditMask),
    
66. 　　aryTestYMD[1])$#@60; $#@62;nil then
    
67. 　　iYMD:=1;
    
68. 　　aryTestYMD:=’月’;
    
69. if StrScan(PChar(Sender.EditMask),
    
70. 　　aryTestYMD[1])$#@60; $#@62;nil then
    
71. 　　iYMD:=2;
    
72. 　　aryTestYMD:=’日’;
    
73. if StrScan(PChar(Sender.EditMask),
    
74. 　　aryTestYMD[1])$#@60; $#@62;nil then
    
75. 　　iYMD:=3;
    
76. 
    
77. {利用Try…Except进行输入的日期转换}
    
78. try
    
79. begin
    
80. case iYMD of
    
81. 　1: {输入掩码为:”yyyy年”的格式.}
    
82. 　　begin
    
83. 　　　dDate:=StrToDate(sYear+’-01-01’) ;{中文Windows默认的日期格式为:yyyy-mm-dd.下同}
    
84. 　　　Sender.AsDateTime:=dDate;
    
85. 　　end;
    
86. 　2: {输入掩码为:”yyyy年mm月”的格式.}
    
87. 　　begin
    
88. 　　　dDate:=StrToDate(sYear+’-’+sMonth+’-01’);
    
89. 　　　Sender.AsDateTime:=dDate;
    
90. 　　end;
    
91. 　3: {输入掩码为:”yyyy年mm月dd日”的格式.}
    
92. 　　begin
    
93. 　　　dDate:=StrToDate(sYear+’-’+sMonth+’-’+sDay);
    
94. 　　　Sender.AsDateTime:=dDate;
    
95. 　　end;
    
96. 　else {默认为:”yyyy年mm月dd日”的格式.}
    
97. 　begin
    
98. 　　dDate:=StrToDate(sYear+’-’+sMonth+’-’+sDay);
    
99. 　　Sender.AsDateTime:=dDate;
    
100. 　end;
     
101. 　end;
     
102. 　　DateFieldSetText:=True;
     
103. 　end;
     
104. 　except
     
105. {日期转换出错}
     
106. begin
     
107. 　Application.MessageBox(PChar(Text+’不是有效的日期!’), ’错误’,mb_Ok+mb_IconError);
     
108. 　DateFieldSetText:=False;
     
109. end;
     
110. end;
     
111. 
     
112. end;
     
113. 
     
114. end.
     
115. 
     
116. {主窗口单元}
     
117. unit Main;
     
118. 
     
119. interface
     
120. 
     
121. uses
     
122. ……{略去其他内容}
     
123. procedure Table1BirthdayGetText(Sender: TField; var Text: String;DisplayText: Boolean);
     
124. procedure Table1BirthdaySetText(Sender: TField; const Text: String);
     
125. private
     
126. { Private declarations }
     
127. public
     
128. { Public declarations }
     
129. ……{略}
     
130. implementation
     
131. 
     
132. {将自定义的单元包含进来}
     
133. uses DBDateEditMaskTrans;
     
134. 
     
135. {$R *.DFM}
     
136. ……{其他过程略}
     
137. procedure TForm1.FormActivate(Sender: TObject);
     
138. {设置一个日期型字段的输入掩码，可以放到TField字段定义中。}
     
139. begin
     
140. 　　Table1.FieldByName(’Birthday’).EditMask:= ’9999\年99\月99\日;1;_’;
     
141. end;
     
142. 
     
143. procedure TForm1.Table1BirthdayGetText(Sender: TField; var Text: String;DisplayText: Boolean);
     
144. begin
     
145. 　　DateFieldGetText(Sender,Text);
     
146. end;
     
147. 
     
148. procedure TForm1.Table1BirthdaySetText(Sender: TField; const Text: String);
     
149. begin
     
150. 　　if DateFieldSetText(Sender,Text)=False then
     
151. 　　Abort; {转换不成功,日期非法}
     
152. end;
     
153. 
     
154. end.

複製代碼

from: http://www.itdb.cn/n/200009/18/n20000918_16126.shtml