delphi开发日志－－登录窗口

对于管理信息系统而言，权限是一个很重要的部分。下面我们就开始设计使用管理信息系统的第一步，登录窗口的制作：

（说明：所有的示例使用一个程序，最后将会成为一个完整的系统，以后的示例都是在上次示例的基础上增加）

file——>new——>form创建一个新窗体用于登录系统，然后调整窗体大小，并设定窗体的一些属性：name:frmLogin,borderStyle:bsSingle,biMaximize:False

接着在窗体上放入以后控件：

Lable1，Caption：用户，Name：lblUserName

Lable2，Caption：密码，Name：lblPassword

ComboBox1，Text：为空,Name：cbbUserName

Edit1，Text：为空,Name：edtPassword

Bevel1,Shape,bsTopLine,name:bvlLine

BitBtn1，Kind:bkOK,Name:btnOK

BitBtn2,Kind:bkCancel,Name:btnCancel

设置完成后保存，单元文件名为untLogin.pas

窗体及控件设置完成后，下面的工作就是如何让启动画面显示完成好接着出现的不是主窗体，而是登录窗体，如果登录成功，则打开主窗体，否则登录三次自动退出程序。

首先在项目选项中将自动创建frmLogin窗体取消，然后创建一个单元文件untGlobal.pas用于存放公共函数库，在untGlobal中定义一个用于登录的函数，代码如下：

Function CanLogin:Boolean;

begin

with TfrmLogin.Create (Application) do

Try

ShowModal;

Result:=gCanLogin;

Finally

Free;

End;

end;

保存编译，出错！因为此需要引用untLogin.pas单元文件，还需要引用Application所在的单元forms文件中

uses

Forms;

另外需要在untLogin中定义一个全局变量，gCanLogin用于判断登录。

现在OK按钮的单击事件中增加如下代码，即可正常运行，并在单击OK按钮后进入主窗体，如果单Cancle按钮在关闭程序

gCanLogin:=True;

当然需要在Demo.dpr文件中修改一下代码：

if CanLogin then

begin

Application.CreateForm(TfrmMain, frmMain);

Application.Run;

end

至此，从启动画面到登录窗口然后进入主窗体全部完成，接下来我们就完善登录和与数据库进行关联，否则这个程序岂不没有任何意义？