【正文】 e Sub bo2_KeyPress(KeyAscii As Integer) 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(2).Caption amp。數(shù)據(jù)傳遞到數(shù)據(jù)庫 !學(xué)期 = !班級(jí) = !學(xué)號(hào) = !姓名 = !課程名稱 = Visual Basic !類型 = !分?jǐn)?shù) = !年級(jí) = 2020 級(jí) End If Else 39。判斷是否是修改的窗體 If flAg = False Then = 成績修改 = 修改 39?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If If KeyAscii = 8 Then Text2 = End If End Sub Private Sub text3_KeyPress(KeyAscii As Integer) 39。 設(shè)計(jì)代碼： Private Sub Command1_Click() 39。 39。這個(gè) Form_Load 是刷新 list 列表用的 Form_Load MsgBox 設(shè)置成功！ , vbOKOnly + vbInformation, 提示 Else 28 = InputBox(輸入考試類型！ , 輸入 ) If = Then MsgBox 類型名稱不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If = 加入列表 = False = False = False = True End If End Sub Private Sub Command2_Click() If = Then MsgBox 你還沒有 選擇記錄！ , vbOKOnly + vbExclamation, 警告 Else If MsgBox(確定要?jiǎng)h除 類型名稱 為 amp。 () amp。 amp。判斷是否重復(fù) If = False Then MsgBox 已經(jīng)存在該類型名稱！ , vbOKOnly + vbExclamation, 警告 = 0 = Len() Exit Sub Else 39。 39。取消修改 = False = 修改 = True = True = True = End If End Sub Private Sub Form_Load() 39。打開數(shù)據(jù)庫中的 Tuition 表 OpenTable Adodc1, Tuition 39?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(1).Caption amp。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 39。初始化 bo 的值 = (ListIndex) = (ListIndex) = (ListIndex) End Sub Private Sub Label1_Click() End Sub Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then = End If If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If 39。打開數(shù)據(jù)庫中的 Studtuition 表 OpenTable Adodc1, Studtuition 39。初始化 bo2 的值 Do Until !專業(yè) 40 Loop = 0 End Sub Private Sub Command1_Click() 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 39。 amp。 !欠費(fèi) amp?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。 amp。提示有需要交費(fèi)多少錢 = 您選擇的是 + + 專業(yè)，應(yīng)繳納學(xué)費(fèi) amp?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 43 4． 5． 5 學(xué)生交費(fèi)查詢 圖 學(xué)生交費(fèi)查詢 設(shè)計(jì)過程： 所有用戶可以瀏覽的窗體，只要在兩個(gè) bo 框中選擇已經(jīng)從數(shù)據(jù)庫中調(diào)入的學(xué)號(hào)和姓名，就可以在 的 DateGrid 控件中顯示出來。 amp。 amp。回車換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39。此窗體連接 的是數(shù)據(jù)庫中的 KindCourse表，有權(quán)限的用戶可以增加，修改或者刪除，兩個(gè)text 控件只有在增加或刪除的時(shí)候才會(huì)激活。增加 !課程名稱 = !教材 = = 增加 = True = True = True = False = False = False = = MsgBox 添加課程成功！ , vbOKOnly + vbInformation, 提示 Else MsgBox 輸入課程名稱和教材！ , vbOKOnly + vbInformation, 輸入 48 = True = True = 加入列表 = False = False = False = True End If End Sub Private Sub Command2_Click() If = 保存修改 Then If = Then MsgBox 課程名稱不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 教材不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。取消修改 = False = True = 修改 = True = True = = End If 51 End Sub Private Sub Form_Load() 39。回車換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 52 4． 6． 2 班級(jí)課程瀏覽 圖 班級(jí)課程瀏覽 設(shè)計(jì)過程： 所有用戶都可以對(duì)班級(jí)的課程進(jìn)行瀏覽，而且選擇對(duì)各個(gè)專業(yè)的分類瀏覽。 amp。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 39。判斷是否重復(fù) = select * from Allcourse where 專業(yè) =39。 and 課程名稱 =39。 If = True Then 39。 (i) amp。 amp。 設(shè)計(jì)代碼： Private Sub Command5_Click() 39。 End Sub Private Sub Form_Load() 39。 設(shè)計(jì)代碼： Private Sub Command1_Click() If QX4 = True Then Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If 53 End Sub Private Sub Command2_Click() = select * from Allcourse where 專業(yè) =39。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。刪除語句 If MsgBox(確定要?jiǎng)h除記錄么？ , vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要?jiǎng)h除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then 50 MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() If = 加入列表 Then 39。 設(shè)計(jì)代碼： Private Sub Command1_Click() 47 39。初始化 bo1 的值 Do Until !學(xué)號(hào) Loop 39。 39。 39。退出該窗體 Unload Me End Sub Private Sub Command2_Click() 39。 元！ End Sub Private Sub text4_KeyPress(KeyAscii As Integer) 39。 39?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If If KeyAscii = 8 Then = End If If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If 42 End Sub Private Sub Text4_GotFocus() 39。顯示當(dāng)前日期于 Text5 = Date 39。 = sqlzhuanye 39。找到這個(gè)專業(yè)的交費(fèi)金額 sqlzhuanye = select * from tuition where 專業(yè) =39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox amp。交費(fèi)之后系統(tǒng)提醒還欠費(fèi)多少。 設(shè)計(jì)代碼： Private Sub Command1_Click() If QX3 = True Then Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamat