【正文】
aGrid 控件上就會顯示所要查詢的結(jié)果。 下面為輸入條件后查詢的結(jié)果 —— 在主界面上點(diǎn)擊“各科成績段查詢“按鈕后,會出現(xiàn)如下界面: 點(diǎn)擊“計(jì)算分?jǐn)?shù)段統(tǒng)計(jì)“按鈕后,就會出現(xiàn)所要查詢的結(jié)果。 下面為查詢的結(jié)果 —— 在主界面點(diǎn)擊“排名“按鈕后,出現(xiàn)如下界面: 在該界面上點(diǎn)擊 “排名“按鈕后, 在 DataGrid 控件上會顯示出按成績高低排名的結(jié)果,點(diǎn)擊”清除排名“按鈕后,剛才結(jié)果消失,顯示原來結(jié)果。 下面為所現(xiàn)實(shí)的結(jié)果 —— 在主界面點(diǎn)擊“統(tǒng)計(jì)直方圖“按鈕后,出現(xiàn)如下界面: 在該界面點(diǎn)擊各個按鈕后,就會出現(xiàn)與之相關(guān)科目的成績統(tǒng)計(jì)直方圖 ,下面為查詢的結(jié)果 —— 在主界面點(diǎn)擊“優(yōu)等生“按鈕后,出現(xiàn)如下界面: 點(diǎn)擊按鈕查詢后,結(jié)果就會在界面上顯示出來。 下面為所查詢的結(jié)果 —— 三、系統(tǒng)功能實(shí)施 以上展示的是系統(tǒng)的所有界面,怎樣才能讓這所有的功能實(shí)現(xiàn)呢?數(shù) 據(jù)庫和 ADO 控件的使用便是其中的關(guān)鍵。 建立如下數(shù)據(jù)庫 (學(xué)號、姓名、班級、英語、數(shù)學(xué)、 VB、總分、排名 ) 建立如下圖的所有界面 : ADO 控件和 DataGrid 控件以及數(shù)據(jù)庫的連接 步驟:(這一步在設(shè)計(jì)界面的同時完成) ( 1)、如何加載 ADO 控件: 步驟 1: 步驟 2: 步驟 3: 各個界面的 ADO 控件如何 連接數(shù)據(jù)庫(分兩步): 步驟 1: 如下面界面中的 5 個步驟 步驟 2: 選中 ADO 控件 Adodc1,點(diǎn)擊鼠標(biāo)右鍵選擇屬性,然后界面設(shè)置如下: 控件綁定數(shù)據(jù)庫的字段操作說明: 屬性設(shè)置說明:下面以學(xué)號為例,姓名、班級等都可參考此。將學(xué)號對應(yīng)的文本框 Text1連接 Adodc1 顯示數(shù)據(jù)庫中的學(xué)號,需要設(shè)置 DataSource和 DataField 兩個屬性 ,首先選中Text1 文本框,并進(jìn)行下面的兩步操作,即可綁定數(shù)據(jù)庫的學(xué)號字段。 設(shè)置 DataSource: 設(shè)置 DataField: ( 2)、如何加載 DataGrid 控件 控件 DataGrid,可以實(shí)現(xiàn)數(shù)據(jù)的批量處理,該控件在控件庫 Microsoft DataGrid Control 中。 說明: DataGrid 控件屬性設(shè)置 四、系統(tǒng)功能設(shè)計(jì) 系統(tǒng)功能的設(shè)計(jì),其核心就是程序代碼的編寫過程,如何讓讓系統(tǒng)更加完善、界面更加友好呢,這就得益于代碼的編寫。以下為各個界面所對應(yīng)的代碼 —— 該界面代碼如下: Private Sub Command1_Click() If = zg And = 10902 Then Else MsgBox 用戶名或密碼錯誤 ,請重新輸入 , vbMsgBoxSetForeground, 系統(tǒng)提示??! End If Static t As Integer t = t + 1 If t = 3 Then End End Sub Private Sub Command2_Click() a = MsgBox(確定要退出本系統(tǒng)嗎? , 3 + 32 + 256, 系統(tǒng)提示!! ) If a = 6 Then Unload Me End If End Sub 該界面代碼如下: Private Sub Command1_Click() End Sub Private Sub Command10_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() E