数据库实训报告-工资管理系统(sql+vb)

《数据库实训报告-工资管理系统(sql+vb)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、数据库实训报告设计题目：工资管理系统学院：计算机与信息工程专业：年级：2009级班级：二班姓名：指导老师：学号：一、需求分析1.1系统分析对于一个公司来说，拥有一个正确、及时而且规范地经行员工工资的管理和发放是非常重要的。由于工资的计算涉及的数据是多方面的，每位员工的工资又都需要单独计算，在员工数量越多时，工资管理的工作量就会越大，而且在重复的数据输入和计算中容易出错。所以就有了工资管理系统，本系统的宗旨及总体任务就是帮助财务部门提高工作效率，实现公司工资信息管理的自动化、规范化以及系统化。本系统是通过对

2、公司基本信息的管理、工资管理等环节的数据收集而建立的数据库工资管理系统，实现有用的数据的快速查询，减少操作中可能出现的错误以及减少数据管理的工作量。1.2系统功能设计本系统主要包括的功能有：（1）保存职工的基本信息资料（2）设置工资的级别（3）根据工资管理数据和员工的工资进行计算（4）将职工工资的数据进行保存，便于查找和核实（5）对保存的数据，可以根据特殊字段进行查找1.3系统模块划分开发这个系统的目的就是帮助企业的财务主管部门提高工作效率，实现企业工资信息管理的系统化、规范化和自动化。能够和认识管理系统

3、、考勤管理系统相结合，真正实现企业高效、科学、现代化的员工管理。系统最终实现的主要功能如下。·工资信息设置部分：包括设置员工的基本工资、岗位工资的级别和金额等。·工资信息管理部分：包括统计计算工资、查询工资和修改工资信息等。·系统部分：包括添加用户和删除用户等。二、开发平台微软公司的VisualBasic6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设

4、计过程，从而有效的提高了应用程序的运行效率和可靠性。因此，本系统使用MicrosoftVisualBasic6.0开发。数据库引用的是本期所学的SQLServer2000。三、数据库分析设计3.1数据库的建立用SQL建立一个名为“工资管理系统”的数据库。3.2数据表的建立针对企业工资信息管理系统的需求，通过对员工工资计算过程的内容分析，为本系统设计如下的数据项和数据结构：·基本工资信息：包括工资级别和工资金额。·岗位工资信息：包括工资级别和工资金额。·工资信息：包括员工编号、基本工资、岗位工资、水电费、实

5、发金额。·部门信息：包括部门编号、部门名称、部门负责人、部门人数。·工资统计信息：包括员工编号、姓名、出生年月、所属部门、文化程度、职称。·用户信息：包括用户名、密码和权限。员工信息表员工编号char(8)主键，不允许重复姓名char(8)性别char(2)出生年月char(10)所属部门char(4)外键文化程度char(4)职称char(12)部门信息部门编号char(4)主键,不允许重复部门名称char(20)部门负责人char(8)部门人数int基本工资工资级别char(2)主键,不允许重复工资金

6、额int(8,2)岗位工资工资级别char(2)主键,不允许重复工资金额int工资信息员工编号char(8)主键,不允许重复；外键基本工资int岗位工资int水电费int实发金额int用户表用户名char(8)主键,不允许重复密码char(20)权限char(20)3.3建立关系图其关系图如下所示：各表之间的联系四、工资管理系统应用程序设计工资信息实体员工编号员工姓名旷工扣除剩余工资基本工资部门编号部门名称加班工资奖金实发工资应发工资4.1系统构成系统构成如下图所示，包括登录、主界面、添加删除用户、基本工

7、资、岗位工资、部门信息管理、员工信息管理、发放工资、添加或修改员工工资、查询员工工资10个窗体和两个公共模块组成。4.2公共模块一PublicpowerAsStringPublictempuserAsStringPubliccnModAsNewADODB.ConnectionPublicUserNameAsStringPublicUserPwdAsStringPublicFunctionExecuteSQL(ByValsqlAsString,MsgStringAsString)AsADODB.Record

8、setDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(sql)Setcnn=NewADODB.Connectioncnn.OpenconnectstringIfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens(0)))The