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

L

lljimo

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

znxia

Unregistered / Unconfirmed
GUEST, unregistred user!
对应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;
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
dsEditMode 如何设定
 
Z

znxia

Unregistered / Unconfirmed
GUEST, unregistred user!
你敲错了,是dsEditModes,在db单元。刚才已经有帖子没有结了,这个帖子你还会不会结啊?我回答问题是为了分唉。
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
不好意思,刚才的分忘记给你结了
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
运行的时候,提示我说我输入的时间不是个有效的日期啊,格式什么的都完全正确
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 
顶部