论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP Java Web .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VB6.0 >

A400273企业人事管理系统

图5-4  Access数据库

5.2 界面及代码 http://www.paper51.com

运行本系统程序,首先出现登录界面,输入正确的用户名和密码后进入主窗体。主窗体的菜单栏中有系统、员工信息、考勤管理、工作评价、工资管理5个菜单。进入窗体后可以选择自己所要进行的操作,界面如下: 内容来自www.paper51.com

内容来自www.paper51.com

图5-5主界面

内容来自www.paper51.com

这个主窗体的创建使用多文档界面,单击工具栏中的ADD MDI Form 按钮,产生这个窗体。然后再在菜单编辑器内编辑自己所需要的菜单。 内容来自论文无忧网 www.paper51.com

下面是程序中几个主要窗体及其部分代码:

内容来自论文无忧网 www.paper51.com

添加员工信息窗体如下所示:

copyright paper51.com

http://www.paper51.com

图5-6员工信息 paper51.com

在窗体上放置多个文本框和下拉式列表框,用来输入员工个人基本信息 。从窗体上可以看到在这一个窗体内可以对信息进行添加、编辑、删除、移动,一个窗体解决了四种不同的操作,当选择修改和删除员工信息操作时出现的也是这个界面。其中“移动”的作用是按照编号的顺序,可以在此窗体中逐个查看员工信息。 内容来自www.paper51.com

在这个界面上还可以添加工作经验,查看信息列表,这是通过一个控件SSTAB(属性页控件)实现的,将各种文本录入控件放在属性页控件的各个页面上,组成“基本信息”、“工作经验”、“信息列表”。 paper51.com

用户输入完毕后,单击“cmdSave ”按钮将触发Click 事件,代码如下:

http://www.paper51.com

Private Sub CmdSave_Click() copyright paper51.com

Dim StrSQL As String

http://www.paper51.com

StrSQL = "select 员工编号 from 员工档案 where 员工编号='"& Trim(TxtCode.Text) & "'"

内容来自论文无忧网 www.paper51.com

If Trim(TxtForID.Text) <> Empty Then

内容来自论文无忧网 www.paper51.com

    Call UpRsValue         '//调用更新记录集的过程

paper51.com

On Error GoTo ErrSave

内容来自www.paper51.com

'    If RsCheckCode.State =adStateClosed Then copyright paper51.com

'       RsCheckCode.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic,adCmdText http://www.paper51.com

'    End If 内容来自论文无忧网 www.paper51.com

'    If RsCheckCode.RecordCount> 0 Then copyright paper51.com

'       MsgBox "员工编号已存在", vbInformation + vbOKOnly, "验证错误"

内容来自www.paper51.com

'       RsCheckCode.Close copyright paper51.com

'       SSTRecord.Tab = 0 内容来自论文无忧网 www.paper51.com

'       TxtCode.Text = ""

http://www.paper51.com

'       TxtCode.SetFocus

copyright paper51.com

'    Else paper51.com

       RsRecord.Update        '//更新记录

http://www.paper51.com

        CallCmdMove_Click

内容来自论文无忧网 www.paper51.com

       MsgBox "数据已保存", , "保存成功" copyright paper51.com

       SSTRecord.Tab = 0

内容来自论文无忧网 www.paper51.com

        CallCmdState2 内容来自论文无忧网 www.paper51.com

        CallTxtState1 http://www.paper51.com

'    End If http://www.paper51.com

Else paper51.com

MsgBox "原身份不能为空",, "验证失败" http://www.paper51.com

SSTRecord.Tab = 1

内容来自论文无忧网 www.paper51.com

End If 内容来自论文无忧网 www.paper51.com

Exit Sub paper51.com

ErrSave: 内容来自www.paper51.com

    Select Case Err.Number

copyright paper51.com

        Case-2147217887 内容来自www.paper51.com

           MsgBox "员工编号已存在," & vbCrLf & "或性别、婚姻状况、部门、职称有空选项!", vbInformation + vbOKOnly, "输入错误"

内容来自www.paper51.com

           RsRecord.CancelUpdate

http://www.paper51.com

        CaseElse paper51.com

       MsgBox "错误描述:" & Err.Description & vbCrLf& "错误代码:" & Err.Number, vbCritical +vbOKOnly, "非法操作" http://www.paper51.com

       Unload Me

内容来自论文无忧网 www.paper51.com

    End Select

内容来自论文无忧网 www.paper51.com

End Sub http://www.paper51.com

程序首先对是否输入内容进行判断,然后进行格式判断,判断是否有重复记录是很重要的,否则数据库将发生错误,最后根据状态来显示相应的信息,如果添加成功,将提示添加成功。 copyright paper51.com

信息的查询通过查询窗体来实现,考勤信息的查询窗体:

内容来自www.paper51.com

copyright paper51.com

------分隔线----------------------------
联系方式