vb學(xué)生成績(jī)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)課程設(shè)計(jì)報(bào)告(文件)
【正文】 點(diǎn)擊“計(jì)算分?jǐn)?shù)段統(tǒng)計(jì)“按鈕后，就會(huì)出現(xiàn)所要查詢的結(jié)果。 建立如下數(shù)據(jù)庫(kù)(學(xué)號(hào)、姓名、班級(jí)、英語(yǔ)、數(shù)學(xué)、VB、總分、排名)建立如下圖的所有界面： ADO控件和DataGrid控件以及數(shù)據(jù)庫(kù)的連接步驟：（這一步在設(shè)計(jì)界面的同時(shí)完成）（1）、如何加載ADO控件：步驟1：步驟2：步驟3：各個(gè)界面的ADO控件如何連接數(shù)據(jù)庫(kù)（分兩步）：步驟1： 如下面界面中的5個(gè)步驟步驟2：選中ADO控件Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下：控件綁定數(shù)據(jù)庫(kù)的字段操作說(shuō)明：屬性設(shè)置說(shuō)明：下面以學(xué)號(hào)為例，姓名、班級(jí)等都可參考此。以下為各個(gè)界面所對(duì)應(yīng)的代碼——該界面代碼如下：Private Sub Command1_Click() If = zg And = 10902 Then Else MsgBox 用戶名或密碼錯(cuò)誤,請(qǐng)重新輸入, vbMsgBoxSetForeground, 系統(tǒng)提示?。?End If Static t As Integer t = t + 1 If t = 3 Then EndEnd SubPrivate Sub Command2_Click()a = MsgBox(確定要退出本系統(tǒng)嗎？, 3 + 32 + 256, 系統(tǒng)提示??！)If a = 6 ThenUnload MeEnd IfEnd Sub 該界面代碼如下： Private Sub Command1_Click() End SubPrivate Sub Command10_Click() End SubPrivate Sub Command3_Click() End SubPrivate Sub Command4_Click() End SubPrivate Sub Command5_Click() End SubPrivate Sub Command6_Click() End SubPrivate Sub Command7_Click() End SubPrivate Sub Command8_Click() End SubPrivate Sub Command9_Click() End Sub該界面代碼如下：Private Sub Command1_Click() End SubPrivate Sub Command2_Click() If = 0 Or Then Exit SubEnd IfIf = 0 Then Exit SubEnd IfIf Then End SubPrivate Sub Command4_Click() End SubPrivate Sub Command5_Click() Unload Me End Sub該界面代碼如下：Dim kc_條件 As StringDim kc As StringPrivate Sub Command1_Click()kc_條件 = = select * from stu where + kc + + kc_條件End SubPrivate Sub Form_Load()kc_條件 = =92kc =
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1