用户登录
关于系统用户注销然后以另一用户身份登录的Delphi实现
做一个普通的管理系统，有用户退出和用户注销的菜单。用户退出后整个系统关闭；用户注销后系统并不关闭，而是同重新启动系统一样，弹出登录窗体等待其他用户登录。
看了n多资料，方法高深得很。但是看了一下program里的代码，借用窗体的事件，轻松地实现了。
具体实现方法如下：在注销菜单的click事件中添加如下代码：
Frm_Interface.Destroy;//程序主窗体销毁；我的程序中Frm_Interface是系统启动时自动生成的主窗体。
Application.Initialize;
Application.CreateForm(TFrm_Interface, Frm_Interface);//重新创建主窗体，由于我的主窗的onshow
//事件中调用了系统登录界面，在主窗体显示之前会先启动登录界面。
Application.Run;
//
最后要强调，要想用以上方法成功实现用户注销，注意你的主窗体的Destroy事件中是不是用了不该出现的代码让整个应用程序结束了呢？如果有，解决吧！否则整个程序都注销了，后面的代码还能执行到么？！
/////////////////////////////////////////////////////////
重新登陆的事件中 mainForm.hide;if loginForm.showmodal = mbok then mainform.show 这种是主窗口在工程中比登录窗口先创建，只是被隐藏了
////////////////////////////////////////
点击“重新登录”按钮，隐藏MAin，显示Login，正确后显示Main。
追问：
我试过了，不行！
回答：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Hide;
Form2.Show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
UserName: TEdit;
Password: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if (UserName.Text = '123') and (Password.Text = '456') then
begin
Form1.Show;
Hide;
end;
end;
end.
追问：
我用的是showmodal 就不行了，为什么呢！奇怪了！
回答：
用Showmodal的话，Unit2中的Hide需要改成close或Free；Unit1中的Form2.ShowModal之前要创建窗口，相对比较复杂一点。还是用Show-Hide这一对命令较好。
////////////////////////////////////////////////////////////////////
这是我的,你参考一下:
program Tools;
uses
Windows,
Forms,
ToolsMain in 'ToolsMain.pas' {Form1},
Toolslogin in 'Toolslogin.pas' {Form2},
logindatamodule in 'logindatamodule.pas' {DataModule1: TDataModule};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TDataModule1, DataModule1);
//禁止显示主窗口
application.ShowMainForm:=false;
//显示登录窗口
form2.Showmodal;
application.Title:='因公护照、通行证工具';
Application.Run;
end.
