vb程序設(shè)計課程設(shè)計報告-學(xué)生成績管理系統(tǒng)(參考版)
2025-05-18 01:49本頁面
【正文】 。這樣的錯誤大都出現(xiàn)在語言編程上，這說明我對 VB的語言元素和流程控制語句還是不夠了解，需要今后不斷實踐不斷提高。在課設(shè)過程中我將 11 個窗體建立一個工程下 ，將第一個窗體設(shè)為主窗體，通過這個窗體可以訪問其他子窗體，避免訪問窗體的重復(fù)性和盲目性。所謂 “對象 ”就是個可操作實體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等，面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計要求直接在界面上設(shè)計出窗口、菜單、按鈕等類型對象并為每個對象設(shè)置屬性。 而 Chart控件 恐怕是我之前從未見過的控件，但是通過到圖書館查找資料后我發(fā)現(xiàn)它與其他控件比較也沒有什么特殊之處，它與 DBGrid控件 一樣需要被 ADO控件連接 ，通過設(shè)置圖表類型和圖表選項后，即可以直方圖的形式十分形象地顯 示每門課程學(xué)生成績分布情況，功能十分強(qiáng)大。在課設(shè)過程中，有很多窗 體都需要添加 ADO Data控件，將在 Access數(shù)據(jù)庫連接到 DBGrid控件，通過對 ADO Data控件的多次使用我已熟練地掌握了基于 ADO控件實現(xiàn) Access的數(shù)據(jù)訪問與操縱。在設(shè)計的過程中， 我 接觸了很多平時很少接觸到的控件，比如像 ADO Data控件 , DBGrid控件， Chart控件，它們都不是 VB的內(nèi)部控件。 步驟如下：步驟 在部件中加載 Chart控件 ： 步驟 步驟 3： Chart屬性設(shè)置如下 ： 35 點擊生成 VB直方圖按鈕后： Private Sub Command1_Click() = 1 = 36 For lngI = 1 To = lngI = Val((VB).Value) = (name).Value Next lngI = VB成績直方圖 End Sub Private Sub Command2_Click() = 1 = For lngI = 1 To = lngI = Val((Math).Value) = (name).Value Next lngI = Math成績直方圖 End Sub Private Sub Command3_Click() = 1 = For lngI = 1 To = lngI = Val((English).Value) = (name).Value Next lngI = English成績直方圖 End Sub 37 （ 10）優(yōu)等生界面 點擊圖 2的優(yōu)等生界面 ，出現(xiàn)圖 10 圖 10 優(yōu)等生界面 點擊統(tǒng)計優(yōu)等生 ，出現(xiàn) Private Sub Command1_Click() Dim vb As Integer 38 Dim math As Integer Dim english As Integer = select * from stu where ((math+english+vb)/3=90) or((math+english+vb)/3=85 and (math=100 or english=100 or vb=100 ))or((vb+english+math)/3=85 and ((vb=95 and english =95)or (english=95 and math=95)or ( math=95 and vb=95 )))and (mc=3) and (vb=60 and english=60 and math=60) End Sub 39 與體會 通過本次課程設(shè)計，我深刻感受到數(shù)據(jù)庫的應(yīng)用無處不在， VB具有強(qiáng)大的數(shù)據(jù)庫操縱功能，如果能好好掌握這門編程語言并且稍加應(yīng)用，無論對今后的工作還是學(xué)習(xí)都會起到很大的幫助。 當(dāng)點擊計算分?jǐn)?shù)段統(tǒng)計，則在相應(yīng)的文本框中顯示各科的分?jǐn)?shù)段。當(dāng)點擊排名，則 DataGrid表格中 mc列為顯示出名次，結(jié)果如下： 30 實現(xiàn)功能： 當(dāng)點擊清除排名后，則 DataGrid表格中 mc 列為空，結(jié)果如下 ： Private Sub Command1_Click() ’排名 = select * from stu order by total desc
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1