【正文】 ewchengji_Click() End Sub Private Sub viewdangan_Click() End Sub Private Sub viewjiaofei_Click() End Sub Private Sub xiugaimima_Click() End Sub Private Sub xuefeiadd_Click() If QX3 = True Then 12 Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub xuefeishezhi_Click() End Sub 4． 3 檔案管理 4． 3． 1 檔案瀏覽 圖 檔案瀏覽 設(shè)計過程： 用控件可以實現(xiàn)檔案的瀏覽，在此窗體所有上用戶可以瀏覽，查找，有權(quán)限的用戶可以進行修改和刪除。 If QXstr = admin Then ZhuangTai = 超級管理員 ElseIf QXstr = userreadonly Then ZhuangTai = 只讀用戶 Else ZhuangTai = 普通用戶 End If (4) = 狀態(tài)： amp。 39。 amp。在代碼中判斷登陸時的用戶權(quán)限，不同權(quán)限有不同的權(quán)限來瀏覽各個窗體。 39。 amp。使用 find 語句查找數(shù)據(jù)庫；（不能刷新） 39。 39。 amp。 設(shè)計代碼： Private Sub cmdCancel_Click() 6 End End Sub Private Sub cmdOK_Click() Dim sql As String 39。該數(shù)據(jù)庫包括學(xué)生檔案表、班級信息表、各專業(yè)學(xué)生學(xué)費表、管理人員表用于紀錄學(xué)生的基本信息數(shù)據(jù)庫表結(jié)構(gòu)如下所示： 字段名 類型 大小 說明 學(xué)號 文本 10 學(xué)生學(xué)號 姓名 文本 8 學(xué)生姓 名 性別 文本 2 學(xué)生性別 班級 文本 10 班級 出生年月 日期 /時間 家庭住址 文本 30 入學(xué)時間 日期 /時間 學(xué)生入學(xué)時間 表 學(xué)生檔案表 字段名 類型 大小 說明 年級 文本 16 班級 文本 20 年制 文本 8 學(xué)習年限 班主任 文本 8 備注 備注 表 班級信息表 字段名 類型 大小 說明 課程名稱 文本 20 紀錄課程名稱 教材 文本 30 所使用教材 表 課程種類表 4 字段名 類型 大小 說明 學(xué)號 文本 10 學(xué)生學(xué)號 學(xué)期 文本 50 類型 文本 16 期中 /期末 課程名稱 文本 20 分數(shù) 數(shù)字 單精度型 考試成績 表 學(xué)生成績表 字段名 類型 大小 說明 年級 文本 16 專業(yè) 文本 12 專業(yè)類型 年制 文本 8 學(xué)習年限 學(xué)期 文本 50 課程名稱 文本 20 開設(shè)課程 表 課程信息表 字段名 類型 大小 說明 username 文本 20 用戶名 uerpassword 文本 20 密碼 admin 文本 2 是否為管理員 readonly 文本 2 是否為只讀用戶 qx1 文本 2 是否有系統(tǒng)管理權(quán)限 qx2 文本 2 是否有檔案管理權(quán)限 qx3 文本 2 是否有交費管理權(quán)限 qx4 文本 2 是否有成績管理權(quán)限 表 管理人員表 字段名 類型 大小 說明 年級 文本 16 專業(yè) 文本 50 年制 文本 20 學(xué)習年限 學(xué)期 文本 40 5 學(xué)費 貨幣 應(yīng)繳納學(xué)費 表 學(xué)費表 字段名 類型 大小 說明 學(xué)號 文本 10 學(xué)期 文本 50 繳費 貨幣 貨幣 已交納費用 欠費 貨幣 貨幣 欠費額 日期 日期 日期 /時間 紀錄時間 操作員 文本 10 添加紀錄人員 表 學(xué)身繳費情況 第 4 章 主要內(nèi)容 4． 1 登錄窗體 圖 登錄窗體 設(shè)計過程： 用于輸入用戶名和密碼登錄，提示中寫可以以用戶名和密碼都為 guest 進入系統(tǒng)，不過是只讀用戶。開發(fā)本系統(tǒng)不僅能很好的鞏固我們在學(xué)習中的所掌握的知識，而且系統(tǒng)本身就是應(yīng)用于實踐，為學(xué)校 教學(xué)管理提供了很大的方便性，提高了工作效率；同時方便了我們自己。系統(tǒng)設(shè)計的目的是實現(xiàn)紀錄、查詢和修改學(xué)生檔案信息；對于學(xué)生繳費情況能有效的處理，以及設(shè)置課程信息及考試相關(guān)信息?；?VB 和 Access 的 畢業(yè)設(shè)計 （ 學(xué)生綜合管理系統(tǒng) ） 目錄 未找到目錄項。 2 第 1 章 設(shè)計的目的和意義 系統(tǒng)是對高校教師及管理人員提供的對在校學(xué)生有效管理的一個信息系統(tǒng)。本系統(tǒng)的開發(fā)具有很強的使用價值及實踐意義。 第 2 章 系統(tǒng)功能流程圖 圖 系統(tǒng)功能流程圖 用戶登陸 系統(tǒng)主控界面 檔案管理 成績管理 學(xué)費管理 課程設(shè)置 用戶管理 管理 添加 查詢 瀏覽 提交 查詢 權(quán)限 設(shè)定 增加 設(shè)置 學(xué)費 增加 學(xué)生綜合管理系統(tǒng) 3 第 3章 數(shù)據(jù)庫的設(shè)計 本系統(tǒng)的數(shù)據(jù)庫是 Access 數(shù)據(jù)庫，在 Access 環(huán)境下創(chuàng)建數(shù)據(jù)庫 文件。點擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。使用 sql語言進行數(shù)據(jù)庫的查找 sql = select userpassword from use where username=39。 txtUserName amp。 39。 username=39。 txtUserName amp。, , adSearchForward, 1 = sql If Not Then If !userpassword txtPassword Then MsgBox 密碼錯誤！ txtPassword = ElseIf !userpassword = txtPassword Then MsgBox 登陸成功，歡迎進入本系統(tǒng)！ , vbOKOnly + vbInformation, 提示 End If ElseIf Then MsgBox 無此用戶 txtUserName = txtPassword = End If End Sub Private Sub Command1_Click() MsgBox 可以以用戶名和密碼均為 guest 進入 , vbOKOnly + vbInformation, 提示 End Sub Private Sub Form_Load() OpenTable Adodc1, use End Sub 7 4． 2 主控界面 圖 主控界面 設(shè)計過程： 所有功能都在菜單中打開來實現(xiàn)，在最下面添加了工具欄，來顯示時間，操作員，狀態(tài)等信息。 設(shè)計代碼： Private Sub adddangan_Click() If QX2 = True Then Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub 8 Private Sub addjiaofei_Click() If QX3 = True Then Else MsgBox 對不起 ,您沒有權(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 對不起 ,您沒有權(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 對不起 ,您沒有權(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 對不起 ,您沒有權(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。 amp。 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。 ZhuangTai End Sub Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 39。此窗體與數(shù)據(jù)輪中的 student 表進行連接。刪除語句 If MsgBox(確定要刪除學(xué)號為 amp。 的記錄么？ amp。 會導(dǎo)致該學(xué)生的信息丟失 ! amp。 確定么 ?, vbYesNo + vbExclamation, 警告 ) = vbYes Then If MsgBox(真的要刪除么？ , vbYesNo + vbExclamation, 警告！ ) = vbYes Then MsgBox 刪除成功！ , vbOKOnly + vbInformation, 提示！ End If End If Else MsgBox 對不起 ,您沒有權(quán)限 !, vbOKOnly + vbExclamation, 警告 ! End If End Sub Private Sub Command4_Cl