dbedit问题(30分)

  • 主题发起人 主题发起人 delphihard
  • 开始时间 开始时间
D

delphihard

Unregistered / Unconfirmed
GUEST, unregistred user!
dbedit连的日期型数据,当我输入的不是日期型数据失去焦点后马上弹出系统的错误提示,不是
日期型,我怎么能把它变成我自己的提示?
 
try
except
end;
 
对,加上异常处理
try
except
end;
 
不等post就出出错信息,加来不及,当输入数据的时候就出错误提示
 
在DEdit离开焦点时
if (Sender as TDBEdit).DataSet.FieldByName('Date_Field').AsDateTime = 0 then
(Sender as TDBEdit).DataSet.FieldByName('Date_Field').AsDateTime := Now;
 
在beforepost之前
 
可以在dbedit对应域的onsettext中处理。
 
还是改Delphi自己的提示信息吧,可以解决很多的这类对话框问题,在
c:/program files/borland/delphi5/delphi5/source/vcl中,有定义字符串常量的文件,
叫做consts.pas,查找到那条字符串后,改成你自己的,比如“不是合法的日期类型!”,
注意不要把前边的%s弄乱,只改后边的字符串。
 
接受答案了.
 
后退
顶部