vb∕oracle學(xué)生成績(jī)管理系統(tǒng)--oracle數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告-資料下載頁(yè)
2025-01-15 18:00本頁(yè)面
【正文】 tr(reco(XF amp。 )) End If Wend End Sub Private Sub ComboZY_Click() Close_Reco select * from s where ZYM=39。 + Trim() + 39。, conn, 1, 3 = reco(XH) VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) VB設(shè)計(jì) 第 14 頁(yè) 共 17 頁(yè) While Not (Trim(reco(XH))) Wend ComboXH_Click End Sub Private Sub Command1_Click() Dim StXH, StKCM, StCJ, StXF If Trim() = Or Trim() = Then MsgBox 輸入完整的信息！ , , 提示： Exit Sub End If insert into s_c values(39。 + Trim() + 39。,39。 + aaa + 39。,39。 + Trim() + 39。,39。 + Trim() + 39。) = select ,XM,ZYM,KCM,CJ, as XF from s,c,s_c where = and = order by XH End Sub Private Sub Command2_Click() ret = MsgBox(是否要?jiǎng)h除 + + 學(xué)號(hào)的 + Trim() + 課的成績(jī)記錄？ , vbYesNo, 提示： ) If ret = vbYes Then delete from s_c where XH=39。 + + 39。 and KCH=39。 + aaa + 39。 = select ,XM,ZYM,KCM,CJ, as XF from s,c,s_c where = and = order by XH MsgBox 刪除成功！ , , 提示： End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) On Error Resume Next = (ZYM) = (XH) = (KCM) VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) VB設(shè)計(jì) 第 15 頁(yè) 共 17 頁(yè) = (XM) = (CJ) = (XF) aaa = (KCH) End Sub Private Sub Form_Load() OpenDB = conn = select * from c = adCmdText Set reco = = reco(KCM) While Not (Trim(reco(KCM))) Wend = select distinct ZYM from s = adCmdText Set reco = = reco(ZYM) While Not (reco(ZYM)) Wend ComboZY_Click ComboXH_Click End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next End Sub VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) 總 結(jié) 第 16 頁(yè) 共 17 頁(yè) 第四章 總結(jié) 不知不覺(jué)， 兩個(gè)周 已經(jīng)過(guò)去，我們 的 VB/ORACLE 學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)已經(jīng)結(jié)束。通過(guò)這次數(shù)據(jù)庫(kù)設(shè)計(jì)，使我再一次鞏固了在課堂上學(xué)習(xí)的知識(shí)，讓自己在這方面有很大的收獲。 在 VB/ORACLE學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì) 過(guò)程中，有很多需要注意的東西 ： 要有團(tuán)隊(duì)合作的精神?，F(xiàn)今的大中型 系統(tǒng) 的編寫(xiě)，分工越來(lái)越細(xì)。我們這次編寫(xiě)的簡(jiǎn)單的學(xué)生 成績(jī)管理系統(tǒng) 就分了好 幾 部分，而每個(gè)部分又包括好幾個(gè)，針對(duì)不同的功能。所以在編程過(guò)程中，一定要和組員 或老師 交流，不至于最后各自的程序連接不起來(lái)。團(tuán)隊(duì)合作精神在 系統(tǒng)設(shè)計(jì)開(kāi)發(fā)中 非常重要。 要有耐性，不要浮躁。長(zhǎng)時(shí)間調(diào)試一個(gè)錯(cuò)誤，沒(méi)有人會(huì) 覺(jué)得 有趣。但是，我們應(yīng)該換一個(gè)角度去思考，我們?cè)谧屛覀兂绦蚋晟?時(shí) ，那也是一種成就！ 要有模仿精神。有些程序要實(shí)現(xiàn)的功能可能與某寫(xiě)曾經(jīng)寫(xiě)過(guò)或用過(guò)的功能類(lèi)似，這是我們可以把一些好的代碼拿過(guò)來(lái)，修改之后成為自己的代碼。很多時(shí)候好的模仿能節(jié)省更多的時(shí)間，也是我們成功的方法之一。 要有創(chuàng)新精神。在編寫(xiě)程序中，要有自己的想法，賦予自己程序新的思想。要不斷學(xué)習(xí)。對(duì)于一個(gè)想變成優(yōu)秀的人，任何時(shí)候都需要學(xué)習(xí)。要不斷的實(shí)踐。書(shū)本上的知識(shí)，別人的經(jīng)驗(yàn)，你不去實(shí)踐，永遠(yuǎn) 不是你的。理論與實(shí)踐結(jié)合才是硬道理。 通過(guò)這次 數(shù)據(jù)庫(kù)設(shè)計(jì) ，我在個(gè)人素質(zhì)方面有較大的提高，包括面對(duì)處理問(wèn)題的能力、思維的創(chuàng)造性和全面性、交流和溝通能力、為人處事的能力等，同時(shí)克服自己的缺點(diǎn)。 在以后的學(xué)習(xí)中，不僅要努力學(xué)習(xí)專(zhuān)業(yè)技能知識(shí)，在空閑時(shí)間還要堅(jiān)持自己的編程能力，作為即將走入社會(huì)我我們來(lái)說(shuō)，更應(yīng)該在有限的時(shí)間內(nèi)，掌握更多的專(zhuān)業(yè)知識(shí)，加強(qiáng)實(shí)踐和設(shè)計(jì)能力，這樣更有利于將來(lái)的發(fā)展，在自己的領(lǐng)域內(nèi)有所作為。 VB/ORACLE學(xué)生成績(jī)管理系統(tǒng) 附 錄 第 17 頁(yè) 共 17 頁(yè) 附錄 教師評(píng)語(yǔ)： 指導(dǎo)老師簽名： 時(shí) 間：
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1