招聘应聘管理信息系统.docx

《招聘应聘管理信息系统.docx》由会员分享，可在线阅读，更多相关《招聘应聘管理信息系统.docx（28页珍藏版）》请在三一办公上搜索。

1、数据库课程设计报告学 号200919378103武 汉 外 语 外 事 职 业 学 院课 程 设 计 报 告课程名称 数据库应用课程设计 题 目 招聘应聘管理信息系统 院 系 外院信息工程学部 专 业 电子商务 班 级 1班 姓 名 李晶 指导教师 刘芳 2011年1月7日25 课程设计评分表评分标准：1. 学生是否严格遵守课程设计纪律，按照规定时间完成设计任务(占30%)2. 程序设计的质量与规范：(占40%)(1)是否采用了良好的设计方法，独立完成程序设计(2)程序界面设计是否合理、美观(3)数据库设计是否合理，具有良好的扩展性(4)程序是否运行正常，未见运行错误3. 课程设计报告书的质量

2、与规范 (占30%)教师评分：1.学生出勤得分：(A) (B) (C) (D) 2.程序设计得分：(A) (B) (C) (D) 3.设计报告得分：(A) (B) (C) (D) 总分：_教师评语： 根据该生在课程设计期间，是否严格遵守课程设计纪律，按照规定时间完成设计任务，完成的程序设计的质量与规范，提交的课程设计报告书的质量与规范等多方面的评分，该生本次课程设计的评分为：_ 教师签名： 日期： 年 月 日设计题目:招聘应聘管理信息系统设计设计主要内容:一、开发平台：VB+ SQL SERVER 2000二、功能要求：1、设计内容设计一个招聘应聘管理信息系统，该系统的用户由一般用户和管理员组

3、成，不同的用户拥有不同的权限，各自完成各自的管理功能。首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sql server2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。2、招聘应聘管理信息系统主要功能（1）登录界面、用户注册界面、（2）用户管理：全职应聘信息界面（查）、兼职应聘信息界面（查）、应聘者信息界面（查）、 本用户密码的修改。 （3）管理员管理：全职招聘管理信息界面（增、删、查）、兼职招聘信息界面（增、删、查）、全职应聘信息界面（增、删、查）兼

4、职应聘信息界面（增、删、查）应聘者管理信息界面（增、删、查）。信息系统管理（增加、删除用户信息）。 3、招聘应聘管理信息系统数据库表单（表单和字段可以按照需求增、删、改） （1）用户信息表单，用户类型、用户姓名、用户密码（管理员和普通用户）（2）全职招聘信息表单：公司编号、公司名字、职位、工资、学历。（3）兼职招聘信息表单：公司编号、公司名字、职位、工资、学历、工作时间段。（4）全职应聘信息表单：公司编号、应聘者姓名。应聘地点、应聘时间。 （5）兼职应聘信息表单：公司编号、应聘者姓名、应聘地点、应聘时间、 （6）应聘者信息表单：姓名、年龄、性别、学历、婚姻状况。三、课程设计报告主要内容： 1

5、招聘应聘管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍） 2 招聘应聘管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格） 3 招聘应聘管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明） 4 招聘应聘管理信息系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句的注释）1.招聘应聘管理信息系统需求分析 招聘应聘管理信息系统登 陆用 户 登 陆管 理 员 登 陆用户服务新用户注册管理员服务全职应聘信息查询兼职应聘信息查询本用户密码的修改全职招聘信息管理应聘者信息管理系统信息管理更 新 添 加 删 除应聘者信息查询兼职招聘信息管理

6、兼职应聘信息管理全职应聘信息管理兼职招聘信息查询全职招聘信息查询图1.1 招聘应聘管理信息系统 1.2管理员界面 可以进行全职招聘信息管理，兼职招聘信息管理，全职应聘信息管理，兼职应聘信息管理，应聘者信息管理，系统信息管理。1.2.1全职招聘信息管理 利用VB界面，管理员可以查询全职招应聘信息，添加信息，更新信息，删除，修改，从而改变了数据库中的信息。1.2.2兼职招聘信息管理 管理员可以查询，修改，删除，添加 更新兼职招聘信息，在VB界面中修改了数据库中的信息。1.2.3全职应聘信息管理 管理员可以根据需要对全职应聘的情况进行查询，添加，删除和更新，还有修改，从而改变数据库中的信息。1.2.

7、4兼职应聘信息管理 管理员可以根据需要对兼职应聘的情况进行查询，添加，删除和更新，还有修改，从而改变数据库中的信息。1.2.5 应聘者信息管理 管理员可以根据需要对应聘者的情况进行添加和删除，从而改变数据库中的信息。1.2.6系统信息管理管理员可以根据需要对用户信息的情况进行删除和更新，从而改变数据库中的信息。1.3用户界面 用户可以查看全职招聘信息、兼职招聘信息、全职应聘信息、兼职应聘信息、应聘者信息管理、系统管理信息界面，进行本用户的密码修改。1.3.1全职招聘信息查询用户进入界面后可看到所有全职招聘的信息。1.3.2兼职招聘信息查询 用户进入界面后可看到所有兼职招聘的信息。1.3.3全职

8、应聘信息查询进入界面后用户可看到所有全职应聘的情况。1.3.4兼职应聘信息查询用户进入界面后可看到所有兼职应聘的信息。1.3.5本用户密码修改用户通过输入和确认新密码来更改自己的密码。 2招聘应聘信息管理系统界面设计图2.1 欢迎登陆界面 图 2.2 用户登录 图 2.3管理员登陆 图2.4 新型用户注册图2.5管理员主界面 图2.6 用户主界面 图2.7 用户密码修改界面 表2.1 用户密码修改界面属性表对象属性设置值Label1caption欢迎进入用户密码修改界面Label2caption旧密码Label3caption新密码Label4caption新密码确认 图 2.8 全职招聘信息

9、查询界面表2.2全职招聘界面属性表对象属性设置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceRecruitment1visibletrueCaptionAdodc1Option1Caption公司编号Option2caption职位 图2.9兼职应聘信息查询界面表2.3兼职应聘界面属性表 对象属性设置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceApplication2visibletrueCaptionAdodc1Opti

10、on1Caption公司编号Option2caption应聘者姓名 图2.10 应聘者信息查询界面 表2.4应聘者信息属性表 对象属性设置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceEmployeevisibletrueCaptionAdodc1Option1Caption应聘者信息Option2caption学历图2.11兼职招聘管理界面表2.5兼职招聘管理界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdta

11、blerecordsource Recruitment2visibletrueOption1Caption公司编号Option2Caption工资图2.12全职应聘管理界面表2.6全职应聘管理界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceRecruitment1visibletrueOption1Caption公司编号Option2Caption应聘者姓名 图2.13 系统信息管理界面表2.7 用户管理界面属性表对象属性设置值dadagriddatasource

12、Adodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceUsersvisiblefalse3招聘应聘管理信息系统数据库设计招聘应聘信息管理系统总共涉及6张表，我的6张表分别是用户表、全职招聘信息表、兼职招聘信息表、应聘人表、全职应聘信息表、兼职应聘信息表。 表3.1 User表结构列名 数据类型约束类型可变字符串， 长度4非空用户名可变字符串，长度10非空密码可变字符串，长度4非空 表3.2 Recruitment1表结构列名说明数据类型约束R1no公司编号可变字符串，长度4 主码R1name公司名字可变字符串 长度30非空R1p

13、osition 职位可变字符串 长度15非空R1wage工资可变货币型 长度 81000R1education 学历可变字符串 长度 8 表3.3 Recruitment2表结构列名说明数据类型约束R2no 公司编号字符串，长度4主码R2name公司名字字符串 长度30非空R2position职位字符串 长度15非空R2wage工资货币型 长度830R2education学历字符串 长度8非空R2time工作时间段日期型 长度4非空 表3.4 Employee表结构列名说明数据类型约束Ename 姓名字符串，长度10主码Esage 年龄整型非空Esex 性别字符串，长度2非空Eeducatio

14、n 学历字符串 长度4非空Emarrided婚姻状况字符串，长度4非空 表3.4 Application1 表结构列名说明数据类型约束R1no 公司编号字符串，长度4非空Ename 应聘者名字符串，长度10非空A address应聘地点字符串非空Atime 应聘时间日期型非空 表3.5 Application2表结构列名说明数据类型约束R2no 公司编号字符串，长度4非空Ename 应聘者号字符串，长度10非空Aaddress 应聘地点字符串 长度10非空Atime 应聘时间日期型非空4招聘应聘管理信息系统程序设计（部分代码）4.1欢迎界面欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。

15、4.2登陆界面 进入此界面后，使用者可根据自己的身份选择登陆方式。普通用户选择用户登陆，管理员选择管理员登陆。4.3用户登陆和新用户注册界面程序设计 普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下Private Sub Command1_Click()Dim strselectname As StringDim str As StringDim strselectpassword As Stringstr = Trim(Text1.Text)strselectname = select 用户名 from users where 用户名= & & str &

16、Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=city;Data Source=(local)Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectname 从用户信息表中查询所有的用户姓名Adodc1.RefreshIf Adodc1.Recordset.EOF = True Then ret = MsgBox(姓名错误！, 48, warmi

17、ng!) 如果用户输入的姓名与用户信息表中姓名不一致，就会出现该对话框提醒用户重新输入 Text1.Text = Text2.Text = Exit SubEnd Ifstrselectpassword = select 用户密码 from users where 用户名= & & Trim(Text1.Text) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=city;Data Source=(local)

18、Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.Refresh If Trim(Adodc1.Recordset.Fields(用户密码).Value) Trim(Text2.Text) Then ret = MsgBox(密码错误！, 48, warming!) 如果用户输入的密码与用户信息表中的密码不一致就会出现该对话框 Text2.Text = Text2.SetFocus Exit Sub Else Text1.Text = Text2.Text = Form2.Hide Form5

19、.Show End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Form2.HideForm1.ShowEnd Sub新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）Private Sub Command1_Click()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False

20、;Initial Catalog=city;Data Source=(local)Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 用户名 from users where 用户名 = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 用户名已经存在！请重新输入, 0, 提示 Text1.Text = Text1.SetFocus Exit SubEnd IfIf Text1.Text = Or Text2.Text =

21、 Or Text3.Text = ThenMsgBox 请输入用户名或密码, 0, 提示ElseIf Text2.Text Text3.Text ThenMsgBox 确认密码错误，请重新输入, 0, 提示Text1.Text = Text2.Text = Text3.Text = ElseMsgBox 恭喜你注册成功Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=city;Data Source=(local)A

22、dodc1.CommandType = adCmdTableAdodc1.RecordSource = usersAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(用户名).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(用户密码).Value = Trim(Text2.Text)Adodc1.Recordset.Fields(用户类型).Value = 用户Adodc1.Recordset.UpdateText1.Text = Text2.Text = Text3.Text

23、 = End IfExit SubEnd SubPrivate Sub Command2_Click()Form4.HideForm1.ShowEnd Sub4.4管理员登陆界面管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。它的代码与管理员登陆代码类似，输入的姓名和密码必须是管理员表中相应的信息，否则就无法成功登陆。4.5用户服务表界面用户登陆进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了5种服务，分别是“全职招聘信息查询”，“兼职招聘信息查询”，“全职应聘信息查询”，“兼职应聘信息查询” “应聘者信息查询”和“本用户的密码修改”，。4.6用户密码

24、修改界面程序设计用户如需修改自己的密码可在此界面进行，用户通过登陆界面登陆到此，然后在此界面中输入原始密码和新密码并验证新密码，确认后如果无误就会提示用户修改成功，并且其密码在用户信息表中也会有相应的修改。（代码如下）Private Sub Command1_Click()If Trim(Text1.Text = ) Then MsgBox 请输入密码！, 0, 提示 Text1.SetFocus Exit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Securi

25、ty Info=False;Initial Catalog=city;Data Source=(local)Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from users where 用户密码 = & Trim(Text1.Text) & and 用户名= & Trim(Form2.Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = True Then MsgBox 旧密码不正确，请重新输入！, 0, 提示 Text2.Text = Text3.Text =

26、Text2.SetFocus Exit SubEnd IfIf Text1.Text Form2.Text2.Text ThenMsgBox 密码不正确，请重新输入！, 0, 提示 Text1.Text = Text2.Text = Text3.Text = Text2.SetFocus Exit Sub End IfIf Trim(Text2.Text) = Then MsgBox 请输入新密码, 0, 提示 Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = Then MsgBox 请输入验证密码！, 0, 提示 Text2.Text =

27、Text3.Text = Text2.SetFocus Exit SubEnd IfIf Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 请验证新密码！, 0, 提示 Text2.Text = Text3.Text = Text2.SetFocus Exit SubEnd IfAdodc1.Recordset.Fields(用户密码).Value = Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox 修改密码成功！, 0, 提示End SubPrivate Sub Command2

28、_Click()Text1.Text = Text2.Text = Text3.Text = Form12.HideForm5.ShowEnd Sub4.7全职招聘信息的查询界面用户可通过此界面所提供的内容查询所有的全职招聘信息。所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来，设置相应的属性后所有信息便可显示在DataGrid上供用户查看。图4.1 全职招聘信息的查询界面4.8兼职应聘信息的查询界面该界面所用的控件与全职招聘信息查询所用的一样，用户想要查看的信息也会显示在DataGrid上。图4.2 兼职应聘信息查询界面4.9全职应聘信息查询界面 该界面所用的控件与全

29、职招聘信息查询所用的一样，用户想要查看的信息也会显示在DataGrid上。4.9兼职招聘信息查询界面该界面所用的控件与全职招聘信息查询所用的一样，用户想要查看的信息也会显示在DataGrid上。4.9兼职招聘信息查询界面该界面所用的控件与全职招聘信息查询所用的一样，用户想要查看的信息也会显示在DataGrid上。4.9管理员服务界面此界面为管理员提供了“全职招聘管理”，“兼职招聘管理”，“全职应聘管理”，“兼职应聘管理”、 “应聘者信息管理”和“系统信息管理”4.10全职招聘界面程序设计管理员在此界面可查看所有全职招聘的信息并可以根据实际情况对信息进行添加，删除和更新。（部分重要代码如下）Pr

30、ivate Sub Command1_Click()If Option1 = True Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from Recruitment1 where R1no = & Trim(Text1.Text) & Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox 您查询的 R1no 不存在! End If Exit SubEnd IfIf Option2 = True Then Adodc1.CommandType =

31、 adCmdText Adodc1.RecordSource = select * from Recruitment1 where R1wage = & Trim(Text2.Text) & Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox 您查询的 R1wage不存在!End IfExit SubEnd IfIf Option1 = False And Option2 = False ThenMsgBox 请选择查询方式End IfEnd SubPrivate Sub Command2_Click()Adodc1.Connec

32、tionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=city;Data Source=(local)Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select R1no from Recruitment1 where R1no = & Trim(Text3.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox

33、R1no已经存在！请重新输入, 0, 提示 Text3.Text = Text1.SetFocus Exit SubEnd IfIf Text3.Text And Text4.Text And Text5.Text And Text6.Text And Text7.Text ThenAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=city;Data Source=(local)Adodc1.CommandType

34、= adCmdTableAdodc1.RecordSource = Recruitment1Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(R1no) = Trim(Text3.Text)Adodc1.Recordset.Fields(R1name) = Trim(Text4.Text)Adodc1.Recordset(R1position) = Trim(Text5.Text)Adodc1.Recordset(R1wage) = Trim(Text7.Text)Adodc1.Recordset(R1education)

35、 = Trim(Text6.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你添加成功Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = ElseMsgBox (新添加的记录不能为空！)End IfEnd SubPrivate Sub Command4_Click()Unload MeForm15.ShowEnd SubPrivate Sub Command6_Click()Text1.Text = Text3.Text = Text4.Text = Text5.Text = Text6.T

36、ext = Text7.Text = End SubPrivate Sub Command3_Click()If Text3.Text = ThenMsgBox (请输入要修改的用户记录)ElseAdodc1.ConnectionString = SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=city;Data Source=(local)Adodc1.CommandType = adCmdTableAdodc1.RecordSource = select * from Recru

37、itment1 where R1no = & Trim(Text3.Text) & Adodc1.Recordset.Fields(R1no) = Val(Text3.Text)Adodc1.Recordset.Fields(R1name) = Trim(Text4.Text)Adodc1.Recordset(R1wage) = Val(Text7.Text)Adodc1.Recordset(R1education) = Trim(Text6.Text)Adodc1.Recordset(R1position) = Trim(Text5.Text)Adodc1.Recordset.UpdateT

38、ext3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Command4.Enabled = TrueMsgBox 修改成功Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End IfEnd SubPrivate Sub Command5_Click()If MsgBox(你确定要删除该信息吗？, vbOKCancel + vbDefaultButton2) = vbOK ThenAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=city;Data Source=(local)Adodc1.CommandType = adCmdTableAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command7_Click()Form15.HideForm6.ShowEnd Sub4.11兼职招聘界面程序设计管理员在此界面可查看兼职招聘的情况，而且能根据需要进行