電子商務(wù)管理信息系統(tǒng)課程設(shè)計(jì)-資料下載頁(yè)
2025-04-07 21:51本頁(yè)面
【正文】 加如下代碼： Private Sub frmStuScoreSel_Load(ByVal sender As , ByVal e As ) Handles Try 39。獲得當(dāng)前用戶所有已選學(xué)課程信息 Dim sqlScore As String = select as 課程編號(hào), as 課程名稱, as 成績(jī), as 學(xué)分 from s_c,course where = and =39。 amp。 currentUserID amp。 39。 = (sqlScore) = True 39。獲得當(dāng)前用戶的個(gè)人信息 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 添加一個(gè)成績(jī)分析的過(guò)程。 Private Sub sqlselect(ByVal cid1 As String) 39。成績(jī)分析 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)前課程成績(jī)分析 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)前課程成績(jī)分析27 / 31 Catch ex As Exception () End Try End Sub結(jié)束語(yǔ)通過(guò)這次的實(shí)戰(zhàn)模擬，我的收獲頗豐，雖然在課程中學(xué)過(guò)系統(tǒng)分析,設(shè)計(jì)和實(shí)施,但在書本上學(xué)到的和實(shí)際實(shí)行過(guò)程中真的有很大的區(qū)別。學(xué)習(xí)書本的時(shí)候覺(jué)得有些內(nèi)容部是很難,想想也就是那么回事,可是到了實(shí)際操作的時(shí)候,錯(cuò)了一小步下一步的進(jìn)行都會(huì)很難,通過(guò)這次模擬，我掌握了一些，使我對(duì)管理信息系統(tǒng)有了進(jìn)一步的了解，原來(lái)它在給企業(yè)帶來(lái)方便的背后是需要那么多人精心的設(shè)計(jì)。通過(guò)這次的課程實(shí)踐,也使我總結(jié)出團(tuán)隊(duì)合作的默契真的好重要,一個(gè)人再怎么強(qiáng)都不算強(qiáng),只有整個(gè)團(tuán)隊(duì)共同努力,工作才會(huì)按計(jì)劃順利的進(jìn)行,我們小組的三個(gè)人態(tài)度都很積極,大家一起努力,互相幫助,保證了我們的工作順利完成!而在工作中更為重要的便是要全身心的投入工作，我由最初的茫亂到后來(lái)的熟練，這是一個(gè)漸進(jìn)的過(guò)程，不是一蹴而就的，需要有足夠的耐心和對(duì)新知識(shí)的渴求，逐漸的將自己身臨其位，真正的從系統(tǒng)設(shè)計(jì)員的角度思考并分析問(wèn)題，提出解決的方案。28 / 31參考文獻(xiàn) [1]韓偉峰， 《Delphi 7 程序設(shè)計(jì)教程》 ，清華大學(xué)出版社,2022。[2]陳豫龍、何旭洪等《Delphi 7 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》人民郵電出版 社,2022。 [3]伍俊良， 《Delphi 7 實(shí)例編程 50 講》 ，北京希望電子出版社,2022。[4] 張剛,《信息系統(tǒng)開(kāi)發(fā)實(shí)踐教程》,電子科技大學(xué)出版社,2022。[5] 鄭人杰,《實(shí)用軟件工程》,清華大學(xué)出版社,1996。[6] 周廣聲, 《信息系統(tǒng)工程原理、方法及應(yīng)用》,清華大學(xué)出版社,1998。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1