工资管理系统的开发设计.pdf

目录 目录 1、系统分析及功能设计1 1.1 系统分析1 1.2 系统功能设计1 2、数据库与数据表的设计2 2.1 数据库的建立2 2.2 工资数据表的设计2 3、应用系统的建立4 3.1 工程的建立4 3.2 登录界面的设计5 3.3 主窗体的设计5 3.4 基本信息管理的设计6 3.41 基本信息管理窗体的设计6 3.42 添加员工基本信息窗体的设计8 3.5 工资管理的设计9 3.51 工资管理窗体的设计9 3.52 添加员工工资的窗体10 3.6 奖惩管理的设计11 3.61 奖惩管理窗体的设计11 3.62 添加员工奖惩的窗体12 4、程序代码的编写13 4.1 登录界面的代码13 4.2 主窗体的代码14 4.3 基本信息管理的代码14 4.31 菜单目录的代码14 4.32 基本信息窗体的代码15 4.33 添加基本信息窗体的代码16 4.4 工资管理的代码18 4.41 菜单目录的代码18 442 工资管理窗体的代码19 4.43 添加工资窗体的代码20 4.5 奖惩管理的代码21 4.51 菜单目录的代码21 452 奖惩管理窗体的代码21 4.53 添加奖惩窗体的代码23 5、程序的运行结果24 generated by foxit pdf creator foxit software for evaluation only. 1 关于工资管理系统的开发设计 1、系统分析及功能设计 1.1 系统分析 1、系统分析及功能设计 1.1 系统分析 对于一个企业来说，正确、及时而且规范地进行员工工资的管理和发放无疑就是十分 重要的。由于工资计算往往涉及多方面的数据，对于每位员工往往需要单独计算，在员工数 量较多时，工资管理的工作量就会变得很大，而且在重复的数据输入和计算中容易出错。 利用数据库对企业职工工资进行管理是数据库技术在当代企业管理中的一个重要应用。 利用数据库技术，可以保证工资数据的安全完整。 本系统通过对企业基本信息管理、工资管理、奖惩管理 3 个环节的数据收集，建立现代 企业工资管理系统， 实现有用数据的快速查询， 减少操作中可能出现的错误以及减少数据管 理的工作量。 1.2 系统功能设计 1.2 系统功能设计 在本系统中，主要功能包括： （1） 保存职工的基本信息资料 （2） 根据工资管理数据和员工的奖惩情况对职工每月的工资进行计算。 （3） 将职工工资的数据进行保存，便于查找和核实。 （4） 对保存的数据，可以根据特殊字段进行查找。 图 1.1 是本系统的功能模块图。 基本信息管理 工资管理 奖惩管理 查询员工资料 添加员工资料 修改员工资料 退出 查询工资 添加员工工资 修改员工工资 退出 工资管理系统 用 户 登 录 界 面 查询工资 添加员工工资 修改员工工资 退出 退出 generated by foxit pdf creator foxit software for evaluation only. 2 图 1.1 系统功能模块图 2、数据库与数据表的设计 2.1 数据库的建立 2、数据库与数据表的设计 2.1 数据库的建立 使用 sql 创建一个名为“工资”的数据库。 2.2 工资数据表的设计 2.2 工资数据表的设计 在本数据库中，将建立 3 个数据表，其功能如下： 员工基本信息：用于存放员工的基本信息情况，包括员工的民族、出生年月、部门等。 员工工资表：用于存放员工的基本工资、交通补助等。 员工奖惩记录：用于记录员工的奖惩类别和奖惩原因等。 这 3 个数据表的结构如表 2.21 至表 2.23 所示。 图 2.21 员工基本信息表设计 generated by foxit pdf creator foxit software for evaluation only. 3 图 2.22 员工工资表的设计 图 2.23 员工奖惩记录表的设计 画 e-r 图。 备注：因空间有限，上述中画的 e-r 图的属性只是表中的一部分。 3 张表的联系图。 员工 姓名 入职日期 电话 聘用 形式 职称 职位 部门 编号 性别 发放 工资 姓名 编号 部门 日期 交 通 补助 提成 包含 奖惩 姓名 奖 惩 分数 编号 奖 惩 原因 generated by foxit pdf creator foxit software for evaluation only. 4 3、应用系统的建立 3.1 工程的建立 3、应用系统的建立 3.1 工程的建立 在“开始”菜单中启动 vb,将弹出“新建工程”窗体如图 3.1 所示。在该窗体的“新建” 选项卡中选择“标准 exe”,单击“打开”按钮，系统将生成一个新工程，默认名称为“工 程 1”，如图 3.1 所示。 generated by foxit pdf creator foxit software for evaluation only. 5 图 3.1 新建工程的界面 3.2 登录界面的设计 3.2 登录界面的设计 在登入界面中，创建 2 个 label,2 个 textbox,2 个按钮，其中密码的 textbox2 的 passwordchar 设置为*,防止别人看到输入密码而进入此系统。最后完成登录功能。 表 3.21 各个控件的属性 名称 caption font label1 用户名 四号 label2 密码 四号 textbox1 空 宋体 textbox2 空 宋体 command1 登入 四号 command2 取消 四号 控件设置完毕后，调整其大小和位置，使整个窗体布局合理。完成后的窗体界面如图 3.22 所示。 图 3.22 登陆界面 3.3 主窗体的设计 3.3 主窗体的设计 在主窗体的界面中，将创建 4 个按钮，从而完成对整个系统各个功能模块的调用。 表 3.31 按钮控件的属性 名称 caption font command1 基本信息管理 小四 command2 工资管理 小四 generated by foxit pdf creator foxit software for evaluation only. 6 command3 奖惩管理 小四 command4 退出 小四 控件设置完毕后，调整其大小和位置，使整个窗体布局合理。完成后的窗体界面如图 3.32 所示。 3.4 基本信息管理的设计 3.4 基本信息管理的设计 基本信息管理窗体是本系统的重要窗体之一， 其基本功能为显示员工基本信息中保存的 数据，并且允许对数据进行添加、删除和修改等操作。 3.41 基本信息管理窗体的设计 3.41 基本信息管理窗体的设计 首先对窗体的菜单编辑器进行设置，便于其跳转到各个界面。 generated by foxit pdf creator foxit software for evaluation only. 7 在窗体上添加一个 adodc 的数据控件和一个 datagrid 的控件，便于数据库的连接。其 属性如表 3.41 所示： 名称 recordsource datasourse font adodc1 员工基本资料$ 宋体 datagrid1 adodc1 宋体 在窗体上添加 19 个 label 和 19 个 textbox，作为数据的显示控件。这些控件的属性如 表 3.42 所示。 控件名称 datafield datasourse font text2(0) 编号 adodc1 宋体 text2(1) 姓名 adodc1 宋体 text2(2) 性别 adodc1 宋体 text2(3) 出生日期 adodc1 宋体 text2(4) 婚姻状况 adodc1 宋体 text2(5) 民族 adodc1 宋体 text2(6) 籍贯 adodc1 宋体 text2(7) 电话 adodc1 宋体 text2(8) 政治面貌 adodc1 宋体 text2(9) 联系地址 adodc1 宋体 text2(10) 部门 adodc1 宋体 text2(11) 职位 adodc1 宋体 text2(12) 职称 adodc1 宋体 text2(13) 基本工资 adodc1 宋体 generated by foxit pdf creator foxit software for evaluation only. 8 text2(14) 聘用形式 adodc1 宋体 text2(15) 学历 adodc1 宋体 text2(16) 专业 adodc1 宋体 text2(17) 入职日期 adodc1 宋体 text2(18) 在职状态 adodc1 宋体 text2(19) 转正日期 adodc1 宋体 完成对数据的一系列操作，添加 4 个按钮。属性如表 3.43 下： 名称 caption font command1 添加 宋体 command5 删除 宋体 command3 修改 宋体 command8 退出 宋体 此窗体还将完成查询功能，通过输入员工的编号进行查询。在窗体上添加一个 label,textbox 和一个 command.。其属性如表 3.44 下： 名称 caption font label1 输入员工编号进行查询 小四 text1 空 小四 command4 查询 小四 控件设置完毕后，调整其大小和位置，使整个窗体布局合理。完成后的窗体界面如图 4.45 所示。 3.42 添加员工基本信息窗体的设计 3.42 添加员工基本信息窗体的设计 在窗体上添加一个 adodc 的数据控件和一个 datagrid 的控件，便于数据的添加显示和 数据更新。添加 19 个 label 和 19 个 textbox，并且添加 3 个按钮：确定，取消和返回。完成 的窗体界面如下图所示。 generated by foxit pdf creator foxit software for evaluation only. 9 3.5 工资管理的设计 3.5 工资管理的设计 工资管理窗体是本系统的重要窗体之一， 其基本功能为显示员工工资中保存的数据， 并 且允许对数据进行添加、删除和修改等操作。 3.51 工资管理窗体的设计 3.51 工资管理窗体的设计 在窗体上添加一个 adodc 的数据控件和一个 datagrid 的控件，便于数据库的连接。其 属性如表 3.41 所示： 名称 recordsource datasourse font adodc1 员工工资表$ 宋体 datagrid1 adodc1 宋体 在窗体上添加 9 个 label 和 9 个 textbox，作为数据的显示控件。这些控件的属性如表 3.42 所示。 控件名称 datafield datasourse font text1 日期 adodc1 宋体 text2 编号 adodc1 宋体 text3 姓名 adodc1 宋体 text4 部门 adodc1 宋体 text5 提成 adodc1 宋体 text6 奖惩 adodc1 宋体 text7 交通补助 adodc1 宋体 generated by foxit pdf creator foxit software for evaluation only. 10 text8 基本工资 adodc1 宋体 text9 应发工资 adodc1 宋体 完成对数据的一系列操作，添加 4 个按钮。属性如表 3.43 下： 名称 caption font command1 添加 宋体 command5 删除 宋体 command3 修改 宋体 command8 退出 宋体 此窗体还将完成查询功能，通过输入员工的编号进行查询。在窗体上添加一个 label,textbox 和一个 command.。其属性如表 3.44 下： 名称 caption font label1 输入员工编号进行查询 小四 text1 空 小四 command4 查询 小四 控件设置完毕后，调整其大小和位置，使整个窗体布局合理。完成后的窗体界面如图 4.45 所示。 图 4.45 3.52 添加员工工资的窗体 3.52 添加员工工资的窗体 在窗体上添加一个 adodc 的数据控件和一个 datagrid 的控件，便于数据的添加显示和 数据更新。添加 9 个 label 和 9 个 textbox，并且添加 3 个按钮：确定，取消和返回。 完成的窗体界面如下图所示。 generated by foxit pdf creator foxit software for evaluation only. 11 3.6 奖惩管理的设计 3.6 奖惩管理的设计 奖惩管理窗体是本系统的重要窗体之一， 其基本功能为显示员工奖惩中保存的数据， 并 且允许对数据进行添加、删除和修改等操作。 3.61 奖惩管理窗体的设计 3.61 奖惩管理窗体的设计 在窗体上添加一个 adodc 的数据控件和一个 datagrid 的控件，便于数据库的连接。其 中奖惩与员工的工资挂钩，其奖惩分数与工资关系为 50 元/分！其属性如表 3.41 所示： 名称 recordsource datasourse font adodc1 工奖惩记录$ 宋体 datagrid1 adodc1 宋体 在窗体上添加 10 个 label 和 10 个 textbox，作为数据的显示控件。这些控件的属性如 表 3.42 所示。 控件名称 datafield datasourse font text1 编号 adodc1 宋体 text2 姓名 adodc1 宋体 text3 性别 adodc1 宋体 text4 职位 adodc1 宋体 text5 部门 adodc1 宋体 text6 奖惩日期 adodc1 宋体 text7 奖惩类别 adodc1 宋体 text8 奖惩原因 adodc1 宋体 generated by foxit pdf creator foxit software for evaluation only. 12 text9 奖惩分数 adodc1 宋体 text10 备注 adodc1 宋体 完成对数据的一系列操作，添加 4 个按钮。属性如表 3.43 下： 名称 caption font command1 添加 宋体 command5 删除 宋体 command3 修改 宋体 command8 退出 宋体 此窗体还将完成查询功能，通过输入员工的编号进行查询。在窗体上添加一个 label,textbox 和一个 command.。其属性如表 3.44 下： 名称 caption font label1 输入员工编号进行查询 小四 text1 空 小四 command4 查询 小四 控件设置完毕后，调整其大小和位置，使整个窗体布局合理。完成后的窗体界面如图 4.45 所示。 图 4.45 3.62 添加员工奖惩的窗体 3.62 添加员工奖惩的窗体 在窗体上添加一个 adodc 的数据控件和一个 datagrid 的控件，便于数据的添加显示和 数据更新。添加 10 个 label 和 10 个 textbox，并且添加 3 个按钮：确定，取消和返回。 generated by foxit pdf creator foxit software for evaluation only. 13 完成的窗体界面如下图所示。 4、程序代码的编写 4.1 登录界面的代码 4、程序代码的编写 4.1 登录界面的代码 登陆窗体主要是出于安全考虑，其代码如下： private sub command1_click() 登入按钮 if text1.text = “admin“ and text2.text = “admin“ then msgbox (“登陆成功“) 用户名和密码都是 admin 时登入成功 form1.hide form2.show 调用主窗体 else msgbox (“登陆失败“) end if end sub private sub command2_click() 取消按钮 text1.text = “ text2.text = “ 用户名和密码清空 end sub generated by foxit pdf creator foxit software for evaluation only. 14 4.2 主窗体的代码 4.2 主窗体的代码 通过这 4 个按钮，可以调用各个模块。 private sub command1_click() form8.show form2.hide 调用基本信息管理 end sub private sub command2_click() form3.show form2.hide 调用工资管理 end sub private sub command3_click() form4.show form2.hide 调用奖惩管理 end sub private sub command4_click() msgbox (“确定退出本系统！“) 退出本系统 end end sub 4.3 基本信息管理的代码 4.3 基本信息管理的代码 4.31 菜单目录的代码 4.31 菜单目录的代码 private sub 工资管理_click() form8.hide form3.show end sub private sub 基本信息管理_click() form8.show end sub generated by foxit pdf creator foxit software for evaluation only. 15 private sub 奖惩管理_click() form8.hide form4.show end sub 4.32 基本信息窗体的代码 4.32 基本信息窗体的代码 private sub command1_click() form5.show 调用添加信息的窗体 end sub private sub command3_click() 修改基本信息 msgbox (“修改成功！“) adodc1.recordset(“编号“) = text2(0).text adodc1.recordset(“姓名“) = text2(1).text adodc1.recordset(“性别“) = text2(2).text adodc1.recordset(“出生日期“) = text2(3).text adodc1.recordset(“婚姻状况“) = text2(4).text adodc1.recordset(“民族“) = text2(5).text adodc1.recordset(“政治面貌“) = text2(8).text adodc1.recordset(“转正日期“) = text2(19).text adodc1.recordset(“籍贯“) = text2(6).text adodc1.recordset(“电话“) = text2(7).text adodc1.recordset(“联系地址“) = text2(9).text adodc1.recordset(“部门“) = text2(10).text adodc1.recordset(“职位“) = text2(11).text adodc1.recordset(“职称“) = text2(12).text adodc1.recordset(“专业“) = text2(16).text adodc1.recordset(“聘用形式“) = text2(14).text adodc1.recordset(“学历“) = text2(15).text adodc1.recordset(“基本工资“) = text2(13).text adodc1.recordset(“在职状态“) = text2(18).text adodc1.recordset(“入职日期“) = text2(17).text end sub generated by foxit pdf creator foxit software for evaluation only. 16 private sub command4_click() 查询 dim cn as new adodb.connection dim rs as new adodb.recordset cn.connectionstring = “ provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=工资“ 用 adodc 控件 连接到数据源，获得连接字符串 cn.open rs.open “select * from 员工基本资料$ where 编号=“ integrated security=sspi;persist security info=false;initial catalog=工资“ 用 adodc 控件 连接到数据源，获得连接字符串 cn.open rs.open “select * from 员工工资表$ where 编号=“ integrated security=sspi;persist security info=false;initial catalog=工资“ 用 adodc 控件 连接到数据源，获得连接字符串 cn.open rs.open “select * from 员工奖惩记录$ where 编号=“ & trim(text11.text) & “, cn, 1, 1, -1 set datagrid1.datasource = rs datagrid1.refresh end sub private sub command5_click() if msgbox(“确定删除当前记录？“, vbquestion + vbyesno, “删除？“) = vbyes then adodc1.recordset.delete adodc1.recordset.movenext if adodc1.recordset.eof then if adodc1.recordset.recordcount 0 then generated by foxit pdf creator foxit software for evaluation only. 23 adodc1.recordset.movelast end if end if end if end sub private sub command8_click() msgbox (“确定退出本系统！“) end end sub 4.53 添加奖惩窗体的代码 4.53 添加奖惩窗体的代码 private sub command1_click() msgbox (“添加成功！“) adodc1.recordset.addnew adodc1.recordset(“编号“) = text1.text adodc1.recordset(“姓名“) = text2.text adodc1.recordset(“性别“) = text3.text adodc1.recordset(“职位“) = text4.text adodc1.recordset(“部门“) = text5.text adodc1.recordset(“奖惩日期“) = text6.text adodc1.recordset(“奖惩类别“) = text7.text adodc1.recordset(“奖惩原因“) = text8.text adodc1.recordset(“奖惩分数“) = text9.text adodc1.recordset(“备注“) = text10.text adodc1.recordset.update end sub private sub command2_click() text1.text = “ “ text2.text = “ “ text3.text = “ “ text4.text = “ “ text5.text = “ “ generated by foxit pdf creator foxit software for evaluation only. 24 text6.text = “ “ text7.text = “ “ text8.text = “ “ text9.text = “ “ text10.text = “ “ end sub private sub command3_click() unload me form4.show end sub 5、程序的运行结果 5、程序的运行结果