《数据库实训报告工资管理系统(SQL+VB)》由会员分享，可在线阅读，更多相关《数据库实训报告工资管理系统(SQL+VB)（28页珍藏版）》请在金锄头文库上搜索。
1、数据库实训报告设计题目： 工资管理系统 学 院：计算机与信息工程专 业： 年 级： 2009级 班 级： 二班 姓 名： 指导老师： 学 号： 一、需求分析1.1 系统分析对于一个公司来说，拥有一个正确、及时而且规范地经行员工工资的管理和发放是非常重要的。由于工资的计算涉及的数据是多方面的，每位员工的工资又都需要单独计算，在员工数量越多时，工资管理的工作量就会越大，而且在重复的数据输入和计算中容易出错。所以就有了工资管理系统，本系统的宗旨及总体任务就是帮助财务部门提高工作效率，实现公司工资信息管理的自动化、规范化以及系统化。本系统是通过对公司基本信息的管理、工资管理等环节的数据收集而建立的数据
2、库工资管理系统，实现有用的数据的快速查询，减少操作中可能出现的错误以及减少数据管理的工作量。1.2 系统功能设计本系统主要包括的功能有：（1） 保存职工的基本信息资料（2） 设置工资的级别（3） 根据工资管理数据和员工的工资进行计算（4） 将职工工资的数据进行保存，便于查找和核实（5） 对保存的数据，可以根据特殊字段进行查找1.3系统模块划分开发这个系统的目的就是帮助企业的财务主管部门提高工作效率，实现企业工资信息管理的系统化、规范化和自动化。能够和认识管理系统、考勤管理系统相结合，真正实现企业高效、科学、现代化的员工管理。系统最终实现的主要功能如下。工资信息设置部分：包括设置员工的基本工资、
3、岗位工资的级别和金额等。工资信息管理部分：包括统计计算工资、查询工资和修改工资信息等。系统部分：包括添加用户和删除用户等。二、开发平台微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。因此，本系统使用Microsoft Visual Basic 6.0开发。数据库引用的是本期所学的SQL Server 2000。三、数据库分析设计3.1 数据库的建立用S
4、QL建立一个名为“工资管理系统”的数据库。3.2 数据表的建立针对企业工资信息管理系统的需求，通过对员工工资计算过程的内容分析，为本系统设计如下的数据项和数据结构：基本工资信息：包括工资级别和工资金额。岗位工资信息：包括工资级别和工资金额。工资信息：包括员工编号、基本工资、岗位工资、水电费、实发金额。部门信息：包括部门编号、部门名称、部门负责人、部门人数。工资统计信息：包括员工编号、姓名、出生年月、所属部门、文化程度、职称。用户信息：包括用户名、密码和权限。员工信息表员工编号char (8)主键，不允许重复姓名char (8)性别char (2)出生年月char(10)所属部门char (4)
5、外键文化程度char (4)职称char (12)部门信息部门编号char (4)主键,不允许重复部门名称char (20)部门负责人char (8)部门人数int基本工资工资级别char (2)主键,不允许重复工资金额int(8, 2)岗位工资工资级别char (2)主键,不允许重复工资金额int工资信息员工编号char (8)主键,不允许重复； 外键基本工资int岗位工资int水电费int实发金额int用户表用户名char (8)主键,不允许重复密码char (20)权限char (20)3.3 建立关系图其关系图如下所示：各表之间的联系四、工资管理系统应用程序设计工资信息实体员工编号员工
6、姓名旷工扣除剩余工资基本工资部门编号部门名称加班工资奖金实发工资应发工资4.1 系统构成系统构成如下图所示，包括登录、主界面、添加删除用户、基本工资、岗位工资、部门信息管理、员工信息管理、发放工资、添加或修改员工工资、查询员工工资10个窗体和两个公共模块组成。4.2 公共模块一Public power As StringPublic tempuser As StringPublic cnMod As New ADODB.ConnectionPublic UserName As StringPublic UserPwd As StringPublic Function ExecuteSQL(By
7、Val sql As String, MsgString As String) As ADODB.RecordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(sql)Set cnn = New ADODB.Connectioncnn.Open connectstringIf InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0) Thencnn.Execute
8、 sqlMsgString = sTokens(0) & 操作成功ElseSet rst = New ADODB.Recordsetrst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgString = 查询到 & rst.RecordCount & 条记录 End IfExecuteSQL_Exit:Set rst = NothingSet cnn = NothingExit FunctionExecuteSQL_Error:MsgString = 查询错误: & Err.Descript
9、ionResume ExecuteSQL_ExitEnd FunctionPublic Function connectstring() As Stringconnectstring = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工资管理系统;Data Source=.End Function4.3 公共模块二Public Function select_sql(sql As String) As ADODB.RecordsetDim cn As ADODB.
10、ConnectionDim rst As ADODB.RecordsetOn Error GoTo sql_err:Set cn = New ADODB.ConnectionSet rst = New ADODB.Recordsetcn.Open PROVIDER=MSDASQL;DRIVER=SQL Server; & _SERVER=FALL;DATABASE=工资管理系统;UID=;PWD=rst.Open sql, cn, 3, 2Set select_sql = rstsql_err:Set cn = NothingSet rst = NothingEnd FunctionPubli
11、c Function execute_sql(sql As String) As ADODB.RecordsetDim cn As ADODB.ConnectionDim rst As ADODB.RecordsetOn Error GoTo sql_err:Set cn = New ADODB.Connectioncn.Open PROVIDER=MSDASQL;DRIVER=SQL Server; & _SERVER=FALL;DATABASE=工资管理系统;UID=;PWD=cn.BeginTrans cn.Execute sql cn.CommitTranssql_err:Set cn
12、 = NothingSet rst = NothingEnd Function4.4 “登录模块”详细设计 登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。Private Sub cmd_cancel_Click() Unload MeEnd SubPrivate Sub cmd_ok_Click() Dim sql As String Dim rst As ADODB.Records
13、etIf (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) 管理员 Then frm_main.tianjiayonghu = False frm_main.shanchuyonghu
14、 = False frm_main.xiugaiyonghu = False frm_main.shezhi.Enabled = False frm_main.xinxiweihu.Enabled = False frm_main.Command2.Enabled = False frm_main.Command3.Enabled = False frm_main.Command4.Enabled = False frm_main.Command5.Enabled = False frm_main.Command6.Enabled = False frm_main.Command7.Enabled = False
