【正文】 課程設計說明書 沈 陽 大 學 選擇查詢條件 End If If = Then = select * from 成績表 order by 成績 desc End If End Sub Private Sub Command2_Click() End Sub 進入主界面 Private Sub Form_Load() = select * from 成績表 order by 成績 desc End Sub 課程設計說明書 沈 陽 大 學 。 amp。 Else = select * from 成績表 where 姓名 =39。 amp。 End Sub Private Sub Command2_Click() End Sub 進入主界面 Private Sub Command3_Click() If = Then MsgBox 請輸入內容！ Else 判斷輸入是否為空 mybookmark = Str2$ = MsgBox(是否刪除當前記錄？ , vbOKCancel, 當前記錄 ) If Str2$ = vbOK Then = = = = = = = = = End If 請空格文本框 End If End Sub 查詢成績 代碼如 下： Private Sub Command1_Click() If = 按學號 Then = select * from 成績表 where 學號 =39。 If Then MsgBox 學號不存在，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = 判斷輸入的學號是否存在，若不存在，彈出警告，并請空格文本框。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else 課程設計說明書 沈 陽 大 學 If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End If Exit Sub End Sub 成績管理模塊的創(chuàng)建 代碼如下： Private Sub Command1_Click() Dim mrc As Dim MsgText As String Dim txtSQL As String If Not Testtxt() Then MsgBox 請輸入考試編號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇班號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入姓名！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 課程設計說明書 沈 陽 大 學 if Not Testtxt() Then MsgBox 請輸入教室房間號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric(Trim()) Then MsgBox 請輸入數字！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText) While ( = False) If (Trim((0)) = Trim()) Then MsgBox 班號已經存在，請重新輸入班號！ , vbOKOnly + vbExclamation, 警告 Exit Sub = Else End If Wend (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() MsgBox 添加成績信息成功！ , vbOKOnly + vbExclamation, 添加成績信息 End Sub Private Sub Command2_Click() Unload Me End Sub 修改查詢成績模塊 代碼如下： Private Sub Command1_Click() If = Then 課程設計說明書