一个系统提示，请帮手，在线等…

Question

我在窗体上加2个DbEdit连着一个SQL表的相应‘日期型’字段，当我在第一个日期型的DbEdit中输入字符后离开DbEdit(如按TAB)时，系统提示对话框：标题project1；信息：'xxxx' is not a valid data and time ，如何将提示改其为‘输入应为日期格式，请重输！’各位高手，请帮忙，我怎么试都不行。TKS

Answer 1

try
  adoquery.FieldByName('....').AsDateTime :=.......
except
  showmessage('输入应为日期格式，请重输');
    abort;
end;

Answer 2

T0：winsock2000(断了线的风筝)
   
   上面的写在程序的什么地方啊？我写在DBEDIT的onExit中，还是会出现这个得示啊。
   
   请再帮我看看吧。TKS！

Answer 3

你试试写在OnExit事件里看看行不行

Answer 4

try
  adoquery.Fieldvalues['....'] :=.......
except
  showmessage('输入应为日期格式，请重输');
  exit;
end;

Answer 5

好象用简单方法实现不了
'xxxx' is not a valid data and time也会显示

Answer 6

都不行啊
请再帮我想想，TKS！

Answer 7

这是Delphi的一个小问题，不要用DBEdit，建议用第三方控件.

Answer 8

TO：cjmo(阿模) 
   
   我不想用第三方啊，有没有其它办法，帮我想想吧。TKS！