?? 在delphi中處理數(shù)據(jù)庫(kù)日期型字段的顯示與輸入 .htm
字號(hào):
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>計(jì)算機(jī)世界日?qǐng)?bào):
在Delphi中處理數(shù)據(jù)庫(kù)日期型字段的顯示與輸入
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
在Delphi中處理數(shù)據(jù)庫(kù)日期型字段的顯示與輸入
</h2></font>
<h3>
[請(qǐng)作者提供詳細(xì)的郵政地址給<a href="mailto:online@ccw.com.cn">我們</a>]
</h3>
</center>
<p><font color="#ffffff">----</font>
在使用Delphi進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)，不可避免的會(huì)涉及到日期型字段的輸入問(wèn)題。不過(guò)與Microsoft的Access 97中文版等相比，Delphi本身提供的日期型字段的顯示和輸入方式并不適合中國(guó)人的習(xí)慣。因此對(duì)于日期型字段的處理，大家提出了不少解決方法，但是處理結(jié)果在顯示和輸入上并不統(tǒng)一，例如顯示時(shí)可以實(shí)現(xiàn)“yyyy年mm月dd日”的格式，但是在輸入時(shí)還是要按照國(guó)外的習(xí)慣用“yyyy-mm-dd”的形式進(jìn)行輸入；而使用TdateTimePicker進(jìn)行選擇輸入總嫌麻煩；有些方法還要修改系統(tǒng)的一些設(shè)置屬性，因而在進(jìn)行軟件發(fā)布時(shí)要將系統(tǒng)的屬性進(jìn)行調(diào)整；采用第三方控件的方式則還要將控件打包發(fā)布。而且對(duì)于常用到的“1999年”、“1999年11月”等日期格式，沒(méi)有進(jìn)行相應(yīng)的處理。這里我根據(jù)自己的實(shí)踐，利用TField的OnGetText和OnSetText兩個(gè)事件的結(jié)合，以期達(dá)到日期型字段的顯示和輸入的統(tǒng)一，并可以處理我們常見(jiàn)的“1999年”、“1999年11月”等日期形式的顯示和輸入，全部利用Delphi提供的事件實(shí)現(xiàn)，不需要修改任何系統(tǒng)設(shè)置。進(jìn)行相應(yīng)的擴(kuò)展后，還可以用于時(shí)間的顯示和輸入，如“hh點(diǎn)mm分”等。同時(shí)，由于是直接控制TField的事件，所以不論使用TDBGrid還是用TDBEdit，都可以正常的進(jìn)行統(tǒng)一處理，而不必分開(kāi)考慮。采用類似的方法，還可以應(yīng)用于非數(shù)據(jù)庫(kù)應(yīng)用程序中的日期輸入。
<p><font color="#ffffff">----</font>
<b>1 基本思想</b>
<p><font color="#ffffff">----</font>
利用TField的EditMask屬性，將其同時(shí)作為顯示和輸入的掩碼，在TField的OnGetText事件中處理日期字段的顯示，而在OnSetText事件中處理輸入值的有效性判斷。為了重復(fù)利用代碼，將OnGetText和OnSetText的事件處理過(guò)程調(diào)用的過(guò)程和函數(shù)放到一個(gè)獨(dú)立的單元中。
<p><font color="#ffffff">----</font>
<b>2 具體實(shí)現(xiàn)代碼</b>
<pre>
{顯示和判斷單元}
unit DBDateEditMaskTrans;
interface
uses
Windows, SysUtils, Controls, Forms,Db;
{日期型字段顯示過(guò)程,在OnGetText事件中調(diào)用}
procedure DateFieldGetText(Sender: TField;
var Text: String);
{日期型字段輸入判斷函數(shù),在OnSetText事件中調(diào)用}
function DateFieldSetText(Sender: TField;
const Text: String):Boolean;
implementation
procedure DateFieldGetText(Sender: TField;
var Text: String);
var
dDate:TDate;
wYear,wMonth,wDay:Word;
aryTestYMD:Array [1..2] of Char
;{測(cè)試輸入掩碼用臨時(shí)數(shù)組}
iYMD:Integer;
begin
dDate:=Sender.AsDateTime;
DecodeDate(dDate,wYear,wMonth,wDay);
{測(cè)試輸入掩碼所包含的格式.}
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 {默認(rèn)為:”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);
{測(cè)試輸入掩碼所包含的格式.}
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進(jìn)行輸入的日期轉(zhuǎn)換}
try
begin
case iYMD of
1: {輸入掩碼為:”yyyy年”的格式.}
begin
dDate:=StrToDate(sYear+'-01-01')
;{中文Windows默認(rèn)的日期格式為: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 {默認(rèn)為:”yyyy年mm月dd日”的格式.}
begin
dDate:=StrToDate(sYear+'-'+sMonth+'-'+sDay);
Sender.AsDateTime:=dDate;
end;
end;
DateFieldSetText:=True;
end;
except
{日期轉(zhuǎn)換出錯(cuò)}
begin
Application.MessageBox(PChar(Text+'不是有效的日期!'),
'錯(cuò)誤',mb_Ok+mb_IconError);
DateFieldSetText:=False;
end;
end;
end;
end.
{主窗口單元}
unit Main;
interface
uses
……{略去其他內(nèi)容}
procedure Table1BirthdayGetText(Sender: TField;
var Text: String;DisplayText: Boolean);
procedure Table1BirthdaySetText(Sender: TField;
const Text: String);
private
{ Private declarations }
public
{ Public declarations }
……{略}
implementation
{將自定義的單元包含進(jìn)來(lái)}
uses DBDateEditMaskTrans;
{$R *.DFM}
……{其他過(guò)程略}
procedure TForm1.FormActivate(Sender: TObject);
{設(shè)置一個(gè)日期型字段的輸入掩碼，
可以放到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; {轉(zhuǎn)換不成功,日期非法}
end;
end.
</pre>
<font color="#ffffff">----</font>
以上代碼在中文Windows95 + Delphi3 + Paradox7環(huán)境下測(cè)試通過(guò)。
<p align="right"><small><em>中國(guó)計(jì)算機(jī)世界出版服務(wù)公司版權(quán)所有</em></small>
<br>
</p>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -