电子信息科学与技术专业毕业论文企业人事管理系统

电子信息科学与技术专业毕业论文企业人事管理系统内容摘要：

： 图 32 企业人事信息系统的主窗体 下面对主窗体各选项实现的功能作具体介绍： （ 1）员工基本信息 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 18 包括四个菜单项：增加人事卡片、编 辑人事卡片、删除人事卡片、查询员工基本信息。 （ 2）员工工资管理 包括四个菜单项：添加员工工资信息、编辑员工工资信息、删除员工工资信息、查询员工工资信息。 （ 3）员工考勤管理 包括四个菜单项：添加员工考勤信息、编辑员工考勤信息、删除员工考勤信息、查询员工考勤信息。 （ 4）报表 包括两个菜单项：职工工资报表、职工考勤报表。 （ 5）系统 管理 包括两 个菜单项： 添加用户、 退出。 主窗体菜单 创建如 图 33 所示菜单结构： 图 33 完成后的菜单编辑器 该窗体实现的是对菜单的编辑，主菜单有员工基 本信息管理、员工考勤管理、员工工资管理、报表、退出系统。 其子菜单分别实现的是对这些主菜单的具体数据的添加、编辑、删除和查询。 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 19 员工基本信息模块 创建好的窗体如 图 34 所示： 图 34 员工基本信息窗体 下面对本窗体实现的功能作具体介绍： 该窗体分四个部分，左上边实现的是输入员工的部门信息，右上边实现的是对员工的基本信息的一些操作，左下边是员工的基本信息，右下边是其它资料信息。 员工的家庭成员窗体如 图 35所示 ： 图 35 员工的家庭成员窗体 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 20 员工的社会关系窗体如 图 36所示 ： 图 36 员工的社会关系窗体 员工的个人简历窗体如 图 37所示 ： 图 37 员工的个人简历窗体 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 21 员工考勤管理模块 创建好的窗体如 图 38 所示： 图 38 员工考勤信息窗体 现将员工考勤窗体介绍一下：考勤信息栏可输入日期、请假、公休假天数、应出勤天数、节假日加班、其他加班。 员工信息栏包括职工编号和姓名。 员工工资管理模块 创建好的窗体如 图 39 所示： 图 39 员工工资信息窗体 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 22 该窗体的功能有输入员工的信息、代扣项目和工资总计。 查询员工基本信息窗体 创 建好的窗体如 图 310 所示： 图 310 查询员工基本信息窗体 报表模块 创建好的窗体如 图 311 所示： 图 311 报表窗体 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 23 职工工资信息报表 创建好的窗体如 图 312所示： 图 312 职工工资信息报表窗体 职工考勤信息报表 创建好的窗体如 图 313所示： 图 313 职工考勤 信息报表窗体 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 24 代码设计 在程序界面设计完毕之后，将逐一向各个窗体和模块添加代码。 以下将对各个窗体的代码逐一加以介绍。 登录模块代码的编写 Private Sub Command1_Click() On Error Resume Next Dim sqlstr As String sqlstr = Select * from 管理用户 Where 用户名称 =39。 amp。 Trim() amp。 39。 and 密码 =39。 amp。 Trim() amp。 39。 = sqlstr If = 0 Then MsgBox 密码错误。 Else End If End Sub Private Sub Form_Load() On Error Resume Next = Provider=。 Persist Security Info=False。 Data Source= amp。 amp。 \database\。 = 2 adCmdTable = 管理用户 End Sub 以上代码实现如果用户名和密码均为 数据库中已存在的信息 ，则进入系统主界面，否则输出错误消息，提醒重新输入正确消息。 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 25 主模块代码的编写 在 vb中，模块是一种特定的对象，用于保存可以在各个窗体中调用的共同代码。 在工程资源管理器中双击 MdlMain，打开代码窗口，在其中输入如下代码： Public conStr As String Public ActionType As String Public Sub Main() 39。 变量初始化 conStr = Provider=。 Persist Security Info=False。 Data Source= amp。 amp。 \database\。 39。 启动主窗体 End Sub 在本段代码中主要定义了几个全局变量以及赋予了变量初始值，选定了所连接的数据库。 主窗体代码的编写 主窗体的代码编写主要是为菜单填写代码。 打开主窗体的设计视图，选取“员工基本信息”菜单，并在下拉菜单中选择“增加人事卡片”命令，系统将自动打开主窗体的代码窗口，并添加名为 mnuAdd_Click 的私有过程，为该过程添加代码如下： Private Sub bjyggzxx_Click() ActionType = bianji End Sub Private Sub cxyggzxx_Click() End Sub Private Sub cxygjbxx_Click() End Sub Private Sub cxygkqxx_Click() End Sub 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 26 Private Sub exit_Click() If MsgBox(确定要退出系统吗。 , vbInformation + vbYesNo, 退出系统 ) = vbYes Then End 39。 退出系统 End If End Sub Private Sub mnuAdd_Click() ActionType = Add 39。 设置共有变量的值，向人事资料卡片窗体传递信息 39。 显示人事资料卡片窗体 End Sub Private Sub mnuDel_Click() 39。 删除记录 ActionType = Del End Sub Private Sub mnuDept_Click() 39。 部门管理 39。 显示部门管理窗体 End Sub Private Sub mnuDeptlist_Click() 39。 部门人事管理 39。 显示部门人事管理窗体 End Sub Private Sub mnuEdit_Click() 39。 编辑记录 ActionType = Edit End Sub Private Sub scyggzxx_Click() ActionType = shanchu End Sub Private Sub tjgzxx_Click() ActionType = tianjia 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 27 End Sub Private Sub scygkqxx_Click() ActionType = shanchu1 End Sub Private Sub tjygkqxx_Click() ActionType = tianjia1 End Sub Private Sub bjygkqxx_Click() ActionType = bianji1 End Sub Private Sub zggzbb_Click() End Sub Private Sub zgkqbb_Click() End Sub 上述代码主要是为菜单填写代码，并为全局变量 ActionType 赋值，以便程序执行时调用，进行合理的动作。 人事资料卡片窗体在内存中装载时，需要对窗体的数据源和动作进行设置，因此对其 Load 事件添加代码如下： Private Sub Form_Load() 39。 设 置数据源 = Provider=。 Persist Security Info=False。 Data Source= amp。 amp。 \database\。 = 2 adCmdTable = 职 工基本信息 39。 设 置按 钮 状 态 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 28 = False = False = False = False = False Select Case ActionType 39。 由全局 变 量来决定 动 作 Case Add Call cmdadd_Click Case Del = True = True Case Edit = True = True End Select End Sub 上述代码为 Adodc1 控件的属性 ConnectionString， CommandType，RecordSource 赋值，使其与指定的数据库建立连接，并确定具体可以访问的数据表。 此段代码还设置了各个按钮的状态，即可见、不可见，以及根据全局变量来执行动作，例如“若全局变量 ActionType=Add，则调用 cmdadd_Click 程序。 ” 对于 窗体上的各个按钮，其代码如下： Private Sub cmdadd_Click() 39。 增加 记录 39。 调 用 AddNew 方法来添加 记录 = False 39。 不允 许 移 动记录 = True = True = False = False = False End Sub 伊犁师范学院物理与电子信息学院 2020届电子信息科学与技术专业毕业论文 页码 29 上述代码除了设定各个按钮的状态以外，最主要的是通过 Adodc1 数据控件的对象 Recordset 调用 AddNew 方法来添加记录。 AddNew 方法 将清除绑定控件中的所有内容，并且将一条空的新记录添加到记录集的末。