《员工工资管理系统(VBSQL).doc》由会员分享,可在线阅读,更多相关《员工工资管理系统(VBSQL).doc(39页珍藏版)》请在金锄头文库上搜索。
1、VB+SQLserve2000课程设计报告员工工资管理系统姓 名: _班 级: _学 号: _指导教师: _成 绩:_完成时间:2009-12-28 完成地点:蚌埠学院 摘 要1第一章 绪论21.1数据库管理系统21.2员工工资管理系统21.3开发工具3第二章 员工工资管理系统设计分析32.1应用需求与分析32.2系统模块划分32.3系统数据库设计4第三章:企业工资管理系统应用程序设计531操作流程图532 “登录模块”详细设计633 “主窗体”模块详细设计1034 各项子模块详细设计133.41添加用户与删除133.42 修改用户153.4.3数据库备份和恢复173.4.4退出203.4.5
2、基本工资203.4.6岗位工资223.4.7部门管理243.4.8员工管理263.4.9 发放工资273.4.10 按员工查询323.4.11 按部门查询33模块一:35模块二:35第五章:结 束 语36谢辞37参考文献:37摘 要企业的工资管理是公司管理的一个重要内容。随着企业人员数量增加,企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理,同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系,同时连接工时考勤和医疗保险等等,来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素,资金的流动影响到企业的整体运作,企业员工
3、的工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料,不仅花费财务人员大量的时间且不易保存,往往由于个人的因素抄写不慎或计算疏忽,出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因,企业工资管理系统使用电脑安全保存、快速计算、全面统计,实现工资管理的系统化、规范化、自动化。企业工资管理系统是典型的信息管理系统(MIS),前台程序开发工具采用微软的VB6,后台数据库采用sqlserve2000数据库。VB6是一种面向对象的开发工具,具有组件丰富、语言简单、功能强大的优点。sqlserve2000数据库具有与VB6无缝连接、操
4、作简单、易于使用的优点。运行结果证明,本企业工资管理系统极大提高了工作效率,节省了人力和物力,最终满足企业财务管理、员工工资发放的需要,同时也成为现代化企业管理的标志。 第一章 绪论1.1数据库管理系统数据库管理系统(DBMS)是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作,包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型,可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同,DBMS可以分成层次型、网状型、关系型、面向对象型等。MSsqlserve2000就是一种关系型数据库管理系统。关系模型主
5、要是用二维表格结构表达实体集,用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型,每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据,表格简单用户易懂,编程时并不涉及存储结构,访问技术等细节。SQL语言是关系型数据库的标准化语言,已得到了广泛的应用。1.2员工工资管理系统 企业工资管理是一项琐碎、复杂而又十分细致的工作,一般不允许发生差错。最初的工资统计和发放都是使用人工方式处理,工作量大的时候,出现错误的机率也随之升高,不仅花费财务人员大量的时间,而且往往由于抄写不慎,或者由于计算的疏忽,出现工资发放错误的
6、现象。同时工资的发放具有较强的时间限制,必须严格按照单位规定的时间完成计算和发放工作。正是企业工资管理的这种重复性、规律性、时间性,使得企业工资管理计算机化成为可能。企业工资管理系统就是使用电脑代替大量的人工统计和计算,完成众多企业工资信息的处理,同时使用电脑还可以安全地、完整地保存大量的企业工资记录。1.3开发工具微软公司的Visual Basic 6.0是Windows应用程序开发工具,是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件,这些控件可用于设计界面和实现各种功能,减少了编程人员的工作量,也简化了界面设计过程,从而有效的提高了应用程序的运行效
7、率和可靠性。因此,本系统使用MS Visual Basic 6.0开发。第二章 员工工资管理系统设计分析2.1应用需求与分析基本信息的添加、修改、删除和查询。基本信息包括项目类型信息,项目状态信息,模块状态信息和缺陷级别信息等。 此功能为项目组管理和软件项目管理模块提供数据。项目组信息的添加、修改、删除和查询。项目组信息包括收员工信息和角色信息。软件项目管理模块包括项目基本信息管理、软件模块管理和软件缺陷管理等功能2.2系统模块划分开发这个系统的目的就是帮助企业的财务主管部门提高工作效率,实现企业工资信息管理的系统化、规范化和自动化。能够和认识管理系统、考勤管理系统相结合,真正实现企业高效、科
8、学、现代化的员工管理。系统最终实现的主要功能如下。企业工资信息设置部分:包括设置员工的基本工资和其他项目的金额,如奖金等。企业工资信息管理部分:包括统计出勤、计算工资、查询工资和导出工资表。系统部分:包括添加用户和修改密码。2.3系统数据库设计数据库是信息管理系统的后台,存储着所有的信息,在信息管理系统中有着很重要的地位。数据库设计的好与坏,直接影响到这个系统的运行效率。良好的数据库设计,可以提高数据信息的存储效率,确保数据信息的完整性和一致性。针对企业工资信息管理系统的需求,通过对员工工资计算过程的内容分析,为本系统设计如下的数据项和数据结构:基本工资信息:包括工资级别和工资金额。岗位工资信
9、息:包括工资级别和工资金额。工资信息:包括员工编号、基本工资、岗位工资、水电费、实发金额。部门信息:包括部门编号、部门名称、部门负责人、部门人数。工资统计信息:包括员工编号、姓名、出生年月、所属部门、文化程度、职称。用户信息:包括用户名、密码和权限。员工信息表员工编号char (8)主键,不允许重复姓名char (8)性别char (2)出生年月datetime所属部门char (4)外键文化程度char (4)职称char (12)部门信息部门编号char (4)主键,不允许重复部门名称char (20)部门负责人char (8)部门人数int基本工资工资级别char (2)主键,不允许重复
10、工资金额numeric (8, 2)岗位工资工资级别char (2)主键,不允许重复工资金额numeric (8, 2)工资信息员工编号char (8)主键,不允许重复; 外键基本工资numeric (8, 2)岗位工资numeric (8, 2)水电费numeric (8, 2)实发金额numeric (8, 2)用户表用户名char (8)主键,不允许重复密码char (20)权限char (20)E-R图: 第三章:企业工资管理系统应用程序设计31操作流程图初始登入用户:admin 密码为:admin用户登入录入口令是否正确?进入工资管理主界面职员管理工资项目/工资数据录入/工资报表用户
11、管理数据备份/恢复结束当月工资32 “登录模块”详细设计 登录模块的详细设计主要是用户登录的一个界面,判断登录的用户是管理员还是普通用户,进入后将面对的是主界面,从而进行相关的操作。 登录的界面主要由用户名和密码的信息,还有一些标题设置,确定和取消的按钮组成。通过标题可以知道此系统的大概内容,由此,登录界面的设计完成。 窗体及核心代码:Private Sub cmd_cancel_Click() text_key.Text = cmo_user.Text = 请选择 Unload MeEnd SubPrivate Sub cmd_ok_Click() Dim try_times As Stri
12、ng Dim sql As String Dim rst As ADODB.Recordset try_times = 0If (Trim(txt_key.Text) = ) Then MsgBox 请输入密码, vbOKOnly + vbExclamation, 提示Else sql = select * from 用户表 where 用户名= & Trim(cmo_user.Text) & Set rst = ExecuteSQL(sql, ) If Trim(rst.Fields(1) = Trim(txt_key.Text) Then If Trim(rst.Fields(2) 管理员
13、 Then frm_main.xitong.Enabled = False 在这里设计非管理员用户的权限,这里我假设让非管理员用户不能用菜单中的系统 frm_main.shezhi.Enabled = False frm_main.xinxiweihu.Enabled = False End If rst.Close UserName = Trim(cmo_user.Text) frm_main.Show Unload Me Else MsgBox 密码不正确,请重新输入, vbOKOnly + vbExclamation, 警告 txt_key.SetFocus txt_key.Text = try_times = try_times + 1 Exit Sub 在这里若密码错了应该跳出该过程,否则下面的语句还会执行,这不是你想要的 End If try_times = try_times + 1 个