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

1、廣西城市職業(yè)學(xué)院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é)生成績(jī)管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)、系統(tǒng)等多種功能,因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。1.1系統(tǒng)及需求分析通過調(diào)查,要求系統(tǒng)需要有以下功能:由于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面;由于該系統(tǒng)的使用對(duì)象多,要求有較好的權(quán)限管理;原始數(shù)據(jù)修改簡(jiǎn)單

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

3、師和學(xué)生帶來了極大的方便。老師可以將課程安排,第一時(shí)間錄入到系統(tǒng)。學(xué)生也可以第一時(shí)間登錄到該系統(tǒng),查詢自己本學(xué)期課程安排和考試方式,大大提高了時(shí)間成本。1.2系統(tǒng)設(shè)計(jì)的背景本系統(tǒng)的設(shè)計(jì)是在Windows2000中文版操作系統(tǒng)環(huán)境下,使用Visual Basic6.0中文版開發(fā)成功的。數(shù)據(jù)庫(kù)是MIS中的重要支持技術(shù),在MIS開發(fā)過程中,如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問題,目前,數(shù)據(jù)庫(kù)產(chǎn)品較多,每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍,因此,在選擇數(shù)據(jù)庫(kù)時(shí),應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用范圍,本系統(tǒng)選用的數(shù)據(jù)庫(kù)語言介紹如下: Visual Basic語言Visual Basic是一種可視化的、面對(duì)對(duì)象和條

4、用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì),可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高,且功能強(qiáng)大,可以與Windows的專業(yè)開發(fā)工具SDK相媲美,而且程序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下,利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具,使用Windows內(nèi)部的應(yīng)用程序接口(API函數(shù),以及動(dòng)態(tài)鏈接庫(kù)(DLL、動(dòng)態(tài)數(shù)據(jù)交換(DDE、對(duì)象的鏈接與嵌入(OLE、開放式數(shù)據(jù)訪問(ODBC等技術(shù),可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f,Visual Basic具有以下特點(diǎn):可視化編程:用傳統(tǒng)程序設(shè)計(jì)語言

5、設(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ì)要求的屏幕布局,用系統(tǒng)提供的工具,在屏幕上畫出各種“部件”,即圖形對(duì)象,并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼,程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼,從而可以大大提高程序設(shè)計(jì)的效率

6、。面向?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í),不必編寫建立和描述每個(gè)對(duì)象的程序代碼,而是用工具畫在界面上, Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上,都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言Visual Basic是在BASIC語言的基礎(chǔ)

7、上發(fā)展起來的,具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu),接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡(jiǎn)單易懂,其編輯器支持彩色代碼,可自動(dòng)進(jìn)行語法錯(cuò)誤檢查,同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語言,在輸入代碼的同時(shí),解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令,并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)Visual 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è)

8、對(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è)微小的子程序,即過程。這些過程分別面向不同的對(duì)象,由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能,或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作,這樣可以方便編程人員,提高效率。訪問數(shù)據(jù)庫(kù)Visual Basic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能,利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口,可以直接建立或處理Microsoft Acc

9、ess格式的數(shù)據(jù)庫(kù),并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí),Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫(kù),如dBASE,FoxPro,Paradox等,這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接,即ODBC功能,可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù),如SQL Server,Oracle 等。在應(yīng)用程序中,可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn),直接訪問服務(wù)器上的數(shù)據(jù)庫(kù),并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù),為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口,以

10、便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/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í),可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù),可以在應(yīng)用程序中與其他Windows應(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

11、某個(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ù),可以方便地建立復(fù)合式文檔(compound document,這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成,文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系,并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫(kù)(DLLVisual Basic是一種高級(jí)程序設(shè)計(jì)語言,不具備低級(jí)語言的功能,對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C+或匯編語

12、言編寫的程序加入到Visual Basic應(yīng)用程序中,可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外,通過動(dòng)態(tài)鏈接庫(kù),還可以調(diào)用Windows應(yīng)用程序接口(API函數(shù),實(shí)現(xiàn)SDK所具有的功能。1.3系統(tǒng)的功能簡(jiǎn)介本系統(tǒng)主要可以實(shí)現(xiàn)以下的管理功能:班級(jí)管理、學(xué)生檔案管理、課程管理、成績(jī)管理等等。學(xué)生信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序,由班級(jí)管理、學(xué)生檔案管理、課程管理、成績(jī)管理等模塊組成,特規(guī)劃如下: 該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置,包括添加用戶(快捷鍵:CTRL+A、重新登錄(快捷鍵:CTRL+F1。該模塊的主要功能是實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作,包括檔案添加、檔案

13、瀏覽、檔案查詢等功能,從而方便學(xué)校管理部門對(duì)學(xué)校的基本情況的快速查詢和了解。該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置,并可在其中設(shè)置各門課程的教材選用情況,方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)計(jì)和班級(jí)課程設(shè)置兩個(gè)模塊。學(xué)校的成績(jī)管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段,本模塊包括考試類型設(shè)置,共有期中考試和期未考試兩種類型,還設(shè)置了成績(jī)添加、成績(jī)游覽功能模塊。1.4系統(tǒng)開發(fā)的目標(biāo)出于本系統(tǒng)是學(xué)校學(xué)生管理的一個(gè)綜合性的系統(tǒng),本系統(tǒng)的設(shè)計(jì)目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。第2章系統(tǒng)分析 2.1系統(tǒng)流程在用戶啟動(dòng)應(yīng)用程序時(shí),首先進(jìn)入登陸界面進(jìn)行用戶的身

14、份驗(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é)生成績(jī)管理系統(tǒng)的E-R圖,分析這個(gè)問題的實(shí)體,從系統(tǒng)分析可以知道,學(xué)生的成績(jī)是由任課教師按照課程給出的,學(xué)生、課程、教師組成了這個(gè)系統(tǒng)的三個(gè)實(shí)體。2、再分析三個(gè)實(shí)體之間的聯(lián)系。首先,這三個(gè)實(shí)體不是一個(gè)統(tǒng)一體,學(xué)生成績(jī)與教師沒有內(nèi)在聯(lián)系,教師必須通過課程實(shí)體才能與學(xué)生建立聯(lián)系,因而先不考慮。課程與學(xué)生這兩個(gè)實(shí)體是多對(duì)多聯(lián)系;一位學(xué)生要學(xué)習(xí)多門課程,一門課

15、程有多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績(jī)是這兩個(gè)實(shí)體“學(xué)生”和“成績(jī)”共有的屬性,應(yīng)填在二者的聯(lián)系“學(xué)習(xí)”邊。因?yàn)槌煽?jī)既不是學(xué)生獨(dú)有的,也不是課程獨(dú)有的;“學(xué)生甲70分”或“英語70分”是不完全的,說“學(xué)生甲英語70分”才是正確的,因?yàn)?0分是學(xué)生甲和英語課二者共有的。這個(gè)E-R圖可畫成下圖。學(xué)生課程成績(jī)學(xué)習(xí)學(xué)生成績(jī)管理系統(tǒng)中學(xué)生與課程的E-R圖教師與課程這兩個(gè)實(shí)體之間,是一對(duì)多聯(lián)系;一位教師可以都多門課程,而一門課程對(duì)于學(xué)生成績(jī)來說只能有一位教師(英語、高等數(shù)學(xué)有多位教師教,但對(duì)某個(gè)固定的學(xué)生來說只能有一位教師。其E-R圖,如下所示。教師課程教學(xué)教師與課程的E-R圖組合到一起,得到最后的E-R圖,有

16、了E-R圖,n 學(xué)生成績(jī)課程m 1教師教學(xué)課程n就可以設(shè)計(jì)數(shù)據(jù)庫(kù)。下圖為最后的e-r圖。1n課程學(xué)生領(lǐng)導(dǎo)選修任課nmnn教師第3章系統(tǒng)設(shè)計(jì)本系統(tǒng)在執(zhí)行時(shí),先根據(jù)不同的操作人員的需要來進(jìn)行相應(yīng)的模塊,然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作;總體來說,本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。3.2數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)是有結(jié)構(gòu)的數(shù)據(jù)集合,它與一般的數(shù)據(jù)文件不同,(其中的數(shù)據(jù)是無結(jié)構(gòu)的是一串文字或數(shù)字流。數(shù)據(jù)庫(kù)中的數(shù)據(jù)可以是文字、圖象、聲音等。Microsoft Access是一種關(guān)系式數(shù)據(jù)庫(kù),關(guān)系式數(shù)據(jù)庫(kù)由一系列表組成,表又由一系列行和列組成,每一行是一個(gè)記錄,每一列是一個(gè)字段,每個(gè)字段有一個(gè)字段名,字段

17、名在一個(gè)表中不能重復(fù)。表與表之間可以建立關(guān)系(或稱關(guān)聯(lián),連接,以便查詢相關(guān)聯(lián)的信息。Access數(shù)據(jù)庫(kù)以文件形式保存,文件的擴(kuò)展名是MDB。班級(jí)管理接受數(shù)據(jù)處理中心檔案管理課程管理成績(jī)管理Access2000的6種對(duì)象Access2000數(shù)據(jù)庫(kù)由六種對(duì)象組成,它們是表、查詢、窗體、報(bào)表、宏和模塊。表(Table表是數(shù)據(jù)庫(kù)的基本對(duì)象,是創(chuàng)建其他5種對(duì)象的基礎(chǔ)。表由記錄組成,記錄由字段組成,表用來存貯數(shù)據(jù)庫(kù)的數(shù)據(jù),故又稱數(shù)據(jù)表。查詢(Query查詢可以按索引快速查找到需要的記錄,按要求篩選記錄并能連接若干個(gè)表的字段組成新表。窗體(Form窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子

18、窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。報(bào)表(Report報(bào)表的功能是將數(shù)據(jù)庫(kù)中的數(shù)據(jù)分類匯總,然后打印出來,以便分析。宏(Macro宏相當(dāng)于DOS中的批處理,用來自動(dòng)執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇,使用起來十分方便。模塊(Module模塊的功能與宏類似,但它定義的操作比宏更精細(xì)和復(fù)雜,用戶可以根據(jù)自己的需要編寫程序。模塊使用Visual Basic編程。與Access以前的版本比較,Access2000新增了許多功能,字段類型增加了OLE對(duì)象和超級(jí)鏈接,特別是與Internet的融合,在數(shù)據(jù)庫(kù)中可以直接鏈接到指定的Web頁(yè)面或網(wǎng)絡(luò)文件,也可以把Web頁(yè)面上的表格導(dǎo)

19、入到數(shù)據(jù)庫(kù)。Access2000可以方便地利用各種數(shù)據(jù)源,包括dBASE, FoxBase,FoxPro,Excel,Word等。Access2000增加了數(shù)據(jù)庫(kù)訪問的安全機(jī)制,可對(duì)表一級(jí)設(shè)置訪問許可權(quán)。Access2000還可以方便地利用FoxPro 數(shù)據(jù)庫(kù)、Excel電子表格的數(shù)據(jù),還可以和Word混合使用,打印通用信函或信封。本次數(shù)據(jù)庫(kù)采用了Microsoft推出的Access數(shù)據(jù)庫(kù),能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡(jiǎn)易性和有效性,大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫(kù)。使用Access的好處還在于,如果你的系統(tǒng)擴(kuò)展到Client/

20、Server模式的時(shí)候,可以使用Microsoft的數(shù)據(jù)庫(kù)服務(wù)器軟件SQL Server,此時(shí),程序只需要簡(jiǎn)單的修改一下鏈接(ADO的數(shù)據(jù)源就可以,這樣,為程序的平滑擴(kuò)展提供了非常有力的條件。使用VB6.0所提供的“可視化數(shù)據(jù)管理器”建立數(shù)據(jù)庫(kù)以及其中的數(shù)據(jù)表。a.在VB集成環(huán)境中啟動(dòng)數(shù)據(jù)管理器:單擊“外接程序”菜單下的“可視化數(shù)據(jù)管理器”命令,打開可視化數(shù)據(jù)管理器“VisData”窗口。b.選擇“文件”菜單中的“新建”項(xiàng),在“新建”子菜單中,選擇“Microsoft Access”子菜單中“Version7.0MDB”,在創(chuàng)建數(shù)據(jù)庫(kù)對(duì)框中選擇保存數(shù)據(jù)庫(kù)的路徑和庫(kù)文件名(XS后保存。本系統(tǒng)中所

21、涉及到的主要實(shí)體共有七個(gè)數(shù)據(jù)表:allkecheng表:課程名稱,教材cj表:學(xué)號(hào),學(xué)期,類型,課程名稱,分?jǐn)?shù)class表:年級(jí),班級(jí),教室,年制,專業(yè),班主任,備注classkecheng表:年級(jí),專業(yè),年制,學(xué)期,課程名稱kaoshileixing表:類型use表:username,password,admin,readonly,qx1,qx2,qx3,qx4xj表:學(xué)號(hào),姓名,性別,班級(jí),出生年月,家庭住址,郵政編碼,聯(lián)系電話,入學(xué)時(shí)間,備注表名字段名稱類型寬度小數(shù)位數(shù)Allkecheng表課程名稱文本20教材文本30Cj表學(xué)號(hào)文本10學(xué)期文本50類型文本16課程名稱文本20分?jǐn)?shù)單精度型

22、數(shù)自動(dòng)2字Class表年級(jí)文本16班級(jí)文本20教室文本5年制文本8專業(yè)文本16班主任文本8備注備注classkecheng年級(jí)文本16專業(yè)文本12年制文本8學(xué)期文本50課程名稱文本20 kaoshileixing類型文本10User表username文本20password文本20Admin文本2readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2 Xj表學(xué)號(hào)文本9姓名文本8性別文本2班級(jí)文本10出生年月日期/時(shí)間家庭住址文本30郵政編碼長(zhǎng)整型聯(lián)系電話長(zhǎng)整型入學(xué)時(shí)間日期/時(shí)間備注備注第4章系統(tǒng)的功能本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。4.1系統(tǒng)登陸界面:本界

23、面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理,本系統(tǒng)的用戶名和密碼保存在USE表中,本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限,可以用909;909為用戶名和密碼來登陸本系統(tǒng)。具體設(shè)置是:選擇“工程”里的“添加窗體”,選擇“登錄對(duì)話框”,保存為“frmdenlu”。并且填寫代碼,完成與數(shù)據(jù)庫(kù)的鏈接。對(duì)窗體的屬性進(jìn)行設(shè)置,登錄界面添加“某某學(xué)?！弊謽?。在“工程”菜單中選擇“添加窗體”,打開“添加窗體”對(duì)話框,選擇添加“窗體”。并將新窗體保存為“denglu”。并且使用菜單編輯器,按照功能流程圖的位置制作主頁(yè)面的下拉菜單。完成后設(shè)置主頁(yè)面屬性,將“Caption”命名為“學(xué)生信息管理系統(tǒng)”;通過“Pictu

24、re”屬性,對(duì)主界面的背景進(jìn)行設(shè)置;調(diào)整主界面大小,并設(shè)置“WindowState”屬性為“2-Mixmized”,并將頁(yè)面調(diào)整到屏幕的中央。添加代碼,完善學(xué)生信息管理系統(tǒng)主頁(yè)面的代碼設(shè)計(jì)。Private Sub Command1_Click(Dim mrc As ADODB.Recordsettxtsql="select username from use where username='"&Trim(Text1.Text&"'"Set mrc=ExecuteSQL(txtsqlIf mrc.EOF=True ThenM

25、sgBox"用戶名錯(cuò)誤!",vbExclamation+vbOKOnly,"警告"Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.TextExit Subusername=mrc.Fields(0txtsql2="select username from use where password='"&Trim(Text2.Text&"'"Set mrc=ExecuteSQL(txtsql2If mrc.EOF=True T

26、henMsgBox"密碼錯(cuò)誤!",vbExclamation+vbOKOnly,"警告"Text2.SetFocusText2.SelStart=0Text2.SelLength=Len(Text2.TextExit SubEnd Iftxtsql="select username from use where username='"&Trim(Text1.Text&"'and password='"&Trim(Text2.Text&"'&q

27、uot; Set mrc=ExecuteSQL(txtsqlIf mrc.EOF=True ThenMsgBox"用戶名稱和密碼不匹配!",vbExclamation+vbOKOnly,"警告"Exit SubEnd IfMDIForm1.ShowUnload MeEnd SubPrivate Sub Command2_Click(Unload MeEnd SubPrivate Sub Form_Load(Private Sub Text1_KeyPress(KeyAscii As IntegerIf KeyAscii=13ThenText2.SetFo

28、cusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As IntegerIf KeyAscii=13ThenCommand1.SetFocusEnd IfEnd Sub4.2系統(tǒng)管理模塊設(shè)計(jì)“系統(tǒng)管理”模塊分為“添加新用戶”和“退出”兩個(gè)子模塊。 在“工程”菜單中選擇“添加窗體”,打開“添加窗體”對(duì)話框,選擇添加“窗體”。并將新窗體保存為“frmuser1”。進(jìn)行代碼設(shè)計(jì),代碼如下:Private Sub Command1_Click(If Trim(Text1(0.Text=""ThenMsgBox"用戶名不能

29、為空!",vbExclamation+vbOKOnly,"警告" Text1(0.SetFocusExit SubEnd IfIf Trim(Text1(1.Text=""ThenMsgBox"密碼不能為空!",vbExclamation+vbOKOnly,"警告" Text1(1.SetFocusExit SubEnd IfIf Trim(Text1(2.Text=""ThenMsgBox"確認(rèn)密碼不能為空!",vbExclamation+vbOKOnly,&qu

30、ot;警告" Text1(2.SetFocusExit SubEnd IfIf Trim(Text1(1.Text<>Trim(Text1(2.TextThen MsgBox"確認(rèn)密碼不正確!",vbExclamation+vbOKOnly,"警告" Text1(2.SetFocusExit SubEnd IfDim aa As Integeraa=0If Option1(2.Value=True ThenFor i=0To2If Check1(i.Value=1Thenaa=1Exit ForEnd IfNext iIf aa=0

31、ThenMsgBox"普通用戶至少要有一項(xiàng)權(quán)限!",vbExclamation+vbOKOnly, "警告"Exit SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql="select*from use where username='"&Trim(Text1(0.Text &"'"Set mrc=ExecuteSQL(txtsqlIf mrc.EOF=False ThenMsgBox"已存在該用戶!",vbExclam

32、ation+vbOKOnly,"警告" Text1(0.SetFocusText1(0.SelStart=0Text1(0.SelLength=Len(Text1(0.TextExit SubEnd Iftxtsql="select*from use"Set mrc=ExecuteSQL(txtsqlmrc.AddNewmrc.Fields(0=Trim(Text1(0.Textmrc.Fields(1=Trim(Text1(1.TextFor i=0To2If Option1(i.Value=True ThenSelect Case iCase0mrc

33、.Fields("admin"="y"Case1mrc.Fields("readonly"="y"Case2For j=0To2If Check1(j.Value=1ThenSelect Case jCase0mrc.Fields("qx1"="y"Case1mrc.Fields("qx2"="y"Case2mrc.Fields("qx3"="y"End SelectEnd IfNext jEnd

34、 SelectEnd IfNext imrc.UpdateMsgBox"用戶添加成功!",vbExclamation+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(Text1(0.Se

35、tFocusEnd SubPrivate Sub Option1_Click(Index As IntegerIf Index<>2ThenFor i=0To2Check1(i.Enabled=FalseNext iElseFor i=0To2Check1(i.Enabled=TrueNext iEnd IfEnd Sub通過代碼設(shè)計(jì),實(shí)現(xiàn)了對(duì)三種不同權(quán)限的新用戶的添加,管理員具有所有得權(quán)限,老師在管理員的授權(quán)下可以選擇系統(tǒng)管理、課程管理與檔案管理、課程管理的一種、兩種或者全部權(quán)限,學(xué)生則只有瀏覽的功能。4.3班級(jí)管理在完成了系統(tǒng)的登錄頁(yè)面設(shè)計(jì)、系統(tǒng)主頁(yè)面系統(tǒng)設(shè)計(jì)后,接下來在總體設(shè)

36、計(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í)記錄。在“工程”菜單中選擇“添加窗體”,打開“添加窗體”對(duì)話框,選擇添加“窗體”。并將新窗體保存為“formclass1”。添加代碼并且進(jìn)行屬性設(shè)置。將“C

37、aption”改為“添加班級(jí)”,并且調(diào)整窗口大小?！疤砑酉到y(tǒng)”模塊的界面如下圖所示: 在“工程”菜單中選擇“添加窗體”,打開“添加窗體”對(duì)話框,選擇添加“窗體”。并將新窗體保存為“formclass2”。添加代碼并且進(jìn)行屬性設(shè)置。將“Caption”改為“瀏覽班級(jí)”,并且調(diào)整窗口大小?！疤砑酉到y(tǒng)”模塊的界面如下圖所示: 通過設(shè)計(jì)的瀏覽班級(jí)模塊,可以根據(jù)年級(jí),對(duì)本校的各班級(jí)信息進(jìn)行總體瀏覽。并且根據(jù)需要,對(duì)班級(jí)設(shè)置進(jìn)行修改,刪除,打印。在“工程”菜單中選擇“添加窗體”,打開“添加窗體”對(duì)話框,選擇添加“窗體”。并將新窗體保存為“formclass3”。進(jìn)行屬性設(shè)置。將“Caption”改為“班級(jí)

38、查詢”,并且調(diào)整窗口大小。通過設(shè)計(jì),此模塊可以通過年級(jí)、班級(jí)、專業(yè)對(duì)班級(jí)設(shè)計(jì)查詢?！疤砑酉到y(tǒng)”模塊的界面如下圖所示: 進(jìn)行代碼設(shè)計(jì),代碼如下:Private Sub Command1_Click(txtsql=""If Text1(0.Text<>""ThenIf txtsql=""Thentxtsql="年級(jí)='"&Trim(Text1(0.Text&"'"Elsetxtsql=txtsql&"and年級(jí)='"&a

39、mp;Trim(Text1(0.Text&"'" End IfEnd IfIf Text1(1.Text<>""ThenIf txtsql=""Thentxtsql="班級(jí)='"&Trim(Text1(1.Text&"'"Elsetxtsql=txtsql&"and班級(jí)='"&Trim(Text1(1.Text&"'" End IfEnd IfIf Text

40、1(2.Text<>""Thenaa=1If txtsql=""Thentxtsql="專業(yè)='"&Trim(Text1(2.Text&"'"Elsetxtsql=txtsql&"and專業(yè)='"&Trim(Text1(2.Text&"'" End IfEnd IfIf txtsql=""Thenss=MsgBox("你至少要輸入一個(gè)條件以上才能查詢!"

41、,"警告" Text1(0.SetFocusExit SubEnd Iftxtsql="select*from class where"&txtsqlDim mrc As ADODB.RecordsetSet mrc=ExecuteSQL(txtsqlIf mrc.EOF=True Thenzzz=MsgBox("對(duì)不起,沒有此班級(jí)的檔案記錄!",vbOKOnly,"查詢"Formclass3.ZOrder(0Formclass3.Text1(0.SetFocusExit SubEnd IfFormclas

42、s2.printstr=txtsqlclassfind=TrueFormclass2.ShowFormclass2.classshowtitleFormclass2.classshowdataFormclass2.Caption="班級(jí)設(shè)置查詢結(jié)果"Formclass2.ZOrder(0End SubPrivate Sub Form_Unload(Cancel As Integerclassfind=FalseEnd Sub必須同時(shí)輸入一個(gè)條件,否則將彈出警告對(duì)話框“你至少要輸入一個(gè)以上條件以上才能查詢!”用戶可以同時(shí)設(shè)定一個(gè)、兩個(gè)或者三個(gè)條件進(jìn)行查詢。4.4學(xué)生檔案管理學(xué)

43、生檔案管理是對(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í)間、備注等信息。首先明確檔案添加的功能是添加對(duì)入學(xué)的學(xué)生進(jìn)行入學(xué)檔案登記,其中包括姓名、性別、班級(jí)、聯(lián)系電話等信息。在“工程”菜單中選擇“添加窗體”,打開“添加窗體”對(duì)話框,選擇添加“窗體”。并將新窗體保存為“form1”。進(jìn)行屬性設(shè)置,并且編寫代碼,完成的頁(yè)面如下圖所示: Private Sub Command1_Cli

44、ck(For j=0To7If Text1(j=""Thenss=MsgBox(Label1(j.Caption&"不能為空!",vbExclamation +vbOKOnly,"警告"Text1(j.SetFocusText1(j.SelStart=0Text1(j.SelLength=Len(Text1(j.TextExit SubEnd IfNextDim mrc As ADODB.Recordsettxtsql1="select*from xj where學(xué)號(hào)='"&Trim(Tex

45、t1(0.Text& "'"Set mrc=ExecuteSQL(txtsql1If modi=False ThenIf mrc.EOF=False Thensss=MsgBox("已經(jīng)存在該學(xué)號(hào)的記錄,學(xué)號(hào)不能重復(fù)!", vbExclamation+vbOKOnly,"警告"Text1(0.SetFocusText1(0.SelStart=0Text1(0.SelLength=Len(Text1(0.Textmrc.CloseExit SubEnd IfEnd IfIf Not IsDate(Text1(2.Text

46、Then'判斷是否日期格式ssss=MsgBox("應(yīng)輸入日期mm-dd-yy",vbInformation+ vbOKOnly,"警告"Text1(2.SetFocusText1(2.SelStart=0Text1(2.SelLength=Len(Text1(2.TextExit SubEnd IfIf Not IsDate(Text1(6.TextThenssss=MsgBox("應(yīng)輸入日期mm-dd-yy",vbInformation+ vbOKOnly,"警告"Text1(6.SetFocusTex

47、t1(6.SelStart=0Text1(6.SelLength=Len(Text1(6.TextExit SubEnd IfIf modi=True ThenSet mrc=ExecuteSQL(txtsql1Unload MeExit SubEnd Iftxtsql1="select*from xj"Set mrc=ExecuteSQL(txtsql1mrc.AddNewFor i=4To9mrc.Fields(i=Text1(i-2.TextNext imrc.Fields(0=Trim(Text1(0.Textmrc.Fields(1=Trim(Text1(1.Te

48、xtmrc.Fields(2=Trim(Combo1(0.Textmrc.Fields(3=Trim(Combo1(1.Textmrc.UpdateSet mrc=NothingFor j=0To7Text1(j=""NextEnd Sub類似可以進(jìn)行檔案瀏覽模塊設(shè)計(jì),完成之后的設(shè)計(jì)見面如下圖所示: 其代碼如下:Public Sub showdata(Dim j As IntegerDim i As IntegerDim mrc As ADODB.RecordsetSet mrc=New ADODB.RecordsetSet mrc=ExecuteSQL(txtsqlIf

49、mrc.EOF=False Thenmrc.MoveFirstWith MSF1.Rows=50.Row=1Do While Not mrc.EOF.Rows=.Rows+1.TextMatrix(.Row,i=mrc.Fields(i-1Next i.Row=.Row+1mrc.MoveNextLoopEnd WithElseIf find=True ThenForm3.HideForm4.Showzzz=MsgBox("對(duì)不起,沒有此學(xué)生的檔案記錄!",vbOKOnly,"查詢"Form4.ZOrder(0Form4.Text1(0.SetFocus

50、End IfEnd IfSet mrc=NothingEnd SubPublic Sub tree(Dim nodex As NodeDim mrc As ADODB.RecordsetDim mrc1As ADODB.RecordsetDim str As StringDim a As Stringa="年級(jí)"'TreeView1.LineStyle=tvwRootLinesstr="select distinct年級(jí)from class order by年級(jí)"Set mrc=ExecuteSQL(strstr="select dis

51、tinct年級(jí),班級(jí)from class order by年級(jí),班級(jí)" Set mrc1=ExecuteSQL(strmrc.MoveFirstDo Until mrc.EOFmrc1.MoveFirstIf mrc1.Fields(0=mrc.Fields(0ThenEnd Ifmrc1.MoveNextLoopa=a&"1"mrc.MoveNextLoopmrc1.Closemrc.CloseSet mrc=NothingSet mrc1=NothingEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Butt

52、on As MSComctlLib.ButtonSelect Case Button.TagCase"find"Form4.ShowCase"modi"sssss=MsgBox("你還沒有選擇記錄!",vbOKOnly+ vbExclamation,"警告"Exit SubElseqxstr=Executeqx(2If qxstr="readonly"Thenss=MsgBox("對(duì)不起,你是只讀用戶不能修改記錄,請(qǐng)與管理員聯(lián)系!",vbInformation+vbOKOnl

53、y,"警告"Exit SubEnd Ifmodi=TrueForm1.ShowForm1.ZOrder0End IfCase"del"Dim mrc As ADODB.RecordsetDim intcount As Integersssss=MsgBox("你還沒有選擇記錄!",vbOKOnly+ vbExclamation,"警告"ElseIf qxstr="readonly"Thenss=MsgBox("對(duì)不起,你是只讀用戶不能刪除記錄,請(qǐng)與管理員聯(lián)系!",vbInfo

54、rmation+vbOKOnly,"警告"Exit SubEnd IfSet mrc=ExecuteSQL(txtsqlSet mrc=ExecuteSQL(txtsqlSet mrc=ExecuteSQL(txtsqlTreeView1_DblClickEnd IfEnd If'Case"print"'Form6.Show'Form6.ZOrder0End SelectEnd SubPrivate Sub TreeView1_DblClick(On Error GoTo ssMSF1.ClearExit SubEnd Ifpri

55、ntstr=txtsqlMe.Caption="瀏覽學(xué)生檔案"Me.showtitleMe.showdataExit Subss:MSF1.ClearEnd Sub檔案查詢模塊的設(shè)計(jì)可以根據(jù)“班級(jí)管理”中的班級(jí)查詢模塊的設(shè)計(jì)來設(shè)計(jì)和編寫。 具體的代碼如下:Private Sub Command1_Click(Dim aa As Integertxtsql=""If Trim(Text1(0.Text<>""Thenaa=1If txtsql=""Thentxtsql="xj.學(xué)號(hào)='&

56、quot;&Trim(Text1(0.Text&"'"Elsetxtsql=txtsql&"and xj.學(xué)號(hào)='"&Trim(Text1(0.Text& "'"End IfEnd IfIf Trim(Text1(1.Text<>""Thenaa=1If txtsql=""Thentxtsql="xj.姓名='"&Trim(Text1(1.Text&"'&qu

57、ot;Elsetxtsql=txtsql&"and xj.姓名='"&Trim(Text1(1.Text& "'"End IfEnd IfIf Trim(Text1(2.Text<>""Thenaa=1If txtsql=""Thentxtsql="xj.班級(jí)='"&Trim(Text1(2.Text&"'"Elsetxtsql=txtsql&"and xj.班級(jí)='

58、"&Trim(Text1(2.Text& "'"End IfEnd IfIf Trim(Text1(3.Text<>""Thenaa=1txtsql=""txtsql="xj.姓名like'%"&Trim(Text1(3.Text&"%'"End IfIf aa=0Thenss=MsgBox("你至少要輸入一個(gè)條件以上才能查詢!","警告"Text1(0.SetFocusExit SubEnd IfDim str As Stringstr="select*from xj where"&txtsqlDim mrc As ADODB.RecordsetSet mrc=ExecuteSQL(strIf mrc.EOF=True Thenzzz=MsgBox("對(duì)不起,沒有此學(xué)生的檔案記錄!",vbOKOnly,"查詢"Form4.ZO