vb課程設計報告-- 學生信息管理系統(tǒng)

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

2、121 </p><p>　　姓 名： </p><p>　　學 號： </p><p>　　指導教師: </p><p>　　2014 年 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

18、- 8 -</p><p>　　4.2主窗體設計- 9 -</p><p>　　4.3學生注冊頁面- 11 -</p><p>　　五、總結體會：- 15 -</p><p>　　七、參考文獻- 16 -</p><p><b>　　一、設計題目及要求</b></p><

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

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

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

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

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

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

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

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

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

28、保存SQL語句</p><p>　　Public kqsql2 As String '保存查詢其他考勤結果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ù)庫是否打開標志</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 "查詢錯誤：" & Err.Description</p><p><b>　　iflag = 2</b></p><p>　　Resume TransactSQL_Exit</p><p>　　End Function</p><p>　　解決關閉窗口后程序

37、任在后臺運行類：</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>　　四、程序的相關界面運行</p><p><b>　　4.1登陸界面設計</b></p><p>　　由于有三類用戶同時登陸

42、</p><p>　　其中，學生輸入學號登陸，教師登陸由教工號于密碼登陸，管理員由賬號密碼登陸。</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 "沒有這個用戶，請重新輸入！", 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主窗體設計</b></p><p>　　系統(tǒ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 "這個用戶已存在，請重新輸入！", 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 "請再次輸入密碼！", 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, "添加結果"</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學生注冊頁面</b></p><p><b>　　優(yōu)化功能：</b></p><p>　　為用戶提供便捷的操作，以及在目標中提到的要求，在學生注冊系統(tǒng)中加入了一些便捷操作：</p><p>　　由于沒個學生由于院系，專業(yè)，班級不同學號有所不同所以學號由系統(tǒng)自動生成，以減少人工干預，降低系統(tǒng)出錯率。

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ù)庫中提取，在學生表中只存儲編號代碼。</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è)，班級有包含關系

75、所以在這里combobox控件加入代碼，實現(xiàn)選擇院系后所包含的專業(yè)自動加入隊列。</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>　　在窗口加載時得將院系信息加入到combobox控件隊列，實現(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è)信息加入到隊列，實現(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è)不能重復，所以編號由系統(tǒng)自動生成。</p><p>　　當選定院系，專業(yè)后系統(tǒng)將從所數(shù)據(jù)庫獲得選定院系，專業(yè)現(xiàn)存的班級編號，按倒序排列后獲得最后的編碼，由系統(tǒng)自動加1顯示在控件上。實現(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在選取時記錄如以下代碼：</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>　　五、總結體會：</b></p><p>　　時間過得真快，轉眼間，一周的課程設計生活已悄然過去了，課程設計期間，讓我學到了很多東西，不僅使我在理論上對 VB

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

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

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

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

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

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

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