【正文】 Click() If = 加入列表 Then 39。 39。 amp。判斷是否重復(fù) If = False Then MsgBox 已經(jīng)存在該類(lèi)型名稱(chēng)！ , vbOKOnly + vbExclamation, 警告 = 0 = Len() Exit Sub Else 39。 39。 amp。 = End If End If 39。 () amp。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then = select * from leixing where 類(lèi)型 =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。判 斷是否重復(fù) If = False Then MsgBox 已經(jīng)存在該類(lèi)型名稱(chēng)！ , vbOKOnly + vbExclamation, 警告 = 0 = Len() Exit Sub Else 39。 39。 amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() 39。在此窗體修改過(guò)的東西會(huì)在其它具有選擇類(lèi)型的 bo 控件的窗體中作出相應(yīng)的修改?；剀?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。退出該窗體 Unload Me End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。判斷是否是修改的窗體 If flAg = False Then = 成績(jī)修改 = 修改 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。數(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。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If flAg = True Then 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(2).Caption amp。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 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ù)。初始化 bo 的初值 For i = 0 To 2 Combo1(i).Text = Combo1(i).List(ListIndex) Next i 39。 = sqlxuwqi = sqlleixing If Then MsgBox 無(wú)此記錄 , vbOKOnly + vbInformation, 提示 End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() 39。 Combo1(3).Text amp。 sqlleixing = select * from score where 類(lèi)型 =39。 Combo1(2).Text amp。定義 sql語(yǔ)言 Dim sqlxuwqi As String Dim sqlleixing As String sqlxuwqi = select * from score where 學(xué)期 =39。 Chr(10) + Chr(13) amp。 Chr(10) + Chr(13) amp。 !學(xué)號(hào) amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() If QX4 = True Then flAg = False Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub 21 Private Sub Command2_Click() If QX4 = True Then 39。若是有權(quán)限的話(huà)還可以直接刪除?；剀?chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) 39。退出該窗體 19 Unload Me End Sub Private Sub Form_Activate() End Sub Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 39。 amp。 39。 amp。 39。 amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() 39。在此窗體上必須輸入至少一條記錄，不然會(huì)提示。初始化 bo 的初值 = (ListIndex) = (ListIndex) 17 End Sub Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer) 39。退出該窗體 Unload Me End Sub Private Sub Form_Load() 39。數(shù)據(jù)傳遞到數(shù)據(jù)庫(kù) !學(xué)號(hào) = Text1(0).Text !姓名 = Text1(1).Text !出生年月 = Text1(2).Text !家庭住址 = Text1(3).Text !入學(xué)時(shí)間 = Text1(4).Text !備注 = Text1(5).Text !性別 = !班級(jí) = 39。判斷是否要保存 If f = True And g = True Then msg = MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) End If 39。判斷入學(xué)時(shí)間是否為日期 If Not IsDate(Text1(4).Text) Then MsgBox 應(yīng)輸入日期 yymmdd, vbOKOnly + vbInformation, 提示 g = False 39。判斷出生年月是否為日期 If Not IsDate(Text1(2).Text) Then MsgBox 應(yīng)輸入日期 yymmdd, vbOKOnly + vbInformation, 提示 g = False 39。判斷文本框是否為空 For j = 0 To 4 If Text1(j).Text = Then MsgBox Label2(j).Caption amp。回車(chē)換下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then 15 SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。 設(shè)計(jì)代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。打開(kāi)數(shù)據(jù)庫(kù)中的 student 表 OpenTable Adodc1, student 39。 Chr(10) + Chr(13) amp。 Chr(10) + Chr(13) amp。 !學(xué)號(hào) amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() 13 End Sub Private Sub Command2_Click() If QX2 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command3_Click() If QX2 = True Then 39。彈出式菜單 If Button = 2 Then PopupMenu tan End If End Sub Private Sub MDIForm_Unload(Cancel As Integer) Call quit_Click End Sub Private Sub quit_Click() If MsgBox(確定要要退出本系統(tǒng)么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then 11 End End If End Sub Private Sub shuiping_Click() 1 End Sub Private Sub textleixing_Click() If QX4 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Timer1_Timer() (2) = Now End Sub Private Sub useradd_Click() If QX1 = True Then Else MsgBox 對(duì)不起 ,您沒(méi)有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub vi