如何在窗口启动前验证用户？(100分)

蔡

蔡严聪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #1

我想在主窗口启动前加入身份验证功能，不知如何实现，请赐教，谢谢！[?]

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #2

在dpr里面写代码就可以了，比如
program gold;
uses XXXXXXXXXXXXXXXXXX。。。。。。。。。。。
{$R *.RES}
begin
begin
passform:=Tpassform.create(Application);
passform.ShowModal;
//messageBox(0,pchar(intToStr(passform.ShowModal)),'',MB_OK);
if passform.modalResult=1 then
begin
//passform.Free;
Application.Initialize;
Application.Title := 'my project';
Application.CreateForm(TmainForm, mainForm);//确认以后才显示主form
end；

 

D

drummer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #3

简单的话，在工程文件中用inputquery

 

D

drummer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #4

流言老兄真快[]

 

E

Easylee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #5

就是这么简单，在dpr文件中把验证用户的窗体加在里面，把其他窗体的建立代码放在验证
用户的窗体里就OK了

 

蔡

蔡严聪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #6

接受！：）
另：
对此句 ： if passform.modalResult=1 then
~~~~~~~~~~~~~~~~~~~~~~~~~
如何把在passform中得到确认的条件在dpr文件里体现出来？

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #7

在passform里面可以这样
if 验证成功 then
modalresult:=1;
else
modalresult:=0
因为modalresult是系统定义的，省了自己定义变量的麻烦

 

蔡

蔡严聪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #8

谢了！
：）