【正文】 后清空文本 For j = 0 To 5 Text1(j).Text = Next j End If End Sub Private Sub Command2_Click() 39。反白錯誤的框 Text1(4).SetFocus Text1(4).SelStart = 0 16 Text1(4).SelLength = 10 End If 39。 不能為空 ！ , vbExclamation + vbOKOnly, 警告 f = False Text1(j).SetFocus Exit Sub End If Next j 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Private Sub bo2_KeyPress(KeyAscii As Integer) 39。 確定么 ?, vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要刪除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If Else MsgBox 對不起 ,您沒有權限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() 39。 的記錄么？ amp。此窗體與數(shù)據(jù)輪中的 student 表進行連接。 If !admin = y Then QXstr = admin ElseIf !userreadonly = y Then 10 QXstr = userreadonly End If If !QX1 = y Then QX1 = True End If If !QX2 = y Then QX2 = True End If If !QX3 = y Then QX3 = True End If If !QX4 = y Then QX4 = True End If (3) = 當前操作員： amp。 設計代碼： Private Sub adddangan_Click() If QX2 = True Then Else MsgBox 對不起 ,您沒有權限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub 8 Private Sub addjiaofei_Click() If QX3 = True Then Else MsgBox 對不起 ,您沒有權限 !, 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 對不起 ,您沒有權限 !, 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 對不起 ,您沒有權限 !, 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 對不起 ,您沒有權限 !, 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。 txtUserName amp。 39。使用 sql語言進行數(shù)據(jù)庫的查找 sql = select userpassword from use where username=39。 第 2 章 系統(tǒng)功能流程圖 圖 系統(tǒng)功能流程圖 用戶登陸 系統(tǒng)主控界面 檔案管理 成績管理 學費管理 課程設置 用戶管理 管理 添加 查詢 瀏覽 提交 查詢 權限 設定 增加 設置 學費 增加 學生綜合管理系統(tǒng) 3 第 3章 數(shù)據(jù)庫的設計 本系統(tǒng)的數(shù)據(jù)庫是 Access 數(shù)據(jù)庫，在 Access 環(huán)境下創(chuàng)建數(shù)據(jù)庫 文件。 2 第 1 章 設計的目的和意義 系統(tǒng)是對高校教師及管理人員提供的對在校學生有效管理的一個信息系統(tǒng)。系統(tǒng)設計的目的是實現(xiàn)紀錄、查詢和修改學生檔案信息；對于學生繳費情況能有效的處理，以及設置課程信息及考試相關信息。該數(shù)據(jù)庫包括學生檔案表、班級信息表、各專業(yè)學生學費表、管理人員表用于紀錄學生的基本信息數(shù)據(jù)庫表結構如下所示： 字段名 類型 大小 說明 學號 文本 10 學生學號 姓名 文本 8 學生姓 名 性別 文本 2 學生性別 班級 文本 10 班級 出生年月 日期 /時間 家庭住址 文本 30 入學時間 日期 /時間 學生入學時間 表 學生檔案表 字段名 類型 大小 說明 年級 文本 16 班級 文本 20 年制 文本 8 學習年限 班主任 文本 8 備注 備注 表 班級信息表 字段名 類型 大小 說明 課程名稱 文本 20 紀錄課程名稱 教材 文本 30 所使用教材 表 課程種類表 4 字段名 類型 大小 說明 學號 文本 10 學生學號 學期 文本 50 類型 文本 16 期中 /期末 課程名稱 文本 20 分數(shù) 數(shù)字 單精度型 考試成績 表 學生成績表 字段名 類型 大小 說明 年級 文本 16 專業(yè) 文本 12 專業(yè)類型 年制 文本 8 學習年限 學期 文本 50 課程名稱 文本 20 開設課程 表 課程信息表 字段名 類型 大小 說明 username 文本 20 用戶名 uerpassword 文本 20 密碼 admin 文本 2 是否為管理員 readonly 文本 2 是否為只讀用戶 qx1 文本 2 是否有系統(tǒng)管理權限 qx2 文本 2 是否有檔案管理權限 qx3 文本 2 是否有交費管理權限 qx4 文本 2 是否有成績管理權限 表 管理人員表 字段名 類型 大小 說明 年級 文本 16 專業(yè) 文本 50 年制 文本 20 學習年限 學期 文本 40 5 學費 貨幣 應繳納學費 表 學費表 字段名 類型 大小 說明 學號 文本 10 學期 文本 50 繳費 貨幣 貨幣 已交納費用 欠費 貨幣 貨幣 欠費額 日期 日期 日期 /時間 紀錄時間 操作員 文本 10 添加紀錄人員 表 學身繳費情況 第 4 章 主要內(nèi)容 4． 1 登錄窗體 圖 登錄窗體 設計過程： 用于輸入用戶名和密碼登錄，提示中寫可以以用戶名和密碼都為 guest 進入系統(tǒng)，不過是只讀用戶。 amp。使用 find 語句查找數(shù)據(jù)庫；（不能刷新） 39。 39。 amp。 If QXstr = admin Then ZhuangTai = 超級管理員 ElseIf QXstr = userreadonly Then ZhuangTai = 只讀用戶 Else ZhuangTai = 普通用戶 End If (4) = 狀態(tài)： amp。 設計代碼： Private Sub Command1_Click() 13 End Sub Private Sub Command2_Click() If QX2 = True Then Else MsgBox 對不起 ,您沒有權限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command3_Click() If QX2 = True Then 39。 Chr(10) + Chr(13) amp。打開數(shù)據(jù)庫中的 student 表 OpenTable Adodc1, student 39?；剀嚀Q下一個輸入項目 If KeyAscii = 13 Then 15 SendKeys {TAB} End If End Sub Private Sub Command1_Click() 39。判斷出生年月是否為日期 If Not IsDate(Text1(2).Text) Then MsgBox 應輸入日期 yymmdd, vbOKOnly + vbInformation, 提示 g = False 39。判斷是否要保存 If f = True And g = True Then msg = MsgBox(確定要添加么？ , vbYesNo + vbInformation, 提示 ) End If 39。退出該窗體 Unload Me End Sub Private Sub Form_Load() 39。在此窗體上必須輸入至少一條記錄，不然會提示。 amp。 amp。 amp。退出該窗體 19 Unload Me End Sub Private Sub Form_Activate() End Sub Private Sub bo1_KeyPress(KeyAscii As Integer) 39。若是有權限的話還可以直接刪除。 !學號 amp。 Chr(10) + Chr(13) amp。 Combo1(2).Text amp。 Combo1(3).Text amp。初始化 bo 的初值 For i = 0 To 2 Combo1(i).Text = Combo1(i).List(ListIndex) Next i 39。回車換下一個輸入項目 If KeyAscii = 13 Then SendKeys {TAB} End If End Sub Privat