大学生就业咨询系统c语言,大学生就业咨询系统课程设计方案报告.doc

大学生就业咨询系统课程设计方案报告

数据库课程设计报告

课程设计题目:大学生就业咨询系统

学 生 姓 名： 杨帅

专 业 ：计算机科学与技术

班 级 ： 1230501

学 号 : 201230050124

指 导 教 师： 王蕾

日期：2013年12月31日

大学生就业咨询系统

1、实验内容：

(1)主要的数据表

用人单位基本信息表，专业信息表，地区代码表等等。

(2)主要功能模块

对用人单位的基本信息进行录入、修改、删除等。

实现毕业生专业信息的维护。

定时发布用人单位的毕业生需求信息。

方便的实现对人才需求信息的检索。

对用人单位的级别能够自动进行变更。

能够对历年的毕业需求信息进行统计、分析。

具有数据备份和数据恢复功能。

2、实验要求：

方便毕业生进行就业信息检索，可考虑将就业信息在网上进行发布。

本数据库总共包含四个数据表，分别是：毕业生信息与人才检索表,企业信息与企业检索表,企业需求信息表,统计与分析表

1.毕业生信息与人才检索表：

2.企业信息与企业信息检索表：

3.企业需求信息表：

4.统计与分析表：

三、窗体总体设计：

1)设计1个登录界面，即：普通用户登录界面(仅供查看)，管理员登陆,界面使该系统具有一定的安全性和通用性。

2)在VB界面内设计窗体，并书写代码，使其与数据库连接起来，并具有相应功能：

窗体大致分为两个部分：用户查看(毕业生信息与人才检索表,企业信息与企业检索表,企业需求信息表,统计与分析表

添加、修改、删除、数据备份、数据恢复)。

?

编程

1、用户登入窗口设计

窗体代码：

Private Sub Command1_Click()

If (Text20.Text = "杨帅" And Text21.Text = "201230050124") Then

MsgBox "恭喜你登陆成功并给予权限！", 48, "提示"

Form1.Show

Unload Me

Else: MsgBox "你输入的账户名和密码错误", 16, "请重新输入"

Form1.Hide

End If

Form1.Show

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

End Sub

Private Sub Form_Load()

Combo3.AddItem "普通用户"

Combo3.AddItem "超级用户"

End Sub

2、主菜单：

窗体代码：

Private Sub Command1_Click()

Form7.Show

End Sub

Private Sub 数据的备份与恢复_Click()

Form8.Show

End Sub

Private Sub 退出_Click(Index As Integer)

End

End Sub

Private Sub 毕业生信息与人才检索_Click()

Form1.Hide

Form3.Hide

Form2.Show

Form4.Hide

Form5.Hide

End Sub

Private Sub 登陆_Click()

Form1.Hide

Form2.Hide

Form4.Hide

Form3.Hide

Form5.Hide

Form6.Show

End Sub

Private Sub 企业信息与企业检索_Click()

Form1.Hide

Form2.Hide

Form3.Show

Form4.Hide

Form5.Hide

End Sub

Private Sub 企业需求信息_Click()

Form1.Hide

Form2.Hide

Form4.Show

Form3.Hide

Form5.Hide

End Sub

Private Sub 求职信息统计与分析_Click()

Form1.Hide

Form3.Hide

Form2.Hide

Form4.Hide

Form5.Show

End Sub

3、用户查看窗体：

实验代码：

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command3_Click()

Text9.Text = ""

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Update

End Sub

Private Sub Comm