在信息输入的时候，员工姓名、编号、和部门都不能为空，如果为空的话就弹出以下的信息框，这与实际的构想相同，所弹出的信息框如下所示：
图5.7输入错误提示窗口
出现此结果是输入了编号和部门，而没有输入姓名的结果，其他亦同。
在此模块中，相应的员工信息都可以通过查询来查看所有的信息。
员工档案管理模块实现的部分代码如下所示：
Private Sub Form_Load()
WinXPRecord.InitSubClassing
Me.Left = Frmmdimain.Width / 5
Me.Top = 0
If RsRecord.State = adStateClosed Then
' RsRecord.Close
RsRecord.Open "员工档案", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable
End If
If RsRecord.RecordCount > 0 Then
Call FormTxtValue1
Else
Call FormTxtValue2
End If
End Sub
Private Sub CmdAdd_Click()
RsRecord.AddNew '//在记录集中添加一条新记录
Call FormTxtValue2 '//调用给文本框赋空值的过程
Call TxtState '//调用启用文本框的Enabled属性过程
Call CmdState1 '//调用命令按钮Visible属性为隐藏的过程
If RsBranch.State = adstateclsed Then
RsBranch.Open "部门管理", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set TxtBranch.RowSource = RsBranch
TxtBranch.BoundColumn = "部门名称"
TxtBranch.ListField = "部门名称"
If RstTitle.State = adStateClosed Then
RstTitle.Open "员工职务", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set TxtTiltle.RowSource = RstTitle
TxtTiltle.BoundColumn = "员工职务"
TxtTiltle.ListField = "员工职务"
End Sub
Private Sub CmdDel_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除信息") = vbYes Then
If RsRecord.RecordCount <> 0 Then
RsRecord.Delete '//删除记录
End If
End If
End Sub
5.4员工考勤信息管理界面
员工考勤信息管理是针对已存在员工的一个出勤状况的考核，包括员工信息的增加、修改、删除和查询，在员工信息的增加界面，主要包括员工基本信息、出勤信息和其他信息。其主要的界面设计如下图所示：
图5.8员工考勤统计窗口
（1）编辑、添加或删除考勤信息
当操作员需要对某个员工考勤信息进行编辑时，可以在“考勤管理”菜单中找到下拉菜单“修改考勤信息”，再按其中的“编辑”按钮便可进行编辑了。只需在文本框中直接进行数据编辑便可，编辑完后按“保存”按钮进行确定，系统并对编辑后的数据进行合法性检测，合法则修改成功，按“保存”按钮即可。由于保存成功的提示界面与员工档案模块是一致的，所以在这里及以后的模块中将不再给出了。
当操作员进入系统，根据设计要求，需要添加新的员工考勤信息时，可以在“考勤管理”菜单中找到下拉菜单“添加考勤信息”，随后进入界面便可对添加考勤信息了，添加完后按“保存”按钮即可。
当操作员需要对某个员工考勤信息进行删除时，在菜单中选择“删除考勤信息”选项即可。由于删除记录不可能在大量的数据中盲目的寻找，因此数据删除也有数据查找功能，先在对应的文本框中输入要进行数据删除的条件，再按删除按钮，系统便会提示“确定要删除吗”，只要点击“是”即可删除数据。
其操作主要的界面如下图所示：
图5.9员工考勤统计编辑窗口
（2）浏览或查询考勤信息
此窗体能根据员工编号、员工姓名进行员工考勤信息的浏览和查询。其操作主要的界面如下图所示：
图5.10查询员工考勤窗口
在本模块所涉及到的部分代码如下：
Private Sub CmbCode_Change()
If RstRecordCheck.State = adStateOpen Then
RstRecordCheck.Close '//关闭记录集
End If
RstRecordCheck.Open "select *from 员工档案 where 员工编号='" & CmbCode.Text & "' ", DBCON, adOpenKeyset, adLockOptimistic, adCmdText
TxtName.Text = RstRecordCheck.Fields(1).Value '//给文本框赋值
CmbSex.Text = RstRecordCheck.Fields(2).Value
TxtTiltle.Text = RstRecordCheck.Fields(18).Value
TxtBranch.Text = RstRecordCheck.Fields(16).Value
End Sub
Private Sub CmdRefresh_Click()
Set VSDataCheck.DataSource = RsAddCheck.DataSource
End Sub
Private Sub CmdRetrun_Click()
Unload Me
End Sub
Private Sub Tmr_Timer()
Call CmdRefresh_Click '//定时刷新
VSDataCheck.Refresh
End Sub
Private Sub Form_Load()
WinXPCheck.InitSubClassing
Me.Left = Frmmdimain.Width / 5
Me.Top = 0
If RsAddCheck.State = adStateClosed Then
RsAddCheck.Open "考勤信息", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable
End If
If RsAddCheck.RecordCount > 0 Then
Call FormTxtValue1
Else
Call FormTxtValue2
End If
End Sub
5.5员工工资信息管理界面
作为工资信息这一项，所实现的功能是对公司员工工资信息的存储、计算与编辑，
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>