工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(32)

设计技术：toolBar 控件的实现，主要用单击事件触发条件从句 Select Case，对其进行条 件判断，从而实现各个模块窗口间的调入。

相关代码分析如下：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = "ygzl"

调入职员资料窗口 jlgl_Click Case Is = "ygjl"

调入奖励管理窗口 jjgl_Click Case Is = "ygzf"

调入惩罚管理窗口 cfgl_Click Case Is = "gzff"

调入工资发放窗口 ffgl_Click Case Is = "ffcx"

调入发放查询窗口15ffcx_Click Case Is = "bz"

bz_Click End Select End Sub 3.3 系统登录调入帮助窗口系统登录是系统管理的一种形式。

为了保证系统数据的安全性， 防止他人进行破坏性或 违法操作，本系统可以多个操作员，且每个操作员都设有自己的登录密码。只有身份合法且 口令正确时才可以登录本系统，具体界面如图 4-2 所示：图 3-2 登录界面1. 模块及其功能 该模块（frm_login）主要功能是控制员工登录，防止非法用户闯入本系统，保证系统的 安全，输入口令时屏幕显示为“*”以利保密。

2. 实现技术 该模块主要用了 lable 控件、TextBox 控件、commandbutton 控件和 adodc 控件来实现。

其中用 adodc 控件来实现链接功能，具体设计如下：1617设计技术：代码实现主要用了条件从句 if，对 text 控件输入的信息与中操作员信息表 的数据进行判断，是否有对应的操作员与密码，如果输入信息不相符就会出现错误提示“密 码输入错误,请向系统管理员查询” ，反之，就会顺利进入系统，从而实现系统登录功能。

相关代码分析如下：

Private Sub Cmd1_Click() rs1.Open "select * from 操作员信息表 where 操作员名称="

&

DataCombo1.BoundText &

"", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount >

0 Then If DataCombo1.text = ""

Then MsgBox ("请选择操作员！"), vbOKOnly DataCombo1.SetFocus Exit Sub End If 验证操作员及密码 Dim MESSAGE As String Textime.text = Tim If Text2.text = rs1.Fields("密码") Then Load frm_main frm_main.Show czy = DataCombo1.text Unload Me Else If Tim = 3 Then MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "") If MESSAGE = vbOK Then End End If If Text2.text <>

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-32.html