delphi执行时弹出对话框

来源：百度知道 编辑：UC知道 时间：2024/06/05 03:00:46
我想在执行应用程序时，弹出一个对话框，提示要输入用户名和密码！当输入正确的用户名和密码后，进入应用程序。那么要怎么样来实现这一功能呢！希望大侠帮助，感激不尽！新手积分不多，望见谅！

procedure TForm1.FormCreate(Sender: TObject);
begin
if (inputbox('输入帐号','','')='MyName')
and (inputbox('输入密码','','')='1234') then
Showmessage('欢迎进入系统')
else
begin
Showmessage('输入有误，退出系统！');
Application.Terminate;
end;
end;

来个简单点的。

procedure TForm1.FormCreate(Sender: TObject);
begin
if (inputbox('输入帐号','','')='MyName')
and (inputbox('输入密码','','')='1234') then
Showmessage('欢迎进入系统')
else
begin
Showmessage('输入有误，退出系统！');
Application.Terminate;
end;
end;

form1做弹出框，再新建一个form2，里面放实际的内容，

运行的时候，from1先弹出，如果输入正确的话，就form2.show,