vb課程設(shè)計(jì)報(bào)告-- 學(xué)生信息管理系統(tǒng)

1、<p><b>　　課程設(shè)計(jì)報(bào)告書</b></p><p>　　課程名稱：《可視化編程》課程設(shè)計(jì) </p><p>　　題 目： 學(xué)生信息管理系統(tǒng) </p><p>　　系 名： 信息工程系 </p><p>　　專業(yè)班級： 軟件1

2、121 </p><p>　　姓 名： </p><p>　　學(xué) 號： </p><p>　　指導(dǎo)教師: </p><p>　　2014 年 1

3、月 3 日</p><p>　　課 程 設(shè) 計(jì) 任 務(wù) 書</p><p>　　課程名稱： 可視化編程課程設(shè)計(jì) 指導(dǎo)教師： </p><p>　　班級名稱： 軟件1121 開課系、教研室： 軟件與信息安全 </p><p>　　一、課程設(shè)計(jì)目的與任務(wù)</p><p&g

4、t;　　可視化編程課程設(shè)計(jì)是《可視化程序設(shè)計(jì)》課程的后續(xù)實(shí)踐課程，旨在通過一周的實(shí)踐訓(xùn)練，加深學(xué)生對理論課程中可視化以及面向?qū)ο蟪绦蛟O(shè)計(jì)概念，原理和方法的理解，加強(qiáng)學(xué)生綜合運(yùn)用VB語言進(jìn)行實(shí)際應(yīng)用，包括界面編程，文件訪問，網(wǎng)絡(luò)編程和數(shù)據(jù)庫編程的能力，進(jìn)一步提高學(xué)生進(jìn)行程序設(shè)計(jì)，分析問題和解決問題的能力。</p><p>　　學(xué)生將在指導(dǎo)老師的指導(dǎo)下，完成從需求分析，系統(tǒng)設(shè)計(jì)，編碼到測試的全過程。</p>

5、;<p>　　二、課程設(shè)計(jì)的內(nèi)容與基本要求</p><p>　　本課程設(shè)計(jì)將設(shè)計(jì)和開發(fā)一個(gè)小型的VB桌面應(yīng)用系統(tǒng)，具有注冊，登錄，信息查詢，添加，更新和刪除的功能。要求界面美觀，簡單實(shí)用，功能相對完善，系統(tǒng)流程合理，數(shù)據(jù)處理正確。</p><p>　　1 、《巧虎做家務(wù)》游戲的設(shè)計(jì)與開發(fā)：</p><p>　?。?）利用鼠標(biāo)完成物品的移動(dòng)；</p

6、><p>　?。?）適量的動(dòng)畫設(shè)計(jì)，譬如亮閃閃的星星，重點(diǎn)區(qū)域的提示；</p><p>　?。?）加入適當(dāng)?shù)恼Z音提示，提高游戲的樂趣；</p><p>　　2、《巧虎逛大賣場》游戲的設(shè)計(jì)與開發(fā)：</p><p>　?。?）利用鼠標(biāo)點(diǎn)擊和拖動(dòng)完成物品的移動(dòng)；</p><p>　?。?）適量的動(dòng)畫設(shè)計(jì)，譬如亮閃閃的星星，重點(diǎn)區(qū)

7、域的提示，此題對動(dòng)畫的要求略高；</p><p>　?。?）加入適當(dāng)?shù)恼Z音提示，提高游戲的樂趣；</p><p>　　3、《巧虎自行車比賽》游戲的設(shè)計(jì)與開發(fā)：</p><p>　?。?）利用鍵盤的上下左右鍵完成自行車的前進(jìn)后退以及左右移動(dòng)；</p><p>　?。?）適量的動(dòng)畫設(shè)計(jì)，譬如亮閃閃的星星，重點(diǎn)區(qū)域的提示；</p>&

8、lt;p>　?。?）加入適當(dāng)?shù)恼Z音提示，提高游戲的樂趣；</p><p>　　（4）賽道的可以用靜態(tài)和動(dòng)態(tài)2種方式生成：動(dòng)態(tài)生成為加分點(diǎn)</p><p>　　4、《巧虎小馬快快跑》游戲的設(shè)計(jì)與開發(fā)：</p><p>　?。?）利用鼠標(biāo)完成小馬的障礙跳躍和指定動(dòng)作；</p><p>　?。?）適量的動(dòng)畫設(shè)計(jì)，譬如亮閃閃的星星，重點(diǎn)區(qū)域的提

9、示；</p><p>　?。?）加入適當(dāng)?shù)恼Z音提示，提高游戲的樂趣；</p><p>　?。?）賽道的可以用靜態(tài)和動(dòng)態(tài)2種方式生成：動(dòng)態(tài)生成為加分點(diǎn)</p><p>　　5、 《巧虎劃船大冒險(xiǎn)》游戲的設(shè)計(jì)與開發(fā)：</p><p>　?。?）利用鍵盤的上下鍵完成游船的左右移動(dòng)；</p><p>　?。?）適量的動(dòng)畫設(shè)計(jì)，

10、譬如亮閃閃的星星，重點(diǎn)區(qū)域的提示，此題對動(dòng)畫的要求略高；</p><p>　?。?）加入適當(dāng)?shù)恼Z音提示，提高游戲的樂趣；</p><p>　?。?）河道可以用靜態(tài)和動(dòng)態(tài)2種方式生成：動(dòng)態(tài)生成為加分點(diǎn)。</p><p>　　6、小型數(shù)據(jù)庫管理系統(tǒng)的設(shè)計(jì)與開發(fā)：</p><p>　?。?）具有存儲(chǔ)數(shù)據(jù)，新增數(shù)據(jù)，刪除數(shù)據(jù)，更改數(shù)據(jù)和搜索查詢數(shù)據(jù)等

11、完善的數(shù)據(jù)處理功能。</p><p>　?。?）有登陸和退出界面。</p><p>　?。?）要求整體，要求界面美觀，簡單實(shí)用。</p><p>　　具體要完成的任務(wù)是：</p><p>　　A.利用VB完成界面設(shè)計(jì)和代碼設(shè)計(jì)，并能夠演示說明。</p><p>　　B. 寫出規(guī)范的課程設(shè)計(jì)報(bào)告書；</p>

12、<p>　　三、課程設(shè)計(jì)步驟及時(shí)間進(jìn)度和場地安排</p><p>　　本課程設(shè)計(jì)將安排在第18周, 教育技術(shù)中心214。具體安排如下：</p><p>　　下發(fā)任務(wù)書，學(xué)生查閱資料</p><p><b>　　系統(tǒng)設(shè)計(jì)和原型開發(fā)</b></p><p>　　第三，四天 系統(tǒng)功能實(shí)現(xiàn)</p>&l

13、t;p>　　第五天 系統(tǒng)調(diào)試 測試 打包和驗(yàn)收</p><p>　　四、課程設(shè)計(jì)考核及評分標(biāo)準(zhǔn)</p><p>　　課程設(shè)計(jì)考核將綜合考慮學(xué)生考勤和參與度，系統(tǒng)設(shè)計(jì)方案正確性，系統(tǒng)設(shè)計(jì)和開發(fā)效果以及課程設(shè)計(jì)報(bào)告書的質(zhì)量。具體評分標(biāo)準(zhǔn)如下：</p><p><b>　　設(shè)置六個(gè)評分點(diǎn)</b></p><p>　?。?

14、）設(shè)計(jì)方案正確，具有可行性、創(chuàng)新性； 25分</p><p>　?。?）系統(tǒng)開發(fā)效果較好； 25分</p><p>　?。?）態(tài)度認(rèn)真、刻苦鉆研、遵守紀(jì)律； 10分</p><p>　?。?）設(shè)計(jì)報(bào)告規(guī)范、課程設(shè)計(jì)報(bào)告質(zhì)量高、參考文獻(xiàn)充分 20

15、分</p><p>　?。?）課程設(shè)計(jì)答辯概念清晰，內(nèi)容正確 10分</p><p>　?。?）課程設(shè)計(jì)期間的課堂考勤、答疑與統(tǒng)籌考慮。 10分</p><p>　　按上述六項(xiàng)分別記分后求和，總分按五級記分法記載最后成績。</p><p>　　優(yōu)秀（100～90分），良好（80～89分），中等

16、（70～79分），及格（60～69分），</p><p>　　不及格（0～59分）</p><p><b>　　目錄</b></p><p>　　一、設(shè)計(jì)題目及要求- 4 -</p><p>　　1.1問題的描述及要求- 4 -</p><p>　　1.2 實(shí)習(xí)目的- 4 -</p&g

17、t;<p>　　二、系統(tǒng)流程圖分析：- 5 -</p><p>　　2.1業(yè)務(wù)流程分析- 5 -</p><p>　　2.2 數(shù)據(jù)流程分析：- 5 -</p><p>　　三、相關(guān)系統(tǒng)設(shè)計(jì)：- 6 -</p><p>　　四、程序的相關(guān)界面運(yùn)行- 8 -</p><p>　　4.1登陸界面設(shè)計(jì)

18、- 8 -</p><p>　　4.2主窗體設(shè)計(jì)- 9 -</p><p>　　4.3學(xué)生注冊頁面- 11 -</p><p>　　五、總結(jié)體會(huì)：- 15 -</p><p>　　七、參考文獻(xiàn)- 16 -</p><p><b>　　一、設(shè)計(jì)題目及要求</b></p><

19、;p>　　1.1問題的描述及要求</p><p>　　理解系統(tǒng)開發(fā)的必要步驟，繪制流程圖、根據(jù)流程圖編寫程序、并自主進(jìn)行必要的測試與維護(hù)。最后形成規(guī)范的設(shè)計(jì)報(bào)告。</p><p>　　學(xué)生成績管理系統(tǒng)主要提供方便高效的管理功能，該實(shí)現(xiàn)以下一些基本功能：</p><p>　　1.系統(tǒng)管理模塊：維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置，包括添加用戶、修改密碼、刪除用戶等等。

20、 </p><p>　　2.學(xué)院信息模塊：實(shí)現(xiàn)對學(xué)校院系、專業(yè)、班級操作。包括：添加、修改、刪除院系、專業(yè)、班級等信息。這三個(gè)功能模塊各自獨(dú)立，完成學(xué)校的全部班級的管理。 </p><p>　　3.學(xué)生學(xué)籍管理模塊：實(shí)現(xiàn)對學(xué)生的個(gè)人信息的管理工作，包括學(xué)籍添加、 學(xué)籍查詢、學(xué)籍修改等功能，從而方便學(xué)校管理部門對學(xué)校的基本情況的快速查詢和了解。 </p><p>　　

21、4.課程管理模塊：該模塊對各個(gè)班級的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門 課程的教材選用情況，方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)置和班級課程設(shè)置兩個(gè)模塊。</p><p>　　5.成績管理模塊：檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段，本模塊包括考試類型 設(shè)置，共有期中考試和期未考試兩種類型，還設(shè)置了成績添加、成績查詢、成績?yōu)g覽、成績修改等功能模塊。</p><p>

22、;　　6.退出模塊：此模塊完成程序的退出。</p><p>　　該程序界面友好，功能強(qiáng)大，適合實(shí)際應(yīng)用。</p><p><b>　　1.2 實(shí)習(xí)目的</b></p><p>　　Visual Basic 是一個(gè)強(qiáng)有力的系統(tǒng)開發(fā)軟件之一，以其實(shí)用、方便、快捷、開發(fā)周期短，越來越被廣大編程人員所青睞。VB更容易上手，進(jìn)而提高軟件開發(fā)的效率。<

23、;/p><p>　　通過實(shí)際設(shè)計(jì)，掌握VB應(yīng)用程序開發(fā)軟件的設(shè)計(jì)方法，理解軟件工程思想。本次設(shè)計(jì)的主要目的是提高學(xué)生綜合分析問題和解決實(shí)際問題的能力，為將來走上工作崗位打下一個(gè)良好的基礎(chǔ)。學(xué)生應(yīng)通過接觸客觀實(shí)際，了解和認(rèn)識所學(xué)的專業(yè)知識，掌握所學(xué)知識在客觀實(shí)際中的應(yīng)用，并能親自動(dòng)手完成相關(guān)題目設(shè)計(jì)。把所學(xué)的理論知識與實(shí)際能力緊密的結(jié)合在一起。</p><p>　　二、系統(tǒng)流程圖分析：</

24、p><p><b>　　2.1業(yè)務(wù)流程分析</b></p><p>　　2.2 數(shù)據(jù)流程分析：</p><p>　　普通用戶（學(xué)生）：提供查詢（需登錄，僅顯示登錄用戶信息）</p><p>　　中等用戶（教師）：提供增刪改查（需登錄，只可操作成績表，并且教師工號對自己對應(yīng)的成績）</p><p>　　

25、管理員（教務(wù)處）：提供增刪改查（可對學(xué)生，教師，成績等操作）</p><p>　　普通用戶：登錄賬戶為學(xué)生學(xué)號</p><p>　　中級用戶：登錄賬號為教師工號，密碼自定義，可修改</p><p>　　管理員：登錄賬號為特定，密碼可修改，可增加特殊賬號</p><p><b>　　三、相關(guān)系統(tǒng)設(shè)計(jì)：</b></p&

26、gt;<p><b>　　公共模塊：</b></p><p>　　解決登陸用戶信息以及數(shù)據(jù)庫標(biāo)志等公共信息，所以定義通用變量</p><p>　　Public gUserName As String '保存用戶名稱</p><p>　　Public gTid As String

27、 '保存教師信息</p><p>　　Public gStuID As String '保存學(xué)生登錄信息</p><p>　　Public flag As Integer '添加和修改的標(biāo)志</p><p>　　Public gSQL As String '

28、保存SQL語句</p><p>　　Public kqsql2 As String '保存查詢其他考勤結(jié)果SQL語句</p><p>　　Public ArecordID As Integer</p><p>　　Public LrecordID As Integer</p><p>　　Public orec

29、ordID As Integer</p><p>　　Public ErecordID As Integer</p><p>　　Public iflag As Integer '數(shù)據(jù)庫是否打開標(biāo)志</p><p>　　數(shù)據(jù)庫連接選用ADODB連接方式，首先先編寫一公共模塊，用于存放數(shù)據(jù)庫訪問類。</p><p&g

30、t;　　Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset</p><p>　　Dim con As ADODB.Connection</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Dim strConnection As String&

31、lt;/p><p>　　Dim strArray() As String</p><p>　　Set con = New ADODB.Connection</p><p>　　Set rs = New ADODB.Recordset</p><p>　　On Error GoTo TransactSQL_Error</p><

32、p>　　strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\DB\StuData.mdb"</p><p>　　strArray = Split(sql)</p><p>　　con.Open strConnection&l

33、t;/p><p>　　If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then</p><p>　　rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic</p><p>　　Set TransactSQL = rs<

34、;/p><p><b>　　iflag = 1</b></p><p><b>　　Else</b></p><p>　　con.Execute sql</p><p><b>　　iflag = 1</b></p><p><b>　　End I

35、f</b></p><p>　　TransactSQL_Exit:</p><p>　　Set rs = Nothing</p><p>　　Set con = Nothing</p><p>　　Exit Function</p><p>　　TransactSQL_Error:</p>&

36、lt;p>　　MsgBox "查詢錯(cuò)誤：" & Err.Description</p><p><b>　　iflag = 2</b></p><p>　　Resume TransactSQL_Exit</p><p>　　End Function</p><p>　　解決關(guān)閉窗口后程序

37、任在后臺運(yùn)行類：</p><p>　　Public Sub Shutdown(Optional ByVal Force As Boolean = False)</p><p>　　Dim I As Long</p><p>　　On Error Resume Next</p><p>　　For I = Forms.Count - 1 To

38、0 Step -1</p><p>　　If Not Force Then</p><p>　　If Forms.Count > I Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><

39、;b>　　End If</b></p><p><b>　　Next I</b></p><p>　　If Force Or (Forms.Count = 0) Then Close</p><p>　　If Force Or (Forms.Count > 0) Then End</p><p>

40、<b>　　End Sub</b></p><p><b>　　識別tab鍵</b></p><p>　　Public Sub TabToEnter(Key As Integer)</p><p>　　If Key = 13 Then</p><p>　　SendKeys "{TAB}&q

41、uot;</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　四、程序的相關(guān)界面運(yùn)行</p><p><b>　　4.1登陸界面設(shè)計(jì)</b></p><p>　　由于有三類用戶同時(shí)登陸

42、</p><p>　　其中，學(xué)生輸入學(xué)號登陸，教師登陸由教工號于密碼登陸，管理員由賬號密碼登陸。</p><p><b>　　代碼如下：</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim sql As String</p><p>　　Di

43、m rs As ADODB.Recordset</p><p>　　If Trim(UserName.Text = "") Then</p><p>　　MsgBox "沒有輸入用戶名，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　UserName.Se

44、tFocus</p><p><b>　　Else</b></p><p>　　sql = "select * from Administrator where adName='" & UserName.Text & "'"</p><p>　　Set rs = Trans

45、actSQL(sql)</p><p>　　If iflag = 1 Then</p><p>　　If rs.EOF = True Then</p><p>　　MsgBox "沒有這個(gè)用戶，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　UserN

46、ame.SetFocus</p><p><b>　　Else</b></p><p>　　If Trim(rs.Fields(2)) = Trim(adPassWord.Text) Then</p><p><b>　　rs.Close</b></p><p><b>　　Me.Hide

47、</b></p><p>　　gUserName = Trim(UserName.Text) '記錄用戶</p><p>　　adminFrm.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></

48、p><p>　　MsgBox "密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　adPassWord.SetFocus</p><p>　　adPassWord.Text = ""</p><p><b>　　En

49、d If</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p>&

50、lt;p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　4.2主窗體設(shè)計(jì)</b></p><p>　　系統(tǒng)選項(xiàng)中提供管理員注冊，修改，刪除功能</p><p>　　其中，注冊界面代碼如下：</p&g

51、t;<p><b>　　代碼：</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　If Trim(adName.Text) = &

52、quot;" Then</p><p>　　MsgBox "請輸入用戶名稱", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Exit Sub</b></p><p>　　adName.SetFocus</p><p><

53、b>　　Else</b></p><p>　　sql = "select * from Administrator where adName= '" & adName.Text & "'"</p><p>　　Set rs = TransactSQL(sql)</p><p>

54、　　'判斷用戶名是否存在</p><p>　　If rs.EOF = False Then</p><p>　　MsgBox "這個(gè)用戶已存在，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　adName.SetFocus</p><p>　　

55、adName.Text = ""</p><p>　　passW1.Text = ""</p><p>　　passW2.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b>

56、</p><p>　　If Trim(passW1.Text) = "" Then</p><p>　　MsgBox "請輸入密碼", vbOKOnly + vbExclamation, "警告"</p><p>　　passW1.SetFocus</p><p><b>

57、　　Exit Sub</b></p><p>　　ElseIf Trim(passW2.Text) = "" Then</p><p>　　MsgBox "請?jiān)俅屋斎朊艽a！", vbOKOnly + vbExclamation, "警告"</p><p>　　passW2.SetFocus<

58、;/p><p><b>　　Exit Sub</b></p><p>　　ElseIf Trim(passW1.Text) <> Trim(passW2.Text) Then</p><p>　　MsgBox "兩次輸入不一致，請重新輸入", vbOKOnly + vbExclamation, "警告&qu

59、ot;</p><p>　　passW2.Text = ""</p><p>　　passW2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　sql = "

60、; insert into Administrator ( adID,adName,adPassword,adDepart )values('" & id.Text & "','" & adName.Text & "','" & passW1.Text & "','"

61、; & Depart.Text & "')"</p><p>　　Call TransactSQL(sql)</p><p>　　MsgBox "注冊成功！", vbOKOnly + vbExclamation, "添加結(jié)果"</p><p><b>　　Call init

62、</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p

63、><b>　　4.3學(xué)生注冊頁面</b></p><p><b>　　優(yōu)化功能：</b></p><p>　　為用戶提供便捷的操作，以及在目標(biāo)中提到的要求，在學(xué)生注冊系統(tǒng)中加入了一些便捷操作：</p><p>　　由于沒個(gè)學(xué)生由于院系，專業(yè)，班級不同學(xué)號有所不同所以學(xué)號由系統(tǒng)自動(dòng)生成，以減少人工干預(yù)，降低系統(tǒng)出錯(cuò)率。

64、</p><p>　　Private Sub cmdID_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim endID As String</p><p>　　Dim tempID As S

65、tring</p><p>　　Dim eID As String</p><p>　　Dim rsa As String</p><p>　　' Dim faculty, special, class As String</p><p>　　If facultyID = "" Then</p>&l

66、t;p>　　MsgBox "請輸入院系！", vbOKOnly + vbExclamation, "警告"</p><p>　　faculty.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf specialID = ""

67、Then</p><p>　　MsgBox "請輸入專業(yè)！", vbOKOnly + vbExclamation, "警告"</p><p>　　special.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　ElseIf classID

68、 = "" Then</p><p>　　MsgBox "請輸入班級！", vbOKOnly + vbExclamation, "警告"</p><p>　　class.SetFocus</p><p><b>　　Exit Sub</b></p><p>&l

69、t;b>　　Else</b></p><p>　　enterTime = Mid(entTime.Value, 1, 4)</p><p>　　sql = "select id from student where id and fID='" & facultyID & "' and speID='&q

70、uot; & specialID & "' and cID='" & classID & "' order by id desc"</p><p>　　Set rs = TransactSQL(sql)</p><p>　　eID = rs(0)</p><p>　　eI

71、D = Right(eID, 2) + 1</p><p>　　' native.Text = classID</p><p>　　'native.Text = sql</p><p>　　endID = Right(Format(1000 + eID), 2)</p><p>　　' rs.Close</p&g

72、t;<p>　　tempID = enterTime & facultyID & specialID & classID & endID</p><p>　　id.Text = tempID</p><p><b>　　End If</b></p><p><b>　　End Sub<

73、;/b></p><p>　　院系，專業(yè)，班級都從數(shù)據(jù)庫中提取，在學(xué)生表中只存儲(chǔ)編號代碼。</p><p>　　Dim sql As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　sql = "select * from special where sName=

74、9;" & special.Text & "' </p><p>　　Set rs = TransactSQL(sql)</p><p>　　classID = rs(0)</p><p><b>　　rs.Close</b></p><p>　　由于院系，專業(yè)，班級有包含關(guān)系

75、所以在這里combobox控件加入代碼，實(shí)現(xiàn)選擇院系后所包含的專業(yè)自動(dòng)加入隊(duì)列。</p><p>　　Private Sub faculty_click()</p><p>　　Dim sql As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　' Dim fID As S

76、tring</p><p>　　Dim s As String</p><p>　　special.Clear '選定院系后刷新獲得院系所含專業(yè)</p><p>　　specialID = ""</p><p>　　class.Clear</p><p>　　classID = &

77、quot;"</p><p>　　sql = "select * from faculty where fName='" & faculty.Text & "' </p><p>　　Set rs = TransactSQL(sql)</p><p>　　facultyID = rs(0)<

78、;/p><p>　　' rs.Close</p><p>　　sql = "select * from special where sfID='" & facultyID & "'"</p><p>　　Set rs = TransactSQL(sql)</p><p&g

79、t;　　Do While Not rs.EOF</p><p><b>　　s = rs(1)</b></p><p>　　special.AddItem (s)</p><p>　　rs.MoveNext</p><p><b>　　Loop</b></p><p><

80、;b>　　rs.Close</b></p><p><b>　　End Sub</b></p><p>　　在窗口加載時(shí)得將院系信息加入到combobox控件隊(duì)列，實(shí)現(xiàn)代碼如下：</p><p>　　Private Sub Form_Load()</p><p>　　Dim sql As String&

81、lt;/p><p>　　Dim rs As ADODB.Recordset</p><p>　　Dim f As String</p><p>　　sql = "select * from faculty where fName "</p><p>　　Set rs = TransactSQL(sql)</p>

82、<p>　　Do While Not rs.EOF</p><p><b>　　f = rs(1)</b></p><p>　　fID.AddItem (f)</p><p>　　rs.MoveNext</p><p><b>　　Loop</b></p><p>

83、<b>　　rs.Close</b></p><p><b>　　End Sub</b></p><p>　　在選取院系信息后要將院系所包含的專業(yè)信息加入到隊(duì)列，實(shí)現(xiàn)代碼如下：</p><p>　　Private Sub fID_Click()</p><p>　　Dim sql As String

84、 </p><p>　　Dim rs As ADODB.Recordset </p><p>　　Dim s As String </p><p>　　sID.Clear '選定院系后刷新獲得院系所含專業(yè) </p><p>　　sql = "select * from faculty where fName='

85、;" & fID.Text & "' "</p><p>　　Set rs = TransactSQL(sql) </p><p>　　facID = rs(0)</p><p>　　' rs.Close </p><p>　　sql = "select * from s

86、pecial where sfID='" & facID & "'"</p><p>　　Set rs = TransactSQL(sql)</p><p>　　Do While Not rs.EOF</p><p><b>　　s = rs(1)</b></p>&l

87、t;p>　　sID.AddItem (s)</p><p>　　rs.MoveNext</p><p><b>　　Loop</b></p><p><b>　　rs.Close</b></p><p><b>　　End Sub</b></p><p

88、>　　由于班級編號在同一專業(yè)不能重復(fù)，所以編號由系統(tǒng)自動(dòng)生成。</p><p>　　當(dāng)選定院系，專業(yè)后系統(tǒng)將從所數(shù)據(jù)庫獲得選定院系，專業(yè)現(xiàn)存的班級編號，按倒序排列后獲得最后的編碼，由系統(tǒng)自動(dòng)加1顯示在控件上。實(shí)現(xiàn)代碼如下：</p><p>　　Private Sub init()</p><p>　　Dim tempID As String</p>

89、<p>　　Dim sql As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Dim num As Integer</p><p>　　sql = "select cID from class where fID='" & facID & &quo

90、t;' and sID='" & speID & "' order by cID desc"</p><p>　　Set rs = TransactSQL(sql)</p><p>　　num = rs(0)</p><p>　　num = num + 1 + 0</p><p

91、><b>　　rs.Close</b></p><p>　　cID.Text = num </p><p><b>　　End Sub</b></p><p>　　其中參數(shù)facID，speID在選取時(shí)記錄如以下代碼：</p><p>　　Private Sub sID_Click()<

92、/p><p>　　Dim sql As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　sql = "select * from special where sfID='" & facID & "'"</p><p>

93、　　Set rs = TransactSQL(sql)</p><p>　　speID = rs(0) rs.Close Call init End Sub</p><p><b>　　五、總結(jié)體會(huì)：</b></p><p>　　時(shí)間過得真快，轉(zhuǎn)眼間，一周的課程設(shè)計(jì)生活已悄然過去了，課程設(shè)計(jì)期間，讓我學(xué)到了很多東西，不僅使我在理論上對 VB

94、 程序和SQL 設(shè)計(jì)有了全新的認(rèn)識，在實(shí)踐能力上也得到了提高，真正地做到了學(xué)以致用，更學(xué)到了很多做人的道理，對我來說受益非淺。親身感受到理論與實(shí)際的相結(jié)合，讓我大開眼界。這次課程設(shè)計(jì)對于我以后學(xué)習(xí)、找工作也真是受益菲淺，在短短的兩周中，相信這些寶貴的經(jīng)驗(yàn)會(huì)成為我今后成功的重要的基石，對程序設(shè)計(jì)有了理性的認(rèn)識和理解。在之前，程序設(shè)計(jì)對我來說是比較抽象的，不知道一個(gè)完整的程序要怎么完成。 這次我做的項(xiàng)目是學(xué)生信息管理系統(tǒng)，其中包含了登陸、學(xué)

95、生信息管理，添加管理員等幾個(gè)部分。在剛開始的時(shí)候，做的 只是幾個(gè)簡單的界面，覺得其實(shí)還算比較簡單的，到第三天，基本部分的代碼都編寫出來了，但是調(diào)試的時(shí)候出現(xiàn)了很多問題。而且，有時(shí)候由于考慮不周以及粗心的緣故，代碼方面也有很大的漏洞。</p><p>　　在本次的課程設(shè)計(jì)開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗(yàn)方面都存在著不足。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。因?yàn)閷W(xué)生管理的整個(gè)流程不夠熟悉，在需求分

96、析時(shí)未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在學(xué)生管理系統(tǒng)中的應(yīng)用不是很多，但是未來的發(fā)展方向，在本次開發(fā)過程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能，因此在以后的系統(tǒng)更新過程中可能會(huì)造成一些不必要的數(shù)據(jù)損失。通過開發(fā)這個(gè)系統(tǒng)，我掌握了項(xiàng)目的基本開發(fā)過程，了解了的基本知識鞏固 了我對 Visual Basic 的學(xué)習(xí)，但在這次設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。本程序的編寫，

97、有很多不足的地方，可能有些功能不太全面也不太完善，但我覺得自己是認(rèn)認(rèn)真真的做了，而且從中學(xué)到了很多，以 后，我要把自己欠缺的知識點(diǎn)補(bǔ)習(xí)好，而且要學(xué)會(huì)舉一反三，融會(huì)貫 通，最重要的是改掉粗心馬虎、考慮不周的習(xí)慣。我想我以后會(huì)將此 程序完善好，爭取能夠運(yùn)用到生活中去。 再次感謝老師的耐心指導(dǎo)！</p><p>　　在編程的過程中，我體會(huì)到編程是十分辛苦的。在課程設(shè)計(jì)這一段時(shí)間里，我每天的生活基本是在不斷的調(diào)試程序和修

98、改代碼中完成的。有時(shí)，這種生活令人感到乏味和疲倦，但是在這種近似枯燥的生活中，我的編程水平有了一定程度的提高，這是課程設(shè)計(jì)中我最大的收獲。以前學(xué)習(xí)計(jì)算機(jī)語言，總是靜不下心來，不能認(rèn)真的看書。這次課程設(shè)計(jì)，為了順利的完成編程工作，我認(rèn)真的學(xué)習(xí)了VB語言，并有了一定的心得體會(huì)。所以在以后的學(xué)習(xí)中，自己全身心的投入，這樣學(xué)習(xí)才會(huì)有效率，才會(huì)有效果。</p><p>　　課程設(shè)計(jì)已經(jīng)結(jié)束了， Visual Ba

99、sic作為一門當(dāng)代大學(xué)生學(xué)習(xí)普遍學(xué)習(xí)的必修課，我們更有理由去學(xué)好Visual Basic。這對我們將來的學(xué)習(xí)和工作很重要，小到個(gè)人，達(dá)到工作、社會(huì)我們都有可能用到Visual Basic，因此學(xué)好這門課的程序設(shè)計(jì)是非常有必要，這次課程設(shè)計(jì)帶給自己很多體會(huì)，在以后的學(xué)習(xí)中要不斷總結(jié)，不斷改進(jìn)，使自己的成績有新的提高。</p><p><b>　　七、參考文獻(xiàn)</b><

100、/p><p>　　[1] 薩師煊 王珊。數(shù)據(jù)庫系統(tǒng)概論。第三版。北京：高等教育出版社，2000。</p><p>　　[2]周靄如、官士鴻、林偉健。Visual Basic程序設(shè)計(jì)。北京：電子工業(yè)出版社，2003。1。</p><p>　　[3]尹貴祥。 Visual Basic6。0程序設(shè)計(jì)案例教程。 。北京：中國鐵道出版社，2005。1</p><