---- 在使用Delphi進(jìn)行數(shù)據(jù)庫設(shè)計(jì)時(shí)，不可避免的會(huì)涉及到日期型字段的輸入問題。
不過與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月”等
日期格式，沒有進(jìn)行相應(yīng)的處理。這里我根據(jù)自己的實(shí)踐，利用TField的OnGetText和OnSetText兩
個(gè)事件的結(jié)合，以期達(dá)到日期型字段的顯示和輸入的統(tǒng)一，并可以處理我們常見的“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)一處理，而不必分開考慮
。采用類似的方法，還可以應(yīng)用于非數(shù)據(jù)庫應(yīng)用程序中的日期輸入。

---- 1 基本思想

---- 利用TField的EditMask屬性，將其同時(shí)作為顯示和輸入的掩碼，在TField的OnGetText事件中處
理日期字段的顯示，而在OnSetText事件中處理輸入值的有效性判斷。為了重復(fù)利用代碼，將OnGetText
和OnSetText的事件處理過程調(diào)用的過程和函數(shù)放到一個(gè)獨(dú)立的單元中。

---- 2 具體實(shí)現(xiàn)代碼

{顯示和判斷單元}
unit DBDateEditMaskTrans;
interface
uses
  Windows, SysUtils, Controls, Forms,Db;

  {日期型字段顯示過程,在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.