在Delphi中處理資料庫日期型欄位的顯示與輸入 (轉)
在Delphi中處理資料庫日期型欄位的顯示與輸入 (轉)[@more@] 在使用進行設計時,不可避免的會涉及到日期型欄位的輸入問題。不過與的Access 97中文版等相比,Delphi本身提供的日期型欄位的顯示和輸入方式並不適合中國人的習慣。因此對於日期型欄位的處理,大家提出了不少解決方法,但是處理結果在顯示和輸入上並不統一,例如顯示時可以實現“yyyy年mm月dd日”的格式,但是在輸入時還是要按照國外的習慣用“yyyy-mm-dd”的形式進行輸入;而使用TdateTimePicker進行選擇輸入總嫌麻煩;有些方法還要修改的一些設定屬性,因而在進行釋出時要將系統的屬性進行調整;採用第三方的方式則還要將控制元件打包釋出。而且對於常用到的“1999年”、“1999年11月”等日期格式,沒有進行相應的處理。這裡我根據自己的實踐,利用TField的OnGetText和OnSetText兩個事件的結合,以期達到日期型欄位的顯示和輸入的統一,並可以處理我們常見的“1999年”、“1999年11月”等日期形式的顯示和輸入,全部利用Delphi提供的事件實現,不需要修改任何。進行相應的擴充套件後,還可以用於時間的顯示和輸入,如“hh點mm分”等。同時,由於是直接控制TField的事件,所以不論使用TGrid還是用TDBEdit,都可以正常的進行統一處理,而不必分開考慮。採用類似的方法,還可以應用於非資料庫應用中的日期輸入。
1 基本思想
利用TField的EditMask屬性,將其同時作為顯示和輸入的掩碼,在TField的OnGetText事件中處理日期欄位的顯示,而在OnSetText事件中處理輸入值的有效性判斷。為了重複利用程式碼,將OnGetText和OnSetText的事件處理過程的過程和放到一個獨立的單元中。
2 具體實現程式碼
{顯示和判斷單元}
unit DBDateEditMaskTrans;
interface
uses
, 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:;
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;
interface
uses
……{略去其他內容}
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: T);
{設定一個日期型欄位的輸入掩碼,可以放到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.
1 基本思想
利用TField的EditMask屬性,將其同時作為顯示和輸入的掩碼,在TField的OnGetText事件中處理日期欄位的顯示,而在OnSetText事件中處理輸入值的有效性判斷。為了重複利用程式碼,將OnGetText和OnSetText的事件處理過程的過程和放到一個獨立的單元中。
2 具體實現程式碼
{顯示和判斷單元}
unit DBDateEditMaskTrans;
interface
uses
, 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:;
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;
interface
uses
……{略去其他內容}
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: T);
{設定一個日期型欄位的輸入掩碼,可以放到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.
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-988336/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- Oracle中Blob欄位的寫入處理(一) (轉)Oracle
- Pandas日期資料處理:如何按日期篩選、顯示及統計資料
- 修改資料庫的日期顯示格式資料庫
- 轉載:Oracle常用的資料庫欄位型別Oracle資料庫型別
- 主流資料庫欄位型別轉.Net型別的方法資料庫型別
- 資料庫中欄位資料型別以及約束資料庫資料型別
- 水庫斷面水位中--水勢顯示效果處理--日期處理 SQLSQL
- 如何處理sql server中的image型別的欄位?SQLServer型別
- number資料型別在查詢中的顯示資料型別
- Delphi資料壓縮處理(1) (轉)
- Delphi資料壓縮處理(2) (轉)
- 在 Laravel 中動態 隱藏 / 顯示 API 欄位LaravelAPI
- php讀取xml資料庫欄位超長處理PHPXML資料庫
- 資料處理之欄位合併
- 在oracle中處理日期Oracle
- Java資料型別與資料庫欄位型別對應關係Java資料型別資料庫
- hibernate怎樣處理資料庫表中的有'default'屬性的欄位.資料庫
- MSSQL資料庫的欄位型別總結SQL資料庫型別
- 保留兩位小數:資料庫欄位型別NUMBER,Java欄位型別Double型別資料庫型別Java
- win10如何輸入法顯示語言欄_讓win10輸入法顯示語言欄的步驟Win10
- 多型關聯自定義的型別欄位的處理多型型別
- 【轉】修改表的欄位資料型別的方法資料型別
- delphi中的字串處理,以及幾個字串型別的說明。 (轉)字串型別
- C++中的檔案輸入/輸出(5):二進位制檔案的處理 (轉)C++
- asp中以十六進位制顯示字串資料 (轉)字串
- 資料庫timesten與 oracle 處理日期上寫法上的不同資料庫Oracle
- 在 SAP MM 物料顯示介面上看到一個欄位,如何查詢哪張資料庫表的哪個欄位進行的儲存資料庫
- 資料庫中的圖片欄位怎麼在報表中呈現資料庫
- 保留資料庫表中的資料,把表中的欄位varchar2改成clob型別資料庫型別
- 在Struts中如何處理ActionForm中包含日期型別屬性的情況ORM型別
- Mysql輸出中文顯示亂碼處理MySql
- asp.net 向Oracle資料庫表的Clob欄位中寫入文字編輯器中輸入的大段文字資訊ASP.NETOracle資料庫
- Calendar類在Java中的應用與日期時間處理Java
- Delphi處理JSON格式資料JSON
- Java SimpleDateFormat處理日期與字串的轉換JavaORM字串
- 資料欄位型別匹配型別
- 關於在textarea中輸入回車換行和空格字元的正常顯示 (轉)字元
- 在Delphi中捕獲控制檯程式的輸出 (轉)