【正文】 加如下代碼： Private Sub frmStuScoreSel_Load(ByVal sender As , ByVal e As ) Handles Try 39。獲得當(dāng)前用戶所有已選學(xué)課程信息 Dim sqlScore As String = select as 課程編號, as 課程名稱, as 成績, as 學(xué)分 from s_c,course where = and =39。 amp。 currentUserID amp。 39。 = (sqlScore) = True 39。獲得當(dāng)前用戶的個人信息 Dim sqlStudent As String = select name ,grade from strdent where id=39。 amp。 currentUserID amp。 39。 Dim ds As New DataSet Dim dap1 As New (sqlStudent, onnstr) (ds, course) = currentUserID Dim r As DataRow For Each r In (0).Rows = (0) = (1) Next 39。獲得已選秀課程學(xué)分信息 Dim sqlCredit As String = select sum(credit) from s_c,course where = and =39。 amp。 currentUserID amp。 39。 and =60 Catch ex As Exception () End Try End Sub 為窗體 frmStuScoreSel 添加一個成績分析的過程。 Private Sub sqlselect(ByVal cid1 As String) 39。成績分析 Dim i As Integer26 / 31 Dim Cscorel(4, 1) As String Cscorel(1, 0) = select score from s_c where sid=39。 amp。 cur amp。 39。 and cid=39。 amp。 amp。 39。 Dim sql As String = select score from s_c where sid=39。 amp。 amp。 39。 and cid=39。 amp。 amp。 39。 Cscorel(2, 0) = select max(scor) from s_c where cid=39。 amp。 cid1 amp。 39。 Cscorel(3, 0) = select avg(scor) from s_c where cid=39。 amp。 cid1 amp。 39。 Cscorel(4, 0) = select min(scor) from s_c where cid=39。 amp。 cid1 amp。 39。 For i = 1 To 4 Cscorel(i, 1) = (Cscorel(i, 0)).Trim Next = Cscorel(1, 1) = Cscorel(2, 1) = Int(Val(Cscorel(3, 1))).ToString = Cscorel(4, 1) End Sub 為“已學(xué)課程”網(wǎng)絡(luò)控件“dgCourse”的 Enter 事件添加如下代碼： Try Dim i As Integer = Dim strcid As String = (i, 0).rim sqlselect(strcid) 39。當(dāng)前課程成績分析 Catch ex As Exception () End Try End Sub 為“已學(xué)課程”網(wǎng)絡(luò)控件“dgCourse”的 CurrentCellChanged 事件添加如下代碼：Private Sub dgCourse_Enter(ByVal sender As Object, ByVal e As Sys) Handles Try Dim i As Integer = Dim strcid As String = (i, 0).rim sqlselect(strcid) 39。當(dāng)前課程成績分析27 / 31 Catch ex As Exception () End Try End Sub結(jié)束語通過這次的實戰(zhàn)模擬，我的收獲頗豐，雖然在課程中學(xué)過系統(tǒng)分析,設(shè)計和實施,但在書本上學(xué)到的和實際實行過程中真的有很大的區(qū)別。學(xué)習(xí)書本的時候覺得有些內(nèi)容部是很難,想想也就是那么回事,可是到了實際操作的時候,錯了一小步下一步的進行都會很難,通過這次模擬，我掌握了一些，使我對管理信息系統(tǒng)有了進一步的了解，原來它在給企業(yè)帶來方便的背后是需要那么多人精心的設(shè)計。通過這次的課程實踐,也使我總結(jié)出團隊合作的默契真的好重要,一個人再怎么強都不算強,只有整個團隊共同努力,工作才會按計劃順利的進行,我們小組的三個人態(tài)度都很積極,大家一起努力,互相幫助,保證了我們的工作順利完成!而在工作中更為重要的便是要全身心的投入工作，我由最初的茫亂到后來的熟練，這是一個漸進的過程，不是一蹴而就的，需要有足夠的耐心和對新知識的渴求，逐漸的將自己身臨其位，真正的從系統(tǒng)設(shè)計員的角度思考并分析問題，提出解決的方案。28 / 31參考文獻 [1]韓偉峰， 《Delphi 7 程序設(shè)計教程》 ，清華大學(xué)出版社,2022。[2]陳豫龍、何旭洪等《Delphi 7 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航》人民郵電出版 社,2022。 [3]伍俊良， 《Delphi 7 實例編程 50 講》 ，北京希望電子出版社,2022。[4] 張剛,《信息系統(tǒng)開發(fā)實踐教程》,電子科技大學(xué)出版社,2022。[5] 鄭人杰,《實用軟件工程》,清華大學(xué)出版社,1996。[6] 周廣聲, 《信息系統(tǒng)工程原理、方法及應(yīng)用》,清華大學(xué)出版社,1998。