设计
程序启动后,在系统登录界面验证操作员密码后,将进入程序主页面。通过程序主页面可以来调用相应的应用程序,再进行相应操作。程序主页面运行结果如图1。
图1企业人事主页面
1.表单设计
添加一个表单Mainform。由于要添加一个statusbar控件。还需要添加一个工具栏。工具栏先加入一个工具类。方法如下:
在项目管理器中创建一个类,命名为"mytoolbar",其基类为"toolbar",存储于"mytools"可视类库。
图2新建类
创建好的"mytoolbar"类如图:
图3工具栏
2.主表单重要控件属性
表6 重要控件属性
控件名
属性
值
Mainform
Autocenter
.t.
Borderstyle
2-固定对话框
Height
600
Width
800
Showwindow
2-作为顶层表单
Windowstate
0-模式
表7工具栏属性设置
控件名称
属性
值
Mytoolbar
Caption
常用
Showwindow
1-最上层表单
Cmdryxx
Caption
人员信息管理
Cmdrypx
Caption
人员培训管理
Cmdryjc
Caption
人员奖惩管理
Cmdrydd
Caption
人员调动管理
Cmdsetpwd
Caption
密码设置
Cmdexit
Caption
退出
3.代码设计
首先在"toolbar"类中添加代码:
"mytoolbar"类中的[人员信息管理]按钮的功能设计为,被单击时调用"人员信息管理"表单,其click事件代码如下:
Doformryxx
"mytoolbar"类中的[人员培训管理]按钮的功能设计为,被单击时调用"人员培训管理"表单,其click事件代码如下:
Doformrypx
"mytoolbar"类中的[人员奖惩管理]按钮的功能设计为,被单击时调用"人员奖惩管理"表单,其click事件代码如下:
Doformryjc
"mytoolbar"类中的[人员调动管理]按钮的功能设计为,被单击时调用"人员调动管理"表单,其click事件代码如下:
Doformrydd
"mytoolbar"类中的[设置密码]按钮的功能设计为,被单击时调用"设置密码"表单,其click事件代码如下:
Doformsetpwd
"mytoolbar"类中的[退出]按钮的功能设计为,被单击时调用"退出"程序,其click事件代码如下:
Dopexit.prg
系统主表单主要作用是:作为程序主窗口、装载工具栏、装载状态栏。
系统主表单"init"事件代码:
thisform.olecontrol1.panels(2).text=ccuruser&&在状态栏显示当前用户
thisform.refresh
在表单退出时需要清除事件循环,在表单的uload事件代码:
clearevents
quit
由于要在主表单中装载工具栏,而工具栏在某种意义上来说与表单处于同一级别上的,也就是无法使用表单来装载工具栏。要需要使用更高一级的容器-表单集。
在表单集"formset1"的"init"事件代码如下:
publiciscreatetoolbar&&判断工具栏是否被建立
iscreatetoolbar=0
在表单集"formset1"的"activate"事件代码如下:
ifiscreatetoolbar=0
iscreatetoolbar=1
setclasslibtomytoods
this.addobject("mytoolbar1","mytoolbar")&&创建工具栏
this.mytoolbar1.show&&显示工具栏
this.mytoolbar1.dock(0)&&停放工具栏
endif
3.2登录页面设计
用户在进入系统前,必须通过系统登录进入主程序页面,通过系统登陆界面主要实现确认用户的身份。如果密码不正确则,用户无法进入系统。系统登陆表单运行结果如图:
图4系统登录界面
1.表单设计
添加一个表单,名称frmlogon。
在表单中添加Label控件、Text控件、command控件。
重要控件属性:
表8重要控件属性
控件名
属性
值
Frmlogon
Autocenter
.t.
Borderstyle
2-固定对话框
Windowstate
0-普通
cmdexit
cancel
.t.
Caption
退出
Cmdok
Default
.t.
Caption
确定
2.代码设计
"系统登录"表单中的[确定]按钮的功能设计是,被单击时首先检测输入的用户名是否存在,如果存在,则检测密码是否正确;如果正确,则进入系统,调用系统主表单。[确定]按钮的"click"事件代码如下:
--------------------------确定click事件----------------------------
setexacton&&精确比较
localI&&定义本地变量,错误次数
i=0
i=i+1
selectuserinfo&&打开userinfo数据表
locateforallt
上一篇:
vfp个人通讯簿管理系统程序(论文和程序)
下一篇:
Dreamweaver网页制作教程:层及其应用