【结】[注销问题**

欧诺万德

如何在表单或功能中通过一个按钮实现注销功能.

欧诺万德

我想实现点"交班"按钮就把注销的登陆窗体弹出,然后等下一班次的人来登陆,有人回答吗

欧诺万德

这问题有人管吗

yancm

参考主界面的注销按钮

欧诺万德

procedure TZBRZBD.Button1Click(Sender: TObject);
var
  lNewMainForm: TForm;
  FClosing :boolean;
begin
  if jsDialogs.ConfirmBox('确定要注销吗?', '注销', 1) then
  begin

    FClosing := True;
    try
      FClosing := TSystemCore.FuncManager.TerminateAllFuncs(True);
    except
      FClosing := False;
      raise;
    end;

    //Hide;

    //Enabled := False; // 很重要，不然登录对话框得不到焦点

    TInit.LogoffByUser;
    if TInit.InitInstance.Terminated then
      Exit;

    { TODO: 注销机制需要再做思考，目前会多次运行功能，IE下面的表现效果也需要重点考虑 }
    lNewMainForm := TInit.InitInstance.MainForm;
    if lNewMainForm <> nil then
    begin
      {
      if Parent = nil then
        lNewMainForm.ParentWindow := ParentWindow
      else
        lNewMainForm.Parent := Parent;
      }
      //lNewMainForm.BorderStyle := BorderStyle;
      lNewMainForm.Show;
      Borland.Delphi.Windows.PostMessage(lNewMainForm.Handle, Borland.Delphi.Messages.WM_ACTIVATE, 1, 0);
    end;
    //Release;
  end;
end;

我把主界面的注销按钮下的代码COPY下来,注释了几行代码,注销后会报错

欧诺万德

如图

alang

好像不行啊，因为在注销时候会关闭所有的功能，而这时候按钮的程序还没有执行完呢
放在功能上肯定会出错的

atiger

还有问题吗？没有就结了，（把注销修改为交班更简单，呵呵，这只是我的建议，）

欧诺万德

这个可以结了,问题不是太大,注销修改为交班肯定不行的,应该只有值班人员才有交班功能,其他人员是没有的

atiger

谢谢楼主的反馈