【文章內(nèi)容簡(jiǎn)介】 y + vbInformation, 提示 End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() 39。打開(kāi)數(shù)據(jù)庫(kù)中的 score 和 leixing表 OpenTable Adodc1, score OpenTable Adodc2, leixing 22 39。初始化 bo 的初值 For i = 0 To 2 Combo1(i).Text = Combo1(i).List(ListIndex) Next i 39。連接 DataGrid1 表到數(shù)據(jù)庫(kù) Set = Adodc1 39。初始化 bo1(3)的值 Combo1(3).Clear Do Until Combo1(3).AddItem !類(lèi)型 Loop Combo1(3).ListIndex = 0 End Sub 4． 4． 2 成績(jī)添加 23 圖 成 績(jī)添加 設(shè)計(jì)過(guò)程： 有權(quán)限的用戶(hù)可以進(jìn)行成績(jī)的添加或刪除的操作，學(xué)期，專(zhuān)業(yè)，類(lèi)型都可以從 bo框中選擇，學(xué)號(hào)，姓名是用戶(hù)自己輸入的，且不能為空，還有考試成績(jī)，使用了 keypress事件，只能鍵入數(shù)字，而且限定長(zhǎng)度為 3 位數(shù)。 設(shè)計(jì)代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) 39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。判斷文本框是否為空 If = Then MsgBox amp。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(2).Caption amp。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub 24 End If If = Then MsgBox Label2(4).Caption amp。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If flAg = True Then 39。確定后執(zhí)行的語(yǔ)句 If MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then MsgBox 添加成功！ , vbOKOnly + vbInformation, 提示 39。數(shù)據(jù)傳遞到數(shù)據(jù)庫(kù) !學(xué)期 = !班級(jí) = !學(xué)號(hào) = !姓名 = !課程名稱(chēng) = Visual Basic !類(lèi)型 = !分?jǐn)?shù) = !年級(jí) = 2020 級(jí) End If Else 39。確定后執(zhí)行的語(yǔ)句 If MsgBox(確定要修 改么？ , vbYesNo + vbInformation, 提示 ) = vbYes Then MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 39。數(shù)據(jù)傳遞到數(shù)據(jù)庫(kù) !學(xué)期 = !班級(jí) = !學(xué)號(hào) = !姓名 = !課程名稱(chēng) = Visual Basic !類(lèi)型 = !分?jǐn)?shù) = !年級(jí) = 2020 級(jí) End If 25 End If Unload Me End Sub Private Sub Form_Load() = (ListIndex) = (ListIndex) 39。初始化 bo3 的值 Do Until !類(lèi)型 Loop = 0 39。判斷是否是修改的窗體 If flAg = False Then = 成績(jī)修改 = 修改 39。數(shù)據(jù)庫(kù)數(shù)據(jù)傳遞到文本里 = !學(xué)期 = !班級(jí) = !學(xué)號(hào) = !姓名 = !類(lèi)型 = !分?jǐn)?shù) End If End Sub Private Sub Form_Activate() End Sub Private Sub Command2_Click() 39。退出該窗體 Unload Me End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then 26 SendKeys {TAB} End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) 39?；剀?chē)換下一個(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?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 4． 4． 3 考試類(lèi)型設(shè)置 27 圖 考試類(lèi)型設(shè)置 設(shè)計(jì)過(guò)程： 有權(quán)限的用戶(hù)盒超級(jí)管理員可以進(jìn)行考試類(lèi)型的增加，修改，刪除等操作。在此窗體修改過(guò)的東西會(huì)在其它具有選擇類(lèi)型的 bo 控件的窗體中作出相應(yīng)的修改。最大特點(diǎn)是在點(diǎn)擊增加或修改按鈕時(shí)，其他按鈕的 enable 屬性會(huì)變成 false，以免造成不正確的操作。 設(shè)計(jì)代碼： Private Sub Command1_Click() 39。增加考試類(lèi)型的代碼 If = 加入列表 Then = select * from leixing where 類(lèi)型 =39。 amp。 amp。 39。 39。判 斷是否重復(fù) If = False Then MsgBox 已經(jīng)存在該類(lèi)型名稱(chēng)！ , vbOKOnly + vbExclamation, 警告 = 0 = Len() Exit Sub Else 39。增加 !類(lèi)型 = = 增加 = True = True = True = False = End If 39。這個(gè) Form_Load 是刷新 list 列表用的 Form_Load MsgBox 設(shè)置成功！ , vbOKOnly + vbInformation, 提示 Else 28 = InputBox(輸入考試類(lèi)型！ , 輸入 ) If = Then MsgBox 類(lèi)型名稱(chēng)不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If = 加入列表 = False = False = False = True End If End Sub Private Sub Command2_Click() If = Then MsgBox 你還沒(méi)有 選擇記錄！ , vbOKOnly + vbExclamation, 警告 Else If MsgBox(確定要?jiǎng)h除 類(lèi)型名稱(chēng) 為 amp。 () amp。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then = select * from leixing where 類(lèi)型 =39。 amp。 () amp。 39。 = End If End If 39。這個(gè) Form_Load 是刷新 list 列表用的 Form_Load End Sub Private Sub Command3_Click() If = Then MsgBox 你還沒(méi)有選擇記錄！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = 保存修改 Then = select * from leixing where 類(lèi)型 =39。 amp。 amp。 39。 29 39。判斷是否重復(fù) If = False Then MsgBox 已經(jīng)存在該類(lèi)型名稱(chēng)！ , vbOKOnly + vbExclamation, 警告 = 0 = Len() Exit Sub Else 39。修改 = select * from leixing where 類(lèi)型 =39。 amp。 () amp。 39。 !類(lèi)型 = = = 修改 = True = True = True = End If 39。這個(gè) Form_Load 是刷新 list 列表用的 Form_Load MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 Else = 0 = Len() If = Then MsgBox 類(lèi)型名稱(chēng)不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If = False = False = 保存修改 = False 30 = True End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() If = 加入列表 Then 39。取消添加 = False = True = True = 增加 = True = Else 39。取消修改 = False = 修改 = True = True = True = End If End Sub Private Sub Form_Load() 39。打開(kāi)數(shù)據(jù)庫(kù)中的 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é)