【正文】 則進入圖 9界面。在課設(shè)過程中我將 11 個窗體建立一個工程下 ，將第一個窗體設(shè)為主窗體，通過這個窗體可以訪問其他子窗體，避免訪問窗體的重復(fù)性和盲目性。在課設(shè)過程中，有很多窗 體都需要添加 ADO Data控件，將在 Access數(shù)據(jù)庫連接到 DBGrid控件，通過對 ADO Data控件的多次使用我已熟練地掌握了基于 ADO控件實現(xiàn) Access的數(shù)據(jù)訪問與操縱。 23 說明： DataGrid控件屬性設(shè)置 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + + kc_條件 End Sub Private Sub Form_Load() kc_條件 = =92 kc = vb End Sub Private Sub Option1_Click() kc = VB End Sub Private Sub Option2_Click() kc = math End Sub 24 Private Sub Option3_Click() kc = English End Sub （ 4） 姓名查詢 界面 （參考成績查詢界面） 圖 5 姓名查詢界面 輸入姓名后 查詢 25 程序代碼如下 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。 3. 編程環(huán)境 Visual Basic 程序設(shè)計語言， Access97/2021 數(shù)據(jù)庫。 6. 排名窗體（ form5） 該窗體 界面上有兩個 Command按鈕，一個 ADO控件，還有一個 DataGrid控件， 可根據(jù)Acess表格上各學(xué)生所有課程的總分對學(xué)生進行排名。 圖 9 排名界面 實現(xiàn)功能： 當總分計算完后，可以根據(jù)總分計算排名。通過了大二一個學(xué)期的學(xué)習(xí)，我已基本對 VB 的基礎(chǔ)知識有了大致的了解 ，但是這些大多是純理論上的，一旦真正動起手來時常出現(xiàn)這樣那樣的錯誤，甚至 VB 提醒后仍然無法察覺。 ADO又稱 OLE自動化接口，是訪問由 Microsoft推出的最新、功能最強的應(yīng)用程序接口， 作為 Active數(shù)據(jù)對象，能將一個數(shù)據(jù)源連接到一個數(shù)據(jù)感知控件。 查詢之前結(jié)果： 22 點擊查詢之后的結(jié)果： 控件 DataGrid，實現(xiàn)數(shù)據(jù)的批量處 理，該控件在控件庫 Microsoft DataGrid Control 中。 2. 操作系統(tǒng) Windows 98/2021/XP。 7. 各科成績段統(tǒng)計窗體（ form6） 9 該窗體可直接實現(xiàn)對各門課程中優(yōu)秀人數(shù) 、 良好人數(shù) 、 中等人數(shù) 、 及格人數(shù) 、 不及格人數(shù) 進行統(tǒng)計。當點擊排名，則 DataGrid表格中 mc列為顯示出名次，結(jié)果如下： 30 實現(xiàn)功能： 當點擊清除排名后，則 DataGrid表格中 mc 列為空，結(jié)果如下 ： Private Sub Command1_Click() ’排名 = select * from stu order by total desc For i = 1 To (mc).Value = i Next i End Sub Private Sub Command2_Click() ’清除排名 For i = 1 To (mc).Value = Null Next i End Sub 31 （ 8）各科成績段統(tǒng)計 界面 當在圖 2中點各科成績段統(tǒng)，則進入圖 9界面。這樣的錯誤大都出現(xiàn)在語言編程上，這說明我對 VB的語言元素和流程控制語句還是不夠了解，需要今后不斷實踐不斷提高。在設(shè)計的過程中， 我 接觸了很多平時很少接觸到的控件，比如像 ADO Data控件 , DBGrid控件， Chart控件，它們都不是 VB的內(nèi)部控件。 參考代碼：（在圖 3工程的學(xué)生管理點擊事件中加） Private Sub Command1_Click() ’ 添加 End Sub Private