高校人事管理信息系统设计

课 程 设 计 报 告课程名称 数据库应用课程设计 题 目 高校人事管理信息系统 院 系 专 业 班 级 姓 名 指导教师 年月日课程设计评分表评分标准：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+ SQL SERVER 2000二、功能要求1、设计内容设计一个高校教工人事管理信息系统，该系统的用户由一般用户和管理员组成，不同的用户拥有不同的权限，各自完成各自的管理功能。首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sql server2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。2、高校教工人事管理信息系统主要功能（1）登录界面、用户注册界面（2）用户管理：用户登记界面（添加、打印等操作）、用户信息查询界面（按照一定条件查询）、修改密码（删除、修改）。（3）管理员管理：用户基本信息界面（修改、删除等操作）、工作时间界面、工资界面（修改）、年度考核界面。3、高校教工人事信息系统数据库表单（表单和字段可以按照需求增、删、改） （1）密码表：工号、密码、用户身份（管理员和普通用户）（2）基本信息表：工号、姓名、年龄、性别、职务、学历、政治面貌、所属部门（3）工作时间表：工号、姓名、来院时间、任职时间、工龄（4）工资表单：工号、姓名、基本工资、工龄补贴、奖金、实发工资（5）年度考核表：工号、考察年度、工作态度、工作业绩 三、课程设计报告主要内容 1 高校教工人事信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍） 2 高校教工人事信息系统界面设计（给出界面截图及其主要控件的属性设置表格） 3 高校教工人事信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明） 4 高校教工人事管理信息系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句的注释）文档由本人精心搜集和整理，喜欢大家用得上，非常感谢你的浏览与下载。凡本厂职工应热爱电厂、热爱岗位、热爱本职工作，发扬“团结务实、争创一流，立足岗位，爱厂敬业，尽职尽责，不断提高工作质量和工作效率，圆满完成各项生产和工作任务，为华能的建设和发展作出贡献2019整理的各行业企管，经济，房产，策划，方案等工作范文，希望你用得上，不足之处请指正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 用户服务界面属性表对象属性设定值SSTab1Caption密码修改SSTab2Caption工资查询SSTab3caption年度考核查询Datagrid1datasourceAdodc1Adodc1commandtype2-adcmdtablerecordsource密码表visiblefalsecaptionAdodc1Datagrid2datasourceAdodc2Adodc2commandtype2-adcmdtablerecordsource工资表visiblefalsecaptionAdodc2Datagrid3datasourceAdodc3Adodc3commandtype2-adcmdtablerecordsource年度考核表visiblefalsecaptionAdodc3图2.6 管理员界面表2.2 管理员界面属性表对象属性设定值Option1Option2Command2caption后退Label2caption工号Label2caption姓名图2.7 工号查询界面图2.8 姓名查询界面图2.9 管理员查询界面表2.3 管理员查询查询界面属性表对象属性设置值Datagrid1datasourceAdodc1Adodc1commandtype2-adcmdtablerecordsource密码表visiblefalsecaptionAdodc1Datagrid2datasourceAdodc2Adodc2commandtype2-adcmdtablerecordsource基本信息表visiblefalsecaptionAdodc2Datagrid3datasourceAdodc3Adodc3commandtype2-adcmdtablerecordsource工资表visiblefalsecaptionAdodc3Datagrid4atasourceAdodc4Adodc4commandtype2-adcmdtablerecordsource工作表visiblefalsecaptionAdodc4Datagrid5atasourceAdodc5Adodc5commandtype2-adcmdtablerecordsource年度考核表visiblefalsecaptionAdodc5SSTab1caption密码信息SSTab2caption基本信息SSTab3caption工资信息SSTab4caption工作信息SSTab5caption考核信息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用户登陆和新用户注册界面程序设计普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下Private Sub Command2_Click()Dim strselectname As StringDim str As StringDim strselectpassword As StringDim strpassword As StringDim strselectuserlevel As StringDim ret_select As Booleanstrselectpassword = select 登录密码 from 密码表 where 工号 = & & Trim(Text1.Text) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVstr = Trim(Text1.Text)strselectname = select 工号 from 密码表 where 工号= & & str & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectnameAdodc1.RefreshIf Adodc1.Recordset.EOF = True Then ret = MsgBox(工号错误！, 48, warming!) Text1.Text = Text2.Text = Exit Sub Else Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.RefreshAdodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.RefreshIf StrComp(Trim(Adodc1.Recordset.Fields(登录密码).Value), Trim(Text2.Text) 0 Then ret = MsgBox(密码错误！, 48, warming!) Text2.Text = Text2.SetFocus Exit Sub Else MsgBox 登录成功! AID = Text1.Text End If 用户登录.Hide 用户服务.Show End IfEnd Sub进入用户登录界面后，新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入你的工号Exit SubElseIf Text2.Text = ThenMsgBox 请输入密码Exit SubElseIf Text3.Text = ThenMsgBox 请再次输入密码Exit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 工号 from 密码表 where 工号 = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 用户名已经存在！请重新输入, 0, 提示 Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Exit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.CommandType = adCmdTableAdodc1.RecordSource = 密码表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(工号).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(登录密码).Value = Trim(Text2.Text)If Text3.Text = Then MsgBox 请再次输入密码 Text1.SetFocusExit SubElseIf Text2.Text Text3.Text ThenMsgBox 两次输入的密码不一样 Text3.Text = Exit SubEnd IfAdodc1.Recordset.UpdateMsgBox 恭喜你注册成功 Text1.Text = Text2.Text = Text3.Text = 用户注册.Hide 用户登录.Show4.3管理员登陆界面管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。它的代码与管理员登陆代码类似，输入的姓名和密码必须是管理员表中相应的信息，否则就无法成功登陆。4.4用户服务表界面用户登陆进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了三种服务，分别是“本用户密码的修改”，“工资查询”和“年度考核查询”。4.5用户密码修改界面程序设计用户如需修改自己的密码可在此界面进行，用户通过登陆界面登陆到此，然后在此界面中输入原始密码和新密码并验证新密码，确认后如果无误就会提示用户修改成功，并且其密码在用户信息表中也会有相应的修改。（代码如下）Private Sub Command1_Click() If Trim(Text2.Text) = Then MsgBox 对不起，输入原密码！, vbInformation Exit SubElseIf Trim(Text3.Text) = Then MsgBox 对不起，请输入新密码, vbInformation Exit SubElseIf Trim(Text4.Text) = Then MsgBox 对不起，请再次输入新密码, vbInformation Exit SubElseIf Trim(Text3.Text) Trim(Text4.Text) Then MsgBox 两次输入的密码不一致！ Text4.Text = Exit Sub End If Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 登录密码 from 密码表 where 登录密码 = & AID & Adodc1.RefreshIf Adodc1.Recordset.EOF = True Then MsgBox 密码不正确，请重新输入！ Text2.Text = Text3.Text = Text4.Text = Text2.SetFocus Exit Sub Else Adodc1.Recordset.Fields(登录密码).Value = Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.Refresh MsgBox 恭喜你，密码修改成功！ Text2.Text = Text3.Text = Text4.Text = End IfEnd Sub 4.6用户服务界面用户可通过此界面所提供的内容查询所有的零件信息。所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来，并通过sstab控件进行切换界面，设置相应的属性后所有信息便可显示在DataGrid上供用户查看。图4.1 零件信息的查询界面 此控件要调用模块，该代码在load里面写:Private Sub Form_Load()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 密码表 where 密码表.工号 = & AID & Adodc1.RefreshAdodc2.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from 年度考核表 left join 密码表 on 密码表.工号=年度考核表.工号 where 密码表.工号 = & AID & Adodc2.RefreshAdodc3.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc3.CommandType = adCmdTextAdodc3.RecordSource = select * from 工资表 left join 密码表 on 密码表.工号=工资表.工号 where 密码表.工号 = & AID & Adodc3.RefreshEnd Sub4.7管理员查询界面该界面所用的控件与用户服务界面所用的一样，用户想要查看的信息也会显示在DataGrid上。图4.2 管理员查询界面Load里的代码：Private Sub Form_Load() If 管理员界面.Option1 Then Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 密码表 where 密码表.工号 = & AAA & Adodc1.RefreshAdodc2.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from 基本信息表 where 基本信息表.工号 = & AAA & Adodc2.RefreshAdodc3.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc3.CommandType = adCmdTextAdodc3.RecordSource = select * from 工资表 where 工资表.工号 = & AAA & Adodc3.RefreshAdodc4.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc4.CommandType = adCmdTextAdodc4.RecordSource = select * from 工作表 where 工作表.工号 = & AAA & Adodc4.RefreshAdodc5.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc5.CommandType = adCmdTextAdodc5.RecordSource = select * from 年度考核表 where 年度考核表.工号 = & AAA & Adodc5.RefreshElseAdodc2.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from 基本信息表 where 基本信息表.姓名 = & BBB & Adodc2.RefreshAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 工作表 left join 密码表 on 密码表.工号=工作表.工号 where 工作表.姓名 = & BBB & Adodc1.RefreshAdodc3.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc3.CommandType = adCmdTextAdodc3.RecordSource = select * from 工作表 left join 工资表 on 工资表.工号=工作表.工号 where 工作表.姓名 = & BBB & Adodc3.RefreshAdodc4.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc4.CommandType = adCmdTextAdodc4.RecordSource = select * from 工作表 where 工作表.姓名 = & BBB & Adodc4.RefreshAdodc5.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PCHNVAdodc5.CommandType = adCmdTextAdodc5.RecordSource = select * from 工作表 left join 年度考核表 on 年度考核表.工号=工作表.工号 where 工作表.姓名 = & BBB & Adodc5.Refresh End IfEnd Sub如想查询所有，代码如下：Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 工资表 Adodc1.RefreshAdodc2.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc2.CommandType = adCmdTextAdodc2.RecordSource = select * from 工资表 Adodc2.RefreshAdodc3.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc3.CommandType = adCmdTextAdodc3.RecordSource = select * from 工资表 Adodc3.RefreshAdodc4.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc4.CommandType = adCmdTextAdodc4.RecordSource = select * from 工资表 Adodc4.RefreshAdodc5.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc5.CommandType = adCmdTextAdodc5.RecordSource = select * from 工资表 Adodc3.Refresh添加密码代码如下：Private Sub Command1_Click()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 工号 from 密码表 where 工号 = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 此工号已存在, 0, 提示 Exit SubEnd IfIf Text1.Text = Or Text2.Text = Or Text17.Text = ThenMsgBox 请将信息填写完整ElseAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 密码表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(工号).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(登录密码).Value = Trim(Text2.Text)Adodc1.Recordset.Fields(身份).Value = Trim(Text17.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你添加成功Text1.Text = Text2.Text = Text17.Text = Exit SubEnd IfEnd Sub添加用户基本信息代码如下：Private Sub Command1_Click()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 工号 from 密码表 where 工号 = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 此工号已存在, 0, 提示 Exit SubEnd IfIf Text1.Text = Or Text2.Text = Or Text17.Text = ThenMsgBox 请将信息填写完整ElseAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 密码表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(工号).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(登录密码).Value = Trim(Text2.Text)Adodc1.Recordset.Fields(身份).Value = Trim(Text17.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你添加成功Text1.Text = Text2.Text = Text17.Text = Exit SubEnd IfEnd SubPrivate Sub Command10_Click()Adodc2.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc2.CommandType = adCmdTextAdodc2.RecordSource = select 工号 from 基本信息表 where 工号 = & Trim(Text3.Text) & Adodc2.RefreshIf Adodc2.Recordset.EOF = False Then MsgBox 此工号已存在, 0, 提示 Exit SubEnd IfIf Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = Or Text9.Text = Or Text10.Text = ThenMsgBox 请将信息填写完整ElseAdodc2.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc2.CommandType = adCmdTableAdodc2.RecordSource = 基本信息表Adodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(工号).Value = Trim(Text3.Text)Adodc2.Recordset.Fields(性别).Value = Trim(Text4.Text)Adodc2.Recordset.Fields(学历).Value = Trim(Text5.Text)Adodc2.Rec