delphi开发日志--登录窗口
2007-12-07 23:31
393 查看
对于管理信息系统而言,权限是一个很重要的部分。下面我们就开始设计使用管理信息系统的第一步,登录窗口的制作:
(说明:所有的示例使用一个程序,最后将会成为一个完整的系统,以后的示例都是在上次示例的基础上增加)
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
至此,从启动画面到登录窗口然后进入主窗体全部完成,接下来我们就完善登录和与数据库进行关联,否则这个程序岂不没有任何意义?
(说明:所有的示例使用一个程序,最后将会成为一个完整的系统,以后的示例都是在上次示例的基础上增加)
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开发日志--登录窗口
- delphi开发日志--登录窗口
- delphi开发日志--登录窗口
- Delphi 开发易语言支持库再获重大进展,支持窗口控件了
- 通用信息化开发平台 -- 通用权限管理系统改进登录日志显示功能
- 高仿QQ即时聊天软件开发系列之三登录窗口用户选择下拉框
- Delphi用户登录窗口框架
- 开发日志—详细的链接服务器代码(登录)
- 开发日志:Tomcat更改启动窗口的标题
- Delphi开发日志系列文章的示例源码
- delphi开发日志——换肤,给程序穿上美丽的外衣
- delphi开发日志——注入“思想”,让程序操纵数据
- PC Camera开发日志(十二)------ 窗口的依附
- PC Camera开发日志(十四)---- 用IPicture在窗口中显示一幅 JPG 图象
- 一步一步使用Ext JS MVC与Asp.Net MVC 3开发简单的CMS后台管理系统之登录窗口调试
- Delphi应用程序的调试(八)事件日志窗口和模块窗口
- [转]Delphi用户登录窗口框架
- Delphi开发日志系列文章的示例源码
- delphi开发日志——换肤,给程序穿上美丽的外衣
- delphi开发日志——主窗体,程序管家