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

2008-04-09 04:18:08来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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 具体实现代码

{显示和判断单元}
unit DBDateEditMaskTrans;
interface
uses
Windows, SysUtils, Controls, Forms,Db;

{日期型字段显示过程,在OnGetText事件中调用}
procedure DateFieldGetText(Sender: TField; var Text: String);

{日期型字段输入判断函数,在OnSetText事件中调用}
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 ;{测试输入掩码用临时数组}
  iYMD:I ger;
begin
  dDate:=Sender.AsDateTime;
  DecodeDate(dDate,wYear,wMonth,wDay);
{测试输入掩码所包含的格式.}
  aryTestYMD:=’年’;
  if StrScan(PChar(Sender.EditMask),
  aryTestYMD[1])$#@60; $#@62;nil then
  iYMD:=1;
  aryTestYMD:=’月’;
  if StrScan(PChar(Sender.EditMask),
  aryTestYMD[1])$#@60; $#@62;nil then
  iYMD:=2;
  aryTestYMD:=’日’;
  if StrScan(PChar(Sender.EditMask),
  aryTestYMD[1])$#@60; $#@62;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])$#@60; $#@62;nil then
  iYMD:=1;
  aryTestYMD:=’月’;
if StrScan(PChar(Sender.EditMask),
  aryTestYMD[1])$#@60; $#@62;nil then
  iYMD:=2;
  aryTestYMD:=’日’;
if StrScan(PChar(Sender.EditMask),
  aryTestYMD[1])$#@60; $#@62;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;

interface

uses
……{略去其他内容}
procedure Table1BirthdayGetText(Sender: TField; var Text: String;DisplayText: Boolean);
procedure Table1BirthdaySetText(Sender: TField; const Text: String);
private
{ Private declarations }
public
{ Public declarations }

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:在DELPHI程序中自动设置ODBC数据源

下一篇:为应用软件加入全面的功能权限控制