您的位置首页百科知识

Delphi7最佳登录窗体设计

Delphi7最佳登录窗体设计

的有关信息介绍如下:

Delphi7最佳登录窗体设计

Delphi7我们这里用登录窗体来做演示。输入正确用户名和密码后,登录窗体释放,显示主窗体。

打开Delphi7集成开发环境,在默认工程的Form1窗体放置一个Label1控件,拖动控件边界调整大小,并将Object Inspector的AutoSize设置为False。

点击File-New-Form新建一个窗体Form2。并在窗体放两个Edit控件,两个Label控件,一个Caption为;用户名,一个Caption为:密码,分别对应两个Edit框,再放两个Button,Caption分别为登录和取消。

在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;

双击登录按钮,在OnClick时间响应方法中写如下代码:

procedure TForm2.Button1Click(Sender: TObject);

begin

if (Self.Edit1.Text = 'abc') and (Self.Edit1.Text = 'abc') then

begin

ModalResult:=mrOK;

end;

end;

当用户名和密码都是abc时正常释放登录窗体

点击Project-Options弹出Project Options for Project1对话框,在Forms页签下auto-created forms仅保留Forms1.

点击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.

F9运行程序,在登录窗体用户名密码均输入abc,登录窗体消失,Form1窗体出现,正常实现了登录功能