【正文】
d3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() 16 End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub Private Sub Command9_Click() End Sub ( 2)學(xué)生管理界面 圖 3 學(xué)生管理界面 如何加載 ADO 步驟一 17 步驟二 步驟三 18 各個界面的 ADO控件如何連接數(shù)據(jù)庫(分兩步): 步驟 一 : 如下面界面中的 5個步驟 步驟 2: 選中 ADO控件 Adodc1,點(diǎn)擊鼠標(biāo)右鍵選擇屬性,然后界面設(shè)置如下: 19 控件綁定數(shù)據(jù)庫的字段操作說明: 屬性設(shè)置說明:下面以學(xué)號為例,姓名、班級等都可參考此。 + kc_條件 + 39。 32 Private Sub Command1_Click() Dim vb_A As Integer, vb_B As Integer, vb_C As Integer, vb_D As Integer, vb_E As Integer Dim Math_A As Integer, Math_B As Integer, Math_C As Integer, Math_D As Integer, Math_E As Integer Dim English_A As Integer, English_B As Integer, English_C As Integer, English_D As Integer, English_E As Integer = select * from stu where vb=90 vb_A = = vb_A = select * from stu where vb=80 and vb90 vb_B = = vb_B = select * from stu where vb=70 and vb80 vb_C = = vb_C 33 = select * from stu where vb=60 vb_D = = vb_D = select * from stu where vb60 vb_E = = vb_E = select * from stu where vb=90 Math_A = = Math_A = select * from stu where vb=80 and vb90 Math_B = = Math_B = select * from stu where vb=70 and vb80 Math_C = = Math_C = select * from stu where vb=60 Math_D = = Math_D = select * from stu where vb60 Math_E = = Math_E = select * from stu where vb=90 English_A = = English_A = select * from stu where vb=80 and vb90 English_B = = English_B 34 = select * from stu where vb=70 and vb80 English_C = = English_C = select * from stu where vb=60 English_D = = English_D = select * from stu where vb60 English_E = = English_E End Sub ( 9)直方圖界面 實(shí)現(xiàn)的功能:生成各科成績的直方圖。 VB 采用了 面向?qū)ο笤O(shè)計(jì)的 思想,它基本思路是把復(fù)雜的設(shè)計(jì)問題分解為多個能夠完成獨(dú)立功能且相對簡單的對象