【正文】 戶可以根據(jù)自己的需要按學(xué)號(hào)，姓名，班級(jí)查找，查找的學(xué)生信息會(huì)顯示在檔案瀏覽的窗體上，用的是 sql語言。 If = And = And = Then = 至少一條記錄不空 Exit Sub End If If Then = sqlxuehao End If If Then = sqlxingming End If If Then = sqlbanji End If If Then MsgBox 無此記錄 , vbOKOnly + vbInformation, 提示 End If Unload Me End Sub Private Sub Command2_Click() 39。 amp。判斷文本框是否為空 If = Then MsgBox amp。最大特點(diǎn)是在點(diǎn)擊增加或修改按鈕時(shí)，其他按鈕的 enable 屬性會(huì)變成 false，以免造成不正確的操作。這個(gè) Form_Load 是刷新 list 列表用的 Form_Load End Sub Private Sub Command3_Click() If = Then MsgBox 你還沒有選擇記錄！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = 保存修改 Then = select * from leixing where 類型 =39。刪除語句 If MsgBox(確定要?jiǎng)h除記錄么？ , vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要?jiǎng)h除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() 39。專業(yè)的負(fù)值 If = False Then Do While Not !專業(yè) 36 Loop End If 39。 amp。 = sqlzhuanye 39。 If = And = Then 44 = 至少一條記錄不空 Exit Sub End If If Then = sqlxuehao End If If Then = sqlxingming End If If Then MsgBox 無此記錄 , vbOKOnly + vbInformation, 提示 End If Unload Me End Sub Private Sub Form_Activate() End Sub Private Sub bo1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then = End If If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 45 End If 39?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) 39。 39。提示選課與否 If = 0 Then MsgBox 您還沒有選課！ , vbOKOnly + vbInformation, 提示！ End If 55 For i = 0 To 1 39。取消添加 = False = True = True = 增加 = True = = Else 39。 sqlxingming = select * from Studtuition where 姓名 =39。找到這個(gè)專業(yè)的交費(fèi)金額 sqlzhuanye = select * from tuition where 專業(yè) =39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox amp。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(4).Caption amp。取消添加 = False = True = True = 增加 = True = Else 39。 amp?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then 26 SendKeys {TAB} End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) 39。 設(shè)計(jì)代碼： Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 會(huì)導(dǎo)致該學(xué)生的信息丟失 ! amp。 sqlbanji = select * from student where 班級(jí) =39。添加保存后清空文本 For j = 0 To 5 Text1(j).Text = Next j End If End Sub Private Sub Command2_Click() 39。 確定么 ?, vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要?jiǎng)h除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() 39。 設(shè)計(jì)代碼： Private Sub adddangan_Click() If QX2 = True Then Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub 8 Private Sub addjiaofei_Click() If QX3 = True Then Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub banjikechengliulan_Click() End Sub Private Sub cengdie_Click() 0 End Sub Private Sub chengji_Click() End Sub Private Sub chengjiadd_Click() If QX4 = True Then flAg = True Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub chongpai_Click() 3 End Sub Private Sub chuizhi_Click() 2 End Sub Private Sub classkechengset_Click() If QX4 = True Then Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub danganfind_Click() 9 End Sub Private Sub liulanbiao_Click() End Sub Private Sub jiaofeifind_Click() End Sub Private Sub jiaofeiliulan_Click() End Sub Private Sub jibenkechengset_Click() If QX4 = True Then Else MsgBox 對(duì)不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub kecheng_Click() End Sub Private Sub liulanchengjibiao_Click() End Sub Private Sub liulandanganbiao_Click() End Sub Private Sub MDIForm_Load() (2) = Now OpenTable Adodc1, use = select * from use where username = 39。 第 2 章 系統(tǒng)功能流程圖 圖 系統(tǒng)功能流程圖 用戶登陸 系統(tǒng)主控界面 檔案管理 成績(jī)管理 學(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ù)庫 文件。 amp。 If QXstr = admin Then ZhuangTai = 超級(jí)管理員 ElseIf QXstr = userreadonly Then ZhuangTai = 只讀用戶 Else ZhuangTai = 普通用戶 End If (4) = 狀態(tài)： amp?；剀嚀Q下一個(gè)輸入項(xiàng)目 If KeyAscii = 13 Then 15 SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。在此窗體上必須輸入至少一條記錄，不然會(huì)提示。退出該窗體 19 Unload Me End Sub Private Sub Form_Activate() End Sub Private Sub bo1_KeyPress(KeyAscii As Integer) 39。 Combo1(2).Text amp。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If = Then MsgBox Label2(2).Caption amp。 設(shè)計(jì)代碼： Private Sub Command1_Click() 39。 amp。打開數(shù)據(jù)庫中的 Tuition 表 OpenTable Adodc1, Tuition 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