怎么这个事件象只对Integer和String类型的字段起作用
其它的象TDateTime或Currency,就算你对该字段设置了这个事件
也触发不了
但我现在要在DBGrid里显示一个日期值，常常会出现1899-12-30的
我现在想格式化这个输入，该如何做。
（所使用的Query是动态创建的）
在系统主窗口（主程序）创建事件（ONCREATE）事件中，给下面两个变量赋值就可以了：
ShortDateFormat:='YYYY-MM-DD';//这里可以设置你需要的格式
DateSeparator:='-';
修改TField的DisplayFormat属性
你可以这样的吧?(OnGetText)
if ((Sender as TField).AsString='1900-1-1') then Text:=''
else Text:=(Sender as TField).AsString;
你也可以在DBGrid的OnDrawColumnCell中处理与显示相关的问题....
...
if (Column.Field.DataType=ftDate) or
(Column.Field.DataType=ftDateTime)
then
if Column.Field.AsString='1899-12-30' then
DBGrid1.Canvas.FillRect(Rect)
else DBGrid1.DefaultDrawColumnCell...
end
else DBGrid1.DefaultDrawColumnCell...
谢谢大家
现在我的问题不是不知道怎么格式化日期值
而是当在数据库没有这个日期值时
则这个日期值会可能是0或0.5XXXX的
所以会在GRID里显示1889-XX-XX的无意义数值
我现在想当日期值小于一定值时不显示出来
本来在TField.onGetText可以做这种工作的
可惜当TField的类型为TDateTime或某些类型时
就算设置了其onGetText事件，但也不会触发
先用varisnull判断一下
if varisnull(((Sender as TField).value)) then
text:='字段为空'
简单得很,就这点代码示例:
procedure TForm1.ClientDataSet1CDSDesigner4GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if ((Sender as TField).AsDateTime<StrToDate('1999-1-1')) then Text:=''
else Text:=(Sender as TField).AsString
end;
日期在1999-1-1前的均显示为空,注意是固定字段...
我是这样的，用一个类来封装了一些对数据库的操作、
在类里面建立一个 Query 来存取数据
以下是一些实现代码
type
TUsersInfo = Class(TComponent)
private
...
procedure StatusGetText(Sender: TField; var Text: string; DisplayText: Boolean);
procedure DateGetText(Sender: TField; var Text: string; DisplayText: Boolean);
public
... ...
property DataSet : TDBISAMQuery Read FQuery;
property DataSource : TDataSource read FDataSource write SetDataSource;
procedure ReadCurUserInfo;
published
... ...
end;
//---------------------------------
procedure TUsersInfo.ReadCurUserInfo;
begin
with FQuery do
begin
if not Active then Open;
... ...
FieldByName('Status').OnGetText := StatusGetText;
FieldByName('JoinDate').OnGetText := DateGetText;
FieldByName('Status').Alignment := taLeftJustify;
end;
... ...
end;
procedure TUsersInfo.StatusGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := GetUserStatusNameByID(Sender.AsInteger);
end;
procedure TUsersInfo.DateGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
if Sender.AsDateTime > 100 then //这里只是一个约数，在100内的日期值对实际来说应该是没有意思的
Text := FormatDateTime('yyyy-mm-dd', Sender.AsDateTime)
else
Text := '';
end;
在界面上用一个TDBGrid 联到 TUsersInfo.DataSource
可是从 TDBGrid来看也好，设断点也好
StatusGetText() 能触发，而DateGetText（）就不会触发
Why ??
"JoinDate"字段是一个TDateTime 类型的，而且还发现对Currency等也不行，
就String 或Integer 可以
问题就是这样呵
代码应该没有问题吧
字段的创建，我根本没有创建呵
FieldByName('Status').OnGetText := StatusGetText;
FieldByName('JoinDate').OnGetText := DateGetText;
对于两个差不多是一样的赋值，为什么一个OK一个却不会执行到呀
如果把上面的代码改改
procedure TUsersInfo.ReadCurUserInfo;
begin
with FQuery do
begin
if not Active then Open;
... ...
FieldByName('Status').OnGetText := StatusGetText;
FieldByName('Status').OnGetText := DateGetText;
end;
... ...
end;
这样DateGetText（）事件又会触发，只不过在执行到时出现转换错误而已
在系统主窗口（主程序）创建事件（ONCREATE）事件中，给下面两个变量赋值就可以了：
ShortDateFormat:='YYYY-MM-DD';//这里可以设置你需要的格式
DateSeparator:='-';