【正文】 exGrid1 .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = Trim(Text1(0)) .TextMatrix(.Rows 1, 1) = Trim(Text1(1)) .TextMatrix(.Rows 1, 2) = Trim(Combo1(0).Text) .TextMatrix(.Rows 1, 3) = Trim(Combo1(1).Text) .TextMatrix(.Rows 1, 4) = Trim(Combo1(2).Text) .TextMatrix(.Rows 1, 5) = Trim(Text1(2)) End With Text1(2) = Combo1(0).Clear txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With Combo1(0) .Clear Do While Not .AddItem Trim(mrc!class_NO) Loop End With End If Combo1(1).Clear 大學(xué)本科課程設(shè)計(jì)（論文） 24 Combo1(2).Clear Text1(0) = GetRkno = 1 End Sub Private Sub Command3_Click() Dim j As Long Dim txtSQL As String Dim txSQL As String txtSQL = select * from score_Form If Text2(1) Then txtSQL = txtSQL amp。And score_Cou=39。 and score_Stu=39。 and score_Cla=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) End If End If txtSQL = select * from class_Cour Set mrc = ExecuteSQL(txtSQL, MsgText) List1Text End Sub 2 成績(jī) 管理模塊 代碼設(shè)計(jì) : Private Sub Command1_Click() Dim txtSQL As String If Text1(1) = Then MsgBox 考試期號(hào)不能為空 !, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Combo1(0).Text = Then MsgBox 學(xué)生班號(hào)不能為空 !, vbOKOnly, 提示 Combo1(0).SetFocus Exit Sub End If If Combo1(1).Text = Then MsgBox 學(xué)生編號(hào)不能為空 !, vbOKOnly, 提示 Combo1(1).SetFocus Exit Sub End If If Combo1(2).Text = Then MsgBox 考試課程不能為空 !, vbOKOnly, 提示 Combo1(2).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 考試分?jǐn)?shù)不能為空 !, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub 大學(xué)本科課程設(shè)計(jì)（論文） 23 End If txtSQL = select * from score_Form where score_Per=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) End If End If If Index = 3 Then If Then txtSQL = delete from class_Cour where class_NO=39。 and course_Name=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) tSQL = select * from course_Form txtSQL = select * from class_Cour Set mmrc = ExecuteSQL(tSQL, MsgText) If = True Then MsgBox 請(qǐng)先進(jìn)行班級(jí)設(shè)置 !, vbOKOnly, 提示 Else Do While Not Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = (0) Loop End If End If 大學(xué)本科課程設(shè)計(jì)（論文） 22 End If If Index = 2 Then If And Then txtSQL = delete from class_Cour where class_NO=39。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from class_Cour Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() End If End If If Index = 1 Then If Then txtSQL = delete from class_Cour where class_NO=39。 and course_Name=39。大學(xué)本科課程設(shè)計(jì)（論文） 21 附錄 主要 功能 模塊程序代碼 1 選課管理模塊 代碼設(shè)計(jì) : Private Sub Label3_Click(Index As Integer) Dim txtSQL As String Dim tSQL As String Dim mmrc As If Index = 0 Then If And Then txtSQL = delete from class_Cour where class_NO=39。 這次課程設(shè)計(jì)為我提供了與眾不同的學(xué)習(xí)方法和學(xué)習(xí)體會(huì)，從書本中面對(duì)現(xiàn)實(shí)，為我將來(lái)走上社 會(huì)打下了扎實(shí)的基礎(chǔ)。 課程設(shè)計(jì)是 系統(tǒng)建設(shè) 的重要實(shí)踐環(huán)節(jié)，、通過(guò)課程設(shè)計(jì)使我們更進(jìn)一步的領(lǐng)會(huì) 系統(tǒng) 建設(shè)和設(shè)計(jì)的基本知識(shí)，熟悉和掌握 大型系統(tǒng) 建設(shè)的基本流程和注意事項(xiàng)，能熟練運(yùn)用常用的 系統(tǒng)大學(xué)本科課程設(shè)計(jì)（論文） 20 建設(shè) 和設(shè)計(jì)工具，通過(guò)對(duì) 學(xué)生信息管理系統(tǒng) 的規(guī)劃和設(shè)計(jì)來(lái)培養(yǎng)我們的綜合運(yùn)用所學(xué)知識(shí)、分析和解決實(shí)際問題的能力，掌握了相關(guān) 系統(tǒng)建設(shè) 的軟件，強(qiáng)化計(jì)算機(jī)實(shí)際應(yīng)用的能力，為今后開展 系統(tǒng) 規(guī)劃、設(shè)計(jì)和開發(fā)打下初步的基礎(chǔ)。在準(zhǔn)備素 材的過(guò)程中我用到了photoshop 等工具。 首先我要做的就是要選擇好題目和 系統(tǒng) 的風(fēng)格，之后我就分步驟準(zhǔn)備在 建設(shè)系統(tǒng) 前所要做好的準(zhǔn)備工作。但是在這三個(gè)軟件中，對(duì)于 FLASH 的運(yùn)用還比較生疏，對(duì)于這些軟件中那些深層次的功能還沒有涉及，這些缺陷都將是我以后學(xué)習(xí)攻克的目標(biāo)。 ◆模擬用戶在在單個(gè)業(yè)務(wù)操作和兩個(gè)業(yè)務(wù)混合操作時(shí)， 20 個(gè)用戶進(jìn)行并發(fā)操作后，然后大學(xué)本科課程設(shè)計(jì)（論文） 17 在每 1 秒登錄 1 個(gè)用戶，最大用戶數(shù)達(dá) 500；每 1 秒登錄 10個(gè)用戶，最大用戶數(shù)達(dá) 500，進(jìn)行多次連續(xù)測(cè)試，完成測(cè)試目標(biāo)。 （ 5） 測(cè)試方法 使用 Mercury 公司的性能測(cè)試軟件 ，對(duì)本系統(tǒng)業(yè)務(wù)進(jìn)行腳本錄制，測(cè)試回放，逐步加壓和跟蹤記錄。 ◆使用 LoadRunner 中 VuGen 錄制測(cè)試腳本。如果失敗，有相關(guān)提示。 其窗體如圖 3— 7 所示： 圖 47 用戶添加界面 大學(xué)本科課程設(shè)計(jì)（論文） 14 五 、 測(cè)試與實(shí)施 （一） 系統(tǒng)功能測(cè)試 1． 登錄功能測(cè)試 運(yùn)行程序，首先是登錄界面，輸入各種組合的賬號(hào)和密碼，再輸入正確的密碼進(jìn)行測(cè)試。其窗體如圖 3— 3 所示： 圖 43 系統(tǒng)登錄 界面 大學(xué)本科課程設(shè)計(jì)（論文） 12 2 選課管理模塊 功能 :本模塊的主要功能是對(duì)課程進(jìn)行選擇和查詢 。 （ 3） 對(duì)成績(jī)進(jìn)行匯總。 大學(xué)本科課程設(shè)計(jì)（論文） 10 本小系統(tǒng)總體有五個(gè)功能模塊。 （ 3） 可以打印出課程表，學(xué)生名單和學(xué)生成績(jī)表。做到及時(shí)有效管理在校學(xué)生的相關(guān)信息。 (5)優(yōu)化原則：為了達(dá)到優(yōu)化的目的，合理的運(yùn)用窗口，菜單，對(duì)象等的繼承，自定義用戶對(duì)象，事件，函數(shù)，減少不必要 的重復(fù)性代碼，使程序簡(jiǎn)介明了，也方便了將來(lái)的維護(hù)。 （ 二 ） 系統(tǒng) 設(shè)計(jì)原則 為了使本系統(tǒng)功能齊全完備，操作簡(jiǎn)便，最大限度的提高軟件的質(zhì)量，從而滿足用戶的實(shí)際需要，在設(shè)計(jì)開發(fā)過(guò)程中遵循了如下原則： (1)合法性原則：依據(jù)學(xué)生信息 系統(tǒng)的工作規(guī)定以及要求，參照實(shí)際的學(xué)生信息情況，進(jìn)行學(xué)生成績(jī)查詢，選課查詢等工作。管理人員可以添加新入學(xué)人員 退出系統(tǒng) ：離開本學(xué)生信息管理系統(tǒng) 系統(tǒng)結(jié)構(gòu)圖如圖 1— 1 所示 ： 圖 21 系統(tǒng)功能結(jié) 構(gòu)圖 大學(xué)本科課程設(shè)計(jì)（論文） 5 三 、 總體 設(shè)計(jì) （一） 系統(tǒng) 設(shè)計(jì)思想 (1)系統(tǒng)分成幾個(gè)相對(duì)獨(dú)立的模塊，但這些模塊都進(jìn)行集中式管理 。 選課管理 ：對(duì)學(xué)生的選課情況進(jìn)行管理，主要包括：學(xué)生選課和查看已選課程。 2． 用戶 業(yè)務(wù)需求 本學(xué)生信息管理系統(tǒng)需要具有以下功能 密碼管理 ：對(duì)使用者的密碼進(jìn)行管理，主要包括密碼設(shè)置和密碼修改。 ? 數(shù)據(jù)庫(kù)：采用 Access 數(shù)據(jù)庫(kù)。 ? 2G 以上硬盤?，F(xiàn)