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

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

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

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

文檔簡介

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

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

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

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

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)計與分析表：　　三、窗體總體設計：　　1）設計1個登錄界面，即：普通用戶登錄界面（僅供查看），管理員登陸,界面使該系統(tǒng)具有

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

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

9、"201230050124") Then　　MsgBox "恭喜你登陸成功并給予權限！", 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ù)的備份與恢復_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("學生姓名") = Trim(Text1.Text)　　Adodc1.Recordset.Fields("學號") = Trim(Text2.Text)　　Adodc1.Recordset.Fiel

27、ds("專業(yè)") = Trim(Text3.Text)　　Adodc1.Recordset.Fields("性別") = Trim(Text4.Text)　　Adodc1.Recordset.Fields("學歷") = 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ù)恢復已經(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)絡不通或服務器

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

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

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

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

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

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

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

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載