登陆的问题？？(50分)

X

xxwxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #1

如何使一个程序启动时弹出一个登陆界面，如果用户名密码正确弹出一个窗体
后登陆界面消失然后
把弹出的窗体设为主窗体？？请问应如何做？？

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #2

你可參考一下，將項目文件改為：
program Project2; //項目文件

uses
Forms,controls, //不要忘記加這個controls單元
Unit1 in 'Unit1.pas' {Mainform},
Unit2 in 'Unit2.pas' {Loginform};

{$R *.res}

begin
Application.Initialize;
Try
LoginForm:=TLoginForm.create(Application);//登錄窗口
LoginForm.ShowModal;
If LoginForm.ModalResult=Mrok then
Begin
Application.CreateForm(TMainform, Mainform);//主窗口
Application.Run;
end;
finally
LoginForm.Free;
LoginForm:=Nil;
end;
end.
在登錄窗口的按鈕事件中，判斷密碼。
procedure TLoginform.Button1Click(Sender: TObject);
begin
判斷密碼...
if 密碼正確 then
ModalResult:=mrok;
end;

 

F

forehead

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #3

在主窗体的OnCreate中动态创建登陆界面，如口令不正确则结束程序；正确进入程序。

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #4

可以让窗体隐藏的！
form.hide
一起有过这个帖子的，你搜～

 

K

kmyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #5

这个挺简单的
http://www.delphibbs.com/delphibbs/dispq.asp?LID=993159

 

A

akaiwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #6

在主窗体的Create,active等事件中动态创建登陆界面，如口令不正确则结束程序；
正确进入程序。显示主窗体

 

S

sydanlong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #7

program Project2;

uses
Forms,
Dialogs,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var
PassWord:string;
begin
if InputQuery('Password','Enter your password ...123',Password) then
if password = '123' then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
messageDlg('Incorrect Password , teminating program',mtError,[mbok],0);

end.
這個最簡單!!試試

 

X

xxczq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #8

王新动个笨蛋，我早告诉你了，还发帖子

 

X

xxczq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #9

老笨，我作的程序给你看了，给你讲了你还不明白，I服了You
小郭还在不在大 立，原理跟 zxb200的一样

 

X

xxwxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #10

多人接受答案了。