在Dataset的beforPost事件中加入如下代码:
if (ds1.FieldByName('wx_date').IsNull)or(ds1.FieldByName('wx_date').AsString='') then
begin
showmessage('请输入日期!');
try
ds1.Active:=false; //要继续操作按刷新按钮
Abort;
except
showmessage('非法操作(在录入或修改时,系统不允许将光标定位到其他行!),继续操作请单击刷新按钮!');
Abort;
end;