关于程序(50分)

向

向前2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #1

我想在主窗体执行前先执行一个密码输入窗体，让程序判断密码是否正确，正确才准运行主窗体，否则不允许，直接退出程序，请问该在项目文件中怎样添加代码？
还有怎样让EDIT中以“*”来隐藏字符。

 

W

wint

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #2

这个这个。。。。是不是太简单？
打开项目源文件，
application.createform(tform1,form1);
application.createform(tlogofm,logofom);
if logoform.showmodal<>mrok then
application.terminate;
applicaton.run
tlogofm中放一TEDIT，其实 MASK属性设置为“*”

 

L

Lambert

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #3

在uses中加上 Forms, Windows,
在Application.CreateForm(TfMain, fMain);前加上
if fPass=Nil then
fPass:=TfPass.Create(Application);
fPass.ShowModal;
fPass.Free;
fPass:=Nil;
在fPass中密码不正确时加上
Application.Terminate,
Edit的PasswordChar属性设为*

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #4

都对。

 

季

季晓峰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #5

wint又正确又简单

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #6

I have an Splash Window's EX.
program PrjSender;
uses
Forms,
Usender in 'Usender.pas' {Form1},
Unit2 in 'Unit2.pas' {splash};
{$R *.RES}
begin
splash:=Tsplash.Create(nil);
splash.Show;
splash.update;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
splash.close;
splash.free;
Application.Run;
end.

Hope It can help!!!

 

向

向前

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-07

• #7

收到，
我是用FORM1的ONCREATE事件句柄来解决这个问题的，
在ONCREATE中创建、显示PASSFORM，密码正确则继续，否则APPLICATION.TERMINATE.
谢谢

 

跑

跑的快

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-07

• #8

DELPHI有自带的密码输入窗体,直接打开文件调用它.(delphi/objrepos/password);
在OK按钮ONCLICK 中加入
if 密码不正确 then
close else
继续执行主窗体;
>怎样让EDIT中以“*”来隐藏字符。
在EDIT1.PASSWORDCHAR中输入'*'即可.

 

悲

悲酥清风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-07

• #9

又跑慢了B－（

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-07

• #10

接受答案了.