學生信息管理系統(tǒng)學士學位論文

1、畢業(yè)設計（論文）原創(chuàng)性聲明和使用授權說明畢業(yè)設計（論文）原創(chuàng)性聲明和使用授權說明原創(chuàng)性聲明原創(chuàng)性聲明本人重承諾：所呈交的畢業(yè)設計（論文） ，是我個人在指導教師的指導下進行的研究工作與取得的成果。盡我所知，除文中特別加以標注和致的地方外，不包含其他人或組織已經發(fā)表或公布過的研究成果，也不包含我為獲得與其它教育機構的學位或學歷而使用過的材料。對本研究提供過幫助和做出過貢獻的個人或集體，均已在文中作了明確的說明并表示了意。作 者 簽 名：日 期：指導教師簽名： 日期：使用授權說明使用授權說明本人完全了解大學關于收集、保存、使用畢業(yè)設計（論文）的規(guī)定，即：按照學校要求提交畢業(yè)設計（論文）的印刷本和電子

2、版本；學校有權保存畢業(yè)設計（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務；學?？梢圆捎糜坝　⒖s印、數(shù)字化或其它復制手段保存論文；在不以贏利為目的前提下，學校可以公布論文的部分或全部容。作者簽名： 日 期：學位論文原創(chuàng)性聲明學位論文原創(chuàng)性聲明本人重聲明：所呈交的論文是本人在導師的指導下獨立進行研究所取得的研究成果。除了文中特別加以標注引用的容外，本論文不包含任何其他個人或集體已經發(fā)表或撰寫的成果作品。對本文的研究做出重要貢獻的個人和集體，均已在文中以明確方式標明。本人完全意識到本聲明的法律后果由本人承擔。 . . . 1 / 29作者簽名： 日期： 年 月 日學位論文使用授權書學位論文使用授

3、權書本學位論文作者完全了解學校有關保留、使用學位論文的規(guī)定，同意學校保留并向國家有關部門或機構送交論文的復印件和電子版，允許論文被查閱和借閱。本人授權大學可以將本學位論文的全部或部分容編入有關數(shù)據(jù)庫進行檢索，可以采用影印、縮印或掃描等復制手段保存和匯編本學位論文。涉密論文按學校規(guī)定處理。作者簽名：日期： 年 月 日導師簽名： 日期： 年 月 日目目 錄錄第一章緒論第一章緒論 1 1第二章課題總體介紹第二章課題總體介紹 2 22.1 課題介紹 22.2 主要設計功能 3第三章開發(fā)方法的選擇第三章開發(fā)方法的選擇 3 33.1 開發(fā)工具的選擇 33.2 WINDOWS下的 VISUAL BASIC

4、編程環(huán)境介紹 4第四章系統(tǒng)分析第四章系統(tǒng)分析 5 5 . . . 2 / 294.1 系統(tǒng)分析的重要性 54.2 需求分析 64.3 可行性分析 6第五章系統(tǒng)總體規(guī)劃第五章系統(tǒng)總體規(guī)劃 7 75.1 系統(tǒng)功能 75.2 使用 ACCESS2000 實現(xiàn)關系型數(shù)據(jù)庫 85.3 數(shù)據(jù)庫的實現(xiàn) 95.4 VB 與數(shù)據(jù)庫的連接方式 12第六章系統(tǒng)詳細設計第六章系統(tǒng)詳細設計 12126.1 系統(tǒng)的特點 126.2 系統(tǒng)子模塊功能概括 126.3 用戶界面的實現(xiàn) 13第七章系統(tǒng)測試第七章系統(tǒng)測試 2525第八章結束語第八章結束語 2626參考文獻參考文獻 2727第一章第一章 緒緒 論論學生信息管理系統(tǒng)是

5、一個教育單位不可缺少的部分,它的容對于學校的決策者和管理者來說都至關重要,所以學生信息管理系統(tǒng)設計是以能夠為用戶提供充足的信息和快捷的查詢手段為核心容的。一直以來人們所使用的傳統(tǒng)的人工管理文件信息的方式實在是太落后，它存在著許許多多的缺點，效率低、性差的問題尤其突出。另外工作量稍微一大,將會有大量的文件和數(shù)據(jù)需要維護,有些問題是人工所無法解決的。隨著科學技術的不斷提高,計算機應用越來越廣泛,其強大的功能已為人們所深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計算機應用的一部分,使用計算機對學生信息進行管理,具有著手工管理所無法比擬的優(yōu)點，檢索快捷、查找方便、可靠性高、存儲量

6、大、性好、壽命長、成本低等。這些顯而易見的優(yōu)點能夠極提高學校管理人員的工作效率，也即提高進行學生信息管理的效率。由于這些原因加之指導老師的睿智指導，選擇這樣一個學生信息管理系統(tǒng)的設計也就成了必然。 . . . 3 / 29學生信息管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以與前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。經過分析，我們使用MICROSOFT 公司的 VISUAL BASIC 開發(fā)工具，利用其提供的各種面向對象的開發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)

7、據(jù)庫的智能化對象，首先在短時間建立系統(tǒng)應用原型，然后，對初始原型系統(tǒng)進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統(tǒng)。關鍵字：控件、窗體、域、數(shù)據(jù)庫。本系統(tǒng)主要包括學生信息查詢、教務信息維護和學生選課三部分。其功能主要有：有關學籍等信息的輸入，包括輸入學生基本信息、所在班級、所學課程和成績等。學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和成績等。學生信息的修改。班級管理信息的輸入，包括輸入班級設置、年級信息等。班級管理信息的查詢。班級管理信息的修改。本文論述了在 Microsoft Visual Basic 6.0 可視化開發(fā)軟件工具下分析、設計、開發(fā)，實現(xiàn)創(chuàng)建了一套行之有

8、效的計算機管理學生的方案。文章中介紹了學生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析等。系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計和數(shù)據(jù)庫設計與代碼設計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法。該系統(tǒng)基本上滿足了用戶在學校信息管理方面的需求，用戶界面友好。此系統(tǒng)更加貼近信息電子化處理，從而降低了人工勞動并增加了信息的準確性。下面我就談談學生信息管理系統(tǒng)的開發(fā)過程中所遇到的問題與解決方法。第二章第二章 課題總體介紹課題總體介紹2.12.1 課題介紹課題介紹高校學生信息的管理是一項既重要又繁瑣的工作。為更好的做好這項工作，提過工作效率，更好的為學校的發(fā)展和一線教學服務，結合我校實際情況，自行研制了一套學生信

9、息管理系統(tǒng)。由于我國有些學校學生信息的管理水平比較低，只停留在紙介質的水準上，這樣的機制很明顯地已不能適應時代的發(fā)展要求，它浪費了過多的人力與物力，還存在一些先天缺陷。在信息時代，這種傳統(tǒng)的管理方法被以計算機為基礎的信息管理方法取代已是大勢所趨。歸納起來，學生信息管理系統(tǒng)做到一下功能比較合民意：首先，可以存儲歷屆的學生信息，安全、高效；其次，系統(tǒng)可操作性強，能夠節(jié)省人力，最好只需一到二名信息錄入員；第三，查找信息速度快、效率高，可以檢索有條件信息；第四，為將來學校實現(xiàn)網絡化教育做準備。 . . . 4 / 292.22.2 主要設計主要設計功能功能本程序需要具備以下功能：1、對學生基本信息的添

10、加、修改和刪除等操作；2、可以對學生基本信息進行查詢、對學生成績和所學課程進行查詢等；3、系統(tǒng)管理具體包括添加用戶、刪除用戶，修改用戶信息等。第三章第三章 開發(fā)方法的選擇開發(fā)方法的選擇本章主要介紹了在程序，系統(tǒng)開發(fā)過程中所用到的軟件和硬件環(huán)境，以與各類工具在windows XP 環(huán)境下的安裝與調試。3.3.1 1 開發(fā)工具的選擇開發(fā)工具的選擇作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic 是一個非常理想的選擇，它簡單易讀懂。數(shù)據(jù)庫技術是 MIS 設計中的重要支持技術，在 MIS 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理也是一個重要的問題，目前，數(shù)據(jù)庫產品可謂琳瑯滿目，每種產品都具有各自的特點和適用圍，因

11、此，在選擇數(shù)據(jù)庫前，我慎重考慮了一下，應數(shù)據(jù)庫應用的特點與適用圍，本系統(tǒng)選用了數(shù)據(jù)庫 Access 2000，開發(fā)工具當然是非 Visual Basic 莫屬了。 . . . 5 / 293.23.2 WindowsWindows 下的下的 VisualVisual BasicBasic 編程環(huán)境介紹編程環(huán)境介紹3.2.13.2.1 VisualVisual BasicBasic 的功能簡介的功能簡介1、結構化程序設計語言：Visual Basic 是在 BASIC 語言的基礎上發(fā)展起來的，具有高級程序設計語言的語句結構，接近于自然語言和人類的邏輯思維方式。Visual Basic 語句簡單易

12、懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調試器和編譯器。Visual Basic 是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。在設計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設計好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。2、訪問數(shù)據(jù)庫功能：Visual Basic 具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫

13、，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時，Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如：DATABASE，F(xiàn)oxPro，Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。3.2.23.2.2 開發(fā)工具開發(fā)工具 VisualVisual BasicBasic 的使用的使用Visual Basic 應用由一系列對象組成，包括有函數(shù)、菜單、函數(shù)、結構和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等，這些對象和控件中都可在許多程序中重復使用，使其具有了最廣大意義上的可通用性和擴展性。使用 Visual Basic 的菜單

14、編輯器即可建立菜單或者修改已經存在的菜單。由于大家對菜單等的使用已駕輕就熟，現(xiàn)著重對主要控件的使用作個介紹：首先，選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“Microsoft Windows Common Controls 6.0” ，然后，在工具箱中增加該控件，即可實現(xiàn)控件的添加。1.ImageList 控件:ImageList 用于為其他控件提供圖像庫，屬性定義與數(shù)據(jù)條對應的ImageList 控件名，該控件定義工具條按鈕顯示的圖像。2.Align 控件:定義工具條在窗體中的位置3.ToolTipText 控件:是字符串類型，定義控件的提示字符4

15、.Style 控件:定義按鈕外觀。5. HotImangeList 控件:設置 ImageList 控件名，使控件定義按鈕獲得熱點時顯示的圖像。6.DisabledImageList 控件:定義工具條按鈕無效時顯示的圖像。 . . . 6 / 29第四章第四章 系統(tǒng)分析系統(tǒng)分析系統(tǒng)分析是程序設計中的一門重要課題，在本章中，我們將會對學生信息管理系統(tǒng)的系統(tǒng)需求進行分析，分析其可行性與重要性，進而對系統(tǒng)的各個模塊進行分析、設計。4.14.1 系統(tǒng)分析的重要性系統(tǒng)分析的重要性在管理信息系統(tǒng)的生命周期中，緊接系統(tǒng)規(guī)劃階段的是系統(tǒng)開發(fā)。系統(tǒng)開發(fā)階段的目標是根據(jù)系統(tǒng)規(guī)劃所確定的系統(tǒng)總體結構方案和項目開發(fā)計

16、劃，按擬定的項目開發(fā)出可以運行的實際系統(tǒng)。這是系統(tǒng)建設工作中任務最為繁重、耗費資源最多的一個階段，這個階段又可劃分為系統(tǒng)分析、系統(tǒng)設計、系統(tǒng)實施三個小階段，構成系統(tǒng)開發(fā)生命周期的三個主要階段。系統(tǒng)分析階段的主要活動有：系統(tǒng)初步調查、可行性研究、系統(tǒng)詳細調查、新系統(tǒng)邏輯方案的提出。這是管理信息系統(tǒng)開發(fā)的起始階段，也是非常重要的階段。按照結構化方法嚴格劃分工作階段， “先邏輯、后物理”的原則，系統(tǒng)分析階段的目標，就是按系統(tǒng)規(guī)劃所定的某個開發(fā)項目圍，明確系統(tǒng)開發(fā)的目標和用戶的信息需求，提出系統(tǒng)的邏輯方案。系統(tǒng)分析在整個系 . . . 7 / 29統(tǒng)開發(fā)過程中，是要解決“做什么”的問題，把要解決哪些問

17、題、滿足用戶哪些具體的信息需求，調查、分析清楚，從邏輯上，或者說從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進行物理方案設計、解決“怎么做”提供依據(jù)。本階段主要解決用戶要求做什么，該問題值不值得做，是否有可行的解決辦法，以防止花費了大量人力、物力、財力和時間后，卻發(fā)現(xiàn)問題無解，而造成浪費。若有解，且值得做，就應該推薦一個較好的解決方案，并制定一個初步計劃。由此，可見系統(tǒng)分析的重要。4.24.2 需求分析需求分析每所高校每年都有大量的學生入學，如何對學生的信息進行有效的管理，這是一件比較復雜的問題。為更好的做好學生信息管理這項工作，提高工作效率，更好的為學校的發(fā)展和一線教學服務，

18、結合我校實際情況，自行研制一套學生信息管理系統(tǒng)。在我校目前的學生信息管理中，雖然應用了計算機進行管理，擺脫了全手工的管理方式，但由于沒有一套統(tǒng)一的方式、方法和軟件系統(tǒng)支持，仍然存在著諸如數(shù)據(jù)分散、不一致、可利用率低等的問題，以致影響了工作效率的進一步提高。目前我校的校園網絡已經基本建設完畢，網絡的應用為我校的發(fā)展提供的良好的基礎支持。本系統(tǒng)以后可以進一步充分利用這一有利條件，不久的將來開發(fā)一套完全網絡化的學生信息管理系統(tǒng)，進一步提高工作效率，使之更加便捷。4.34.3 可行性分析可行性分析通過調查分析，建立新的學生信息管理信息系統(tǒng)有其充分的必要性和可能性。可以建立該信息系統(tǒng)的可能性具體包含了它

19、具有經濟可行性、技術可行性和社會可行性，新系統(tǒng)能達到以最小的開發(fā)成本取得最佳的經濟效益，開發(fā)中所需人員、硬軟件支持以與其它費用進行估算情況均滿意，技術條件也能保證順利完成開發(fā)工作。最終認為該系統(tǒng)完全可行，并根據(jù)其特點決定采用 VB6.0 作為開發(fā)工具。 . . . 8 / 29第五章第五章 系統(tǒng)總體規(guī)劃系統(tǒng)總體規(guī)劃5.15.1 系統(tǒng)功能系統(tǒng)功能學生管理系統(tǒng)是一個交互式查詢系統(tǒng)，利用該系統(tǒng)學生作為只讀用戶可以查詢自己的信息，修改自己個人信息如進入系統(tǒng)的口令；學校教師作為普通用戶則可以錄入自己學生的基本信息等，當然條件是在系統(tǒng)允許的情況下；查詢所教科目的學生成績，修改系統(tǒng)口令。系統(tǒng)管理員用戶作為超

20、級用戶可管理所有用戶的權限。1.系統(tǒng)管理：此項功能權限僅限于超級用戶即系統(tǒng)管理員，實現(xiàn)的功能有：用戶注冊，角色定義，權限分配，用戶信息維護等。普通用戶的不擁有這些權限。 . . . 9 / 292.數(shù)據(jù)編輯：此項權限由超級用戶和給予權限的普通用戶享有。由于歸于系統(tǒng)用戶的疇，因此，所進行的操作是對原始數(shù)據(jù)庫的編輯，選中數(shù)據(jù)庫中的某一表便可以進行數(shù)據(jù)編輯，當然，修改時一定要慎之又慎，要考慮到數(shù)據(jù)的參照完整性。否則，修改后的數(shù)據(jù)很難得出正確的查詢結果。系統(tǒng)功能如圖 5-1 所示：圖 5-1 學生信息管理系統(tǒng)5.25.2 使用使用 Access2000Access2000 實現(xiàn)關系型數(shù)據(jù)庫實現(xiàn)關系型數(shù)

21、據(jù)庫5.2.15.2.1 數(shù)據(jù)庫的概念數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息。簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關系型數(shù)據(jù)庫（flat-file）和關系型數(shù)據(jù)庫（relational） 。關系型數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術語，如記錄、域等。5.2.25.2.2 新建一個數(shù)據(jù)庫新建一個數(shù)據(jù)庫創(chuàng)建任何一個數(shù)據(jù)庫的第一步是要仔細地規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結構的過程被認為是數(shù)據(jù)模型設計。其新建過程包括：1、標識需要的數(shù)據(jù)；2、收集被標識的字段到表中；3、標識主關鍵字字

22、段；4、繪制一個簡單的數(shù)據(jù)圖表； . . . 10 / 295、規(guī)數(shù)據(jù)；6、標識指定字段的信息；7、創(chuàng)建物理表。5.2.35.2.3 修改已建的數(shù)據(jù)庫修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成。5.2.45.2.4 實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關系是指兩個庫之間共享一個共同的關鍵字值。一個是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的形式稱為自，這種是指一個表被連接到它自己的一個字段，或在不同的紀錄中由

23、重復數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以與在數(shù)據(jù)庫中如何與其它的庫建立關系。5.2.55.2.5 關系型數(shù)據(jù)庫的實現(xiàn)關系型數(shù)據(jù)庫的實現(xiàn)Access2000 是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網絡文件服務器，

24、與其他網絡用戶共享數(shù)據(jù)庫。如上所述，Access 作為關系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關系數(shù)據(jù)庫的強大功能。5.35.3 數(shù)據(jù)庫的實現(xiàn)數(shù)據(jù)庫的實現(xiàn)5.3.15.3.1 課程數(shù)據(jù)表課程數(shù)據(jù)表(allkecheng)(allkecheng)該表實現(xiàn)對各課程教材的管理。結構如表 5-1 所示：表 5-1 課程數(shù)據(jù)表字段名稱字段類型字段寬度是否可空課程名稱文本20否教材文本30否5.3.25.3.2 成績數(shù)據(jù)表成績數(shù)據(jù)表(cj)(cj)高校院系分類繁多,容廣泛就一個專業(yè)而言其學生學習的課程也有 30 多門,那一個學院的總共 34 年的課程至少也有幾十門且有的專

25、業(yè)發(fā)展很快，每年要更新幾門課程，撤掉若干門課程因此，如何合理存放每個畢業(yè)生的各個學期的課程成績就為至關重要結構如表 5-2 所示：表 5-2 成績數(shù)據(jù)表字段名稱字段類型字段寬度是否可空 . . . 11 / 29學號文本10否學期文本100否類型文本16否課程名稱文本20否分數(shù)數(shù)字單精度否5.3.35.3.3 班級數(shù)據(jù)表班級數(shù)據(jù)表(class)(class)班級數(shù)據(jù)庫將對信息的管理具體到班級，在一個較小的圍實現(xiàn)對學生信息的管理，這對于學校管理是具有實際意義的。這是學生信息管理中最小圍的管理，已不需要用學號作為標識，可對一些更具體的信息進行管理，實現(xiàn)更細化的管理。該表就可實現(xiàn)對學生上課信息的管理

26、，例如上課教室等。結構如表 5-3 所示：表 5-3 班級數(shù)據(jù)表字段名稱字段類型字段寬度是否可空年級文本16否班級文本20否教室文本5否年制文本8否專業(yè)文本16否班主任文本8否備注備注無否5.3.45.3.4 班級課程數(shù)據(jù)表班級課程數(shù)據(jù)表(classkecheng)(classkecheng)該數(shù)據(jù)庫對不同年級、專業(yè)、年制根據(jù)學期的不同對每個學生的接受的課程進行管理。結構如表 5-4 所示：表 5-4 班級課程數(shù)據(jù)表字段名稱字段類型字段寬度是否可空年級文本16否專業(yè)文本12否年制文本8否學期文本50否課程名稱文本20否5.3.55.3.5 交費數(shù)據(jù)表交費數(shù)據(jù)表(jf)(jf)該數(shù)據(jù)庫是對學生各

27、學期交費信息的管理，由于入學時間、專業(yè)、學期的不同，其交費信息也不一樣，故要設立專門的表對其進行管理。結構如表 5-5 所示：表 5-5 交費數(shù)據(jù)表字段名稱字段類型字段寬度是否可空學號文本5否學期文本50否交費貨幣小數(shù)位數(shù)自動否欠費貨幣小數(shù)位數(shù)自動否 . . . 12 / 29日期日期/時間自動否操作員文本10否5.3.65.3.6 考試類型數(shù)據(jù)表考試類型數(shù)據(jù)表(kaoshileixing)(kaoshileixing)該表實現(xiàn)對各次考試類型的管理。結構如表 5-6 所示：表 5-6 考試類型數(shù)據(jù)表字段名稱字段類型字段寬度是否可空類型文本10否5.3.75.3.7 學生基本信息數(shù)據(jù)表學生基本信

28、息數(shù)據(jù)表(xj)(xj)為方便管理，我們采用學號作為唯一的標識。因為在學校中每個學生都有一個唯一標識身份的代碼學號，用它管理簡便易行。該表共有學號、 、性別、班級、出生年月、家庭住址、郵政編碼、聯(lián)系、入學時間、備注十個字段，學號作為主鍵。結構如表 5-7 所示：表 5-7學生基本信息數(shù)據(jù)表字段名稱字段類型字段寬度是否可空學號文本5否文本8否性別文本2否班級文本10否出生年月日期/時間自動否家庭住址文本30否郵政編碼數(shù)字長整型否聯(lián)系數(shù)字長整型否入學時間日期/時間自動否備注備注無否5.3.85.3.8 學費數(shù)據(jù)表學費數(shù)據(jù)表(xuefei)(xuefei)該數(shù)據(jù)庫是對學生各學期交費信息的管理，由于入

29、學時間、專業(yè)、學期的不同，其交費信息也不一樣，故要設立專門的表對其進行管理。結構如表 5-8 所示：表 5-8 學費數(shù)據(jù)表字段名稱字段類型字段寬度是否可空年級文本16否專業(yè)文本50否年制文本20否學期文本40否學費貨幣小數(shù)位數(shù)自動否5.3.95.3.9 用戶名數(shù)據(jù)表用戶名數(shù)據(jù)表(use)(use)該表主要實現(xiàn)用戶注冊、角色定義、權限分配和用戶信息維護等功能，普通用戶的是否有效。各字段的含義 Username(用戶名)、password(密碼)用來進入系統(tǒng)時輸入，admin(管理員)、readonly(自由訪問者)、qx(權限)根據(jù)不同權限來確定可實現(xiàn)的不同功能，超級用戶（管理員）可實現(xiàn)對所有功

30、能的訪問，普通用戶其權限由超級用戶來指定，只讀用戶只能瀏覽和查詢，不能修改和添加。結構如表 5-9 所示： . . . 13 / 29表 5-9 用戶名數(shù)據(jù)表字段名稱字段類型字段寬度是否可空username文本20否password文本20否Admin文本2否readonly文本2否Qx1文本2否Qx2文本2否Qx3文本2否Qx4文本2否5.45.4 VBVB 與數(shù)據(jù)庫的連接方式與數(shù)據(jù)庫的連接方式Visual Basic 提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。它支持不同的關系數(shù)據(jù)庫管理系統(tǒng)并充分發(fā)揮每一個數(shù)據(jù)庫的特長，生成獨立應用或脫離服務器運行的應用程序。Visual Basic 通過使用 AD

31、O 的連接方式來與數(shù)據(jù)庫進行連接。第六章第六章 系統(tǒng)系統(tǒng)詳細設計詳細設計6.16.1 系統(tǒng)的特點系統(tǒng)的特點本系統(tǒng)主要是利用 VB6.0 技術，結合學生信息管理的需要，力求在滿足系統(tǒng)功能需求的基礎上，使程序的運行更加快捷高效，并在數(shù)據(jù)查詢等方面更加貼近使用者的使用習慣使界面更為友好。在錄入窗口中，實現(xiàn)了數(shù)據(jù)窗口控件和下拉式數(shù)據(jù)窗口對象相結合的方式，既讓程序的操作方便，又讓系統(tǒng)直接與數(shù)據(jù)庫本身的原始數(shù)據(jù)相交互，保證了所操作數(shù)據(jù)的準確性；6.26.2 系統(tǒng)子模塊功能概括系統(tǒng)子模塊功能概括該學生信息管理系統(tǒng)包括系統(tǒng)管理模塊、學生信息管理模塊。其中學生信息管理模塊又包括班級管理模塊、學生檔案管理模塊、學

32、生交費管理模塊、課程管理模塊、成績管理模塊。 . . . 14 / 29本系統(tǒng)具有如下功能：系統(tǒng)管理：包括添加用戶，重新登錄；班級管理：包括班級瀏覽，添加班級，班級查詢；學生檔案管理：包括檔案添加，檔案瀏覽，檔案查詢；學生交費管理：包括基本學費設置，學生交費瀏覽，學生交費添加，學生交費查詢；課程管理：包括基本課程設置，班級課程設置；成績管理：包括考試類型設置，成績添加，成績?yōu)g覽，成績查詢；6.36.3 用戶界面的實現(xiàn)用戶界面的實現(xiàn)6.3.16.3.1 登錄界面登錄界面首先，系統(tǒng)的界面是至關重要的。它是與用戶溝通的橋梁，用戶工作時要時時面對它，所以界面一定要簡潔、直觀，操作簡單。根據(jù)選擇的相應用

33、戶和對應的口令進入系統(tǒng)，進行相應的操作。若密碼錯誤，則彈出“密碼錯誤”對話框。效果如圖 6-1 所示：圖 6-1 登錄界面登錄流程如圖 6-2 所示：圖 6-2 登錄流程圖6.3.26.3.2 主界面主界面密碼無誤，正確登錄后會看到主界面。效果如圖 6-3 所示： . . . 15 / 29圖 6-3 主界面6.3.36.3.3 系統(tǒng)管理界面系統(tǒng)管理界面點擊系統(tǒng)管理后看到的界面，效果如圖 6-4 所示：圖 6-4 系統(tǒng)管理若是超級用戶（管理員）則可以使用添加用戶功能，在此可以添加用戶的同時給用戶賦予權限。超級用戶是權限最高的用戶，他可以享有系統(tǒng)的所有功能。只讀用戶權限最低，只可以瀏覽系統(tǒng)的某些

34、容，而不能參與修改。普通用戶可以根據(jù)超級用戶賦予的權限進行權限欄中的任意一項或多項功能。普通用戶和只讀用戶都沒有添加用戶功能。作為普通用戶在進行未賦予權限的功能和只讀用戶在進行“寫”操作時，會彈出對話框“對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！” 。效果如圖 6-5 所示： . . . 16 / 29圖 6-5 新增用戶學生信息管理部分包括班級管理、學生檔案管理、學生交費管理、課程管理、成績管理。而每一部分都包括對該部分信息的添加、瀏覽、查詢、修改、刪除。其實現(xiàn)過程是相似的。我們以學生檔案管理為例，介紹其實現(xiàn)過程，可使用下面的程序完成。Private Sub Command1_Clic

35、k()If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 確認密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1

36、(2).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 確認密碼不正確！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus . . . 17 / 29 Exit SubEnd IfDim aa As Integeraa = 0If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End IfNext iIf aa =

37、 0 Then MsgBox 普通用戶至少要有一項權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql = select * from use where username= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = False Then MsgBox 已存在該用戶！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(

38、0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd Iftxtsql = select * from useSet mrc = ExecuteSQL(txtsql)mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text)For i = 0 To 2 If Option1(i).Value = True Then Select Case i . . . 18 / 29 Case 0 mrc.Fields(a

39、dmin) = y Case 1 mrc.Fields(readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 mrc.Fields(qx1) = y Case 1 mrc.Fields(qx2) = y Case 2 mrc.Fields(qx3) = y Case 3 mrc.Fields(qx4) = y End Select End If Next j End Select End If Next i mrc.Update MsgBox 用戶添加成功！, vbExclama

40、tion + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Option1(2).Value = TrueEnd SubPrivate Sub Form_Resize() . . . 19 / 29Text1(0).SetFocusEnd SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As

41、Single)End SubPrivate Sub Option1_Click(Index As Integer)If Index 2 ThenFor i = 0 To 3 Check1(i).Enabled = FalseNext iElseFor i = 0 To 3 Check1(i).Enabled = TrueNext iEnd IfEnd Sub6.3.46.3.4 學生檔案管理界面學生檔案管理界面點擊“學生檔案管理”后出現(xiàn)如下界面，效果如圖 6-6 所示。圖 6-6 檔案管理界面在學生信息管理的添加界面中，我們先通過變量傳遞得到輸入的學號，然后進行判斷。首先程序先對輸入的學號進行

42、判斷，若已存在，則給出提示信息，若不存在，則顯示所要添加的容。輸入學生信息后，我們將信息加入到數(shù)據(jù)庫中，而對于記錄刪除，可以使用下面程序完成：Dim mrc As ADODB.Recordset txtsql1 = select * from xj where 學號= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql1)If modi = False Then If mrc.EOF = False Then sss = MsgBox(已經存在該學號的記錄,學號不能重復！, vbExclamation + vbOKOnly,

43、警告) Text1(0).SetFocus Text1(0).SelStart = 0 . . . 20 / 29 Text1(0).SelLength = Len(Text1(0).Text) mrc.Close Exit Sub End If圖 6-7 入學登記界面另外，對于記錄查找，可以使用下面程序來完成：Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = xj.學號= & Trim(Text1(0).Text) & Else txtsql = tx

44、tsql & and xj.學號= & Trim(Text1(0).Text) & End IfEnd IfIf Trim(Text1(1).Text) Thenaa = 1 If txtsql = Then txtsql = xj.= & Trim(Text1(1).Text) & . . . 21 / 29 Else txtsql = txtsql & and xj.= & Trim(Text1(1).Text) & End IfEnd IfIf Trim(Text1(2).Text) Then aa = 1 If txtsq

45、l = Then txtsql = xj.班級= & Trim(Text1(2).Text) & Else txtsql = txtsql & and xj.班級= & Trim(Text1(2).Text) & End IfEnd IfIf Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = xj. like % & Trim(Text1(3).Text) & %End IfIf aa = 0 Thenss = MsgBox(你至少要輸入一個條件以上才能查詢！, , 警告)Text1(0)

46、.SetFocus Exit SubEnd IfDim str As Stringstr = select * from xj where & txtsqlDim mrc As ADODB.RecordsetSet mrc = ExecuteSQL(str)If mrc.EOF = True Thenzzz = MsgBox(對不起，沒有此學生的檔案記錄！, vbOKOnly, 查詢)Form4.ZOrder (0) Form4.Text1(0).SetFocus Exit SubEnd If對于記錄修改，可以使用下面程序：If Trim(Me.MSF1.TextMatrix(MSF1

47、.Row, 1) = Then . . . 22 / 29 sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub Else qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能修改記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If modi = True Form1.Show Form1.ZOrder 0 End If對于記錄刪除，可以使用下面程序：Dim mrc A

48、s ADODB.Recordset Dim intcount As Integer If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) = Then sssss = MsgBox(你還沒有選擇記錄！, vbOKOnly + vbExclamation, 警告) Else If qxstr = readonly Then ss = MsgBox(對不起，你是只讀用戶不能刪除記錄，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If If MsgBox(確定要刪除學號為 & Trim(Me.MSF1.Te

49、xtMatrix(MSF1.Row, 1) & 的記錄嗎？ & Chr(10) & Chr(13) & 該操作會導致該學生交費記錄和成績記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intcount = Me.MSF1.Row txtsql = delete * from xj where 學號= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql) txtsql = delete * from

50、jf where 學號= & . . . 23 / 29Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql) txtsql = delete * from cj where 學號= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql) TreeView1_DblClick End If End If瀏覽界面，在此處可以進行查找、修改、刪除和打印工作。效果如圖 6-8 所示：圖 6-8 學生檔案瀏覽

51、下面為查詢界面，可在此處進行記錄的查詢。效果如圖 6-9 所示：圖 6-9 學生檔案查詢可使用下面程序完成：Private Sub Command1_Click()Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = xj.學號= & Trim(Text1(0).Text) & Else txtsql = txtsql & and xj.學號= & Trim(Text1(0).Text) & . . . 24 / 29 End IfE

52、nd IfIf Trim(Text1(1).Text) Thenaa = 1 If txtsql = Then txtsql = xj.= & Trim(Text1(1).Text) & Else txtsql = txtsql & and xj.= & Trim(Text1(1).Text) & End IfEnd IfIf Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = xj.班級= & Trim(Text1(2).Text) & Else txtsql = txts

53、ql & and xj.班級= & Trim(Text1(2).Text) & End IfEnd IfIf Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = xj. like % & Trim(Text1(3).Text) & %End IfIf aa = 0 Then ss = MsgBox(你至少要輸入一個條件以上才能查詢！, , 警告) Text1(0).SetFocus Exit SubEnd IfDim str As Stringstr = select * from xj where &am

54、p; txtsqlDim mrc As ADODB.RecordsetSet mrc = ExecuteSQL(str)If mrc.EOF = True Then zzz = MsgBox(對不起，沒有此學生的檔案記錄！, vbOKOnly, 查詢) Form4.ZOrder (0) Form4.Text1(0).SetFocus Exit SubEnd Iftxtsql = select xj.學號,xj.,xj.性別,class.年級,xj.班級,class.專業(yè),class.年制,xj.出生年月,xj.家庭住址,xj.郵政編碼,xj.聯(lián)系,xj.入學時間,xj.備注 from xj inner join class on xj.班級=class.班級 where & txtsql & order by class.年級 desc,class.班級 desc