我在clientdataset的日期字段editmask设置的格式如下: !9999/99/00 99:99;1;_然后在clientdateset的onsettext事件中写如下提示说明:
procedure Tfrm_tdrsq.clientdatasetTDQSSJSetText(Sender: TField;
const Text: String);
begin
try
strtodatetime(text);
except
showmessage('日期输入错误,请重新输入');
end
end;
然后我用的dbedit链的日期字段,在用户录入错误的时候,能解决一些问题。
但是遇到用户要修改日期,录入错误日期的时候,会报错invalid input value.
use escape key to abandon changes
因为我的程序是浏览器版,于是浏览器就无法关闭!必须在任务管理器下面关闭。
想自己写个时间控件,但是时间太仓促,必须立即解决,所以请遇到类似问题的朋友帮忙一二,感激不尽。
procedure Tfrm_tdrsq.clientdatasetTDQSSJSetText(Sender: TField;
const Text: String);
begin
try
strtodatetime(text);
except
showmessage('日期输入错误,请重新输入');
end
end;
然后我用的dbedit链的日期字段,在用户录入错误的时候,能解决一些问题。
但是遇到用户要修改日期,录入错误日期的时候,会报错invalid input value.
use escape key to abandon changes
因为我的程序是浏览器版,于是浏览器就无法关闭!必须在任务管理器下面关闭。
想自己写个时间控件,但是时间太仓促,必须立即解决,所以请遇到类似问题的朋友帮忙一二,感激不尽。
解决方案 »
- 数据表多对一如何实现?是多对一还是一对多?
- 求助 DLL调用问题!!
- 更新数据库的问题
- 有谁用过或见过TIdEncoderMIME和Idbase64Encoder控件的吗?
- 播放flash文件无法停止和暂停?
- [提问]MainMenu控件:添加菜单项后如何才能让菜单不出现在窗体最顶端? 因为要用ToolBar关联这个菜单。 谢谢!
- 请问怎样使用外挂程序给IE浏览器中的EDIT赋值
- 请教WINSOCKET的用法!
- 跪求有用过icop控件dzdiocpnew的朋友帮忙
- 如何在RICHEDIT的指定行和列输出字符?
- 关于dbgrid中输入法的问题,有兴趣的朋友请进:)
- Midas的数据更新问题!!!进者有分!!!
DateSeparator = '-';
ShortDateFormat = "yyyy-mm-dd ";
TimeSeparator = ':';
LongTimeFormat=" hh:nn:ss";