【正文】 Sub ChangeBrowseState() With 39。如果沒有任何記錄，則清空顯示目錄；并且使瀏覽部分和管理部分的按鈕無效 If .State = adStateClosed Then .Open 39。39。39。假如處于記錄的尾部 If .EOF Then If Not .BOF Then = False = False Else = True = True End If End WithEnd Sub39。通過當(dāng)前學(xué)生的成績，來得到該學(xué)生的總成績和平均成績Sub Calculate(sSerial As String) Dim rs As New Dim str str = select avg(score) as avg_score, sum(score) as sum_score from score where studentid=39。 sSerial amp。 str, , adOpenStatic If Not Then = FormatNumber(rs(sum_score), 2) = FormatNumber(rs(avg_score), 2) End IfEnd Sub39。刷新學(xué)生號為sSerial的成績的網(wǎng)格控件grdScoreSub RefreshScore(sSerial As String) With If .State adStateClosed Then .Close Dim str If sSerial = Then str = select course.*, from score, course where = Else str = select course.*, from score, course where = amp。 amp。 39。39。 (0).CellText() amp。 (1).CellText() 39。計算該學(xué)生的總成績和平均成績 Call Calculate((0).CellText())End SubPrivate Sub cmdAdd_Click() On Error GoTo errHandler With frmAddCourse Load frmAddCourse .Caption = 添加成績信息 .Show vbModal 39。如果用戶沒有點(diǎn)擊確認(rèn)按鈕，則退出處理過程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If 39。添加成績記錄 Dim str str = insert into score(StudentID, CourseID, Score) values(39。 (0).CellText() amp。,39。 . amp。,39。 . str = str amp。) str Unload frmAddCourse End With Unload frmAddCourse 39。刷新整個網(wǎng)格控件 Call RefreshScore((0).CellText()) Exit Sub errHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox(確實(shí)要刪除此成績記錄？, vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)) = vbYes Then Dim sSerial sSerial = (0).CellText() Dim stuSerial stuSerial = (0).CellText() Dim str str = delete from score where studentid = 39。 stuSerial amp。 and courseid=39。 sSerial amp。 39。使用con來刪除所選的記錄 str 39。刷新grdScore控件 = OneScore Call Calculate((0).CellText()) End If Exit SuberrHandler: MsgBox , vbCritical, 錯誤End SubPrivate Sub cmdEdit_Click() 39。修改當(dāng)前所選的成績信息 On Error GoTo errHandler With frmAddCourse Load frmAddCourse .Caption = 修改成績信息 39。將當(dāng)前所定位的課程信息寫入到frmAddCourse的dcbSerial和dcbName控件中 . = (0).CellText() . = . 39。 . = ( 1).CellText() . = True .Show vbModal 39。如果用戶沒有點(diǎn)擊確認(rèn)按鈕，則退出處理過程 If Not .mbAdded Then Unload frmAddCourse Exit Sub End If 39。添加成績記錄 Dim str str = update score set score= amp。 where studentid=39。 (0).CellText() amp。 str = str amp。 amp。 39。39。 On Error Resume Next 39。針對所選的班級，列出班級中所有的學(xué)籍信息 Dim strSQL If = 全部 Then strSQL = from student order by serial Else strSQL = from student where class=39。 cboClass amp。 order by serial End If select * amp。39。 (1).CellText() amp。顯示查找窗口 Load frmFind 39。填充查找窗體的字段列表框 . For i = 0 To 1 . ((i).Name) Next i . = 0 .Show 1 If .mbFindFailed Then Exit Sub Dim sTemp As String If LCase(.msFindOp) = like Then sTemp = .msFindField amp。 .msFindOp amp。% amp。 %39。 amp。 39。 .msFindExpr amp。 End If sTemp = select * from student where amp。 order by serial Unload frmFind End With 39。查找數(shù)據(jù)，并刷新用以導(dǎo)航的網(wǎng)格控件 sTemp Call RefreshGrid Exit Sub errHandler: MsgBox 沒有符合條件的紀(jì)錄！, vbExclamation, 確認(rèn)End SubPrivate Sub Form_Load()39。39。從class中讀取數(shù)據(jù)，填充到cboClass復(fù)合框中 If = adStateClosed Then 全部 While Not rsClass(Name) Wend = 0 = True If gnUserType = 0 Then 39。教師身份登錄 = True = True = True = True Else 39。學(xué)生身份登錄 = False = False = False If = adStateOpen Then select * from student where serial =39。 gsUserName amp。 = sqlStudent End If Call grdScan_ChangeEnd SubPrivate Sub grdScan_Change() If 0 Then Call RefreshScore((0).CellText()) End IfEnd SubPrivate Sub grdScan_DblClick() = 1End SubPrivate Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 39。當(dāng)前行改變，則動態(tài)改變所要顯示的記錄 If LastRow Then If 0 Then Call RefreshScore((0).CellText()) End If End IfEnd Sub在Visual Basic的集成開發(fā)環(huán)境中創(chuàng)建好學(xué)生成績管理系統(tǒng)后，并無意味著全部工作已完成，此時生成的應(yīng)用程序只能在Visual Basic的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離Visual Basic的集成開發(fā)環(huán)境，然后調(diào)用打包和展開向?qū)?chuàng)建安裝程序。在發(fā)布學(xué)生成績管理應(yīng)用程序之前，首先應(yīng)該使用測試和調(diào)試工具對改應(yīng)用程序進(jìn)行前面測試，在排除了所有可能的錯誤后，才可以開始對應(yīng)用程序進(jìn)行編譯。 使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快。 給發(fā)布應(yīng)用程序作準(zhǔn)備。 使用應(yīng)用程序更安全。Visual Basic提供APP對象來存儲應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。Visual ：P代碼和本地代碼。因此，學(xué)生成績管理系統(tǒng)采用的視本地代碼的編譯格式。部署必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢茫员阌脩魜戆惭b應(yīng)用程序。252。 Visual Basic安裝軟件提供的安裝工具包。使用打包和展開向?qū)нM(jìn)行打包的第一個步驟就是選擇一個工程，然后單擊打包按鈕，開始創(chuàng)建一個可以發(fā)布的應(yīng)用程序。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌?，我們這里使用向?qū)е谱靼惭b程序。將學(xué)生成績管理系統(tǒng)打包后，制作安裝程序的過程并沒有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個媒體上，比如軟盤，光盤等，發(fā)布學(xué)生成績管理系統(tǒng)的主要步驟如下：選擇“學(xué)生成績管理系統(tǒng)”這個包，然后指定把這個包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“學(xué)生成績管理系統(tǒng)”的發(fā)布工作了。我們項(xiàng)目已進(jìn)行到了系統(tǒng)測試階段。為了保證我們的系統(tǒng)的質(zhì)量，為了使系統(tǒng)和用戶的需求無誤，最有效的方法就是進(jìn)行軟件測試，為了使測試有條不紊地進(jìn)行，我制定了該測試計劃。②質(zhì)量：檢查每模塊的功能、性能、要求是否符合相關(guān)文檔的技術(shù)要求，不合格者，糾正錯誤，保證質(zhì)量。 測試進(jìn)度：9項(xiàng)測試共3天一、引言： 背景：近三天來，我按照測試計劃有條不紊地測試完了系統(tǒng)，發(fā)現(xiàn)了許多錯誤，并改正了，測試完畢后，我對測試結(jié)果進(jìn)行了分析。二、測試結(jié)果：（略）三、軟件功能結(jié)果：我按照前一階段編制的“學(xué)生成績管理系統(tǒng)模塊功能表”，對系統(tǒng)每個模塊功能，用白盒法與黑盒法進(jìn)行了系統(tǒng)的測試，并沒有發(fā)現(xiàn)錯誤，說明了我的軟件預(yù)期功能全部實(shí)現(xiàn)。第六章 結(jié)論及體會在軟件的編寫過程中，我充分體會了軟件編程工作者的辛苦，因?yàn)槊恳粋€細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會全盤皆輸，而且往往很多的時候，程序我自己覺得非常的正確，但是就是編譯通不過，在查找錯誤的過程中，面臨