【文章內(nèi)容簡介】 姓名 文本 是 性別 文本 是 系別 文本 是 班級(jí) 文本 是 政治面貌 文本 是 家 庭地址 文本 是 聯(lián)系電話 文本 是 郵政編碼 文本 是 父親姓名 文本 是 母親姓名 文本 是 畢業(yè)學(xué)校 文本 是 入學(xué)成績 文本 是 宿舍號(hào) 文本 是 退學(xué) 是 /否 是 cancel 數(shù)字 是 資料表 14：用戶表 列名 數(shù)據(jù)類型 是否為空 說明 組名稱 文本 是 組密碼 文本 是 用戶名 文本 否 22 密碼 文本 是 資料表 15：員工信息表 列名 數(shù)據(jù)類型 是否為空 說明 員工號(hào) 數(shù)字 否 姓名 文本 是 性別 文本 是 職稱 文本 是 培訓(xùn)時(shí)間 文本 是 培訓(xùn)部門 文本 是 培訓(xùn)費(fèi)用 文本 是 培訓(xùn)課程 文本 是 培訓(xùn)性質(zhì) 文本 是 培訓(xùn)情況 文本 是 資料表 16：員工信息表 列名 數(shù)據(jù)類型 是否為空 說明 員工號(hào) 數(shù)字 否 姓名 文本 是 性別 文本 是 政治面貌 文本 是 教授課程 文本 是 所屬部門 文本 是 職稱 文本 是 工資級(jí)別 數(shù)字 是 聯(lián)系電話 數(shù)字 是 家庭住址 文本 是 Cancel 數(shù)字 是 23 資料表 17：重修表 列名 數(shù)據(jù)類型 是否為 空 說明 學(xué)號(hào) 文本 是 姓名 文本 是 課程代號(hào) 文本 是 課程名 文本 是 學(xué)期 文本 是 成績 文本 是 Cancel 數(shù)字 是 資料表 18：綜合測(cè)評(píng)表 列名 數(shù)據(jù)類型 是否為空 說明 學(xué)號(hào) 文本 否 姓名 文本 是 政治思想分 文本 是 學(xué)業(yè)成績 文本 是 科技創(chuàng)新能力分 文本 是 社會(huì)實(shí)踐能力 文本 是 體育鍛煉 文本 是 附加 /減分 文本 是 資料表 19：組表 列名 數(shù)據(jù)類型 是否為空 說明 組名 文本 否 密碼 文本 是 24 部分?jǐn)?shù)據(jù) ER圖 班級(jí) ER圖： 畢業(yè)設(shè)計(jì) ER圖： 成績 ER圖： 班 級(jí) 年制 班主任 年級(jí) 教室 專業(yè) 備注 畢業(yè)設(shè)計(jì) 學(xué)號(hào) 姓名 畢業(yè)設(shè)計(jì)課題名 指導(dǎo)老師名 指導(dǎo)老師所在 成 績 學(xué)號(hào) 姓名 課程名 學(xué)期 績點(diǎn)數(shù) 成績 課程代號(hào) 25 課程 ER圖： 學(xué)生 ER圖： 員工培訓(xùn) ER圖： 學(xué) 生 學(xué)號(hào) 姓名 性別 系別 聯(lián)系電話 父親姓名 母親姓名 畢業(yè)學(xué)校 政治面貌 家庭地址 班級(jí) 入學(xué)成績 宿舍號(hào) 員工培訓(xùn) 員工號(hào) 姓名 職稱 培訓(xùn)費(fèi)用 培訓(xùn)課程 培訓(xùn)性質(zhì) 培訓(xùn)時(shí)間 培訓(xùn)部門 課程 課程代號(hào) 課程名 教學(xué)要求 學(xué)分 學(xué)期 課時(shí)數(shù) 課程類型 26 員工 ER圖： 遇到的困難和解決方法 相對(duì)路徑的問題 我們?cè)O(shè)計(jì)的學(xué)校管理系統(tǒng)，從實(shí)質(zhì)上說是一個(gè)軟件，但是它是以 VB 為界面基礎(chǔ)的，后臺(tái)的數(shù)據(jù)庫是 ACCESS，這就引發(fā)了一個(gè)問題，在小組人員各自完成模塊的設(shè)計(jì)時(shí)，在自己的 PC 上就可以運(yùn)行，但是在合并程序的階段，就無法運(yùn)行了，指導(dǎo)老師在設(shè)計(jì)初期就象我們提示過要改路徑的問題。所以，在后期合并時(shí)期，我們找到了原因，是因?yàn)樵谠O(shè)計(jì)初期，把數(shù)據(jù)庫的文件單獨(dú)放在一個(gè)文件夾里 ，我們修改了相對(duì)路徑，避免了一系列的修改的麻煩，在此我們要感謝指導(dǎo)老師的細(xì)心和負(fù)責(zé)。在我們小組人員共同的努力下，也使程序能順利的完成。 權(quán)限設(shè)置 權(quán)限設(shè)置的設(shè)計(jì)思想：比如添加、刪除、修改操作如果一般用戶對(duì)這些信息都可以設(shè)置，就造成了管理上的混亂和沖突，所以，在功能實(shí)現(xiàn)中就對(duì)一般用戶在權(quán)限上做了限制，當(dāng)?shù)顷懻邽橐压芾韱T身份登陸那就只能瀏覽信息而不能進(jìn)行任何操作，若以管理員的身份登陸系統(tǒng)，那么就可以對(duì)信息窗體進(jìn)行設(shè)置。此外，參考了同學(xué)的設(shè)計(jì)，因?yàn)樗麄兪前压δ茏鲈谕饷嫠钥梢栽诘顷憰r(shí)界面后就能發(fā)現(xiàn)，這明顯 與我們做的有沖突換培訓(xùn)情況 性別 員工信息 員工號(hào) 姓名 性別 所屬部門 職稱 聯(lián)系電話 政治面貌 教授課程 工資級(jí)別 家庭住址 27 句話說是不值得我們借鑒，因此我要朋友詢問了適合我們的權(quán)限設(shè)置，在系統(tǒng)中添加個(gè)模塊，然后在代碼中再增加語句。 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。用于驗(yàn)證是否有管理員權(quán)限 用戶操作說明 1. 軟硬件環(huán)境 硬件配置： 486 以上檔次的計(jì)算機(jī)，彩色顯示器，內(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ū)動(dòng)器中，在任意盤目錄下建立子文件夾畢業(yè)設(shè)計(jì)，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設(shè)計(jì)中。初次運(yùn)行時(shí)，須對(duì)某些文件進(jìn)行重定向。 3. 操作方法 (1) 啟動(dòng)應(yīng)用系統(tǒng) 先啟動(dòng) Visual Basin 運(yùn)行后綴為“ .exe” 可執(zhí)行文件。 (2)登陸系統(tǒng) 輸入用戶名和準(zhǔn)確的密碼，進(jìn)入父窗體，即可進(jìn)入相應(yīng)的子系統(tǒng)，選擇“退出“ 按鈕可以退出系統(tǒng)。 (3)用戶管理，可以進(jìn)行添加和刪除用戶。（管理員權(quán)限） 28 添加：輸入用戶編號(hào)，用戶名字，用戶密碼以及密碼確認(rèn)，就可以添加為公司管理系統(tǒng)用戶。 刪除：輸入用戶編號(hào)，經(jīng)確認(rèn)之后，再輸入用戶密碼，即可以刪除用戶。 系統(tǒng)自我評(píng)價(jià) 本系統(tǒng)是針對(duì)學(xué)校開發(fā)的信息、學(xué)籍、圖書館管理軟件，實(shí)現(xiàn)對(duì)學(xué)校 現(xiàn)代化信息管理。 學(xué)籍管理系統(tǒng)以學(xué)號(hào)和員工號(hào)生成，能夠快速的錄入成績、設(shè)置課程等，極大的方便了學(xué)校對(duì)于學(xué)生成績和員工工作狀況的管理；而信息管理系統(tǒng)是與學(xué)籍管理系統(tǒng)數(shù)據(jù)共享的，其中各式 各樣的報(bào)表方便了信息的管理；圖書館管理系統(tǒng)則是現(xiàn)代學(xué)校的典型的一個(gè)管理系統(tǒng)，它實(shí)現(xiàn)了對(duì)書籍的各式管理。 系統(tǒng)總體結(jié)構(gòu)：系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化。 通過該系統(tǒng)，將實(shí)現(xiàn)各種數(shù)據(jù)的共享，方便了信息的管理。 該系統(tǒng)只要包括：信息管理系統(tǒng)、學(xué)籍管理系統(tǒng)、圖書館管理系統(tǒng)，這些管理系統(tǒng)將建立在一個(gè)規(guī)范標(biāo)準(zhǔn)的界面之上，大大提高了學(xué)校的管理水平。 通過圖書館管理系統(tǒng)，實(shí)現(xiàn)圖書檢索和借閱，從而一方面能作到資料共享。另一方面，能 大大簡化借閱手續(xù)，提高圖書利用率和圖書管理工作效率。 優(yōu)點(diǎn) 接口美觀大方，界面風(fēng)格統(tǒng)一。整個(gè)系統(tǒng)包含了學(xué)生信息管理，員工信息管理，班級(jí)信息管理，課程信息管理，成績信息管理，綜合測(cè)評(píng)，畢業(yè)管理，這幾部分都能夠非?？旖莸膶?duì)資料內(nèi)容進(jìn)行添加修改刪除以及報(bào)表打印等操作。 缺點(diǎn) 學(xué)校管理系統(tǒng)的局限性：該系統(tǒng)是單機(jī)版，所以使用范圍得到了限制。不能實(shí)現(xiàn)局域網(wǎng)上的多臺(tái)機(jī)器，共享同一數(shù)據(jù)庫。而信息管理系統(tǒng)，需要多個(gè)職能部門來參與管理，比如學(xué)生信息以及成績的錄入，需要教師來管理。 而教師的信息需要學(xué)校教務(wù)部門來管 理。圖書信息的管理，需要圖書館來完成。 因此，系統(tǒng)的單機(jī)性質(zhì)，制約了系統(tǒng)在學(xué)校的廣泛應(yīng)用。 29 查詢模塊做的不是很理想，只能進(jìn)行單條件查詢。系統(tǒng)不是很完善，有待補(bǔ)充。 可擴(kuò)充內(nèi)容 使用者的權(quán)限，成績管理部分，數(shù)據(jù)庫備份和恢復(fù)等。 致謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師 陳桂生 老師身上學(xué)到了很多東西。 陳 老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。 他 無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝 他 耐心的輔導(dǎo)。 另 外，在系統(tǒng)開發(fā)過程中同組的同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同樣給與我不少幫助，這里一并表示感謝。 30 參考資料 ： 1． 協(xié)同教育微軟 ATC教材編譯室 編著 《開發(fā)工具專家 Visual Basic 培訓(xùn)教程》 電子工業(yè)出版社 2． 上海市計(jì)算機(jī)應(yīng)用能力考核辦公室 編《計(jì)算機(jī)應(yīng)用教程 —— Access 2020》 復(fù)旦大學(xué)出版社 3． 明日科技 高春艷 李艷 谷偉東 編著《 Visual Basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與 實(shí)例應(yīng)用》 人民郵電出版社 4． 源江科技 /編著《 VB編程技巧 280例》 上?？茖W(xué)普及出版社 5． 佳文工作室創(chuàng)作《 Visual 》 電子工業(yè)出版社 6． 王珊 陳紅編著《數(shù)據(jù)庫系統(tǒng)原理教程》 清華大學(xué)出版社 7． 劉圣才 李春葆編著《 Visual 程序設(shè)計(jì)導(dǎo)學(xué)》 清華大學(xué)出版社 8． 周國民 《 Visual Basic + Access數(shù)據(jù)庫項(xiàng)目開發(fā)實(shí)踐》 中國鐵道出版社 9． 段興 《 Visual Basic 100 例》 人民郵電出版社 10． Kris Jamsa 博士 Lars Klander博士 著 《 Visual Basic 程序設(shè)計(jì)技巧 1001例》 電子工業(yè)出版社 31 附錄部分 *實(shí)習(xí)管理窗體（實(shí)習(xí)管理 .frm） Dim 實(shí)習(xí)表 As Private Sub Command1_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警 告 Exit Sub End If 實(shí)習(xí)表 .AddNew 39。添加記錄 = False = False = True = True = False = True = False = True = True = True = True End Sub Private Sub Command10_Click() If = True Then 32 MsgBox (已到首記錄 ) End If End Sub Private Sub Command11_Click() If = True Then MsgBox (已到末記錄 ) End If End Sub Private Sub Command12_Click() End Sub Private Sub Command2_Click() 39。判斷是否有權(quán)限 If admin = 0 Then MsgBox 你不是管理員 ,沒有此權(quán)限！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = True = True = False = False