【文章內(nèi)容簡介】 根據(jù)上述 小節(jié) 的具體功能，總結(jié)出數(shù)據(jù)字典，如下： 系統(tǒng)管理 （ 密碼， 管理員 ，用戶名 ） 班級設(shè)置信息（年級，班級， 教學(xué)樓 ，年制，專業(yè)， 輔導(dǎo)員 ，備注） 學(xué) 生 檔案信息（學(xué)號，姓名，性別，班級，出生年 月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時間，備注） 學(xué)費(fèi)設(shè)置 信息（年級，專業(yè)，年制，學(xué)期，學(xué)費(fèi)） 學(xué)生 交費(fèi)信息（學(xué)號，學(xué)期，交費(fèi)，欠費(fèi)，日期，操作員） 班級課程設(shè)置信息（年級，專業(yè)，年制，學(xué)期，課程名稱） 全面課程設(shè)置信息（課程名稱，教材） 學(xué)生成績信息（學(xué)號，學(xué)期，類型，課程名稱，分?jǐn)?shù)） 考試類型信息（類型） 為了記憶方便，數(shù)據(jù)庫的名字都用簡單的英文和拼音命名。相應(yīng)的數(shù)據(jù)庫的表分別為： allkecheng(全部 課程表 )、 cj(成績表 )、 class(班級表 )、classkecheng(班級課程設(shè)置表 )、 jf(交費(fèi)設(shè)置表 )、 kaoshileixing(考試類型設(shè)置表 )、 use(用戶表 )、 xj(學(xué)籍表 )、 xuefei(學(xué)費(fèi)設(shè)置表 )。 通過數(shù)據(jù)字典進(jìn)行分析，可以得到形成如下數(shù)據(jù)庫的表： 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 13 系統(tǒng)管理 表 ： 用來存儲管理員添加的用戶數(shù)據(jù)。 表 系統(tǒng)管理 字段名稱 數(shù)據(jù)類型 是否為空 是否為主鍵 用戶名 文本 否 是 密碼 文本 否 否 只讀 文本 否 否 管理員 文本 否 否 權(quán)限 1 文本 否 否 權(quán)限 2 文本 否 否 權(quán)限 3 文本 否 否 權(quán)限 4 文本 否 否 班級設(shè)置信息表： 用來存儲已添加的班級 的數(shù)據(jù)。 表 班級設(shè)置信息 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 年級 文本 否 否 班級 文本 否 是 教室 文本 否 否 年制 文本 否 否 專業(yè) 文本 否 否 班主任 文本 否 否 備注 備注 否 否 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 14 學(xué)生檔案信息表： 用來存儲在校學(xué)生的學(xué)籍檔案。 表 學(xué)生檔案信息 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 學(xué)號 文本 否 否 姓名 文本 否 否 性別 文本 否 否 班級 文本 否 是 出生年月 日期 /時間 否 否 家庭住址 文本 否 否 郵政編碼 數(shù) 字 否 否 聯(lián)系電話 數(shù)字 否 否 入學(xué)時間 日期 /時間 否 否 備注 備注 否 否 學(xué)費(fèi)設(shè)置信息表： 用來存儲學(xué)費(fèi)的相關(guān)信息及數(shù)據(jù)。 表 學(xué)費(fèi)設(shè)置信息 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 年級 文本 否 是 專業(yè) 文本 否 是 年制 文本 否 否 學(xué)期 文本 否 否 學(xué)費(fèi) 貨幣 否 否 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 15 學(xué)生交費(fèi)信息表 ：用來存儲在校學(xué)生的詳細(xì)交費(fèi)數(shù)據(jù)。 表 學(xué)生交費(fèi)信息 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 學(xué)號 文本 否 是 學(xué)期 文本 否 否 交費(fèi) 貨幣 否 否 欠費(fèi) 貨幣 否 否 日期 日期 /時間 否 否 操作員 文本 否 否 班級課程設(shè)置表： 存儲學(xué)校中各班的課程設(shè)置信息。 表 班級課程設(shè)置表 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 年級 文本 否 是 專業(yè) 文本 否 是 年制 文本 否 否 學(xué)期 文本 否 否 課程名稱 文本 否 否 全面課程設(shè)置信息表： 存儲學(xué)校所設(shè)置的每門課程的名稱、教材信息。 表 全面課程設(shè)置信息表 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 課程名稱 文本 否 是 教材 文本 否 否 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 16 學(xué)生成績信息表： 存儲學(xué)校 參加考試的所有學(xué)生的成績信息。 表 學(xué)生成績信息 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 學(xué)號 文本 否 是 學(xué)期 文本 否 否 類型 文本 否 否 課程名稱 文本 否 否 分?jǐn)?shù) 數(shù)字 否 否 考試類型信息表： 存儲學(xué)校所設(shè)置的考試類型。例如：期中考試、期末考試或職業(yè)技能考試等。 表 考試類型信息 字段名稱 數(shù)據(jù)類型 可否為空 是否為主鍵 類型 文本 否 是 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 17 4 系統(tǒng) 詳細(xì)設(shè)計(jì) 系統(tǒng)業(yè)務(wù)流程圖 詳細(xì)調(diào)查的重點(diǎn)是對管理業(yè)務(wù)的流程進(jìn)行描述，通過采用系統(tǒng)流程圖中部分圖形工具來描述管理活 動，進(jìn)行規(guī) 范化說明 [8]。業(yè)務(wù)流程圖的 符號說明如圖 所示： 系統(tǒng)中人員 實(shí)體或單據(jù) 實(shí)物或信息流 處理 數(shù)據(jù)存儲 圖 業(yè)務(wù)流程圖圖例 詳細(xì)調(diào)查之后，繪制出的學(xué)生檔案管理系統(tǒng)的管理業(yè)務(wù)流程圖如圖 所 示。 圖 學(xué)生檔案管理系統(tǒng)業(yè)務(wù)流程圖 每學(xué)年 9 月份各班學(xué)生名單 各班學(xué)生名單空白，供填寫學(xué)生成績 學(xué)生檔案 報(bào) 表 教導(dǎo)處存 檔 校領(lǐng)導(dǎo) 各班主任 各班 主任 各班學(xué)生名單 機(jī)房 教導(dǎo)處 轉(zhuǎn)退復(fù)留學(xué)生名單 錄入有關(guān)信息 打印各班 名單 學(xué)生檔案 處理 學(xué)生檔案 報(bào) 表 學(xué)生檔案報(bào) 表 班 主任 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 18 系統(tǒng)邏輯模型的提出 系統(tǒng)分析的主要成果是系統(tǒng)的邏 輯模型。本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。即在對學(xué)生成績管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。完全從業(yè)務(wù)管理功能和管理對象出發(fā)，按照信息系統(tǒng)中應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來勾畫系統(tǒng)的概貌。 本系統(tǒng)流程圖如下： 圖 系統(tǒng) 模塊 功能 劃分 本系統(tǒng)主要功能模塊如下圖所示： 判斷密碼 輸入用戶及密碼 正確 普通用戶 超級用戶 學(xué)生檔案管理 班級管理 學(xué)生交費(fèi)管理 課程管理 成績管理 添加用戶 不正確 提示用戶名錯誤 用戶 只讀用 戶 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 19 圖 下面 將 分節(jié) 介紹 各模塊的主要內(nèi)容 ： ? 登錄 界面 ： 圖 用戶包括：管理員和用戶 。本系統(tǒng) 對用戶進(jìn)行分級管理， 只讀用戶只能享受讀取權(quán)限； 普通 用戶可查詢成績信息，查詢和更改自己的注冊信息 ；管理員除具有用戶的所有權(quán)限外，可以對全部信息進(jìn)行添加和更改，并可以添加、更改和刪除，要求系統(tǒng)能有效、快速、安全、可靠和無誤的完成上述操作 。 關(guān)鍵代碼： Private Sub Command1_Click() Dim mrc As 學(xué)生信息管理系統(tǒng) 系統(tǒng)管理 班級管理 學(xué)生檔案管理 學(xué)生交費(fèi)管理 課程管理 成績管理 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 20 txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub username = (0) txtsql = select username from use where password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 密碼錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If = 系統(tǒng)管理 系統(tǒng)管理主要是管理使用本軟件的人員賬 號的。分為：增加用戶、修改密碼、重新登錄 。 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 21 ? 新 增用戶 圖 功能實(shí)現(xiàn)： “ 新 增用戶 ” 可增加超級用戶、只讀用戶和普通用戶。 對用戶進(jìn)行分級管理 ：只讀用戶只可對數(shù)據(jù)進(jìn)行讀取； 普通 用戶 只 可查詢 成績信息，查詢和更改自己的注冊信息 ； 管理員 （超級用戶） 除具有用戶的所有權(quán)限外， 還 可以對全部 信息進(jìn)行添加和更改，并可以添加、更改和刪除， 要求系統(tǒng)能有效、快速、安全、可靠和無誤的完成上述操作。 關(guān)鍵代碼： Dim mrc As txtsql = select * from use where username=39。 amp。 Trim(Text1(0).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) If = False Then MsgBox 已存在該用戶！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 22 MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub ? 修改密碼 圖 功能實(shí)現(xiàn)： 使用密碼模塊首先應(yīng)輸入舊密碼，再輸入新的密碼，確認(rèn)一遍， 即可修改原來的密碼。如果密碼輸入錯誤，提示：“密碼錯誤”。 關(guān)鍵代碼： Private Function check() If = Then MsgBox 請輸入原密碼 check = False Exit Function End If If = Then MsgBox 請輸入新密碼 check = False Exit Function 山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 23 End If If = Then MsgBox 請確認(rèn)新密碼 check = False Exit Function End If ? 重新登陸 功能實(shí)現(xiàn)： 點(diǎn)擊重新 登 錄 模塊，即把所有變量清除，退出系統(tǒng)。 班級管理 班級管理是對學(xué)校各個年級 中 的班級進(jìn)行分類管理。分為：瀏覽班級了模塊 、添加班級 子模塊 、班級查詢 子模塊 。 ? 瀏覽班級 圖 功能實(shí)現(xiàn)： 點(diǎn)擊“瀏覽班級”對話框左側(cè)的瀏覽數(shù)據(jù)， 可樹形顯示學(xué)校中各年級目錄； 雙擊年級目錄，則可顯示各年級中所包含的班級目錄。隨之 點(diǎn) 擊想要查找的班級，雙 擊該班級名稱，可以實(shí)現(xiàn)修改、刪除及打印功能 ： (1)修改班級功能：點(diǎn)擊“修改”，出現(xiàn)“班級設(shè)置”對話框， 修改想要修改的數(shù)據(jù)項(xiàng)，確定即可。 (2)刪除班 級功能：點(diǎn)擊想要刪除的班級，刪除即可。刪除之前會出山東科技大學(xué)學(xué)生畢業(yè)設(shè)計(jì)（論文） 24 現(xiàn)一個警告對話框，提示：“確定要刪除該記錄嗎？繼續(xù)會導(dǎo)致該班級在成績和學(xué)費(fèi)記錄的數(shù)據(jù)丟失，繼續(xù)嗎 ？ ” (3)班級 功能：可打印當(dāng)前班級的全部記錄 。 關(guān)鍵代碼： If MsgBox(確定要刪除班級為 amp。 Trim((, 2)) amp。 的記錄嗎？ amp。 Chr(13) amp。 Chr(10) amp。 繼續(xù)會導(dǎo)致該班級在成績和學(xué)費(fèi)記錄的數(shù)據(jù)丟失，繼續(xù)嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then txtsql = delete * from xj where 班級 =39。 amp。 Trim((, 2)) amp。 39。 Set mrc = ExecuteSQL(txtsql) txtsql = select * from jf where 學(xué)號 in (select from xj where 班級 =39。 amp。 Trim