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

rs1.Fields("密码") Then MsgBox ("密码错误,请重新输入密码!") Tim = Tim + 118Text2.SetFocus End If End If Else MsgBox "初次登录本系统，请在进入系统后，立即设置操作员及其密码，以确保系统的 安全！", , "提示窗口"

Load frm_main frm_main.Show Unload Me End If rs1.Close End Sub 3.4 职员基本管理 1. 界面设计 职员基本信息管理是本系统的基础，因此，合理设计该子系统为系统打好稳定的基础。

其中主要包括有职员资料管理、 职员奖励管理和职员惩罚管理 3 个功能模块， 它们具体界面 设计分别如下图所示：192. 实现技术 职员基本管理是整个系统的基础， 它的设计的好坏直接涉及到工资管理汇总的性能， 不 仅要方便、安全的将相关的职员信息存储到中，还要考虑到与工资发放管理的接口。

因此，职员基本管理子系统的设计也充分利用了当前流行的可视化及面向对象的编程技术。

现将其中相关模块的实现过程作简要论述。

（1）职员资料管理模块设计 该模块主要实现了增加、修改、删除职员还有查询职员基础信息功能，分别用按钮控20件来实现对应功能。

设计技术：

a、首先定义了变量：

Dim i As Integer 定义整型变量 Dim rs1 As New ADODB.Recordset 定义数据集对象 b、 增加按钮有自动创建职员 ID 功能， 主要利用 IF 条件从句对职员 ID 的 TextBox 控件 进行自动赋值，有关它的单击事件代码为：

Private Sub CmdAdd_Click() 自动创建职员 ID Dim bh As Integer rs1.Open "select * from 职员资料管理 order by 职员 ID", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount >

0 Then If Not rs1.EOF Then rs1.MoveLast If rs1.Fields("职员 ID") <>

""

Then bh = Right(Trim(rs1.Fields("职员 ID")), 4) + 1 kh(0).text = "kh"

&

Format(bh, "0000") End If Else kh(0).text = "kh0001"

End If rs1.Close 关闭数据集对象 For i = 1 To kh.UBound kh(i).Enabled = True kh(i).text = ""

Next i 设置控件状态 CmdSave.Enabled = True: CmdEsc.Enabled = True: CmdAdd.Enabled = False CmdModify.Enabled = False: CmdDelete.Enabled = False For i = 0 To 3 CmdMD(i).Enabled = False Next i SSTab1.Tab = 0 kh(1).SetFocus End Sub c、而查询功能的实现调用了 View_data()函数，有关 View_data()函数的定义与调用 代码以下：

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