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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：16 大小：2.19MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩15頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

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

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

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

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

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

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

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

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

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

10、gBox "你輸入的賬戶名和密碼錯誤", 16, "請重新輸入"　　Form1.Hide　　End If　　Form1.Show　　End Sub</

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

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

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

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

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

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

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

18、>　　Form1.Hide　　Form2.Hide　　Form3.Show　　Form4.Hide　　Form5.Hide　　End Sub

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

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

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

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

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

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

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

26、rdset.AddNew　　Adodc1.Recordset.Fields("學(xué)生姓名") = Trim(Text1.Text)　　Adodc1.Recordset.Fields("學(xué)號") = Trim(Text2.Text)　　Adodc1.Recordset.Fiel

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

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

29、.Text)　　Adodc1.Recordset.Update　　Adodc1.Refresh　　End Sub　　4. 用戶查看窗體

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

31、>　　Form1.Show　　Form3.Hide　　Form2.Hide　　Form4.Hide　　Form5.Hide　　End Sub

32、　　Private Sub Command11_Click()　　Adodc2.Recordset.Update　　End Sub　　Private Sub Command12_Click()　　Adodc2.Rec

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

34、t;) = Trim(Text10.Text)　　Adodc2.Recordset.Fields("單位代號") = Trim(Text11.Text)　　Adodc2.Recordset.Fields("所在地區(qū)") = Trim(Text12.Text)　　Adodc2

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

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

37、Text10.Text)　　Adodc2.Recordset.Fields("單位代號") = Trim(Text11.Text)　　Adodc2.Recordset.Fields("所在地區(qū)") = Trim(Text12.Text)　　Adodc2.Recordset.

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

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

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

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

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

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

44、;/b>　　MsgBox "沒有找到該單位代號,請確認", vbCritical, "錯誤"　　End If　　cn.Close

45、Else　　MsgBox "請輸入單位代號"　　End If　　End Sub　　Private Sub Form_Load()&l

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

47、gt;　　Combo2.AddItem "單位級別"　　End Sub　　5. 用戶查看窗體　　Private Sub Command1_Click()　　Adodc3.Rec

48、ordset.AddNew　　End Sub　　Private Sub Command13_Click()　　Adodc3.Recordset.Update　　Adodc3.Refresh&l

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

50、　　Form5.Hide　　End Sub　　Private Sub Command15_Click()　　Adodc2.Recordset.Update　　End Sub&

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

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

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

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

55、(Trim(Text1.Text)) & ""　　Adodc1.Refresh　　Else: MsgBox "你輸入的代號不存在", 16, "請重新輸入"　　End If<p&

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

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

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

59、　　Else　　If Check2.Value = True Then　　Adodc1.RecordSource = "select * from 統(tǒng)計與分析 where 公司代號='" + Trim(Text9.Text) + "

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

76、未開，請確認后再試", vbOKOnly + vbInformation, "提醒"　　'Unload Me　　'Exit Sub　　'Exit For<

77、p>　　'Next i　　' End If　　End Sub　　四、實驗心得：　　經(jīng)過一周多的努力

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

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

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

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

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載