【文章內(nèi)容簡介】 = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1)) = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1)) Next End Sub Private Sub Timer2_Timer() = Time = Date End Sub Private Sub Timer3_Timer() If = True Then = True = False ElseIf = True Then = True = False End If End Sub 綜合測評窗體（綜合測評 .frm） 圖 綜合測評窗體 這是綜合測評窗體，在這里增加了控件 MSChart，利用 Adodc 調(diào)用數(shù)據(jù)的變化而時圖表呈現(xiàn)變化狀態(tài)，成為又一新亮點。 Private Sub Form_Load() = = = = = = Set rs = End Sub Private Sub Text1_Change() = = = = = = End Sub （表）分析 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。 設(shè)計數(shù)據(jù)庫系統(tǒng)時應(yīng)該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟： ? 數(shù)據(jù)庫需求分析。 ? 數(shù)據(jù)庫邏輯結(jié)構(gòu)分析。 數(shù)據(jù)庫需求分析 這個系統(tǒng)使用的數(shù)據(jù)庫是微軟 Access2020 數(shù)據(jù)庫。由于整個系統(tǒng)有兩個人共同完成，而且內(nèi)容上又有偏差，故我們制 作了兩個數(shù)據(jù)庫。而其中的數(shù)據(jù)庫 .mdb是由我完成，總共有 19 張資料表。 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。 針對學(xué)校管理的需求，通過對學(xué)校內(nèi)部管理內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)： 數(shù)據(jù)庫：數(shù)據(jù)庫 .mdb 資料表 1：按課程類型 列名 數(shù)據(jù)類型 可否為空 說明 課程類型 文本 否 cancel 數(shù)字 是 資 料表 2：班級表 列名 數(shù)據(jù)類型 可否為空 說明 年級 文本 是 教室 文本 是 專業(yè) 文本 否 年制 文本 是 班主任 文本 是 備注 文本 是 Cancel 數(shù)字 是 資料表 3：畢業(yè)設(shè)計表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 數(shù)字 否 姓名 文本 是 畢業(yè)設(shè)計課題名 文本 是 指導(dǎo)老師名 文本 是 指導(dǎo)老師所在 文本 是 資料表 4：補考表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 是 姓名 文本 是 課程代號 文本 是 課程名稱 文 本 是 學(xué)期 文本 是 成績 文本 是 Cancel 數(shù)字 是 資料表 5：成績表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 是 姓名 文本 是 課程代號 文本 是 課程名稱 文本 是 學(xué)期 文本 是 成績 文本 是 績點數(shù) 文本 是 Cancel 數(shù)字 是 資料表 6：各班課程 列名 數(shù)據(jù)類型 是否為空 說明 專業(yè) 文本 是 學(xué)期 文本 是 課程代號 文本 是 課程名稱 文本 是 Cancel 數(shù)字 是 資料表 7：積考表 列 名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 否 姓名 文本 是 課程代號 文本 否 課程名稱 文本 是 學(xué)期 文本 是 成績 文本 是 Cancel 數(shù)字 是 資料表 8：教材表 列名 數(shù)據(jù)類型 是否為空 說明 課程代號 文本 是 課程名 文本 是 教材 文本 是 資料表 9：課程總表 列名 數(shù)據(jù)類型 是否為空 說明 課程代號 文本 否 課程名 文本 是 課程類型 文本 是 課時數(shù) 文本 是 教學(xué)要求 文本 是 學(xué)分 文本 是 學(xué)期 文本 是 Cancel 數(shù)字 是 資料表 10：年級表 列名 數(shù)據(jù)類型 是否為空 說明 年級 文本 否 資料表 11：實習(xí)表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 數(shù)字 否 姓名 文本 是 實習(xí)單位 文本 是 實習(xí)電話 數(shù)字 是 資料表 12：學(xué)期表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)期 文本 是 資料表 13：學(xué)生情況表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 數(shù)字 否 姓名 文本 是 性別 文本 是 系別 文本 是 班級 文本 是 政治面貌 文本 是 家庭地址 文本 是 聯(lián)系電話 文本 是 郵政編碼 文本 是 父親姓名 文本 是 母親姓名 文本 是 畢業(yè)學(xué)校 文本 是 入學(xué)成績 文本 是 宿舍號 文本 是 退學(xué) 是 /否 是 cancel 數(shù)字 是 資料表 14：用戶表 列名 數(shù)據(jù)類型 是否為空 說明 組名稱 文本 是 組密碼 文本 是 用戶名 文本 否 密碼 文本 是 資料表 15：員工信息表 列名 數(shù)據(jù)類型 是否為空 說明 員工號 數(shù)字 否 姓名 文本 是 性別 文本 是 職 稱 文本 是 培訓(xùn)時間 文本 是 培訓(xùn)部門 文本 是 培訓(xùn)費用 文本 是 培訓(xùn)課程 文本 是 培訓(xùn)性質(zhì) 文本 是 培訓(xùn)情況 文本 是 資料表 16：員工信息表 列名 數(shù)據(jù)類型 是否為空 說明 員工號 數(shù)字 否 姓名 文本 是 性別 文本 是 政治面貌 文本 是 教授課程 文本 是 所屬部門 文本 是 職稱 文本 是 工資級別 數(shù)字 是 聯(lián)系電話 數(shù)字 是 家庭住址 文本 是 Cancel 數(shù)字 是 資料表 17：重修表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 是 姓名 文本 是 課程代號 文本 是 課程名 文本 是 學(xué)期 文本 是 成績 文本 是 Cancel 數(shù)字 是 資料表 18：綜合測評表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號 文本 否 姓名 文本 是 政治思想分 文本 是 學(xué)業(yè)成績 文本 是 科技創(chuàng)新能力分 文本 是 社會實踐能力 文本 是 體育鍛煉 文本 是 附加 /減分 文本 是 資料表 19：組表 列名 數(shù)據(jù)類型 是否為空 說明 組名 文本 否 密碼 文本 是 部分?jǐn)?shù)據(jù) ER 圖 班級 ER 圖： 畢業(yè)設(shè)計 ER 圖： 成績 ER 圖： 班 級 年制 班主任 年級 教室 專業(yè) 備注 畢業(yè)設(shè)計 學(xué)號 姓名 畢業(yè)設(shè)計課題名 指導(dǎo)老師名 指導(dǎo)老師所在 成 績 學(xué)號 姓名 課程名 學(xué)期 績點數(shù) 成績 課程代號 課程 ER 圖： 學(xué)生 ER 圖： 學(xué) 生 學(xué)號 姓名 性別 系別 聯(lián)系電話 父親姓名 母親姓名 畢業(yè)學(xué)校 政治面貌 家庭地址 班級 入學(xué)成績 宿舍號 課程 課程代號 課程名 教學(xué)要求 學(xué)分 學(xué)期 課時數(shù) 課程類型 員工培訓(xùn) ER 圖： 員工 ER 圖： 員工培訓(xùn) 員工號 姓名 職稱 培訓(xùn)費用 培訓(xùn)課程 培訓(xùn)性質(zhì) 培訓(xùn)時間 培訓(xùn)部門 培訓(xùn)情況 性別 員工信息 員工號 姓名 性別 所屬部門 職稱 聯(lián)系電話 政治面貌 教授課程 工資級別 家庭住址 6 遇到的困難和解決方法 相對路徑的問題 我們設(shè)計的學(xué)校管理系統(tǒng)，從實質(zhì)上說是一個軟件，但是它是以 VB 為界面基礎(chǔ)的，后臺的數(shù)據(jù)庫是 ACCESS，這就引發(fā)了一個問題，在小組人員各自完成模塊的設(shè)計時，在自己的 PC 上就可以運行，但是在合并程序的階段，就無法運行了，指導(dǎo)老師在設(shè)計初期就象我們提示過要改路徑的問題。所以，在后期合并時期，我們找到了原因，是 因為在設(shè)計初期，把數(shù)據(jù)庫的文件單獨放在一個文件夾里，我們修改了相對路徑，避免了一系列的修改的麻煩，在此我們要感謝指導(dǎo)老師的細(xì)心和負(fù)責(zé)。在我們小組人員共同的努力下，也使程序能順利的完成。 權(quán)限設(shè)置 權(quán)限設(shè)置的設(shè)計思想：比如添加、刪除、修改操作如果一般用戶對這些信息都可以設(shè)置，就造成了管理上的混亂和沖突，所以，在功能實現(xiàn)中就對一般用戶在權(quán)限上做了限制，當(dāng)?shù)顷懻邽橐压芾韱T身份登陸那就只能瀏覽信息而不能進(jìn)行任何操作，若以管理員的身份登陸系統(tǒng)，那么就可以對信息窗體進(jìn)行設(shè)置。此外，參考了同學(xué)的設(shè)計，因為他們是把 功能做在外面所以可以在登陸時界面后就能發(fā)現(xiàn)，這明顯與我們做的有沖突換句話說是不值得我們借鑒，因此我要朋友詢問了適合我們的權(quán)限設(shè)置，在系統(tǒng)中添加個模塊，然后在代碼中再增加語句。 Declare Function CreateSolidBrush Lib GDI (ByVal crColor As Integer) As Integer Declare Function FillRect Lib USER (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer Declare Function DeleteObject Lib GDI (ByVal hObject As Integer) As Integer Type RECT left As Integer top As Integer right As Integer bottom As Integer End Type Public admin As Integer39。用于驗證是否有管理員權(quán)限 7 用戶操作說明 1. 軟硬件環(huán)境 硬件配置： 486 以上檔次的計算機 ，彩色顯示器，內(nèi)存 8M,硬盤 200M。 軟件配置： Windows 95/98/2020/xp 操作系統(tǒng)， Visual Basic 數(shù)據(jù)庫管理系統(tǒng)。 2. 應(yīng)用系統(tǒng)安裝 直接拷貝：把應(yīng)用系統(tǒng)光盤插入到驅(qū)動器中，在任意盤目錄下建立子文件夾畢業(yè)設(shè)計，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設(shè)計中。初次運行時，須對某些文件進(jìn)行重定向。 3. 操作方法 (1) 啟動應(yīng)用系統(tǒng) 先啟動 Visual Basin 運行后綴為“ .exe” 可執(zhí)行文件。 (2)登陸系統(tǒng) 輸入用戶名和準(zhǔn)確的 密碼，進(jìn)入父窗體，即可進(jìn)入相應(yīng)的子系統(tǒng)，選擇“退出“按鈕可以退出系統(tǒng)。 (3)用戶管理，可以進(jìn)行添加和刪除用戶。（管理員權(quán)限） 添加：輸入用戶編號，用戶名字，用戶密碼以及密碼確認(rèn)，就可以添加為公司管理系統(tǒng)用戶。