【正文】 進(jìn)入教師登陸界面End SubPrivate Sub Form_Load() = = 設(shè)定標(biāo)簽（歡迎使用成績(jī)管理系統(tǒng)）的起始值End SubPrivate Sub Timer1_Timer()If + = 0 Then = 50Else = 使上述標(biāo)簽以一定的時(shí)間運(yùn)動(dòng)End IfEnd Sub學(xué)生登陸界面核心代碼如下：Private Sub Command1_Click()UserName = If Trim() = ThenMsgBox 用戶名不能為空，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 ‘ 判斷輸入是否為空，若是，則彈出窗體警告！Else = select * from 密碼表 where 用戶名=39。 amp。 and 密碼=39。 amp。 連接數(shù)據(jù)庫(kù)，查找滿足條件的記錄。End IfEnd IfEnd SubPrivate Sub Command2_Click() = = End Sub “取消”按鈕，使兩個(gè)文本框內(nèi)容為空。End IfEnd Sub教師登陸界面：核心代碼如下所示；該界面代碼與上個(gè)界面基本一致。 amp。 39。 amp。 39。代碼如下：Private Sub Command1_Click()EndEnd Sub 單擊“退出系統(tǒng)”按鈕，結(jié)束程序。End SubPrivate Sub Form_Load() = select * from 成績(jī)表 where 學(xué)號(hào)=39。 amp。End Sub 當(dāng)界面載入的時(shí)候，就連接數(shù)據(jù)庫(kù)，并查找出滿足學(xué)號(hào)等于學(xué)生登陸窗體中的用戶名的記錄。 amp。 39。End SubPrivate Sub Command2_Click() = = End Sub 單擊“取消”按鈕，將文本框清空。End Sub主窗體界面：代碼如下：Private Sub tcxt_Click()End 單擊“退出系統(tǒng)”按鈕， 結(jié)束程序。 End SubPrivate Sub xgmm_Click() 單擊“修改密碼”按鈕，當(dāng)前窗體隱藏，“教師修改密碼”窗體出現(xiàn)。End SubPrivate Sub xxtj_Click() 單擊“信息添加”按鈕，進(jìn)入“學(xué)生信息添加”界面。End SubPrivate Sub cjcx_Click() End Sub 單擊“成績(jī)查詢”按鈕，進(jìn)入“成績(jī)查詢”界面。Private Sub cjxg_Click() 單擊“成績(jī)修改”按鈕，進(jìn)入成績(jī)修改界面。 amp。 39。Exit SubElseWith Data1..(0) = Trim().(1) = Trim().End WithMsgBox 添加用戶成功！, vbOKOnly + vbExclamation, 添加用戶End IfEnd Sub 若上述情況均沒(méi)有，則連接數(shù)據(jù)庫(kù)，將輸入的用戶信息添加到“教師密碼表”中去。End SubPrivate Sub Command3_Click() 單擊“返回”按鈕，返回到主界面。Else = select * from 密碼表 where 用戶名=39。 amp。(密碼) = 若一致，連接數(shù)據(jù)庫(kù)，進(jìn)行修改，將所輸入密碼保存到數(shù)據(jù)庫(kù)中去。Private Sub Command2_Click() = = End Sub 清空文本框。添加學(xué)生信息界面：代碼如下：Private Sub Command1_Click()If = Or = ThenMsgBox 學(xué)號(hào)和姓名不能為空！, vbOKOnly + vbExclamation, 警告Exit Sub 判斷“學(xué)號(hào)”和“姓名”是否為空，若是，則彈出警告，重新輸入!Else = select * from 基本信息表 where 學(xué)號(hào)=39。 Trim() amp。 If = False And = False ThenMsgBox 輸入的學(xué)號(hào)已經(jīng)存在，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 = = 若不為空，連接數(shù)據(jù)庫(kù)，判斷輸入的學(xué)號(hào)是否已經(jīng)存在，若存在，彈出警告，重新輸入！Else(0) = (1) = (2) = (3) = (4) = (5) = (6) = MsgBox 添加成功！ 若不為空，且輸入的學(xué)號(hào)不存在，則連接數(shù)據(jù)庫(kù)，將所輸入的信息添加到“基本信息表”中。 amp。 39。 amp。 39。 End IfEnd SubPrivate Sub Command2_Click()End Sub 修改學(xué)生信息界面： 代碼如下： Private Sub Command1_Click()If = ThenMsgBox 請(qǐng)輸入內(nèi)容！Else 判斷輸入內(nèi)容是否為空(0) = (1) = (2) = (3) = (4) = (5) = (6) = = Str((Val() + Val() + Val()) / 3)(7) = MsgBox 修改成功 不為空時(shí)，對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改，并保存入數(shù)據(jù)庫(kù)。 amp。 39。Else = (0) = (1) = (2) = (3) = (4) = (5) = (6)End If 由此記錄的話，直接顯示在文本框中。 amp。 39。 amp。 39。If = Then = select * from 基本信息表 End IfEnd Sub 為空時(shí)，調(diào)入全部記錄。 = : = : =