【正文】 無此用戶 txtUserName = txtPassword = End If End Sub Private Sub Command1_Click() MsgBox 可以以用戶名和密碼均為 guest 進入 , vbOKOnly + vbInformation, 提示 End Sub Private Sub Form_Load() OpenTable Adodc1, use End Sub 7 4． 2 主控界面 圖 主控界面 設(shè)計過程： 所有功能都在菜單中打開來實現(xiàn)，在最下面添加了工具欄，來顯示時間，操作員，狀態(tài)等信息。 amp。 ZhuangTai End Sub Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 39。刪除語句 If MsgBox(確定要刪除學(xué)號為 amp。 會導(dǎo)致該學(xué)生的信息丟失 ! amp。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub 14 4． 3． 2 檔案添加 圖 檔案登記 設(shè)計過程： 用于檔案 的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進行了連接，可以直接進行添加，前提是必須有權(quán)限，加入了 text 和 bo 控件的 keypress事件，讓用戶可以更輕松的進行添加。定義變量 Dim msg Dim f As Boolean Dim g As Boolean Dim j As Integer f = True g = True 39。反白錯誤的框 Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = 10 Exit Sub End If 39。確定后執(zhí)行的語句 If msg = vbYes Then MsgBox 添加成功！ , vbOKOnly + vbInformation, 提示 39。打開數(shù)據(jù)庫中的 student 表 OpenTable Adodc1, student 39。若沒 18 有找到一條符合的記錄，則會提示無此記錄。 amp。 amp。 amp。回車換下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。此窗體是連接到數(shù)據(jù)庫中的 scorei表。 的記錄么？ amp。 確定么 ?, vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要刪除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command3_Click() 39。 39。 39。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 39。回車換下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub 24 End If If = Then MsgBox Label2(4).Caption amp。確定后執(zhí)行的語句 If MsgBox(確定要修 改么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 39。數(shù)據(jù)庫數(shù)據(jù)傳遞到文本里 = !學(xué)期 = !班級 = !學(xué)號 = !姓名 = !類型 = !分數(shù) End If End Sub Private Sub Form_Activate() End Sub Private Sub Command2_Click() 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 4． 4． 3 考試類型設(shè)置 27 圖 考試類型設(shè)置 設(shè)計過程： 有權(quán)限的用戶盒超級管理員可以進行考試類型的增加，修改，刪除等操作。增加考試類型的代碼 If = 加入列表 Then = select * from leixing where 類型 =39。 39。 () amp。 39。 amp。修改 = select * from leixing where 類型 =39。 !類型 = = = 修改 = True = True = True = End If 39。打開數(shù)據(jù)庫中的 leixing表 OpenTable Adodc1, leixing If = False Then Do While Not (0) Loop End If 31 End Sub Private Sub List1_Click() = () End Sub 4． 學(xué)費管理 4． 5． 1 學(xué)費設(shè)置瀏覽 圖 學(xué)費設(shè)置瀏覽 設(shè)計過程： 此窗體是有權(quán)限的用戶可以瀏覽的，主要用來對各個專業(yè)的學(xué)費金額進行設(shè)置，與數(shù)據(jù)庫中的 Tuition 表進行了連接。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub 33 4． 5． 2 學(xué)費設(shè)置添加 圖 學(xué)費設(shè)置添加 設(shè)計過程： 有主窗體或者學(xué)費設(shè)置瀏覽窗體可以打開的另一個子窗體，用于對學(xué)費的具體設(shè)置，用戶主要對專業(yè)和金額進行輸入就可以了，其他的都是默認給出的，并對學(xué)生的交費產(chǎn)生影響，增加或者修改的數(shù)據(jù)都保存在 窗體打開的數(shù)據(jù)庫中?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Combo4_KeyPress(KeyAscii As Integer) 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(2).Caption amp。確定后執(zhí)行的語句 If MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then MsgBox 添加成功！ , vbOKOnly + vbInformation, 提示 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 37 4． 5． 3 學(xué)生交費瀏覽 圖 學(xué)生交費瀏覽 設(shè)計過程： 此窗體用于瀏覽學(xué)生的交費信息，與數(shù)據(jù)庫中的 Studtuition 表進行連接，任何用戶可以瀏覽這個窗體。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub 39 4． 5． 4 學(xué)生交費添加 圖 學(xué)生交費添加 設(shè)計過程： 有權(quán)限的用戶可以用此窗體交費，當(dāng)選擇專業(yè)后，會在最底端顯示用戶應(yīng)交的費用，日期也是當(dāng)前系統(tǒng)的時間，不可修改的。判斷文本框是否為空 If = Then MsgBox amp。確定后執(zhí)行的語句 If MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then 39。 39。 元！ , vbOKOnly + vbInformation, 提示 41 End If Unload Form11 Unload Me End Sub Private Sub Form_Load() 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) 39。 amp。 !學(xué)費 amp。 設(shè)計代碼： Private Sub Command1_Click() 39。 amp。 amp?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Form_Load() 39。班級課程所設(shè)計的課程所選的書就是這些書。修改 !課程名稱 = !教材 = = = 49 = True = 修改 = True = True = False MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 = False = False = = Else MsgBox 請修改課程名稱和教材！ , vbOKOnly + vbInformation, 輸入 = True = True = False = 保存修改 = False = False = True = !課程名稱 = !教材 End If End Sub Private Sub Command3_Click() 39。打開數(shù)據(jù)庫中的 KindCourse 表 OpenTable Adodc1, KindCourse 39。要是有權(quán)限還可以打開設(shè)置的窗體。 39。初始化 bo1 的值 For i = 0 To 3 !專業(yè) Next i = 0 End Sub 54 4． 6． 2 班級課程設(shè)置 圖 班級課程設(shè)置 設(shè)計過程： 兩個 list 控件可以任意的添加用戶所想要添加的科目，所用科目都會在 中進行提前設(shè)置好的。 amp。 amp。增加 !年級 = 2020 年級 !年制 = 3 年制 !專業(yè) = !學(xué)期 = 20202020 上學(xué)期 !課程名稱 = (