【结贴】异常问题

didi0225

同一份数据库,在A台服务器出现问题如图。在B台则没有任何问题。

该功能是主窗体与子窗体同用一业务信息
如果在主窗体打开子窗体时,设置主窗体的数据集为Enabled:=State则又不出现这问题,请问怎么解决?

zfang

请楼主百度中搜索一下。
http://www.baidu.com/s?wd=cannot+change+visible

lixy

看看代码停到的位置

didi0225

最初由 lixy 发布
[B]看看代码停到的位置 [/B]

调试的时候是没问题的

didi0225

procedure TBZZLXX.DataGrid1DblClick(Sender: TObject);
var
   Str : String;
begin
     if DataSetBroker1.DataSet.IsEmpty then
     begin
          dialogs.ShowMessage('没有记录, 不能修改!');
          exit;
     end;

     Str:=DataSetBroker1.DataSet.FieldByName('ZLBS').AsString;

     if not Assigned(lForm) then
     lForm := TZJ.Create(self.Context);
     try
        lForm.Caption := '修改';
        lForm.ty:='修改';
        if not((cPositionMemberName='标准管理员') and (cDeptName='总工办')) then
        begin
           lForm.Caption := '查看';
           lForm.ty:='查看';
           DataSetState(False);  //设置数据集的Enabled
           lForm.DataSetBroker1.DataSet.ReadOnly:=True;
           lForm.DataSetBroker2.DataSet.ReadOnly:=True;
           lForm.DataSetBroker4.DataSet.ReadOnly:=True;
           lForm.DataSetBroker5.DataSet.ReadOnly:=True;
           lForm.DB_SYSRK.DataSet.ReadOnly:=True;
           lForm.Db_Fees.DataSet.ReadOnly:=True;
           lForm.DataNavigator3.Visible:=False;  //替换标准信息
           lForm.TB_SaveAndAdd.Visible:=False; //携带新增
           lForm.TB_Save.Visible:=False;       //保存数据
           lForm.TB_SaveAndClose.Visible:=False; //保存返回
           lForm.ToolButton2.Visible:=False;
           lForm.Btn_add.Visible:=False;
           lForm.Btn_Del.Visible:=False;
           lForm.BitBtn1.Visible:=False;
        end;
        lForm.ShowModal;
     Finally
            lForm.Close;
            DataSetState(True);
            if (DataSetBroker1.DataSet.RecordCount<>0) and   
    (DataSetBroker1.DataSet.State in [TdataSetState.dsInsert,TdataSetState.dsEdit]) then
            begin
            DataSetBroker1.DataSet.ApplyUpdates;
            DataSetBroker1.DataSet.Refresh;
            end;
            DataSetBroker1.DataSet.Locate('ZLBS', Str,
[TLocateOption.loCaseInsensitive, TLocateOption.loPartialKey]);
     end;

     if DataSetBroker1.DataSet.RecordCount<>0 then
     DataGrid1.FocusedNode.Selected:=True;
end;

代码如上

lixy

lForm.Close; 删除掉。

didi0225

不知道什么原因,一楼的问题没有出现了
只是有个问题是,我用5楼的代码
    if not Assigned(lForm) then
     lForm := TZJ.Create(self.Context);
    lForm.ShowModal;
     Finally
            lForm.Close;
  end;
procedure TBZZLXX.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if Assigned(lForm) then
   lForm.Free;
end;

直接注销关闭系统时,就出现如图错误

但是我先关闭窗体再注销就不会出现这错误

还有  lForm.Close;这句不能换位  lForm.Free;否则会出现连接中的错误http://bbs.justep.com/forum.php?mod=viewthread&tid=29977 16楼的第一点,如果使用Free再次双击会出现错误

shangxy

我用上次你给我的那个例子：
业务模型\质检管理系统\5_资源管理\标准资料信息
没有问题。

zfang

procedure TBZZLXX.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if Assigned(lForm) then
   lForm.Free;
end;

这个能不能换个事件，在 form的 Destroy事件中处理试试呢

didi0225

大意了~谢谢