数据库课程设计汇本报告（人事管理系统）

1、.wd.wd.wd.课程设计报告 课程设计题目：人事管理系统 姓 名：学 号：班 级：指导教师： 2016 年1月15日题目分析：人事管理系统是企、事业单位常见的计算机信息管理系统。它的主要任务是对各种人事信息进展日常的信息管理，如人员信息的输入、查询、修改、增加、删除，迅速准确地完成各种人员信息的统计计算和汇总，快速打印出报表。在建设与实现人事管理系统时，进展了功能划分，能够由数据库管理系统完成的功能应尽可能由数据库管理系统守成，充分发挥数据库管理系统高效、完全、可靠、便捷的性能，减少编程人员的工作量。工资管理系统是数据库管理系统的一个比较典型的应用，前台使用的是微软的VB6.0，后台数据库

2、采用Microsoft SQL Sever数据库。运行结果证明，本人事管理系统极大提高了工作效率，节省了人力和物力，自重满足企业员工管理的需要。人事管理系统的主要任务是用计算机对各种员工信息进展日常的管理，如查询、修改、添加、删除以及存储等，迅速准确地完成各种员工信息的统计计算和汇总工作，针对系统服务对象的具体要求，设计了人事管理系统。人事管理系统主要有以下几大功能： 对单位人员的变动进展处理。一个单位的职工不会是一成不变的，总是在不断的变化：有调出、有调入、也有职工在本单位内部调动。因此，设计系统是应考虑到这些情况。 对职工的工资进展计算、修改。可以对职工的工资档案进展个别、局部和批量修改，

3、同时，能对各职工的工资进展计算，即计算 基本工资、岗位工资、水电费及实发金额等。 查询统计功能。要求即可以单项查询，比方查看某个职工的就职情况等；也可以多项查询，比方某个部门所有的员工的工资信息。设计分析：1，数据表的设计：1 基本信息表：键名称数据类型大小空默认值主键员工编号char8Not null姓名char8Not null性别char2null“男出生年月datetime8null外键所属部门char4null文化程度char4null职称char12null身份证号Varchar50null婚姻状况Char20null备注Varchar100null年龄IntNull 基本部门表键

4、名称数据类型大小空默认值主键部门编号char4Not null部门名称char20null部门负责人char8null部门人数int4null职工工资表键名称数据类型大小空默认值主键、外键员工编号char8不可以外键部门编号char4可以 基本工资numeric5(8,2)可以奖金numeric5(8,2)可以ER图设计：3.ER图转换成关系模式：主键添加下划线 基本信息编号，姓名，性别，籍贯，年龄，学历，婚姻状况，部门，职称，参加工作时间，岗位，工资，身份证号， 号码，备注职工部门：(部门编号，部门名称，职工总数，部门负责人，所有职工编号)职工工资表：编号，姓名，工资，奖金人事管理编号，部门

5、编号，姓名创立人事管理系统数据库局部1创立数据库：创立数据库的实现：createdatabase人事管理系统onprimary(name=人事管理系统,filename=G:数据库人事管理系统.mdf,size=5,maxsize=100,filegrowth=10%)logon(name=人事信息管理系统,filename=G:数据库人事管理系统.ldf,size=3,maxsize=100,filegrowth=5)创立数据库：创立 基本数据表：1创立数据标的实现;use人事管理系统createtable 基本职工信息表(姓名varchar(20),编号char(8),性别char(8),

6、籍贯char(10),年龄int,学历varchar(20),婚姻状况varchar(20),部门varchar(20),职称varchar(20),参加工作时间char(10),岗位varchar(30),工资char(20),省份证号varchar(30), 号码varchar(30),备注varchar (50)use人事管理系统createtable职工部门表(部门编号int,部门名称varchar(30),部门负责人varchar(30),职工总数int,所有职员编号varchar(100)use人事管理系统createtable职工工资表(编号char(8),姓名varchar(5

7、0),工资char(20),奖金char(8)数据表的创立： 基本信息表：职工部门表职工工资表创立存储过程： create proc p2(sname varchar(20) as if exists( select * from 职工 基本信息表where sname=sname) select * from 职工 基本信息表where sname=sname else print 查无此人 p2 刘 创立触发器： create trigger tr1 on 基本职工信息表 for insert as print 任何人不得添加数据 rollbackselect * from s四，创立人事

8、管理系统访问键面：VB局部1，创立键面的实现代码：(1) 基本职工信息查询：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()With Adodc1.RecordsetText1(0) = .Fields(姓名)Text1(1) = .Fields(编号)Text1(2) = .Fields(性别)Text1(3) = .Fields(籍贯)End WithEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Tex

9、t4.Text = strsql1 = select *from 基本职工信息表Adodc1.ConnectionString = connAdodc1.RecordSource = strsql1Adodc1.RefreshSet DataGrid1.DataSource = Adodc1With Adodc1.RecordsetText1.Text = .Fields(姓名)Text2.Text = .Fields(编号)Text3.Text = .Fields(性别)Text4.Text = .Fields(籍贯)End WithEnd Sub 基本的职工工资：Private Sub C

10、ommand1_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()With Adodc1.RecordsetText1(0) = .Fields(姓名)Text1(1) = .Fields(编号)Text1(2) = .Fields(性别)Text1(3) = .Fields(籍贯)End WithEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = strsql1 = select *from 基本职工信息表Adodc1.Conn

11、ectionString = connAdodc1.RecordSource = strsql1Adodc1.RefreshSet DataGrid1.DataSource = Adodc1With Adodc1.RecordsetText1.Text = .Fields(姓名)Text2.Text = .Fields(编号)Text3.Text = .Fields(性别)Text4.Text = .Fields(籍贯)End WithEnd Sub职工部门：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub

12、cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_C

13、lick() Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next 这将显示当前记录位置 为动态集

14、和快照 Data1.Caption = 记录： & (Data1.Recordset.AbsolutePosition + 1) 对于 Table 对象，当记录集创立后并使用下面的行时， 必须设置 Index 属性 Data1.Caption = 记录： & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) Select Case Action Case v

15、bDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark Case vbDataActionClose End Select Screen.MousePointer = vbHourglassEnd Sub4 基

16、本职工信息：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果删除记录集的最后一条记录 记录或记录集中唯一的记录 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 这仅对多用户应用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Reco

17、rdset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 这就是放置错误处理代码的地方 如果想忽略错误，注释掉下一行代码 如果想捕捉错误，在这里添加错误处理代码 MsgBox 数据错误事件命中错误： & Error$(DataErr) Response = 0 忽略错误End SubPrivate Sub Data1_Reposit

18、ion() Screen.MousePointer = vbDefault On Error Resume Next 这将显示当前记录位置 为动态集和快照 Data1.Caption = 记录： & (Data1.Recordset.AbsolutePosition + 1) 对于 Table 对象，当记录集创立后并使用下面的行时， 必须设置 Index 属性 Data1.Caption = 记录： & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) 这是放置验证代码的地方 当下面的动作发生时，调用这个事件 Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Cas