毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

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

更新时间:2009-5-19:  来源:毕业论文
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]  ... 下一页  >> 

VB企业人事管理系统论文+源代码 第10页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。