《VB程序設(shè)計(jì)》課程設(shè)計(jì)說明書——學(xué)生信息管理系統(tǒng)

1、畢業(yè)統(tǒng)考 20102011學(xué)年第二學(xué)期08級(jí)畢業(yè)統(tǒng)考 VB程序設(shè)計(jì) 統(tǒng)考作品 VB程序設(shè)計(jì)課程設(shè)計(jì)說明書一 學(xué)生信息管理系統(tǒng) 專 業(yè)： 08 計(jì)算機(jī)應(yīng)用與技術(shù) 班 級(jí): 08 計(jì)應(yīng)2班 學(xué) 號(hào): XXXXXXXXXXXXX 班 姓 名: XXX 日 期：2011-03-20 第1章系統(tǒng)概述 1.系統(tǒng)概述 本學(xué)生信息管理系統(tǒng)可以說是一個(gè)綜合性的學(xué)校學(xué)生管理系統(tǒng)，這它集成 了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)、系統(tǒng)等多 種功能，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。 1.1系統(tǒng)及需求分析 1.1.1 系統(tǒng)需求 通過調(diào)查，要求系統(tǒng)需要有以下功能： 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，要求有良

2、好的人機(jī)界面； 由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理； 原始數(shù)據(jù)修改簡單方便，支持多條件修改 方便的數(shù)據(jù)查詢，支持多條件查詢； 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好； 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)； 1.1.2可行性分析 （1）對(duì)象運(yùn)用可行性 由于本系統(tǒng)管理的對(duì)象單一，都是在校學(xué)生，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的 關(guān)聯(lián)性，涉及的計(jì)算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。 且學(xué)校用于學(xué)生管理的微機(jī)都是PIII以上的機(jī)器，在存儲(chǔ)量、速度方面都 能滿足數(shù)據(jù)庫運(yùn)行的要求。 （2）社會(huì)與經(jīng)濟(jì)可行性 利用學(xué)生信息管理系統(tǒng)實(shí)現(xiàn)了無紙化辦公，提高效率的同時(shí)還保護(hù)了環(huán) 境。本來大量的

3、計(jì)算、數(shù)據(jù)統(tǒng)計(jì)工作需要幾天、甚至一個(gè)月完成的工作， 可以在幾個(gè)小時(shí)，最多幾天內(nèi)完成，大量節(jié)省了人力資本。學(xué)生信息管理 系統(tǒng)同時(shí)也給老師和學(xué)生帶來了極大的方便。老師可以將課程安排，第一 時(shí)間錄入到系統(tǒng)。學(xué)生也可以第一時(shí)間登錄到該系統(tǒng)，查詢自己本學(xué)期課 程安排和考試方式，大大提高了時(shí)間成本。 1.2系統(tǒng)設(shè)計(jì)的背景 本系統(tǒng)的設(shè)計(jì)是在Windows 2000中文版操作系統(tǒng)環(huán)境下，使用 Visual Basic 6.0中文版開發(fā)成功的。數(shù)據(jù)庫是 MIS中的重要支持技術(shù)，在MIS開 發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較 多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫

4、時(shí)，應(yīng) 考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下： Visual Basic 語言 Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高 級(jí)程序設(shè)計(jì)，可用于開發(fā) Window環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、 效率高，且功能強(qiáng)大，可以與 Window啲專業(yè)開發(fā)工具SDK目媲美，而且程 序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件 驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Win dows內(nèi)部的應(yīng)用 程序接口 (API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象 的鏈接與嵌入(OLE)、開放式數(shù)

5、據(jù)訪問(ODBC等技術(shù)，可以高效、快速地 開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 總的來說，Visual Basic 具有以下特點(diǎn)： 可視化編程： 用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶 界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才 能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種 編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。 Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性 封裝” 起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求 的屏幕布局，用

6、系統(tǒng)提供的工具，在屏幕上畫出各種 部件”，即圖形對(duì)象， 并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序 設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序 設(shè)計(jì)的效率 面向?qū)ο蟮某绦蛟O(shè)計(jì) 4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的 面向?qū)ο蟮某绦蛟O(shè)計(jì)語言（C+）不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì) 語言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic則 是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（OOP）,把程序和數(shù)據(jù)封裝起來作為一個(gè) 對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì) 象時(shí)，不

7、必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上， Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式 顯示在界面上，都是可視的。 結(jié)構(gòu)化程序設(shè)計(jì)語言 Visual Basic是在BASICS言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語 言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語 句簡單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤檢查，同時(shí)具 有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。 Visual Basic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語言分 解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè) 計(jì)V

8、isual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì) 好之后，可以編譯生成可執(zhí)行文件（.EXE），脫離Visual Basic 環(huán)境，直 接在Windows環(huán)境下運(yùn)行 事件驅(qū)動(dòng)編程機(jī)制 Visual Basic通過事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè) 事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象， 當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè) 單擊（CLICK）事件，而在產(chǎn)生該事件時(shí) 將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。 在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié) 束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不 同

9、的對(duì)象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能，或者由 事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員， 提高效率。 訪問數(shù)據(jù)庫 Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管 理窗口，可以直接建立或處理 Microsoft Access格式的數(shù)據(jù)庫，并提供了 強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問其 他外部數(shù)據(jù)庫，如dBASE FoxPro, Paradox等，這些數(shù)據(jù)庫格式都可以用 Visual Basic編輯和處理。 Visual Basic提供開放式數(shù)據(jù)連接，即ODB功能，可通過直接訪問或 建立連接的

10、方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle 等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言 SQ數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服 務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫 訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL勺編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫 提供了 SQ網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器 (clie nt/server)方案。 動(dòng)態(tài)數(shù)據(jù)交換(DDE) 利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用 程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程 序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)

11、，可以自動(dòng)更新鏈接的數(shù) 據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與 其他Win dowj應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通 信。 對(duì)象的鏈接與嵌入(OLE) 對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象 (object)，將不同的對(duì)象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序 中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合 式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序 合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用 程序一體化的技術(shù)。利用OLE技術(shù)，可

12、以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每 個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的 操作。 動(dòng)態(tài)鏈接庫(DLL) Visual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì) 訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將 C/C+或匯編語言編寫的程序加入到 Visual Basic應(yīng)用程序中，可以像調(diào) 用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫，還可 以調(diào)用Windowj應(yīng)用程序接口 (API)函數(shù)，實(shí)現(xiàn)SD所具有的功能。 1.3系統(tǒng)的功能簡介 本系統(tǒng)主

13、要可以實(shí)現(xiàn)以下的管理功能：班級(jí)管理、學(xué)生檔案管理、課程管 理、成績管理等等。 1.3.1項(xiàng)目規(guī)劃 學(xué)生信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫應(yīng)用程序，由班級(jí)管理、學(xué)生檔案 管理、課程管理、成績管理等模塊組成，特規(guī)劃如下： 丄 班迂管理1學(xué)怦如秤課程管逵 戌績管理 1 T 1.3.2系統(tǒng)管理模塊（CTRL+O） 該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置，包括添加用戶 （快捷鍵：CTRL+A）重新登錄（快捷鍵：CTRL+F1） 1.3.3班級(jí)管理模塊（CTRL+P： 該模塊的功能是實(shí)現(xiàn)對(duì)全校班級(jí)的管理工作，包括：班級(jí)游覽、班級(jí)添加、 班級(jí)查詢等，這三個(gè)功能模塊各自獨(dú)立，完成學(xué)校的全部班級(jí)的管理。

14、1.3.4學(xué)生檔案管理模塊（CTRL+T : 該模塊的主要功能是實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作，包括檔案添加、 檔案瀏覽、檔案查詢等功能，從而方便學(xué)校管理部門對(duì)學(xué)校的基本情況的 快速查詢和了解。 1.3.5課程管理模塊（CTRL+R : 該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門課程的教材 選用情況，方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。 該模塊包括基本課程設(shè)計(jì)和班級(jí)課程設(shè)置兩個(gè)模塊。 1.3.6成績管理模塊（CTRL+F： 學(xué)校的成績管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段，本模塊包括考 試類型設(shè)置，共有期中考試和期未考試兩種類型，還設(shè)置了成績添加、成 績游覽功能模塊。

15、 1.4系統(tǒng)開發(fā)的目標(biāo) 出于本系統(tǒng)是學(xué)校學(xué)生管理的一個(gè)綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計(jì)目標(biāo)將最 終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。 畢業(yè)統(tǒng)考 第2章系統(tǒng)分析 2.1系統(tǒng)流程 在用戶啟動(dòng)應(yīng)用程序時(shí)，首先進(jìn)入登陸界面進(jìn)行用戶的身份驗(yàn)證。 如 果用戶通過身份驗(yàn)證，系統(tǒng)將根據(jù)用戶的不同級(jí)別分別引導(dǎo)用戶進(jìn)入不同 的界面，超級(jí)管理員和老師可進(jìn)入各自的管理界面進(jìn)行操作和查詢，而學(xué) 生用戶則只能通過輸入姓名、學(xué)號(hào)來查詢自己的信息。 2.2數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖 1、數(shù)據(jù)模型設(shè)計(jì)。首先來做出學(xué)生成績管理系統(tǒng)的 E-R圖，分析這個(gè)問題 的實(shí)體，從系統(tǒng)分析可以知道，學(xué)生的成績是由任課教師按照課程給出的，

16、學(xué)生、課程、教師組成了這個(gè)系統(tǒng)的三個(gè)實(shí)體。 2、再分析三個(gè)實(shí)體之間的聯(lián)系。首先，這三個(gè)實(shí)體不是一個(gè)統(tǒng)一體，學(xué) 生成績與教師沒有內(nèi)在聯(lián)系，教師必須通過課程實(shí)體才能與學(xué)生建立聯(lián) 系，因而先不考慮。課程與學(xué)生這兩個(gè)實(shí)體是多對(duì)多聯(lián)系；一位學(xué)生要學(xué) 習(xí)多門課程，一門課程有多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績是這兩個(gè)實(shí)體 學(xué) 生”和成績”共有的屬性，應(yīng)填在二者的聯(lián)系 學(xué)習(xí)”邊。因?yàn)槌煽兗炔皇菍W(xué) 生獨(dú)有的，也不是課程獨(dú)有的；學(xué)生甲70分”或 英語70分”是不完全的， 說 學(xué)生甲英語70分”才是正確的，因?yàn)?0分是學(xué)生甲和英語課二者共有的。 這個(gè)E-R圖可畫成下圖。 學(xué)生 成績 學(xué)習(xí) 學(xué)生成績管理系統(tǒng)中學(xué)生與課程的E

17、-R圖 教師與課程這兩個(gè)實(shí)體之間，是一對(duì)多聯(lián)系；一位教師可以都多門課程, 而一門課程對(duì)于學(xué)生成績來說只能有一位教師（英語、高等數(shù)學(xué)有多位教 師教，但對(duì)某個(gè)固定的學(xué)生來說只能有一位教師）。其E-R圖，如下所示。 課程 教學(xué) 教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了 E-R圖, 就可以設(shè)計(jì)數(shù)據(jù)庫。下圖為最后的e-r圖 31 第3章系統(tǒng)設(shè)計(jì) 3.1軟件模塊結(jié)構(gòu)設(shè)計(jì) 3. 1.1系統(tǒng)方案確定 通過對(duì)系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級(jí)管理、學(xué)生成 績管理、課程管理、成績管理、系統(tǒng)管理等功能。 3. 1. 2軟件結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來進(jìn)行相應(yīng)的模

18、塊，然后 可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作；總體來說，本系統(tǒng)屬于 一個(gè)事務(wù)型管理系統(tǒng) 3. 2數(shù)據(jù)庫設(shè)計(jì) 3. 2. 1 Acess數(shù)據(jù)庫簡介 數(shù)據(jù)庫是有結(jié)構(gòu)的數(shù)據(jù)集合，它與一般的數(shù)據(jù)文件不同，（其中的數(shù)據(jù)是 無結(jié)構(gòu)的）是一串文字或數(shù)字流。數(shù)據(jù)庫中的數(shù)據(jù)可以是文字、圖象、聲 音等。 Microsoft Access是一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成， 表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè) 字段有一個(gè)字段名，字段名在一個(gè)表中不能重復(fù)。表與表之間可以建立關(guān) 系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息。Access數(shù)據(jù)庫以文件形 式保存，文件的擴(kuò)展名

19、是MDB Access 2000的6種對(duì)象 Access 2000數(shù)據(jù)庫由六種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、 宏和模塊。 表(Table)表是數(shù)據(jù)庫的基本對(duì)象，是創(chuàng)建其他 5種對(duì)象的基礎(chǔ)。 表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù) 表。 查詢(Query)查詢可以按索引快速查找到需要的記錄，按要求篩 選記錄并能連接若干個(gè)表的字段組成新表。 窗體(Form)窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗 口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。 報(bào)表(Report)報(bào)表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打 印出來，以便分析。 宏(Macro)宏相

20、當(dāng)于DO中的批處理，用來自動(dòng)執(zhí)行一系列操作。 Access列出了一些常用的操作供用戶選擇，使用起來十分方便。 模塊(Module)模塊的功能與宏類似，但它定義的操作比宏更精細(xì) 和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。模塊使用Visual Basic編程。 與Access以前的版本比較，Access 2000新增了許多功能，字段類型 增加了 OLE寸象和超級(jí)鏈接，特別是與In ternet的融合，在數(shù)據(jù)庫中可以 直接鏈接到指定的We頁面或網(wǎng)絡(luò)文件，也可以把We頁面上的表格導(dǎo)入到 數(shù)據(jù)庫。Access 2000可以方便地利用各種數(shù)據(jù)源，包括dBASE, FoxBase,FoxPro,Excel,W

21、ord 等。Access 2000增加了數(shù)據(jù)庫訪問的安全 機(jī)制，可對(duì)表一級(jí)設(shè)置訪問許可權(quán)。Access 2000還可以方便地利用FoxPro 數(shù)據(jù)庫、Excel電子表格的數(shù)據(jù)，還可以和 Word混合使用，打印通用信函 或信封。 本次數(shù)據(jù)庫采用了 Microsoft推出的Access數(shù)據(jù)庫，能夠快速方便的 和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性， 大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫。使用Access的好處 還在于，如果你的系統(tǒng)擴(kuò)展到Clie nt/Server模式的時(shí)候，可以使用 Microsoft的數(shù)據(jù)庫服務(wù)器軟件SQL Server，此時(shí)

22、，程序只需要簡單的修 改一下鏈接（AD啲數(shù)據(jù)源）就可以，這樣，為程序的平滑擴(kuò)展提供了非 常有力的條件。 3.2.2建立數(shù)據(jù)庫 使用VB6.0所提供的“可視化數(shù)據(jù)管理器”建立數(shù)據(jù)庫以及其中的數(shù) 據(jù)表。 a. 在VB集成環(huán)境中啟動(dòng)數(shù)據(jù)管理器：單擊“外接程序”菜單下的 “可視化數(shù)據(jù)管理器”命令，打開可視化數(shù)據(jù)管理器“VisData ”窗口。 b. 選擇“文件”菜單中的“新建”項(xiàng)，在“新建”子菜單中，選擇 “Microsoft Access ”子菜單中“ Version 7.0 MDB ”，在創(chuàng)建數(shù)據(jù)庫對(duì)框 中選擇保存數(shù)據(jù)庫的路徑和庫文件名（XS）后保存。 本系統(tǒng)中所涉及到的主要實(shí)體共有七個(gè)數(shù)據(jù)表：

23、allkecheng表：課程名稱，教材 cj表：學(xué)號(hào)，學(xué)期，類型，課程名稱，分?jǐn)?shù) class表：年級(jí)，班級(jí)，教室，年制，專業(yè)，班主任，備注 classkecheng表：年級(jí)，專業(yè)，年制，學(xué)期，課程名稱 kaoshileixing 表：類型 use 表：username,password,admi n, read on Iy,qx1,qx2,qx3,qx4 xj表：學(xué)號(hào)，姓名，性別，班級(jí)，出生年月，家庭住址，郵政編碼，聯(lián) 系電話，入學(xué)時(shí)間，備注 表名 字段名稱 類型 寬度 小數(shù) 位數(shù) Allkeche ng 表 課程名稱 文本 20 教材 文本 30 Cj表 學(xué)號(hào) 文本 10 學(xué)期 文本 50

24、類型 文本 16 課程名稱 文本 20 分?jǐn)?shù) 單精度型數(shù) 字 自動(dòng) 2 Class表 年級(jí) 文本 16 班級(jí) 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 classkeche ng 年級(jí) 文本 16 專業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名稱 文本 20 kaoshileix ing 類型 文本 10 User表 user name 乂本 * 20 password 文本 20 Admin 文本 2 read only 乂本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 Xj表 學(xué)號(hào) 文本 9 姓名

25、 文本 8 性別 文本 2 班級(jí) 文本 10 出生年月 日期/時(shí)間 家庭住址 文本 30 郵政編碼 長整型 聯(lián)系電話 長整型 入學(xué)時(shí)間 日期/時(shí)間 備注 備注 第4章系統(tǒng)的功能 本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。 4. 1系統(tǒng)登陸界面： 本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和 密碼保存在USE!中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以 用909;909為用戶名和密碼來登陸本系統(tǒng)。具體設(shè)置是： 選擇“工程”里的“添加窗體”，選擇“登錄對(duì)話框”，保存為“frmdenlu ” 并且填寫代碼，完成與數(shù)據(jù)庫的鏈接。對(duì)窗體的屬性進(jìn)行設(shè)置，登錄界面 添加“某

26、某學(xué)?！弊謽印?在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對(duì)話框，選 擇添加“窗體”。并將新窗體保存為“ denglu ”。并且使用菜單編輯器，按 照功能流程圖的位置制作主頁面的下拉菜單。完成后設(shè)置主頁面屬性，將 “Caption ”命名為“學(xué)生信息管理系統(tǒng)”；通過“ Picture ”屬性，對(duì)主 界面的背景進(jìn)行設(shè)置；調(diào)整主界面大小，并設(shè)置“WindowState”屬性為 “2-Mixmized ” ,并將頁面調(diào)整到屏幕的中央。添加代碼，完善學(xué)生信 息管理系統(tǒng)主頁面的代碼設(shè)計(jì)。 Private Sub Comma nd1_Click() Dim mrc As ADODB.Records

27、et txtsql = select user name from use where user name=” & Trim(Text1.Text) & ”， Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True The n MsgBox 用戶名錯(cuò)誤！ , vbExclamation + vbOKO nl y, 警告 Textl.SetFocus Textl.SelStart = 0 Textl.SelLe ngth = Le n(Textl.Text) Exit Sub End If user name = mrc.Fields(0) txtsql2

28、= select user name from use where password & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql2) If mrc.EOF = True The n Hill 警告 MsgBox 密碼錯(cuò)誤！ , vbExclamation + vbOK On ly, Text2.SetFocus Text2.SelStart = 0 Text2.SelLe ngth = Le n(Text2.Text) Exit Sub End If txtsql = select user name from use where user

29、 name=” & Trim(Text1.Text) & and password* & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True The n MsgBox 用戶名稱和密碼不匹配！, vbExclamation + vbOKOnly, 告 Exit Sub End If MDIForml.Show frmcpass.Text1.Text = Text1.Text Un load Me End Sub Private Sub Comma nd2_Click() Un load Me End Sub Priv

30、ate Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As In teger) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As In teger) If KeyAscii = 13 Then Comma nd1.SetFocus End If End Sub 4.2系統(tǒng)管理模塊設(shè)計(jì) “系統(tǒng)管理”模塊分為“添加新用戶”和“退出”兩個(gè)子模塊 在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對(duì)

31、話框，選 擇添加“窗體”。并將新窗體保存為“ frmuser1 進(jìn)行代碼設(shè)計(jì)，代碼如下： Private Sub Comma nd1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！ ”, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If 敬+ H 警告 If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, Text1(1).SetFocus Exit Sub End I

32、f If Trim(Text1(2).Text) = The n MsgBox 確認(rèn)密碼不能為空！ , vbExclamation + vbOKOnly, Text1 (2).SetFocus Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) The n MsgBox 確認(rèn)密碼不正確！ , vbExclamation + vbOKOnly, Text1 (2).SetFocus Exit Sub End If Dim aa As In teger aa = 0 If Optio n1(2) .Value = True Then

33、 For i = 0 To 2 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 The n MsgBox 普通用戶至少要有一項(xiàng)權(quán)限！, vbExclamation + vbOKOnly, H+ II 警告 Exit Sub End If End If Dim mrc As ADODB.Recordset txtsql = select * from use where username=” & Trim(Text1(0).Text) & ” Set mrc = ExecuteSQL(txtsql) If m

34、rc.EOF = False The n MsgBox 已存在該用戶！ , vbExclamation + vbOK On ly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLe ngth = Len (Text1(0).Text) Exit Sub End If txtsql = select * from use Set mrc = ExecuteSQL(txtsql) mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(l) = Trim(Text1(1).

35、Text) For i = 0 To 2 If Optio n1(i).Value = True The n Select Case i Case 0 mrc.Fields(admi n) = y Case 1 mrc.Fields(read onl y) = y Case 2 For j = 0 To 2 If Check1(j).Value = 1 The n Select Case j Case 0 mrc.Fields(qx1) = y Case 1 mrc.Fields(qx2) = y Case 2 mrc.Fields(qx3) = y End Select End If Nex

36、t j End Select End If Next i mrc.Update MsgBox 用戶添加成功！ , vbExclamation + vbOK On ly, Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Comma nd2_Click() Un load Me End Sub Private Sub Form_Load() Optio n1(2) .Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub

37、Private Sub Optio n1_Click(l ndex As In teger) If In dex 2 The n For i = 0 To 2 Check1(i).E nabled = False Next i Else For i = 0 To 2 Check1(i).E nabled = True Next i End If End Sub 通過代碼設(shè)計(jì)，實(shí)現(xiàn)了對(duì)三種不同權(quán)限的新用戶的添加， 管理員具有 所有得權(quán)限，老師在管理員的授權(quán)下可以選擇系統(tǒng)管理、 課程管理與檔案 管理、課程管理的一種、兩種或者全部權(quán)限，學(xué)生則只有瀏覽的功能。 4.3班級(jí)管理 在完成了系統(tǒng)的登錄頁面設(shè)

38、計(jì)、系統(tǒng)主頁面系統(tǒng)設(shè)計(jì)后，接下來在總 體設(shè)計(jì)思想的指導(dǎo)下完成系統(tǒng)的其余功能模塊的設(shè)計(jì)。這些子模塊作為 學(xué)生信息管理系統(tǒng)的組成部分，在很大程度上增強(qiáng)了所開發(fā)系統(tǒng)的整 體功能。以下主要講述班級(jí)管理這個(gè)功能模塊的具體設(shè)計(jì)和實(shí)現(xiàn)。 班級(jí)管理的主要功能是對(duì)各院系的班級(jí)的基本信息進(jìn)行管理，這些信 息包括年級(jí)、班級(jí)、教室、年制、專業(yè)、班主任、備注等。相應(yīng)的管理操 作包括：添加記錄、修改記錄、刪除記錄、查詢記錄以及打印記錄。執(zhí)行 查詢，先輸入要進(jìn)行操作的班級(jí)，確定后再進(jìn)行對(duì)應(yīng)的操作。添加操作可 直接添加新的班級(jí)記錄。 4.3.1添加班級(jí)模塊設(shè)計(jì) 在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對(duì)話框，選 擇

39、添加“窗體”。并將新窗體保存為“formclassl ”。添加代碼并且進(jìn)行屬 性設(shè)置。將“ Caption ”改為“添加班級(jí)”，并且調(diào)整窗口大小。 “添加系統(tǒng)”模塊的界面如下圖所示： 4.3.2瀏覽班級(jí)模塊設(shè)計(jì) 在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對(duì)話框，選 擇添加“窗體”。并將新窗體保存為“ formclass2 ”。添加代碼并且進(jìn)行屬 性設(shè)置。將“ Caption ”改為“瀏覽班級(jí)”，并且調(diào)整窗口大小。 “添加系統(tǒng)”模塊的界面如下圖所示： I爭洶剝象I冃 瀏覽致?lián)?通過設(shè)計(jì)的瀏覽班級(jí)模塊，可以根據(jù)年級(jí)，對(duì)本校的各班級(jí)信息進(jìn)行 總體瀏覽。并且根據(jù)需要，對(duì)班級(jí)設(shè)置進(jìn)行修改，刪除，

40、打印。 4.3.3班級(jí)查詢模塊設(shè)計(jì) 在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對(duì)話框，選 擇添加“窗體”。并將新窗體保存為“ formclass3 ”。進(jìn)行屬性設(shè)置。將 “ Caption ”改為“班級(jí)查詢”，并且調(diào)整窗口大小。通過設(shè)計(jì)，此模塊可 以通過年級(jí)、班級(jí)、專業(yè)對(duì)班級(jí)設(shè)計(jì)查詢。 “添加系統(tǒng)”模塊的界面如下圖所示: 班級(jí)設(shè)置查詢 進(jìn)行代碼設(shè)計(jì)，代碼如下： Private Sub Comma nd1_Click() txtsql = If Text1(0).Text Then If txtsql = The n txtsql = 年級(jí)=”& Trim(Text1(0).Text)

41、& ”， Else txtsql = txtsql & and年級(jí)=”& Trim(Text1(0).Text) & End If End If If Text1(1).Text Then If txtsql = The n txtsql = 班級(jí)=”& Trim(Text1(1).Text) & ”， Else txtsql = txtsql & and班級(jí)=”& Trim(Text1(1).Text) & End If End If If Text1(2).Text The n aa = 1 If txtsql = The n txtsql = 專業(yè)=”& Trim(Text1(2).Te

42、xt) & ”， Else txtsql = txtsql & and專業(yè)=”& Trim(Text1(2).Text) & End If End If If txtsql = The n ss = MsgBox(你至少要輸入一個(gè)條件以上才能查詢！, 警告) Text1(0).SetFocus Exit Sub End If txtsql = select * from class where & txtsql Dim mrc As ADODB.Recordset Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True The n zzz = MsgBox

43、(對(duì)不起，沒有此班級(jí)的檔案記錄！, vbOKOnly, 查詢 ) Formclass3.ZOrder (0) Formclass3.Text1(0).SetFocus Exit Sub End If Formclass2.pri ntstr = txtsql classfi nd = True Formclass2.Show Formclass2.classshowtitle Formclass2.classshowdata Formclass2.Caption =班級(jí)設(shè)置查詢結(jié)果 Formclass2.ZOrder (0) End Sub Private Sub Form_Unl oad(C

44、a ncel As In teger) classfi nd = False End Sub 必須同時(shí)輸入一個(gè)條件，否則將彈出警告對(duì)話框“你至少要輸入一個(gè) 以上條件以上才能查詢！ ”用戶可以同時(shí)設(shè)定一個(gè)、兩個(gè)或者三個(gè)條件進(jìn) 行查詢。 4. 4學(xué)生檔案管理 學(xué)生檔案管理是對(duì)全校學(xué)生的基本資料進(jìn)行查詢、修改、添加、刪除、 打印操作。執(zhí)行查詢操作時(shí)，可以根據(jù)學(xué)號(hào)、姓名、班級(jí)、姓名關(guān)鍵字進(jìn) 行查詢?？梢詫?duì)查找到的信息進(jìn)行修改和刪除。添加操作可直接添加相應(yīng)的學(xué)生基本情況。學(xué)生信息包括學(xué)號(hào)、姓名、性別、班級(jí)、家庭住址、出 生年月、聯(lián)系電話、入學(xué)時(shí)間、備注等信息。 441檔案添加模塊設(shè)計(jì) 首先明確檔案添加的

45、功能是添加對(duì)入學(xué)的學(xué)生進(jìn)行入學(xué)檔案登記，其 中包括姓名、性別、班級(jí)、聯(lián)系電話等信息。在“工程”菜單中選擇“添 加窗體”，打開“添加窗體”對(duì)話框，選擇添加“窗體”。并將新窗體保存 為“forml ”。進(jìn)行屬性設(shè)置，并且編寫代碼，完成的頁面如下圖所示： Private Sub Comma nd1_Click() Forj = 0 To 7 If Text1(j) = The n 不能為空！ , vbExclamation ss = MsgBox(Label1(j).Caption & + vbOKOnly,警告) Text1(j).SetFocus Text1(j).SelStart = 0 Te

46、xt1(j).SelLe ngth = Len (Textl(j).Text) Exit Sub End If Next Dim mrc As ADODB.Recordset txtsql1 = select * from xj where學(xué)號(hào)=& Trim(Text1(0).Text) & IHH Set mrc = ExecuteSQL(txtsqll) If modi = False Then If mrc.EOF = False The n II sss = MsgBox(已經(jīng)存在該學(xué)號(hào)的記錄,學(xué)號(hào)不能重復(fù)！ vbExclamation + vbOK On ly, 警告) Text1(

47、0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLe ngth = Le n(Text1(0).Text) mrc.Close Exit Sub End If End If If Not lsDate(Text1(2).Text) The n 判斷是否日期格式 ssss = MsgBox(應(yīng)輸入日期 mm-dd-yy, vbInformation vbOKOnly,警告) Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLe ngth = Le n(Text1 (2) .Text) Exit S

48、ub End If If Not lsDate(Text1(6).Text) Then ssss = MsgBox(應(yīng)輸入日期 mm-dd-yy, vblnformation+ vbOKOnly,警告) Text1(6).SetFocus Text1(6).SelStart = 0 Text1(6).SelLe ngth = Le n(Text1 (6).Text) Exit Sub End If If modi = True The n txtsql1 = update xj set學(xué)號(hào)=& Trim(Text1(0).Text) & , 姓名=& Trim(Text1(1).Text) &

49、 ,性別=& Trim(Combo1(0).Text) & ,班級(jí)=& Trim(Combo1(1).Text) & , 出生年月=# & Trim(Text1 (2).Text) & # ,家庭住址=& Trim(Text1(3).Text) & , 郵政編碼=& Trim(Text1 .Text) & ,聯(lián)系電話=& Trim(Text1(5).Text) & ,入學(xué)時(shí)間=# & Trim(Text1(6).Text) & # , 備注=& Trim(Text1(7).Text) & where 學(xué)號(hào)=& Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row,

50、 1) & ” Set mrc = ExecuteSQL(txtsqll) txtsqll = update cj set 學(xué)號(hào)=& Trim(Text1(0).Text) & where 學(xué)號(hào)=& Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & ” Set mrc = ExecuteSQL(txtsqll) txtsqll = update jf set 學(xué)號(hào)=& Trim(Text1(0).Text) & where 學(xué)號(hào)=& Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & ” Set mrc

51、= ExecuteSQL(txtsqll) Un load Me Exit Sub End If 畢業(yè)統(tǒng)考 txtsqll = select * from xj Set mrc = ExecuteSQL(txtsqll) mrc.AddNew For i = 4 To 9 mrc.Fields(i) = Text1(i - 2).Text Next i mrc.Fields(O) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Fields (2) = Trim(Combo1(0).Text) mrc.Fields(3

52、) = Trim(Combo1(1).Text) mrc.Update Set mrc = Nothi ng Forj = 0 To 7 Text1(j)= Next End Sub 442檔案瀏覽模塊設(shè)計(jì) 類似可以進(jìn)行檔案瀏覽模塊設(shè)計(jì)，完成之后的設(shè)計(jì)見面如下圖所示: 畢業(yè)統(tǒng)考 其代碼如下： Public Sub showdata() Dim j As In teger Dim i As In teger Dim mrc As ADODB.Recordset Set mrc = New ADODB.Recordset Set mrc = ExecuteSQL(txtsql) If mrc.EO

53、F = False The n mrc.MoveFirst With MSF1 .Rows = 50 .Row = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 1 To mrc.Fields.Co unt .TextMatrix(.Row, i) = mrc.Fields(i - 1) Next i .Row = .Row + 1 mrc.MoveNext Loop End With Else If find = True The n Form3.Hide Form4.Show zzz = MsgBox(對(duì)不起，沒有此學(xué)生的檔案記錄！, v

54、bOKO nl y, 查 詢) Form4.ZOrder (0) Form4.Text1(0).SetFocus End If End If Set mrc = Nothi ng End Sub Public Sub tree() TreeView1.Nodes.Clear Dim no dex As Node Dim mrc As ADODB.Recordset Dim mrc1 As ADODB. Recordset Dim str As String Dim a As Stri ng a =年級(jí) TreeView1.L in eStyle = tvwRootLi nes str = se

55、lect dist inct年級(jí) from class order by 年級(jí) Set mrc = ExecuteSQL(str) str = select distinct年級(jí),班級(jí) from class order by 年級(jí),班級(jí) Set mrc1 = ExecuteSQL(str) mrc.MoveFirst Do Un til mrc.EOF mrc1.MoveFirst Set nodex = TreeView1.Nodes.Add(, , a, mrc.Fields(0), 1, 1) Do While Not mrc1.EOF If mrc1.Fields(0) = mrc.F

56、ields(0) The n Setnodex = TreeView1.Nodes.Add(a, tvwChild, , mrc1.Fields(1), 2, 2) End If mrcl.MoveNext Loop a = a & 1 mrc.MoveNext Loop mrcl.Close mrc.Close Set mrc = Nothi ng Set mrc1 = Nothi ng End Sub Private SubToolbar1_Butto nClick(ByValButton As MSComctILib.Butto n) Select Case Butt on. Tag C

57、ase find Form4.Show Case modi IfTrim(Me.MSF1.TextMatrix(MSF1.Row, 1)= The n sssss= MsgBox(你還沒有選擇記錄！ , vbOKOnly+ vbExclamatio n,警告) Exit Sub Else qxstr = Executeqx(2) If qxstr = read only The n ss = MsgBox(對(duì)不起，你是只讀用戶不能修改記錄，請(qǐng) 與管理員聯(lián)系！ , vbI nformation + vbOKO nl y, 警告) Exit Sub End If modi = True Forml

58、.Show Forml.ZOrder 0 End If Case del Dim mrc As ADODB. Recordset Dim in tco unt As In teger If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) = The n sssss = MsgBox(你還沒有選擇記錄！, vbOK Only + vbExclamatio n,警告) Else If qxstr = read only The n ss = MsgBox(對(duì)不起，你是只讀用戶不能刪除記錄，請(qǐng) 與管理員聯(lián)系！ , vbI nformation + vbOKO nl y, 警

59、告) Exit Sub End If IfMsgBox(確定要?jiǎng)h除學(xué)號(hào)為 & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & 的記錄嗎？ & Chr(10) & Chr(13)&該操作會(huì)導(dǎo)致該學(xué)生成績記錄的丟失！確定嗎？, vbOKCa ncel + vbExclamatio n, 警告)=vbOK The n in tcou nt = Me.MSF1.Row txtsql= delete * from xj where 學(xué) 號(hào)=& Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & ” Set mrc = ExecuteSQL(txts

60、ql) txtsql= delete * from jf where 學(xué) 號(hào)=& Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & ” Set mrc = ExecuteSQL(txtsql) txtsql= delete * from cj where 學(xué) 號(hào)=& Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & ” Set mrc = ExecuteSQL(txtsql) TreeView1_DblClick End If End If Case pri nt Form6.Show Form6.ZOrder 0 End Select