关闭窗体**

rzport_gongyu · 发表于 2008-10-15 10:40:12

请问如何通过代码实现在显示错误提示信息之后能够自动关闭当前窗体，不提示保存对话框，直接不保存？

zfang · 发表于 2008-10-15 10:53:06

你说的是数据保存提示框吗？接管窗体的onclosequery事件就可以了。

rzport_gongyu · 发表于 2008-10-15 11:03:43

是的我是在DataChange事件上写的代码就是在用户录入一些信息的时候做一个判断。如果用户填错了给一个提示错误。但是用户如果还是点保存的话数据就存进去了。所以直接不让他们保存

zfang · 发表于 2008-10-15 11:04:35

哦，你说的是这个啊，那你取消修改就可以了。dataset.cancel

rzport_gongyu · 发表于 2008-10-15 11:12:53

DataSetBroker1.DataSet.Cancel;
close ()
这样对马但是运行之后能够实现但是报错

rzport_gongyu · 发表于 2008-10-15 11:13:40

2个错误

lixy · 发表于 2008-10-15 11:15:37

楼主干嘛要canel，直接CanClose:=true;

rzport_gongyu · 发表于 2008-10-15 11:25:33

具体怎么写？CanClose 没有这个定义亚

lixy · 发表于 2008-10-15 11:27:21

procedure TMAINFORM.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);

rzport_gongyu · 发表于 2008-10-15 13:57:13

功能是可以实现  但是还是报图中那两个错误
这是2个地方代码看看有什么问题
procedure TNJSQ.DataSetBroker1DataChange(Sender: TObject; Field: TDataField);
var
lQuery : Business.Data.TQuery;

begin
   if (Field <> nil) and ( Field.FieldName = 'JSSJ' ) then
            begin
               if Business.System.DateUtils.DaysBetween(DataSetBroker1.DataSet.FieldByName('kssj').AsDateTime , DataSetBroker1.DataSet.FieldByName('jssj').AsDateTime) + sysUtils.strtoint( DataSetBroker1.DataSet.FieldByName('ljxjts').AsString  ) > sysUtils.strtoint( DataSetBroker1.DataSet.FieldByName('nxjts').AsString ) then
                     dialogs.showmessage('此人年假已休完，请中止流程!');

                     close()

               end;
（这个是判断提示错误）

procedure TNJSQ.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   CanClose:=true
end;
（这个是你说的那个）

		自动登录	找回密码
密码			立即注册