版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
1、<p><b> 課程設(shè)計報告書</b></p><p> 課程名稱:《可視化編程》課程設(shè)計 </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è) 計 任 務(wù) 書</p><p> 課程名稱: 可視化編程課程設(shè)計 指導(dǎo)教師: </p><p> 班級名稱: 軟件1121 開課系、教研室: 軟件與信息安全 </p><p> 一、課程設(shè)計目的與任務(wù)</p><p&g
4、t; 可視化編程課程設(shè)計是《可視化程序設(shè)計》課程的后續(xù)實(shí)踐課程,旨在通過一周的實(shí)踐訓(xùn)練,加深學(xué)生對理論課程中可視化以及面向?qū)ο蟪绦蛟O(shè)計概念,原理和方法的理解,加強(qiáng)學(xué)生綜合運(yùn)用VB語言進(jìn)行實(shí)際應(yīng)用,包括界面編程,文件訪問,網(wǎng)絡(luò)編程和數(shù)據(jù)庫編程的能力,進(jìn)一步提高學(xué)生進(jìn)行程序設(shè)計,分析問題和解決問題的能力。</p><p> 學(xué)生將在指導(dǎo)老師的指導(dǎo)下,完成從需求分析,系統(tǒng)設(shè)計,編碼到測試的全過程。</p>
5、;<p> 二、課程設(shè)計的內(nèi)容與基本要求</p><p> 本課程設(shè)計將設(shè)計和開發(fā)一個小型的VB桌面應(yīng)用系統(tǒng),具有注冊,登錄,信息查詢,添加,更新和刪除的功能。要求界面美觀,簡單實(shí)用,功能相對完善,系統(tǒng)流程合理,數(shù)據(jù)處理正確。</p><p> 1 、《巧虎做家務(wù)》游戲的設(shè)計與開發(fā):</p><p> ?。?)利用鼠標(biāo)完成物品的移動;</p
6、><p> ?。?)適量的動畫設(shè)計,譬如亮閃閃的星星,重點(diǎn)區(qū)域的提示;</p><p> ?。?)加入適當(dāng)?shù)恼Z音提示,提高游戲的樂趣;</p><p> 2、《巧虎逛大賣場》游戲的設(shè)計與開發(fā):</p><p> ?。?)利用鼠標(biāo)點(diǎn)擊和拖動完成物品的移動;</p><p> ?。?)適量的動畫設(shè)計,譬如亮閃閃的星星,重點(diǎn)區(qū)
7、域的提示,此題對動畫的要求略高;</p><p> ?。?)加入適當(dāng)?shù)恼Z音提示,提高游戲的樂趣;</p><p> 3、《巧虎自行車比賽》游戲的設(shè)計與開發(fā):</p><p> ?。?)利用鍵盤的上下左右鍵完成自行車的前進(jìn)后退以及左右移動;</p><p> ?。?)適量的動畫設(shè)計,譬如亮閃閃的星星,重點(diǎn)區(qū)域的提示;</p>&
8、lt;p> ?。?)加入適當(dāng)?shù)恼Z音提示,提高游戲的樂趣;</p><p> ?。?)賽道的可以用靜態(tài)和動態(tài)2種方式生成:動態(tài)生成為加分點(diǎn)</p><p> 4、《巧虎小馬快快跑》游戲的設(shè)計與開發(fā):</p><p> ?。?)利用鼠標(biāo)完成小馬的障礙跳躍和指定動作;</p><p> ?。?)適量的動畫設(shè)計,譬如亮閃閃的星星,重點(diǎn)區(qū)域的提
9、示;</p><p> ?。?)加入適當(dāng)?shù)恼Z音提示,提高游戲的樂趣;</p><p> ?。?)賽道的可以用靜態(tài)和動態(tài)2種方式生成:動態(tài)生成為加分點(diǎn)</p><p> 5、 《巧虎劃船大冒險》游戲的設(shè)計與開發(fā):</p><p> ?。?)利用鍵盤的上下鍵完成游船的左右移動;</p><p> ?。?)適量的動畫設(shè)計,
10、譬如亮閃閃的星星,重點(diǎn)區(qū)域的提示,此題對動畫的要求略高;</p><p> ?。?)加入適當(dāng)?shù)恼Z音提示,提高游戲的樂趣;</p><p> ?。?)河道可以用靜態(tài)和動態(tài)2種方式生成:動態(tài)生成為加分點(diǎn)。</p><p> 6、小型數(shù)據(jù)庫管理系統(tǒng)的設(shè)計與開發(fā):</p><p> (1)具有存儲數(shù)據(jù),新增數(shù)據(jù),刪除數(shù)據(jù),更改數(shù)據(jù)和搜索查詢數(shù)據(jù)等
11、完善的數(shù)據(jù)處理功能。</p><p> (2)有登陸和退出界面。</p><p> ?。?)要求整體,要求界面美觀,簡單實(shí)用。</p><p> 具體要完成的任務(wù)是:</p><p> A.利用VB完成界面設(shè)計和代碼設(shè)計,并能夠演示說明。</p><p> B. 寫出規(guī)范的課程設(shè)計報告書;</p>
12、<p> 三、課程設(shè)計步驟及時間進(jìn)度和場地安排</p><p> 本課程設(shè)計將安排在第18周, 教育技術(shù)中心214。具體安排如下:</p><p> 下發(fā)任務(wù)書,學(xué)生查閱資料</p><p><b> 系統(tǒng)設(shè)計和原型開發(fā)</b></p><p> 第三,四天 系統(tǒng)功能實(shí)現(xiàn)</p>&l
13、t;p> 第五天 系統(tǒng)調(diào)試 測試 打包和驗(yàn)收</p><p> 四、課程設(shè)計考核及評分標(biāo)準(zhǔn)</p><p> 課程設(shè)計考核將綜合考慮學(xué)生考勤和參與度,系統(tǒng)設(shè)計方案正確性,系統(tǒng)設(shè)計和開發(fā)效果以及課程設(shè)計報告書的質(zhì)量。具體評分標(biāo)準(zhǔn)如下:</p><p><b> 設(shè)置六個評分點(diǎn)</b></p><p> (1
14、)設(shè)計方案正確,具有可行性、創(chuàng)新性; 25分</p><p> ?。?)系統(tǒng)開發(fā)效果較好; 25分</p><p> ?。?)態(tài)度認(rèn)真、刻苦鉆研、遵守紀(jì)律; 10分</p><p> ?。?)設(shè)計報告規(guī)范、課程設(shè)計報告質(zhì)量高、參考文獻(xiàn)充分 20
15、分</p><p> ?。?)課程設(shè)計答辯概念清晰,內(nèi)容正確 10分</p><p> ?。?)課程設(shè)計期間的課堂考勤、答疑與統(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è)計題目及要求- 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è)計:- 6 -</p><p> 四、程序的相關(guān)界面運(yùn)行- 8 -</p><p> 4.1登陸界面設(shè)計
18、- 8 -</p><p> 4.2主窗體設(shè)計- 9 -</p><p> 4.3學(xué)生注冊頁面- 11 -</p><p> 五、總結(jié)體會:- 15 -</p><p> 七、參考文獻(xiàn)- 16 -</p><p><b> 一、設(shè)計題目及要求</b></p><
19、;p> 1.1問題的描述及要求</p><p> 理解系統(tǒng)開發(fā)的必要步驟,繪制流程圖、根據(jù)流程圖編寫程序、并自主進(jìn)行必要的測試與維護(hù)。最后形成規(guī)范的設(shè)計報告。</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è)、班級等信息。這三個功能模塊各自獨(dú)立,完成學(xué)校的全部班級的管理。 </p><p> 3.學(xué)生學(xué)籍管理模塊:實(shí)現(xiàn)對學(xué)生的個人信息的管理工作,包括學(xué)籍添加、 學(xué)籍查詢、學(xué)籍修改等功能,從而方便學(xué)校管理部門對學(xué)校的基本情況的快速查詢和了解。 </p><p>
21、4.課程管理模塊:該模塊對各個班級的課程進(jìn)行設(shè)置,并可在其中設(shè)置各門 課程的教材選用情況,方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)置和班級課程設(shè)置兩個模塊。</p><p> 5.成績管理模塊:檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個主要手段,本模塊包括考試類型 設(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 是一個強(qiáng)有力的系統(tǒng)開發(fā)軟件之一,以其實(shí)用、方便、快捷、開發(fā)周期短,越來越被廣大編程人員所青睞。VB更容易上手,進(jìn)而提高軟件開發(fā)的效率。<
23、;/p><p> 通過實(shí)際設(shè)計,掌握VB應(yīng)用程序開發(fā)軟件的設(shè)計方法,理解軟件工程思想。本次設(shè)計的主要目的是提高學(xué)生綜合分析問題和解決實(shí)際問題的能力,為將來走上工作崗位打下一個良好的基礎(chǔ)。學(xué)生應(yīng)通過接觸客觀實(shí)際,了解和認(rèn)識所學(xué)的專業(yè)知識,掌握所學(xué)知識在客觀實(shí)際中的應(yīng)用,并能親自動手完成相關(guān)題目設(shè)計。把所學(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è)計:</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 "查詢錯誤:" & 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è)計</b></p><p> 由于有三類用戶同時登陸
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 "沒有這個用戶,請重新輸入!", 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è)計</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 "這個用戶已存在,請重新輸入!", 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, "添加結(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> 由于沒個學(xué)生由于院系,專業(yè),班級不同學(xué)號有所不同所以學(xué)號由系統(tǒng)自動生成,以減少人工干預(yù),降低系統(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ù)庫中提取,在學(xué)生表中只存儲編號代碼。</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è)自動加入隊(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> 在窗口加載時得將院系信息加入到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)自動生成。</p><p> 當(dāng)選定院系,專業(yè)后系統(tǒng)將從所數(shù)據(jù)庫獲得選定院系,專業(yè)現(xiàn)存的班級編號,按倒序排列后獲得最后的編碼,由系統(tǒ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在選取時記錄如以下代碼:</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é)體會:</b></p><p> 時間過得真快,轉(zhuǎn)眼間,一周的課程設(shè)計生活已悄然過去了,課程設(shè)計期間,讓我學(xué)到了很多東西,不僅使我在理論上對 VB
94、 程序和SQL 設(shè)計有了全新的認(rèn)識,在實(shí)踐能力上也得到了提高,真正地做到了學(xué)以致用,更學(xué)到了很多做人的道理,對我來說受益非淺。親身感受到理論與實(shí)際的相結(jié)合,讓我大開眼界。這次課程設(shè)計對于我以后學(xué)習(xí)、找工作也真是受益菲淺,在短短的兩周中,相信這些寶貴的經(jīng)驗(yàn)會成為我今后成功的重要的基石,對程序設(shè)計有了理性的認(rèn)識和理解。在之前,程序設(shè)計對我來說是比較抽象的,不知道一個完整的程序要怎么完成。 這次我做的項(xiàng)目是學(xué)生信息管理系統(tǒng),其中包含了登陸、學(xué)
95、生信息管理,添加管理員等幾個部分。在剛開始的時候,做的 只是幾個簡單的界面,覺得其實(shí)還算比較簡單的,到第三天,基本部分的代碼都編寫出來了,但是調(diào)試的時候出現(xiàn)了很多問題。而且,有時候由于考慮不周以及粗心的緣故,代碼方面也有很大的漏洞。</p><p> 在本次的課程設(shè)計開發(fā)過程中,由于本人是初次開發(fā)軟件,在知識、經(jīng)驗(yàn)方面都存在著不足。因此,該系統(tǒng)必然會存在一些缺陷和不足。因?yàn)閷W(xué)生管理的整個流程不夠熟悉,在需求分
96、析時未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在學(xué)生管理系統(tǒng)中的應(yīng)用不是很多,但是未來的發(fā)展方向,在本次開發(fā)過程由于硬件的限制,未能實(shí)現(xiàn)網(wǎng)絡(luò)功能,因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。通過開發(fā)這個系統(tǒng),我掌握了項(xiàng)目的基本開發(fā)過程,了解了的基本知識鞏固 了我對 Visual Basic 的學(xué)習(xí),但在這次設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用,而是學(xué)會了設(shè)計系統(tǒng)的思維方法,以及與同學(xué)們之間相互幫助的精神。本程序的編寫,
97、有很多不足的地方,可能有些功能不太全面也不太完善,但我覺得自己是認(rèn)認(rèn)真真的做了,而且從中學(xué)到了很多,以 后,我要把自己欠缺的知識點(diǎn)補(bǔ)習(xí)好,而且要學(xué)會舉一反三,融會貫 通,最重要的是改掉粗心馬虎、考慮不周的習(xí)慣。我想我以后會將此 程序完善好,爭取能夠運(yùn)用到生活中去。 再次感謝老師的耐心指導(dǎo)!</p><p> 在編程的過程中,我體會到編程是十分辛苦的。在課程設(shè)計這一段時間里,我每天的生活基本是在不斷的調(diào)試程序和修
98、改代碼中完成的。有時,這種生活令人感到乏味和疲倦,但是在這種近似枯燥的生活中,我的編程水平有了一定程度的提高,這是課程設(shè)計中我最大的收獲。以前學(xué)習(xí)計算機(jī)語言,總是靜不下心來,不能認(rèn)真的看書。這次課程設(shè)計,為了順利的完成編程工作,我認(rèn)真的學(xué)習(xí)了VB語言,并有了一定的心得體會。所以在以后的學(xué)習(xí)中,自己全身心的投入,這樣學(xué)習(xí)才會有效率,才會有效果。</p><p> 課程設(shè)計已經(jīng)結(jié)束了, Visual Ba
99、sic作為一門當(dāng)代大學(xué)生學(xué)習(xí)普遍學(xué)習(xí)的必修課,我們更有理由去學(xué)好Visual Basic。這對我們將來的學(xué)習(xí)和工作很重要,小到個人,達(dá)到工作、社會我們都有可能用到Visual Basic,因此學(xué)好這門課的程序設(shè)計是非常有必要,這次課程設(shè)計帶給自己很多體會,在以后的學(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è)計。北京:電子工業(yè)出版社,2003。1。</p><p> [3]尹貴祥。 Visual Basic6。0程序設(shè)計案例教程。 。北京:中國鐵道出版社,2005。1</p><
溫馨提示
- 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)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- vb課程設(shè)計報告--學(xué)生信息管理系統(tǒng)
- vb學(xué)生信息管理系統(tǒng)課程設(shè)計
- vb課程設(shè)計--學(xué)生信息管理系統(tǒng)
- vb課程設(shè)計-學(xué)生信息管理系統(tǒng)的實(shí)現(xiàn)
- vb課程設(shè)計-旅游信息管理系統(tǒng)
- vb課程設(shè)計-旅游信息管理系統(tǒng)
- 學(xué)生信息管理系統(tǒng)課程設(shè)計報告
- 課程設(shè)計報告--學(xué)生信息管理系統(tǒng)
- 學(xué)生信息管理系統(tǒng)課程設(shè)計報告
- 學(xué)生信息管理系統(tǒng)課程設(shè)計報告
- 學(xué)生信息管理系統(tǒng)課程設(shè)計報告
- 學(xué)生信息管理系統(tǒng)課程設(shè)計報告
- vb課程設(shè)計--學(xué)生信息管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)
- 學(xué)生信息管理系統(tǒng)課程設(shè)計報告
- vb課程設(shè)計--基于vb的賓館信息管理系統(tǒng)
- 學(xué)生信息管理系統(tǒng)課程設(shè)計報告 (2)
- 學(xué)生選課信息管理系統(tǒng)課程設(shè)計報告
- java課程設(shè)計報告--學(xué)生信息管理系統(tǒng)
- java課程設(shè)計報告---學(xué)生信息管理系統(tǒng)
- c課程設(shè)計報告(學(xué)生信息管理系統(tǒng))
評論
0/150
提交評論