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

你可能感兴趣的:(Delphi)