大学生就业咨询系统课程设计报告.doc

《大学生就业咨询系统课程设计报告.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、数据库课程设计报告课程设计题目:大学生就业咨询系统学生姓名：杨帅专业：计算机科学与技术班级：1230501学号:201230050124指导教师：王蕾日期：2013年12月31日大学生就业咨询系统1、实验内容：(1)主要的数据表用人单位基本信息表，专业信息表，地区代码表等等。(2)主要功能模块1)对用人单位的基本信息进行录入、修改、删除等。2)实现毕业生专业信息的维护。3)定时发布用人单位的毕业生需求信息。4)方便的实现对人才需求信息的检索。5)对用人单位的级别能够自动进行变更。6)能够对历年的毕业需求信息进行统计、分析。7)具有数据备份和数

2、据恢复功能。2、实验要求：方便毕业生进行就业信息检索，可考虑将就业信息在网上进行发布。本数据库总共包含四个数据表，分别是：毕业生信息与人才检索表,企业信息与企业检索表,企业需求信息表,统计与分析表1.毕业生信息与人才检索表：2.企业信息与企业信息检索表：3.企业需求信息表：4.统计与分析表：三、窗体总体设计：1）设计1个登录界面，即：普通用户登录界面（仅供查看），管理员登陆,界面使该系统具有一定的安全性和通用性。2）在VB界面内设计窗体，并书写代码，使其与数据库连接起来，并具有相应功能：窗体大致分为两个部分：用户查看（毕业生信息与人才检索表,

3、企业信息与企业检索表,企业需求信息表,统计与分析表添加、修改、删除、数据备份、数据恢复）。 二、编程1、用户登入窗口设计窗体代码：PrivateSubCommand1_Click()If(Text20.Text="杨帅"AndText21.Text="201230050124")ThenMsgBox"恭喜你登陆成功并给予权限！",48,"提示"Form1.ShowUnloadMeElse:MsgBox"你输入的账户名和密码错误",16,"请重新输入"Form1.HideEndIfForm1.ShowEndSubPrivateSubComman

4、d2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubForm_Load()Combo3.AddItem"普通用户"Combo3.AddItem"超级用户"EndSub2、主菜单：窗体代码：PrivateSubCommand1_Click()Form7.ShowEndSubPrivateSub数据的备份与恢复_Click()Form8.ShowEndSubPrivateSub退出_Click(IndexAsInteger)EndEndSubPrivateSub毕业生信息与人才检索_Click(

5、)Form1.HideForm3.HideForm2.ShowForm4.HideForm5.HideEndSubPrivateSub登陆_Click()Form1.HideForm2.HideForm4.HideForm3.HideForm5.HideForm6.ShowEndSubPrivateSub企业信息与企业检索_Click()Form1.HideForm2.HideForm3.ShowForm4.HideForm5.HideEndSubPrivateSub企业需求信息_Click()Form1.HideForm2.HideForm

6、4.ShowForm3.HideForm5.HideEndSubPrivateSub求职信息统计与分析_Click()Form1.HideForm3.HideForm2.HideForm4.HideForm5.ShowEndSub3、用户查看窗体：实验代码：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()Adodc1.Recordset.DeleteEndSubPrivateSubCommand3_Click()Text9.Tex

7、t=""EndSubPrivateSubCommand4_Click()Adodc1.Recordset.UpdateEndSubPrivateSubCommand5_Click()Form1.ShowForm3.HideForm2.HideForm4.HideForm5.HideEndSub（1）PrivateSubCommand7_Click()（2）Adodc1.Recordset.AddNew（3）Adodc1.Recordset.Fields("学生姓名")=Trim(Text1.Text)（4）Adodc1.Recordset.F

8、ields("学号")=Trim(Text2.Text)（5）Adodc1.Recordset.Fields("专业")=Trim(Text3.Text)（6）Ad