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