招聘应聘新管理信息系统.docx
《招聘应聘新管理信息系统.docx》由会员分享,可在线阅读,更多相关《招聘应聘新管理信息系统.docx(35页珍藏版)》请在冰豆网上搜索。
招聘应聘新管理信息系统
学号
200919378103
武汉外语外事职业学院
课程设计报告
课程名称
数据库应用课程设计
题目
招聘应聘管理信息系统
院系
外院信息工程学部
专业
电子商务
班级
1班
姓名
李晶
指导教师
刘芳
2011
年
1
月
7
日
课程设计评分表
评分标准:
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)兼职应聘信息表单:
公司编号、应聘者姓名、应聘地点、应聘时间、
(6)应聘者信息表单:
姓名、年龄、性别、学历、婚姻状况。
三、课程设计报告主要内容:
1招聘应聘管理信息系统需求分析(给出系统的功能模块图,对各个功能作出详细介绍)
2招聘应聘管理信息系统界面设计(给出界面截图及其主要控件的属性设置表格)
3招聘应聘管理信息系统数据库设计(给出数据库各个表单中数据的字段名,数据类型及其相应的说明)
4招聘应聘管理信息系统程序设计(按照功能模块给出详细的程序代码,并给出重点语句的注释)
1.招聘应聘管理信息系统需求分析
图1.1招聘应聘管理信息系统
1.2管理员界面
可以进行全职招聘信息管理,兼职招聘信息管理,全职应聘信息管理,兼职应聘信息管理,应聘者信息管理,系统信息管理。
1.2.1全职招聘信息管理
利用VB界面,管理员可以查询全职招应聘信息,添加信息,更新信息,删
除,修改,从而改变了数据库中的信息。
1.2.2兼职招聘信息管理
管理员可以查询,修改,删除,添加更新兼职招聘信息,在VB界面中修改了数据库中的信息。
1.2.3全职应聘信息管理
管理员可以根据需要对全职应聘的情况进行查询,添加,删除和更新,还有修改,从而改变数据库中的信息。
1.2.4兼职应聘信息管理
管理员可以根据需要对兼职应聘的情况进行查询,添加,删除和更新,还有修改,从而改变数据库中的信息。
1.2.5应聘者信息管理
管理员可以根据需要对应聘者的情况进行添加和删除,从而改变数据库中的信息。
1.2.6系统信息管理
管理员可以根据需要对用户信息的情况进行删除和更新,从而改变数
据库中的信息。
1.3用户界面
用户可以查看全职招聘信息、兼职招聘信息、全职应聘信息、兼职应聘信息、应聘者信息管理、系统管理信息界面,进行本用户的密码修改。
1.3.1全职招聘信息查询
用户进入界面后可看到所有全职招聘的信息。
1.3.2兼职招聘信息查询
用户进入界面后可看到所有兼职招聘的信息。
1.3.3全职应聘信息查询
进入界面后用户可看到所有全职应聘的情况。
1.3.4兼职应聘信息查询
用户进入界面后可看到所有兼职应聘的信息。
1.3.5本用户密码修改
用户通过输入和确认新密码来更改自己的密码。
2.招聘应聘信息管理系统界面设计
图2.1欢迎登陆界面
图2.2用户登录
图2.3管理员登陆
图2.4新型用户注册
图2.5管理员主界面
图2.6用户主界面
图2.7用户密码修改界面
表2.1用户密码修改界面属性表
对象
属性
设置值
Label1
caption
欢迎进入用户密码修改界面
Label2
caption
旧密码
Label3
caption
新密码
Label4
caption
新密码确认
图2.8全职招聘信息查询界面
表2.2全职招聘界面属性表
对象
属性
设置值
datagrid
datasource
Adodc1
Adodc1
commandtype
2-adcmdtable
recordsource
Recruitment1
visible
true
Caption
Adodc1
Option1
Caption
公司编号
Option2
caption
职位
图2.9兼职应聘信息查询界面
表2.3兼职应聘界面属性表
对象
属性
设置值
datagrid
datasource
Adodc1
Adodc1
commandtype
2-adcmdtable
recordsource
Application2
visible
true
Caption
Adodc1
Option1
Caption
公司编号
Option2
caption
应聘者姓名
图2.10应聘者信息查询界面
表2.4应聘者信息属性表
对象
属性
设置值
datagrid
datasource
Adodc1
Adodc1
commandtype
2-adcmdtable
recordsource
Employee
visible
true
Caption
Adodc1
Option1
Caption
应聘者信息
Option2
caption
学历
图2.11兼职招聘管理界面
表2.5兼职招聘管理界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
Recruitment2
visible
true
Option1
Caption
公司编号
Option2
Caption
工资
图2.12全职应聘管理界面
表2.6全职应聘管理界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
Recruitment1
visible
true
Option1
Caption
公司编号
Option2
Caption
应聘者姓名
图2.13系统信息管理界面
表2.7用户管理界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
Users
visible
false
3.招聘应聘管理信息系统数据库设计
招聘应聘信息管理系统总共涉及6张表,我的6张表分别是用户表、全职招聘信息表、兼职招聘信息表、应聘人表、全职应聘信息表、兼职应聘信息表。
表3.1User表结构
列名
数据类型
约束
类型
可变字符串,长度4
非空
用户名
可变字符串,长度10
非空
密码
可变字符串,长度4
非空
表3.2Recruitment1表结构
列名
说明
数据类型
约束
R1no
公司编号
可变字符串,长度4
主码
R1name
公司名字
可变字符串长度30
非空
R1position
职位
可变字符串长度15
非空
R1wage
工资
可变货币型长度8
>1000
R1education
学历
可变字符串长度8
表3.3Recruitment2表结构
列名
说明
数据类型
约束
R2no
公司编号
字符串,长度4
主码
R2name
公司名字
字符串长度30
非空
R2position
职位
字符串长度15
非空
R2wage
工资
货币型长度8
>30
R2education
学历
字符串长度8
非空
R2time
工作时间段
日期型长度4
非空
表3.4Employee表结构
列名
说明
数据类型
约束
Ename
姓名
字符串,长度10
主码
Esage
年龄
整型
非空
Esex
性别
字符串,长度2
非空
Eeducation
学历
字符串长度4
非空
Emarrided
婚姻状况
字符串,长度4
非空
表3.4Application1表结构
列名
说明
数据类型
约束
R1no
公司编号
字符串,长度4
非空
Ename
应聘者名
字符串,长度10
非空
Aaddress
应聘地点
字符串
非空
Atime
应聘时间
日期型
非空
表3.5Application2表结构
列名
说明
数据类型
约束
R2no
公司编号
字符串,长度4
非空
Ename
应聘者号
字符串,长度10
非空
Aaddress
应聘地点
字符串长度10
非空
Atime
应聘时间
日期型
非空
4.招聘应聘管理信息系统程序设计(部分代码)
4.1欢迎界面
欢迎界面是整个系统的首页,用户可通过它进入到登陆系统。
4.2登陆界面
进入此界面后,使用者可根据自己的身份选择登陆方式。
普通用户选择用户登陆,管理员选择管理员登陆。
4.3用户登陆和新用户注册界面程序设计
普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。
部分重要代码如下
PrivateSubCommand1_Click()
DimstrselectnameAsString
DimstrAsString
DimstrselectpasswordAsString
str=Trim(Text1.Text)
strselectname="select用户名fromuserswhere用户名="&"'"&str&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectname'从用户信息表中查询所有的用户姓名
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
ret=MsgBox("姓名错误!
",48,"warming!
")'如果用户输入的姓名与用户信息表中姓名不一致,就会出现该对话框提醒用户重新输入
Text1.Text=""
Text2.Text=""
ExitSub
EndIf
strselectpassword="select用户密码fromuserswhere用户名="&"'"&Trim(Text1.Text)&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
Adodc1.Refresh
IfTrim(Adodc1.Recordset.Fields("用户密码").Value)<>Trim(Text2.Text)Then
ret=MsgBox("密码错误!
",48,"warming!
")'如果用户输入的密码与用户信息表中的密码不一致就会出现该对话框
Text2.Text=""
Text2.SetFocus
ExitSub
Else
'Text1.Text=""
'Text2.Text=""
Form2.Hide
Form5.Show
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Form2.Hide
Form1.Show
EndSub
新用户还可以通过此界面进行注册,新用户只要输入自己的姓名,注册密码并确认注册便可以成功注册,同时该用户的信息也被写入到了用户信息表中(部分代码如下)
PrivateSubCommand1_Click()
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select用户名fromuserswhere用户名='"&Trim(Text1.Text)&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名已经存在!
请重新输入",0,"提示"
Text1.Text=""
Text1.SetFocus
ExitSub
EndIf
IfText1.Text=""OrText2.Text=""OrText3.Text=""Then
MsgBox"请输入用户名或密码",0,"提示"
ElseIfText2.Text<>Text3.TextThen
MsgBox"确认密码错误,请重新输入",0,"提示"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Else
MsgBox"恭喜你注册成功"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"
Adodc1.CommandType=adCmdTable
Adodc1.RecordSource="users"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用户名").Value=Trim(Text1.Text)
Adodc1.Recordset.Fields("用户密码").Value=Trim(Text2.Text)
Adodc1.Recordset.Fields("用户类型").Value="用户"
Adodc1.Recordset.Update
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndIf
ExitSub
EndSub
PrivateSubCommand2_Click()
Form4.Hide
Form1.Show
EndSub
4.4管理员登陆界面
管理员需要输入自己的姓名和密码,经过系统验证无误后就可以进入下一个界面了。
它的代码与管理员登陆代码类似,输入的姓名和密码必须是管理员表中相应的信息,否则就无法成功登陆。
4.5用户服务表界面
用户登陆进去后,可以到用户服务界面选择自己所需的服务,该界面为用户提供了5种服务,分别是“全职招聘信息查询”,“兼职招聘信息查询”,“全职应聘信息查询”,“兼职应聘信息查询”“应聘者信息查询”和“本用户的密码修改”,。
4.6用户密码修改界面程序设计
用户如需修改自己的密码可在此界面进行,用户通过登陆界面登陆到此,然后在此界面中输入原始密码和新密码并验证新密码,确认后如果无误就会提示用户修改成功,并且其密码在用户信息表中也会有相应的修改。
(代码如下)
PrivateSubCommand1_Click()
IfTrim(Text1.Text="")Then
MsgBox"请输入密码!
",0,"提示"
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*fromuserswhere用户密码='"&Trim(Text1.Text)&"'and用户名='"&Trim(Form2.Text1.Text)&"'"
Adodc1.Refresh
'IfAdodc1.Recordset.EOF=TrueThen
'MsgBox"旧密码不正确,请重新输入!
",0,"提示"
'Text2.Text=""
'Text3.Text=""
'Text2.SetFocus
'ExitSub
'EndIf
IfText1.Text<>Form2.Text2.TextThen
MsgBox"密码不正确,请重新输入!
",0,"提示"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"请输入新密码",0,"提示"
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text3.Text)=""Then
MsgBox"请输入验证密码!
",0,"提示"
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)<>Trim(Text3.Text)Then
MsgBox"请验证新密码!
",0,"提示"
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ExitSub
EndIf
Adodc1.Recordset.Fields("用户密码").Value=Trim(Text3.Text)
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"修改密码成功!
",0,"提示"
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Form12.Hide
Form5.Show
EndSub
4.7全职招聘信息的查询界面
用户可通过此界面所提供的内容查询所有的全职招聘信息。
所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来,设置相应的属性后所有信息便可显示在DataGrid上供用户查看。
图4.1全职招聘信息的查询界面
4.8兼职应聘信息的查询界面
该界面所用的控件与全职招聘信息查询所用的一样,用户想要查看的信息也会显示在DataGrid上。
图4.2兼职应聘信息查询界面
4.9全职应聘信息查询界面
该界面所用的控件与全职招聘信息查询所用的一样,用户想要查看的信息也会显示在DataGrid上。
4.9兼职招聘信息查询界面
该界面所用的控件与全职招聘信息查询所用的一样,用户想要查看的信息也会显示在DataGrid上。
4.9兼职招聘信息查询界面
该界面所用的控件与全职招聘信息查询所用的一样,用户想要查看的信息也会显示在Data