高校人事管理信息系统设计.docx
- 文档编号:24982886
- 上传时间:2023-06-03
- 格式:DOCX
- 页数:36
- 大小:1.69MB
高校人事管理信息系统设计.docx
《高校人事管理信息系统设计.docx》由会员分享,可在线阅读,更多相关《高校人事管理信息系统设计.docx(36页珍藏版)》请在冰豆网上搜索。
高校人事管理信息系统设计
课程设计报告
课程名称
数据库应用课程设计
题目
高校人事管理信息系统
院系
专业
班级
姓名
指导教师
年
月
日
课程设计评分表
评分标准:
1.学生是否严格遵守课程设计纪律,按照规定时间完成设计任务(占30%)
2.程序设计的质量与规范:
(占40%)
(1)是否采用了良好的设计方法,独立完成程序设计
(2)程序界面设计是否合理、美观
(3)数据库设计是否合理,具有良好的扩展性
(4)程序是否运行正常,未见运行错误
3.课程设计报告书的质量与规范(占30%)
教师评分:
1.学生出勤得分:
(A)(B)(C)(D)得分_________
2.程序设计得分:
(A)(B)(C)(D)得分_________
3.设计报告得分:
(A)(B)(C)(D)得分_________
总分:
_________
教师评语:
根据该生在课程设计期间,是否严格遵守课程设计纪律,按照规定时间完成设计任务,完成的程序设计的质量与规范,提交的课程设计报告书的质量与规范等多方面的评分,该生本次课程设计的评分为:
________
教师签名:
日期:
年月日
设计题目
高校人事管理信息系统
设计主要内容
一、开发平台VB+SQLSERVER2000
二、功能要求
1、设计内容
设计一个高校教工人事管理信息系统,该系统的用户由一般用户和管理员组成,不同的用户拥有不同的权限,各自完成各自的管理功能。
首先是欢迎界面,然后选择登录,登录的时候首先要判断用户的身份,合法的用户然后进入到系统主界面中,不同的用户看到不同的系统功能。
用sqlserver2000创建后台数据库,然后利用程序设计语言(VB)编写程序实现对数据库的操作,按照要求完成所有的功能和模块。
2、高校教工人事管理信息系统主要功能
(1)登录界面、用户注册界面
(2)用户管理:
用户登记界面(添加、打印等操作)、用户信息查询界面(按照一定条件查询)、修改密码(删除、修改)。
(3)管理员管理:
用户基本信息界面(修改、删除等操作)、工作时间界面、工资界面(修改)、年度考核界面。
3、高校教工人事信息系统数据库表单(表单和字段可以按照需求增、删、改)
(1)密码表:
工号、密码、用户身份(管理员和普通用户)
(2)基本信息表:
工号、姓名、年龄、性别、职务、学历、政治面貌、所属部门
(3)工作时间表:
工号、姓名、来院时间、任职时间、工龄
(4)工资表单:
工号、姓名、基本工资、工龄补贴、奖金、实发工资
(5)年度考核表:
工号、考察年度、工作态度、工作业绩
三、课程设计报告主要内容
1高校教工人事信息系统需求分析(给出系统的功能模块图,对各个功能作出详细介绍)
2高校教工人事信息系统界面设计(给出界面截图及其主要控件的属性设置表格)
3高校教工人事信息系统数据库设计(给出数据库各个表单中数据的字段名,数据类型及其相应的说明)
4高校教工人事管理信息系统程序设计(按照功能模块给出详细的程序代码,并给出重点语句的注释)
1.高校人事管理信息系统需求分析
图1.1零件交易管理信息系统
1.1欢迎界面
1.1.1选中管理员登录后便进入管理员登陆界面
1.1.2选中用户登陆后便进入用户登陆界面
1.2管理员界面
可以进行现有用户的密码信息管理,工作信息管理,工资信息管理,年度考察信息管理,基本信息管理。
1.2.1密码信息管理
利用VB界面,管理员可以查询现有用户密码,修改信息,添加信息,删除记录,从而改变了数据库中的信息。
1.2.2工作信息管理
管理员可以查询,修改,删除,添加用户的工作信息,在VB界面中修改了数据库中的信息。
1.2.3工资信息管理
管理员可以根据需要查询,修改,删除,添加用户的工资信息,从而改变数据库中的信息。
1.2.3基本信息信息管理
管理员可以根据需要查询,修改,删除,添加用户的基本信息信息,从而改变数据库中的信息。
1.2.3年度考核信息管理
管理员可以根据需要查询,修改,删除,添加用户的年度考核信息,从而改变数据库中的信息。
1.3用户界面
用户可以进行本用户密码的修改,查看零件信息和工程项目使零件情况。
1.3.1本用户密码修改
用户通过输入和确认新密码来更改自己的密码。
1.3.2工资信息信息查询
用户进入界面后可看到自己的工资信息。
1.3.3年度考核信息查询
进入界面后用户可看到自己的年度考核信息。
2.高校人事管理信息系统界面设计
图2.1欢迎界面
图2.2用户登陆界面
图2.3新用户注册界面
图2.4管理员登陆界面
图2.5用户服务界面
表2.1用户服务界面属性表
对象
属性
设定值
SSTab1
Caption
密码修改
SSTab2
Caption
工资查询
SSTab3
caption
年度考核查询
Datagrid1
datasource
Adodc1
Adodc1
commandtype
2-adcmdtable
recordsource
密码表
visible
false
caption
Adodc1
Datagrid2
datasource
Adodc2
Adodc2
commandtype
2-adcmdtable
recordsource
工资表
visible
false
caption
Adodc2
Datagrid3
datasource
Adodc3
Adodc3
commandtype
2-adcmdtable
recordsource
年度考核表
visible
false
caption
Adodc3
图2.6管理员界面
表2.2管理员界面属性表
对象
属性
设定值
Option1
Option2
Command2
caption
后退
Label2
caption
工号
Label2
caption
姓名
图2.7工号查询界面
图2.8姓名查询界面
图2.9管理员查询界面
表2.3管理员查询查询界面属性表
对象
属性
设置值
Datagrid1
datasource
Adodc1
Adodc1
commandtype
2-adcmdtable
recordsource
密码表
visible
false
caption
Adodc1
Datagrid2
datasource
Adodc2
Adodc2
commandtype
2-adcmdtable
recordsource
基本信息表
visible
false
caption
Adodc2
Datagrid3
datasource
Adodc3
Adodc3
commandtype
2-adcmdtable
recordsource
工资表
visible
false
caption
Adodc3
Datagrid4
atasource
Adodc4
Adodc4
commandtype
2-adcmdtable
recordsource
工作表
visible
false
caption
Adodc4
Datagrid5
atasource
Adodc5
Adodc5
commandtype
2-adcmdtable
recordsource
年度考核表
visible
false
caption
Adodc5
SSTab1
caption
密码信息
SSTab2
caption
基本信息
SSTab3
caption
工资信息
SSTab4
caption
工作信息
SSTab5
caption
考核信息
3.高校人事管理信息系统数据库设计
高校人事信息管理系统总共涉及5张表,分别是密码表,基本信息表,工资表,工作表,年度考核表。
表3.1密码表
字段名称
标始名称
数据类型
是否允许为空
字段说明
工号
编号
char
否
主码
登录密码
密码
char
否
身份
身份
Char
是
表3.2基本信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
工号
工号
char
否
主码
姓名
姓名
char
否
性别
性别
char
是
年龄
年龄
tinyint
是
学历
学历
char
是
职务
职务
char
是
政治面貌
政治面貌
char
是
所属部门
政治面貌
char
是
表3.3工资表
字段名称
标始名称
数据类型
是否允许为空
字段说明
工号
工号
char
否
主码
基本工资
基本工资
Money
否
工龄补贴
工龄补贴
Money
是
奖金
奖金
Money
是
实发工资
实发工资
Money
是
表3.4工作况表
字段名称
标始名称
数据类型
是否允许为空
字段说明
工号
工号
char
否
主码
姓名
姓名
char
是
来院时间
来院时间
tinyint
否
任职时间
任职时间
tinyint
是
表3.5年度考核表
字段名称
标始名称
数据类型
是否允许为空
字段说明
工号
工号
char
否
主码
考察年度
考察年度
char
是
工作态度
工作态度
char
是
工作业绩
工作业绩
char
是
4.高校人事管理信息系统程序设计(部分代码)
4.1欢迎界面
欢迎界面是整个系统的首页,进入此界面后,使用者可根据自己的身份选择登陆方式。
普通用户选择用户登陆,管理员选择管理员登陆。
4.2用户登陆和新用户注册界面程序设计
普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。
部分重要代码如下
PrivateSubCommand2_Click()
DimstrselectnameAsString
DimstrAsString
DimstrselectpasswordAsString
DimstrpasswordAsString
DimstrselectuserlevelAsString
Dimret_selectAsBoolean
strselectpassword="select登录密码from密码表where工号="&"'"&Trim(Text1.Text)&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
str=Trim(Text1.Text)
strselectname="select工号from密码表where工号="&"'"&str&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectname
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
ret=MsgBox("工号错误!
",48,"warming!
")
Text1.Text=""
Text2.Text=""
ExitSub
Else
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
Adodc1.Refresh
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
Adodc1.Refresh
IfStrComp(Trim(Adodc1.Recordset.Fields("登录密码").Value),Trim(Text2.Text))<>0Then
ret=MsgBox("密码错误!
",48,"warming!
")
Text2.Text=""
Text2.SetFocus
ExitSub
Else
MsgBox"登录成功!
"
AID=Text1.Text
EndIf
用户登录.Hide
用户服务.Show
EndIf
EndSub
进入用户登录界面后,新用户还可以通过此界面进行注册,新用户只要输入自己的姓名,注册密码并确认注册便可以成功注册,同时该用户的信息也被写入到了用户信息表中(部分代码如下)
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"请输入你的工号"
ExitSub
ElseIfText2.Text=""Then
MsgBox"请输入密码"
ExitSub
ElseIfText3.Text=""Then
MsgBox"请再次输入密码"
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select工号from密码表where工号='"&Trim(Text1.Text)&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名已经存在!
请重新输入",0,"提示"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc1.CommandType=adCmdTable
Adodc1.RecordSource="密码表"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("工号").Value=Trim(Text1.Text)
Adodc1.Recordset.Fields("登录密码").Value=Trim(Text2.Text)
IfText3.Text=""Then
MsgBox"请再次输入密码"
Text1.SetFocus
ExitSub
ElseIfText2.Text<>Text3.TextThen
MsgBox"两次输入的密码不一样"
Text3.Text=""
ExitSub
EndIf
Adodc1.Recordset.Update
MsgBox"恭喜你注册成功"
Text1.Text=""
Text2.Text=""
Text3.Text=""
用户注册.Hide
用户登录.Show
4.3管理员登陆界面
管理员需要输入自己的姓名和密码,经过系统验证无误后就可以进入下一个界面了。
它的代码与管理员登陆代码类似,输入的姓名和密码必须是管理员表中相应的信息,否则就无法成功登陆。
4.4用户服务表界面
用户登陆进去后,可以到用户服务界面选择自己所需的服务,该界面为用户提供了三种服务,分别是“本用户密码的修改”,“工资查询”和“年度考核查询”。
4.5用户密码修改界面程序设计
用户如需修改自己的密码可在此界面进行,用户通过登陆界面登陆到此,然后在此界面中输入原始密码和新密码并验证新密码,确认后如果无误就会提示用户修改成功,并且其密码在用户信息表中也会有相应的修改。
(代码如下)
PrivateSubCommand1_Click()
IfTrim(Text2.Text)=""Then
MsgBox"对不起,输入原密码!
",vbInformation
ExitSub
ElseIfTrim(Text3.Text)=""Then
MsgBox"对不起,请输入新密码",vbInformation
ExitSub
ElseIfTrim(Text4.Text)=""Then
MsgBox"对不起,请再次输入新密码",vbInformation
ExitSub
ElseIfTrim(Text3.Text)<>Trim(Text4.Text)Then
MsgBox"两次输入的密码不一致!
"
Text4.Text=""
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select登录密码from密码表where登录密码='"&AID&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"密码不正确,请重新输入!
"
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text2.SetFocus
ExitSub
Else
Adodc1.Recordset.Fields("登录密码").Value=Trim(Text3.Text)
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"恭喜你,密码修改成功!
"
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndIf
EndSub
4.6用户服务界面
用户可通过此界面所提供的内容查询所有的零件信息。
所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来,并通过sstab控件进行切换界面,设置相应的属性后所有信息便可显示在DataGrid上供用户查看。
图4.1零件信息的查询界面
此控件要调用模块,该代码在load里面写:
PrivateSubForm_Load()
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from密码表where密码表.工号='"&AID&"'"
Adodc1.Refresh
Adodc2.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc2.CommandType=adCmdText
Adodc2.RecordSource="select*from年度考核表leftjoin密码表on密码表.工号=年度考核表.工号where密码表.工号='"&AID&"'"
Adodc2.Refresh
Adodc3.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC2009113022HNV"
Adodc3.CommandType=adCmdText
Adodc3.RecordSource="select*from工资表leftjoin密码表on密码表.工号=工资表.工号where密码表.工号='"&AID&"'"
Adodc3.Refresh
EndSub
4.7管理员查询界面
该界面所用的控件与用户服务界面所用的一样,用户想要查看的信息也会显示在DataGrid上。
图4.2管理员查询界面
Load里的代码:
PrivateSubForm_Load(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高校 人事 管理信息系统 设计