大学生网页设计期末作品代码郑州网站seo服务
Delphi7我们这里用登录窗体来做演示。输入正确用户名和密码后，登录窗体释放，显示主窗体。
方法/步骤
1.打开Delphi7集成开发环境，在默认工程的Form1窗体放置一个Label1控件，拖动控件边界调整大小，并将Object Inspector的AutoSize设置为False。
2.点击File-New-Form新建一个窗体Form2。并在窗体放两个Edit控件，两个Label控件，一个Caption为;用户名，一个Caption为：密码，分别对应两个Edit框，再放两个Button,Caption分别为登录和取消
3.在Unit2.pas文件中添加Login()方法，代码如下：
function Login():Boolean; //方法声明
implementation
{$R *.dfm}
function Login():Boolean; //方法定义
var
FormLogin:TForm2;
begin
FormLogin:=TForm2.Create(nil);
Result := FormLogin.ShowModal = mrOk;
FormLogin.Free;
end;
4.双击登录按钮，在OnClick时间响应方法中写如下代码：
procedure TForm2.Button1Click(Sender: TObject);
begin
if (Self.Edit1.Text = 'abc') and (Self.Edit1.Text = 'abc') then
begin
ModalResult:=mrOK;
end;
end;
当用户名和密码都是abc时正常释放登录窗体
5.点击Project-Options弹出Project Options for Project1对话框，在Forms页签下auto-created forms仅保留Forms1.
6.点击Project-View Source改写代码如下：
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
if Login() then
Application.CreateForm(TForm1, Form1);
Form1.Label1.Caption:='登录成功'；
Application.Run;
end.
7.F9运行程序，在登录窗体用户名密码均输入abc，登录窗体消失，Form1窗体出现，正常实现了登录功能
注意事项
-
这个是最佳的登录窗体设计，比什么在Form1的Create方法中显示Form2好很多