【正文】 VB 采用了 面向?qū)ο笤O(shè)計(jì)的 思想，它基本思路是把復(fù)雜的設(shè)計(jì)問題分解為多個(gè)能夠完成獨(dú)立功能且相對(duì)簡(jiǎn)單的對(duì)象集合。 + kc_條件 + 39。其中查詢統(tǒng)計(jì)功能又分各科成績(jī)查詢、姓名查詢、班級(jí)查詢、各科成績(jī)段查詢這五個(gè)功能。 3. 學(xué)生管理窗體（ form2） 6 該窗體通過 Adodc控件能 直接瀏覽 Acess表格上學(xué)生的信息，還可以通過添加按鈕添加某學(xué)生的信息，通過刪除按鈕刪除某學(xué)生的信息，通過保存按鈕保存添加的學(xué)生信息，點(diǎn)擊返回主窗口按鈕可直接返回 form1主窗口。 End Sub Private Sub Form_Load() kc = class End Sub （ 6）統(tǒng)計(jì)總分界面 。所謂 “對(duì)象 ”就是個(gè)可操作實(shí)體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等，面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計(jì)要求直接在界面上設(shè)計(jì)出窗口、菜單、按鈕等類型對(duì)象并為每個(gè)對(duì)象設(shè)置屬性。 而 Chart控件 恐怕是我之前從未見過的控件，但是通過到圖書館查找資料后我發(fā)現(xiàn)它與其他控件比較也沒有什么特殊之處，它與 DBGrid控件 一樣需要被 ADO控件連接 ，通過設(shè)置圖表類型和圖表選項(xiàng)后，即可以直方圖的形式十分形象地顯 示每門課程學(xué)生成績(jī)分布情況，功能十分強(qiáng)大。 End Sub Private Sub Form_Load() kc = name End Sub （ 5）班級(jí)查詢界面（參考成績(jī)查詢界面） 26 圖 6 班級(jí)查詢界面 輸入 班級(jí) 后 查詢 27 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。 2. 學(xué)生成績(jī)管理系統(tǒng) （ form1） 5 學(xué)生成績(jī)管理系統(tǒng)這個(gè)窗體有學(xué)生管理（添加與刪除）、查詢與統(tǒng)計(jì)、統(tǒng)計(jì)總分、排名、統(tǒng)計(jì)直方圖 、 優(yōu)等生界面 這五大主 要功能。其程序代碼如下： 4. 成績(jī)的查詢窗體（ form3） 7 通過該窗體可直接輸入的查詢條件分別對(duì) VB、 Math、 English這三門課程各成績(jī)段學(xué)生情況統(tǒng)計(jì)。 當(dāng)在圖 2中點(diǎn)統(tǒng)計(jì)總分，則進(jìn)入圖 5界面。 其中 窗體是最基本的對(duì)象， 窗體是 VB應(yīng)用程序的基本構(gòu)造模塊，每一個(gè)窗體都有自己的窗體 設(shè)計(jì)器 窗口，是我們進(jìn)行界面設(shè)計(jì)的場(chǎng)所，一個(gè)窗體在程序運(yùn)行時(shí)便成為一個(gè)窗口 ，所有的控件都必須放在窗體上才能夠 編寫代碼。DBGrid控件在被 ADO控件連接后，只需設(shè)置 DataSource屬性為 Adodc1，運(yùn)行后即可顯示網(wǎng)格的數(shù)據(jù)源。 + kc_條件 + 39。 4 2. 界面設(shè)計(jì)和功能設(shè)計(jì) 1. 用戶登錄 界面 （ form10） 以 windows7的登陸界面為背景，簡(jiǎn)單清新 ，為操作簡(jiǎn)單考慮，無(wú)需輸入用戶名與密碼，直接點(diǎn)擊登錄即可進(jìn)入學(xué)生成績(jī)管理系統(tǒng)的主窗體 。 5. 統(tǒng)計(jì)總分窗體（ form4） 8 該窗體 界面上有 兩 個(gè) Command按鈕，一個(gè) ADO控件，還有一個(gè) DataGrid控件， 可以計(jì)算 Acess表格上各學(xué)生所有課程的總分。 實(shí)現(xiàn)功能： 當(dāng)點(diǎn)擊計(jì)算總分，則 DataGrid表格中 total列為三門課的總分，結(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)排名，