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