【正文】 ect * from leixing where 類型 =39。 39。這個 Form_Load 是刷新 list 列表用的 Form_Load MsgBox 修改成功！ , vbOKOnly + vbInformation, 提示 Else = 0 = Len() If = Then MsgBox 類型名稱不能為空！ , 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。 設(shè)計(jì)代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If 35 If = Then MsgBox Label2(3).Caption amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() If QX3 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() Unload Me 38 End Sub Private Sub Command4_Click() If QX3 = True Then 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox amp。 = sqlzhuanye 39。回車換下一個輸入項(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。 元！ End Sub Private Sub text4_KeyPress(KeyAscii As Integer) 39。 39。初始化 bo1 的值 Do Until !學(xué)號 Loop 39。刪除語句 If MsgBox(確定要刪除記錄么？ , vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要刪除么？ , 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() If QX4 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If 53 End Sub Private Sub Command2_Click() = select * from Allcourse where 專業(yè) =39。 設(shè)計(jì)代碼： Private Sub Command5_Click() 39。 (i) amp。 and 課程名稱 =39。連接 DataGrid1 表到數(shù)據(jù)庫 Set = Adodc1 39?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub 52 4． 6． 2 班級課程瀏覽 圖 班級課程瀏覽 設(shè)計(jì)過程： 所有用戶都可以對班級的課程進(jìn)行瀏覽，而且選擇對各個專業(yè)的分類瀏覽。增加 !課程名稱 = !教材 = = 增加 = 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?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39。 amp。提示有需要交費(fèi)多少錢 = 您選擇的是 + + 專業(yè)，應(yīng)繳納學(xué)費(fèi) amp?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text1_KeyPress(KeyAscii As Integer) 39。 amp。初始化 bo2 的值 Do Until !專業(yè) 40 Loop = 0 End Sub Private Sub Command1_Click() 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。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(1).Caption amp。打開數(shù)據(jù)庫中的 Tuition 表 OpenTable Adodc1, Tuition 39。 39。 amp。這個 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(確定要刪除 類型名稱 為 amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() 39。判斷是否是修改的窗體 If flAg = False Then = 成績修改 = 修改 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(2).Caption amp。初始化 bo 的初值 For i = 0 To 2 Combo1(i).Text = Combo1(i).List(ListIndex) Next i 39。 Combo1(2).Text amp。 !學(xué)號 amp。退出該窗體 19 Unload Me End Sub Private Sub Form_Activate() End Sub Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 amp。在此窗體上必須輸入至少一條記錄，不然會提示。判斷是否要保存 If f = True And g = True Then msg = MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) End If 39?；剀嚀Q下一個輸入項(xiàng)目 If KeyAscii = 13 Then 15 SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。 Chr(10) + Chr(13) amp。 If QXstr = admin Then ZhuangTai = 超級管理員 ElseIf QXstr = userreadonly Then ZhuangTai = 只讀用戶 Else ZhuangTai = 普通用戶 End If (4) = 狀態(tài)： amp。 39。 amp。系統(tǒng)設(shè)計(jì)的目的是實(shí)現(xiàn)紀(jì)錄、查詢和修改學(xué)生檔案信息；對于學(xué)生繳費(fèi)情況能有效的處理，以及設(shè)置課程信息及考試相關(guān)信息。 第 2 章 系統(tǒng)功能流程圖 圖 系統(tǒng)功能流程圖 用戶登陸 系統(tǒng)主控界面 檔案管理 成績管理 學(xué)費(fèi)管理 課程設(shè)置 用戶管理 管理 添加 查詢 瀏覽 提交 查詢 權(quán)限 設(shè)定 增加 設(shè)置 學(xué)費(fèi) 增加 學(xué)生綜合管理系統(tǒng) 3 第 3章 數(shù)據(jù)庫的設(shè)計(jì) 本系統(tǒng)的數(shù)據(jù)庫是 Access 數(shù)據(jù)庫，在 Access 環(huán)境下創(chuàng)建數(shù)據(jù)庫 文件。 39。 設(shè)計(jì)代碼： Private Sub adddangan_Click() If QX2 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKO