大學(xué)生就業(yè)咨詢系統(tǒng)課程設(shè)計(jì)報(bào)告

1、<p><b>　　數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告</b></p><p>　　課程設(shè)計(jì)題目:大學(xué)生就業(yè)咨詢系統(tǒng)</p><p>　　學(xué) 生 姓 名： </p><p>　　專 業(yè) ：計(jì)算機(jī)科學(xué)與技術(shù)</p><p>　　班 級(jí) ： </p><p>　　學(xué)

2、 號(hào) : </p><p>　　指 導(dǎo) 教 師： </p><p>　　日期：2013年12月31日 </p><p><b>　　大學(xué)生就業(yè)咨詢系統(tǒng)</b></p><p>　　1、實(shí)驗(yàn)內(nèi)容： <

3、/p><p><b>　　(1)主要的數(shù)據(jù)表</b></p><p>　　用人單位基本信息表，專業(yè)信息表，地區(qū)代碼表等等。</p><p><b>　　(2)主要功能模塊</b></p><p>　　對(duì)用人單位的基本信息進(jìn)行錄入、修改、刪除等。</p><p>　　實(shí)現(xiàn)畢業(yè)生專業(yè)

4、信息的維護(hù)。</p><p>　　定時(shí)發(fā)布用人單位的畢業(yè)生需求信息。</p><p>　　方便的實(shí)現(xiàn)對(duì)人才需求信息的檢索。</p><p>　　對(duì)用人單位的級(jí)別能夠自動(dòng)進(jìn)行變更。</p><p>　　能夠?qū)v年的畢業(yè)需求信息進(jìn)行統(tǒng)計(jì)、分析。</p><p>　　具有數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)功能。</p><

5、;p><b>　　2、實(shí)驗(yàn)要求：</b></p><p>　　方便畢業(yè)生進(jìn)行就業(yè)信息檢索，可考慮將就業(yè)信息在網(wǎng)上進(jìn)行發(fā)布。</p><p>　　本數(shù)據(jù)庫(kù)總共包含四個(gè)數(shù)據(jù)表，分別是：畢業(yè)生信息與人才檢索表,企業(yè)信息與企業(yè)檢索表,企業(yè)需求信息表,統(tǒng)計(jì)與分析表</p><p>　　1.畢業(yè)生信息與人才檢索表：</p><p&

6、gt;　　2.企業(yè)信息與企業(yè)信息檢索表：</p><p>　　3.企業(yè)需求信息表：</p><p><b>　　4.統(tǒng)計(jì)與分析表：</b></p><p><b>　　三、窗體總體設(shè)計(jì)：</b></p><p>　　1）設(shè)計(jì)1個(gè)登錄界面，即：普通用戶登錄界面（僅供查看），管理員登陸,界面使該系統(tǒng)具有

7、一定的安全性和通用性。</p><p>　　2）在VB界面內(nèi)設(shè)計(jì)窗體，并書(shū)寫代碼，使其與數(shù)據(jù)庫(kù)連接起來(lái)，并具有相應(yīng)功能：</p><p>　　窗體大致分為兩個(gè)部分：用戶查看（畢業(yè)生信息與人才檢索表,企業(yè)信息與企業(yè)檢索表,企業(yè)需求信息表,統(tǒng)計(jì)與分析表</p><p>　　添加、修改、刪除、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)）。</p><p><b>

8、;　　編程</b></p><p>　　1、用戶登入窗口設(shè)計(jì)</p><p><b>　　窗體代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　If (Text20.Text = "楊帥" And Text21.Text =

9、"201230050124") Then</p><p>　　MsgBox "恭喜你登陸成功并給予權(quán)限！", 48, "提示"</p><p>　　Form1.Show</p><p><b>　　Unload Me</b></p><p>　　Else: Ms

10、gBox "你輸入的賬戶名和密碼錯(cuò)誤", 16, "請(qǐng)重新輸入"</p><p>　　Form1.Hide</p><p><b>　　End If</b></p><p>　　Form1.Show</p><p><b>　　End Sub</b></

11、p><p>　　Private Sub Command2_Click()</p><p>　　Text1.Text = " "</p><p>　　Text2.Text = " "</p><p><b>　　End Sub</b></p><p>　　Priv

12、ate Sub Form_Load()</p><p>　　Combo3.AddItem "普通用戶"</p><p>　　Combo3.AddItem "超級(jí)用戶"</p><p><b>　　End Sub</b></p><p><b>　　2、主菜單：</b

13、></p><p><b>　　窗體代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Form7.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub 數(shù)

14、據(jù)的備份與恢復(fù)_Click()</p><p>　　Form8.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub 退出_Click(Index As Integer)</p><p><b>　　End</b></p><p

15、><b>　　End Sub</b></p><p>　　Private Sub 畢業(yè)生信息與人才檢索_Click()</p><p>　　Form1.Hide</p><p>　　Form3.Hide</p><p>　　Form2.Show</p><p>　　Form4.Hide<

16、;/p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub 登陸_Click()</p><p>　　Form1.Hide</p><p>　　Form2.Hide</p><p>　　Form4.H

17、ide</p><p>　　Form3.Hide</p><p>　　Form5.Hide</p><p>　　Form6.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub 企業(yè)信息與企業(yè)檢索_Click()</p><p

18、>　　Form1.Hide</p><p>　　Form2.Hide</p><p>　　Form3.Show</p><p>　　Form4.Hide</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>　　

19、Private Sub 企業(yè)需求信息_Click()</p><p>　　Form1.Hide</p><p>　　Form2.Hide</p><p>　　Form4.Show</p><p>　　Form3.Hide</p><p>　　Form5.Hide</p><p><b>

20、;　　End Sub</b></p><p>　　Private Sub 求職信息統(tǒng)計(jì)與分析_Click()</p><p>　　Form1.Hide</p><p>　　Form3.Hide</p><p>　　Form2.Hide</p><p>　　Form4.Hide</p><

21、p>　　Form5.Show</p><p><b>　　End Sub</b></p><p><b>　　3、用戶查看窗體：</b></p><p><b>　　實(shí)驗(yàn)代碼：</b></p><p>　　Private Sub Command1_Click()</

22、p><p>　　Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Adodc1.Recordset.Delete</p><p><b>　　E

23、nd Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Text9.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</

24、p><p>　　Adodc1.Recordset.Update</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　Form1.Show</p><p>　　Form3.Hide</p>&

25、lt;p>　　Form2.Hide</p><p>　　Form4.Hide</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　Adodc1.Reco

26、rdset.AddNew</p><p>　　Adodc1.Recordset.Fields("學(xué)生姓名") = Trim(Text1.Text)</p><p>　　Adodc1.Recordset.Fields("學(xué)號(hào)") = Trim(Text2.Text)</p><p>　　Adodc1.Recordset.Fiel

27、ds("專業(yè)") = Trim(Text3.Text)</p><p>　　Adodc1.Recordset.Fields("性別") = Trim(Text4.Text)</p><p>　　Adodc1.Recordset.Fields("學(xué)歷") = Trim(Text5.Text)</p><p>

28、　　Adodc1.Recordset.Fields("年齡") = Trim(Text6.Text)</p><p>　　Adodc1.Recordset.Fields("畢業(yè)年份") = Trim(Text7.Text)</p><p>　　Adodc1.Recordset.Fields("畢業(yè)院校") = Trim(Text8

29、.Text)</p><p>　　Adodc1.Recordset.Update</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　4. 用戶查看窗體</b></p><p><b>　

30、　窗體代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc2.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p

31、><p>　　Form1.Show</p><p>　　Form3.Hide</p><p>　　Form2.Hide</p><p>　　Form4.Hide</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p>

32、<p>　　Private Sub Command11_Click()</p><p>　　Adodc2.Recordset.Update</p><p><b>　　End Sub</b></p><p>　　Private Sub Command12_Click()</p><p>　　Adodc2.Rec

33、ordset.Delete</p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　Adodc2.Recordset.AddNew</p><p>　　Adodc2.Recordset.Fields("單位名稱&quo

34、t;) = Trim(Text10.Text)</p><p>　　Adodc2.Recordset.Fields("單位代號(hào)") = Trim(Text11.Text)</p><p>　　Adodc2.Recordset.Fields("所在地區(qū)") = Trim(Text12.Text)</p><p>　　Adodc2

35、.Recordset.Fields("地區(qū)代碼") = Trim(Text13.Text)</p><p>　　Adodc2.Recordset.Fields("單位級(jí)別") = Trim(Text14.Text)</p><p>　　Adodc2.Recordset.Update</p><p>　　Adodc2.Refre

36、sh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　Adodc2.Recordset.Update</p><p>　　Adodc2.Recordset.Fields("單位名稱") = Trim(

37、Text10.Text)</p><p>　　Adodc2.Recordset.Fields("單位代號(hào)") = Trim(Text11.Text)</p><p>　　Adodc2.Recordset.Fields("所在地區(qū)") = Trim(Text12.Text)</p><p>　　Adodc2.Recordset.

38、Fields("地區(qū)代碼") = Trim(Text13.Text)</p><p>　　Adodc2.Recordset.Fields("單位級(jí)別") = Trim(Text14.Text)</p><p>　　Adodc2.Recordset.Update</p><p>　　Adodc2.Recordset.Update

39、</p><p>　　Adodc2.Recordset.Update</p><p>　　Adodc2.Recordset.Update</p><p>　　Adodc2.Recordset.Update</p><p>　　Adodc2.Refresh</p><p><b>　　End Sub</b

40、></p><p>　　Private Sub Command9_Click()</p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim sql As String</p><p>

41、;　　Dim temp As String</p><p>　　temp = Trim(Text11.Text)</p><p>　　If Len(temp) <> 0 Then</p><p>　　cn.Open conn</p><p>　　sql = "select *from 企業(yè)信息與企業(yè)檢索 where 單位

42、代號(hào)='" & temp & "'"</p><p>　　rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly</p><p>　　If rs.EOF <> True Then</p><p>　　Text10.Text = rs("單

43、位名稱")</p><p>　　Text12.Text = rs("所在地區(qū)")</p><p>　　Text13.Text = rs("地區(qū)代碼")</p><p>　　Text14.Text = rs("單位級(jí)別")</p><p><b>　　Else<

44、;/b></p><p>　　MsgBox "沒(méi)有找到該單位代號(hào),請(qǐng)確認(rèn)", vbCritical, "錯(cuò)誤"</p><p><b>　　End If</b></p><p><b>　　cn.Close</b></p><p><b>　　

45、Else</b></p><p>　　MsgBox "請(qǐng)輸入單位代號(hào)"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p>&l

46、t;p>　　Combo2.AddItem "單位名稱"</p><p>　　Combo2.AddItem "單位代號(hào)"</p><p>　　Combo2.AddItem "所在地區(qū)"</p><p>　　Combo2.AddItem "地區(qū)代碼"</p><p&

47、gt;　　Combo2.AddItem "單位級(jí)別"</p><p><b>　　End Sub</b></p><p><b>　　5. 用戶查看窗體</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc3.Rec

48、ordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Private Sub Command13_Click()</p><p>　　Adodc3.Recordset.Update</p><p>　　Adodc3.Refresh</p><p>&l

49、t;b>　　End Sub</b></p><p>　　Private Sub Command14_Click()</p><p>　　Form1.Show</p><p>　　Form3.Hide</p><p>　　Form2.Hide</p><p>　　Form4.Hide</p>

50、<p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub Command15_Click()</p><p>　　Adodc2.Recordset.Update</p><p><b>　　End Sub</b>&

51、lt;/p><p>　　Private Sub Command16_Click()</p><p>　　Adodc3.Recordset.AddNew</p><p>　　Adodc3.Recordset.Fields("單位所在地") = Trim(Text20.Text)</p><p>　　Adodc3.Recordse

52、t.Fields("單位代號(hào)") = Trim(Text16.Text)</p><p>　　Adodc3.Recordset.Fields("所需專業(yè)") = Trim(Text17.Text)</p><p>　　Adodc3.Recordset.Fields("需求量") = Trim(Text18.Text)</p&

53、gt;<p>　　Adodc3.Recordset.Fields("發(fā)布年份") = Trim(Text19.Text)</p><p>　　Adodc3.Recordset.Update</p><p>　　Adodc3.Refresh</p><p><b>　　End Sub</b></p>

54、<p>　　Private Sub Command17_Click()</p><p>　　If Adodc1.Recordset("代號(hào)") = Val(Text1.Text) Then</p><p>　　Adodc1.RecordSource = " select * from 企業(yè)需求信息 where 代號(hào)=" & Val

55、(Trim(Text1.Text)) & ""</p><p>　　Adodc1.Refresh</p><p>　　Else: MsgBox "你輸入的代號(hào)不存在", 16, "請(qǐng)重新輸入"</p><p><b>　　End If</b></p><p&

56、gt;<b>　　End Sub</b></p><p>　　Private Sub Command18_Click()</p><p>　　Adodc3.Recordset.Delete</p><p><b>　　End Sub</b></p><p><b>　　6. 用戶查看窗體&

57、lt;/b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc4.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Private Sub Command19_Click()</p>&

58、lt;p>　　If Check1.Value = True Then</p><p>　　Adodc4.RecordSource = "select * from 統(tǒng)計(jì)與分析 where 年='" + Check1.Caption + Trim(Text9.Text) + "'"</p><p>　　Adodc1.Refresh

59、</p><p><b>　　Else</b></p><p>　　If Check2.Value = True Then</p><p>　　Adodc1.RecordSource = "select * from 統(tǒng)計(jì)與分析 where 公司代號(hào)='" + Trim(Text9.Text) + "

60、9;"</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　If Check3.Value = True Then</p><p>　　Adodc1.RecordSource = "select * from 統(tǒng)計(jì)與分析 where 專業(yè)

61、='" + Trim(Text9.Text) + "'"</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　If Check3.Value = True Then</p><p>　　Adodc1.Record

62、Source = "select * from 統(tǒng)計(jì)與分析 where 地區(qū)='" + Trim(Text9.Text) + "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　End If<

63、;/b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command20_Click()</p><

64、p>　　Form1.Show</p><p>　　Form3.Hide</p><p>　　Form2.Hide</p><p>　　Form4.Hide</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>&

65、lt;b>　　7. 用戶查看窗體</b></p><p>　　Private Sub Com_Click()</p><p>　　Form1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p>

66、<p>　　Set cn = New ADODB.Connection</p><p>　　strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=daxueshennjuye;Data Source=acer-pc"</p>&l

67、t;p>　　cn.ConnectionString = strcon</p><p>　　On Error Resume Next</p><p><b>　　cn.Open</b></p><p>　　cn.Execute " BACKUP DATABASE computer to DISK = 'C:\AAA.BAK

68、' "</p><p>　　MsgBox "數(shù)據(jù)完全備份已經(jīng)完成", vbOKOnly + vbInformation, "提醒"</p><p>　　'cn.Execute "backup database 工資管理系統(tǒng) to disk='d:\工資管理系統(tǒng).bak' with name='

69、;工資管理系統(tǒng) backup all',description='Full Backup Of pubs'"</p><p>　　'MsgBox "數(shù)據(jù)完全備份已經(jīng)完成", vbOKOnly + vbInformation, "提醒"</p><p><b>　　'cn.Close</

70、b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　'BackupDatabase()</p><p>　　' cn.Execute "restore database daxueshe

71、nnjuye from disk='d:\daxueshennjuye.bak' with FILE = 1"</p><p>　　Set cn = New ADODB.Connection</p><p>　　strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security

72、Info=True;Initial Catalog=daxueshennjuye;Data Source=acer-pc"</p><p>　　cn.ConnectionString = strcon</p><p>　　On Error Resume Next</p><p><b>　　cn.Open</b></p>

73、<p>　　cn.Execute "restore database daxueshennjuye from disk='c:\AAA.bak' with FILE=1"</p><p>　　' BACKUP DATABASE MyDB to DISK = 'C:\AAA.BAK'</p><p>　　MsgBox &

74、quot;數(shù)據(jù)恢復(fù)已經(jīng)完成", vbOKOnly + vbInformation, "提醒"</p><p><b>　　End Sub</b></p><p><b>　　'</b></p><p>　　Private Sub Form_Load()</p><p

75、>　　'If cn.Errors.Count > 0 Then</p><p>　　'For i = 0 To cn.Errors.Count - 1</p><p>　　'If cn.Errors(i).Number = -2147467259 Then</p><p>　　' MsgBox "網(wǎng)絡(luò)不通或服務(wù)器

76、未開(kāi)，請(qǐng)確認(rèn)后再試", vbOKOnly + vbInformation, "提醒"</p><p>　　'Unload Me</p><p><b>　　'Exit Sub</b></p><p><b>　　'Exit For</b></p><

77、p><b>　　'Next i</b></p><p><b>　　' End If</b></p><p><b>　　End Sub</b></p><p><b>　　四、實(shí)驗(yàn)心得：</b></p><p>　　經(jīng)過(guò)一周多的努力

78、，課程設(shè)計(jì)基本完成了。在整個(gè)課程設(shè)計(jì)的實(shí)踐中，我學(xué)到很多有用的知識(shí)，也積累了不少寶貴的開(kāi)發(fā)經(jīng)驗(yàn)。比如用ADO鏈接數(shù)據(jù)庫(kù)，SQL語(yǔ)句的應(yīng)用，VB語(yǔ)言應(yīng)用等。本設(shè)計(jì)通過(guò)自己的努力，基本滿足了大學(xué)生就業(yè)咨詢的基本需要，實(shí)現(xiàn)了用戶使用的方便以及管理員管理的方便，在界面上力求做到簡(jiǎn)單實(shí)用，在操作方面盡量做到滿足用戶使用的習(xí)慣，但由于自己的水平有限和時(shí)間的不足，在很多方面還不完善，有些功能沒(méi)有在全局上把握好。在今后的學(xué)習(xí)當(dāng)中將繼續(xù)完善此系統(tǒng)，使其功

79、能更加強(qiáng)大，滿足用戶的更多需求。</p><p>　　1、這次課程設(shè)計(jì)要求一個(gè)人開(kāi)發(fā)一個(gè)完整的系統(tǒng)，這對(duì)我來(lái)說(shuō)是一個(gè)相當(dāng)大的</p><p>　　挑戰(zhàn)。從數(shù)據(jù)庫(kù)設(shè)計(jì)到設(shè)計(jì)界面再到程序的編寫、調(diào)試并運(yùn)行，都花費(fèi)了很多心思，界面的設(shè)計(jì)相對(duì)簡(jiǎn)單，對(duì)于我來(lái)說(shuō)真正困的是程序代碼的設(shè)計(jì)和程序調(diào)試，通過(guò)這次課程設(shè)計(jì)將VB語(yǔ)言重新復(fù)習(xí)鞏固了一遍，尤其加強(qiáng)了對(duì)其應(yīng)用的能力。在這次設(shè)計(jì)中遇到了很多實(shí)際性的問(wèn)題

80、，在實(shí)際設(shè)計(jì)中才發(fā)現(xiàn)，書(shū)本上理論性的東西與在實(shí)際運(yùn)用中的還是有一定的出入的，所以有些問(wèn)題不但要深入地理解，而且要不斷地更正以前的錯(cuò)誤思維。一切問(wèn)題必須要靠自己一點(diǎn)一滴的解決，而在解決的過(guò)程當(dāng)中你會(huì)發(fā)現(xiàn)自己在飛速的提升。?</p><p>　　2、這次課程設(shè)計(jì)讓我重新認(rèn)識(shí)了“三人行，必有我?guī)煛保O(shè)計(jì)期間讓我感受頗</p><p>　　深的一件事就是，我在一個(gè)很簡(jiǎn)單的問(wèn)題上耗費(fèi)了一個(gè)下午的時(shí)間

81、去調(diào)試修改都找不到錯(cuò)誤原因，這時(shí)同學(xué)幫我看了一下馬上就指出了錯(cuò)誤原因，我后悔沒(méi)有早讓她看看，感覺(jué)這就是合作中的優(yōu)勢(shì)互補(bǔ)，大家會(huì)做的地方可能有所不同，在交流中互相幫助學(xué)習(xí)就會(huì)大大提高效率。</p><p>　　3、通過(guò)這次設(shè)計(jì)，我懂得了學(xué)習(xí)的重要性，了解到理論知識(shí)與實(shí)踐相結(jié)合的重</p><p>　　要意義，學(xué)會(huì)了堅(jiān)持、耐心和努力，這將為自己今后的學(xué)習(xí)和工作做出了最好的榜樣。課程設(shè)計(jì)期間，用