VB企业人事管理系统论文+源代码 第10页

VB企业人事管理系统论文
图5.6查询结果窗口

在信息输入的时候,员工姓名、编号、和部门都不能为空,如果为空的话就弹出以下的信息框,这与实际的构想相同,所弹出的信息框如下所示:
 
图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]  ... 下一页  >> 

Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有