后输入时间如果大于先输入的时间计算问题(50)

在两个空间里先后输入时间，如 DBEdit1Eh, DBEditEh2,两个控件，分别输入两个时间，如果DBEditEh2的时间大于DBEdit1Eh里的时间，则showmessage(时间错误)，如果DBEdit1Eh的时间大于现在的时间，则showmessage(时间错误)，请问在那个事件中解决，如何实现代码

对应DataSource的DataChange事件中处理。procedure TForm1.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
if Field=nil then
exit;
if not(Field.DataSet.State in dsEditModes) then
Exit;
//下面比较2个字段的值得 caption:=datetimetostr(now) //如 if (Field=DBEdit1Eh.Field) and (Field.Asdatetime>date) then
//showmessage('不可大于当前日期') // if (Field=DBEdit2Eh.field) and (not DBEdit1Eh.Field.IsNull) and (DBEdit2Eh.Field.AsDatetime >DBEdit1Eh.Field.AsDatetime ) then
// showmessage('不可大于开始日期')end;

dsEditMode 如何设定

你敲错了，是dsEditModes，在db单元。刚才已经有帖子没有结了，这个帖子你还会不会结啊？我回答问题是为了分唉。

不好意思，刚才的分忘记给你结了

运行的时候，提示我说我输入的时间不是个有效的日期啊，格式什么的都完全正确

接受答案了.