Question

我写了个delphi小程序，添加了点击程序是会要求输入密码，只要求输入密码的，输入密码显示成***

我想问下，现在我窗体2添加了 密码，也可以用了。打开程序出现输入密码框，我可以输入密码进去，也可以直接把密码窗口给关了，密码都不需要输入就进去了，怎样避免这个问题，可以把窗口2的关闭（x）给取消了吗？或者别的办法？？
procedure Form1.Create(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
Form2.ShowModal;
end;

然后在Form2添加一个Edit控件, 两个Button控件..
Button1.Caption := '确认';
Button1.Caption := '退出';
Button1的 OnClick事件增加代码..
Button1的 OnClick事件增加代码..
begin
if Edit1.Text = 'password' then
begin
ModalResult := mrOK;
Close;
end;
end;

Button2的 OnClick事件增加代码
begin
ModalResult := mrNone;
Application.Terminate;
end;
我是新手，怎么改程序的名称和图标！先能把密码问题解决了在说这个！谢谢大家了....

但是我想在你输入密码时候显示出来的事***， 之前我写的 输入密码窗口 不输入密码 点关闭 一样可以进入程序。 我认为可以把-,x 等等影藏了 但是我想在输入密码时候显示出来的事*** 大神费心了

Answer 1

假销判定两个窗体frmpassword,frmMain，其中frmpassword为自动建立的程序，frmmain不自动建立。
在frmPassword里定义一个变量Pass:Boolean,
在formCreate事件中，默认这个值为False
当输入密码正确时将Pass：=True
在frmPassWord的OnClose事件中判断，培颤当pass为True时，打开frmmain，否则，执亏中改行Application.Terminite；使程序终止

Answer 2

你可以设置form1,form2,form3三个窗体，用form1来调用form2,在form2中判断密码是否正确，如果正确陵兄，则调用form3,否则不调用，form2是输入密码的信好窗体，正接关闭尺坦袭什么也不做

Answer 3

其它代码都不要,将主窗体创建事件代雹锋码按下面的写一下,试试
procedure TForm1.FormCreate(Sender: TObject);
VAR
Form2: TForm2;
begin
Form2 := TForm2.Create(Application);
Form2.Button1.ModalResult:=mrOk; //序列值是1
Form2.Button2.ModalResult:=mrCancel; //序列值是2
if Form2.ShowModal =1 then //如果按了窗体源歼晌上的确定按钮
label1.Caption :='登录成功'
else // 否则
Application.Terminate; //结束程序
end;
密码验证代码写在from2上,
1、先在form2的创建事件中令确定按钮失活；
2、在密码输入框的键按下事件改举中，检测[密码的正确性，正确就让 确定按钮激活，否则不激活。

追问

谢谢了 我是新手 能把密码验证代码在from2 代码写下吗？ 谢谢了

追答

登录密码的保存,有的保存在数据库中,有的保存在注册表中,有的保存在文本文件中,如INI文件,方式不一样,代码也不一样!

追问

我就不是很明白的你的意思了？ 我需要的是打开程序需要输入个密码，这个程序我有写配置文件是链接不同的数据库用的！ 需要保存密码吗？ 就想你说的需要个效验密码吧 类似于
begin
if Edit1.Text = 'password' then
begin
ModalResult := mrOK;
Close;

追答

登录密码是需要事先保存的，由于需要更改登录密码，或者添加删除操作员，因此密码一般应保存在数据库中，因为操作起来方便。
登录时要进行密码检测，所谓检测，就是存储在数据库中的密码取出来，必要时将取出来的密码放到一个局部变量 password:string（如果软件运行过程中，要经常检查密码，就放在一个全局变量中）中，再与用户输入的登录密码 Edit1.Text ，也就是 if Edit1.Text = password then进行比对。如果为true，则让程序运行，如果为false，则让程序退出。
设计登录检测窗口的方式很多，我一般采用一个ADO数据集组件比如ADOdataset组件与与数据库存放登录密码的表连接，窗体创建时，用一个SQL语句，从数据库中取出登录密码放在一个变量中，当用户在编辑框输入密码心换行键结束时，再将编辑框中的字符与用户输入的密码进行比对。如果正确，就让界面上的确定按钮激活（事先它是失活的），并得到焦点，当用户再敲换行键时，程序就运行了。

追问

我只想给程序加个密码，不需要用户名什么的！ 麻烦大神们，帮帮忙！！！

Answer 4

procedure Form1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
写加上条件如果什么并模什么哗蔽蚂就执行下乱埋面语句 then
begin

CanClose := False;//表示关闭无效
end;

end;
就可以帮到你了！

追问

如果什么什么啊 新手 理解下

Answer 5

把密码框做成一个窗体 然后 show 出来你的程序

追问

能写成代码吗 不知道怎么入手 我有这个想法 不知道怎么写

追答

uses uform2//引用一下这个单元
//user用户名 password 密码
//加个确定按钮 onclick 时
if user.text ='admin' and password.text ='admin' then
pass:=true else pass :=false;
if pass then
begin
form2:=tform2.create(self);
form2.visible:=false;
form2.showmodal;
end;