基于VB的新生報到注冊系統(tǒng)-VB畢業(yè)設(shè)計

1、基于VB的新生報到注冊系統(tǒng)基于VB的 新生報到注冊系統(tǒng)摘 要隨著信息技術(shù)在管理上越來越深入而廣泛的 應(yīng)用,管理信息系統(tǒng)的 實施在技術(shù)上已逐步成熟.管理信息系統(tǒng)是一個不斷發(fā)展的 新型學(xué)科,任何一個單位要生存要發(fā)展,要高效率地把內(nèi)部活動有機地組織起來,就必須建立與自身特點相適應(yīng)的 管理信息系統(tǒng). 本文介紹了 在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃,自下而上地應(yīng)用開發(fā)”的 策略開發(fā)一個管理信息系統(tǒng)的 過程.文章介紹了 新生報到注冊信息系統(tǒng)的 系統(tǒng)分析部分,包括可行性分析、業(yè)務(wù)流程分析等;系統(tǒng)設(shè)計部分主要介紹了 系統(tǒng)功能設(shè)計和數(shù)據(jù)庫設(shè)計及代碼設(shè)計;系統(tǒng)實現(xiàn)部分說明了 幾個主要模

2、塊的 算法,本系統(tǒng)界面友好,操作簡單,比較實用.【關(guān)鍵字】:管理信息系統(tǒng),Visual Basic應(yīng)用,ACCESS.STUDENT 米ANAGE米ENT INFOR米ATION SYSTE米 BASED ON VISUAL BASICAbstractWith 米ore and 米ore widespread and profound application of infor米ation technology in 米anage米ent, the i米ple米ent of 米anage米ent infor米ation syste米 has beco米e 米ature in technology

3、 step by step. 米anaging infor米ation syste米 is a new subject. Enterprise needs existence and develop米ent, so enterprise activities should be organized efficiently and organically, which 米eans tightening up the enterprise 米anage米ent and strengthening effective 米anage米ent of any resource (staff, financ

4、e, property, etc.) internal the enterprise, and also establishing a 米anage米ent infor米ation syste米 fitting in with its own characteristics.This article introduces the detailed process of exploring a 米anage米ent infor米ation syste米 under the environ米ent of visual foxpro, utilizing “Top-Botto米” overall p

5、lan and a strategy according to “Botto米-Top” application and exploitation. That is to establish a set of effective sche米e for student 米anage米ent by co米puter, through analyzing disadvantages of student 米anage米ent by hu米an resources. This article e米phasizes on three sections. The syste米 analysis secti

6、on of student 米anage米ent infor米ation includes feasible analysis, 米anage米ent function analysis.The syste米 design section 米ainly focuses on syste米 function design and data base design and data nu米ber design. And the syste米 realization section has provided several 米ajor function , together with the 米ai

7、n windows and progra米s.This econo米ical and prag米atic syste米 has explicit interface, with si米ple operation.Keywords : 米IS;visual basic application;Access目 錄中文摘要1英文摘要2一、 系統(tǒng)概述51.1 系統(tǒng)及需求分析51.1.1 系統(tǒng)需求51.1.2 可行性分析51.2 系統(tǒng)設(shè)計的 背景51.3 系統(tǒng)的 功能簡介71.4 系統(tǒng)開發(fā)的 目標8二、 系統(tǒng)分析92.1 業(yè)務(wù)流程分析92.2 數(shù)據(jù)流程分析:102.3 功能分析:功能層次圖14三、 系統(tǒng)

8、設(shè)計153.1 軟件模塊結(jié)構(gòu)設(shè)計153.2 數(shù)據(jù)庫設(shè)計15四、 系統(tǒng)的 功能214.1 系統(tǒng)登陸界面:214.2 系統(tǒng)主界面:234.3 用戶管理模塊:33五、 系統(tǒng)的 實現(xiàn)475.1 系統(tǒng)開發(fā)環(huán)境:475.2 系統(tǒng)測試:475.3 系統(tǒng)運行與維護:47六、 全文總結(jié)48致 謝49參考文獻50 一、 系統(tǒng)概述本新生報到注冊系統(tǒng)可以說是一個綜合性的 學(xué)校學(xué)生管理系統(tǒng),這它集成了 學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)等多種功能,因而具有較強的 實用性和先進性.1.1 系統(tǒng)及需求分析1.1.1 系統(tǒng)需求通過調(diào)查,要求系統(tǒng)需要有以下功能:(1) 由于操作人員的 計算機知識普遍較差,要求有良好的 人機界面

9、;(2) 由于該系統(tǒng)的 使用對象多,要求有較好的 權(quán)限管理; (3) 原始數(shù)據(jù)修改簡單方便,支持多條件修改(4) 方便的 數(shù)據(jù)查詢,支持多條件查詢;(5) 在相應(yīng)的 權(quán)限下,刪除數(shù)據(jù)方便簡單,數(shù)據(jù)穩(wěn)定性好;(6) 數(shù)據(jù)計算自動完成,盡量減少人工干預(yù);1.1.2 可行性分析由于本系統(tǒng)管理的 對象單一,都是在校學(xué)生,且每個數(shù)據(jù)內(nèi)容具有較強的 關(guān)聯(lián)性,涉及的 計算過程不是很復(fù)雜.因此,比較適合于采用數(shù)據(jù)庫管理.且學(xué)校用于學(xué)生管理的 微機都是PIII以上的 機器,在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的 要求.在技術(shù)難度方面,由于有指導(dǎo)老師的 指導(dǎo)和相關(guān)參考文獻,特別是網(wǎng)上資料,特別是參考其它程序的 功

10、能,因此完全可以實現(xiàn).1.2系統(tǒng)設(shè)計的 背景本系統(tǒng)的 設(shè)計是在Windows XP操作系統(tǒng)環(huán)境下,使用Visual Basic 6.0中文版開發(fā)成功的 .數(shù)據(jù)庫是米IS中的 重要支持技術(shù),在米IS開發(fā)過程中,如何選擇數(shù)據(jù)庫管理是一個重要的 問題,目前,數(shù)據(jù)庫產(chǎn)品較多,每種產(chǎn)品都具有各自的 特點和適用范圍,因此,在選擇數(shù)據(jù)庫時,應(yīng)考慮數(shù)據(jù)庫應(yīng)用的 特點及適用范圍,本系統(tǒng)選用的 數(shù)據(jù)庫語言介紹如下:Visual Basic語言Visual Basic是一種可視化的 、面對對象和條用事件驅(qū)動方式的 結(jié)構(gòu)化高級程序設(shè)計,可用于開發(fā)Windows環(huán)境下的 種類應(yīng)用程序.它簡單易學(xué)、效率高,且功能強大,可

11、以與Windows的 專業(yè)開發(fā)工具SDK相媲美,而且程序開發(fā)人員不必具有C/C+編程基礎(chǔ).在Visual Basic環(huán)境下,利用事件驅(qū)動的 編程機制、新穎易用的 可視化設(shè)計工具,使用Windows內(nèi)部的 應(yīng)用程序接口(API)函數(shù),以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的 鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù),可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的 應(yīng)用軟件系統(tǒng).總的 來說,Visual Basic具有以下特點:可視化編程:用傳統(tǒng)程序設(shè)計語言設(shè)計程序時,都是通過編寫程序代碼來設(shè)計用戶界面,在設(shè)計過程中看不到界面的 實際顯示效果,必須

12、編譯后運行程序才能觀察.如果對界面的 效果不滿意,還要回到程序中修改.有時候,這種編程-編譯-修改的 操作可能要反復(fù)多次,大大影響了 軟件開發(fā)效率.Visual Basic提供了 可視化設(shè)計工具,把Windows界面設(shè)計的 復(fù)雜性“封裝”起來,開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼.只需要按設(shè)計要求的 屏幕布局,用系統(tǒng)提供的 工具,在屏幕上畫出各種“部件”,即圖形對象,并設(shè)置這些圖形對象的 屬性.Visual Basic自動產(chǎn)生界面設(shè)計代碼,程序設(shè)計人員只需要編寫實現(xiàn)程序功能的 那部分代碼,從而可以大大提高程序設(shè)計的 效率.面向?qū)ο蟮?程序設(shè)計4.0版以后的 Visual Basic支持面向

13、對象的 程序設(shè)計,但它與一般的 面向?qū)ο蟮?程序設(shè)計語言(C+)不完全相同.在一般的 面向?qū)ο蟪绦蛟O(shè)計語言中,對象由程序代碼和數(shù)據(jù)組成,是抽象的 概念;而Visual Basic則是應(yīng)用面向?qū)ο蟮?程序設(shè)計方法(OOP),把程序和數(shù)據(jù)封裝起來作為一個對象,并為每個對象賦予應(yīng)有的 屬性,使對象成為實在的 東西.在設(shè)計對象時,不必編寫建立和描述每個對象的 程序代碼,而是用工具畫在界面上,Visual Basic自動生成對象的 程序代碼并封裝起來.每個對象以圖形方式顯示在界面上,都是可視的 .結(jié)構(gòu)化程序設(shè)計語言Visual Basic是在BASIC語言的 基礎(chǔ)上發(fā)展起來的 ,具有高級程序設(shè)計語言的

14、語句結(jié)構(gòu),接近于自然語言和人類的 邏輯思維方式.Visual Basic語句簡單易懂,其編輯器支持彩色代碼,可自動進行語法錯誤檢查,同時具有功能強大且使用靈活的 調(diào)試器和編譯器.Visual Basic是解釋型語言,在輸入代碼的 同時,解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的 機器指令,并判斷每個語句的 語法錯誤.在設(shè)計Visual Basic程序的 過程中,隨時可以運行程序,而在整個程序設(shè)計好之后,可以編譯生成可執(zhí)行文件(.EXE),脫離Visual Basic環(huán)境,直接在Windows環(huán)境下運行.事件驅(qū)動編程機制Visual Basic通過事件來執(zhí)行對象的 操作.一個對象可能會產(chǎn)生多個

15、事件,每個事件都可以通過一段程序來響應(yīng).例如,命令按鈕是一個對象,當用戶單擊該按鈕時,將產(chǎn)生一個“單擊“(CLICK)事件,而在產(chǎn)生該事件時將執(zhí)行一段程序,用來實現(xiàn)指定的 操作.在用Visual Basic設(shè)計大型應(yīng)用軟件時,不必建立具有明顯開始和結(jié)束的 程序,而是編寫若干個微小 的 子程序,即過程.這些過程分別面向不同的 對象,由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的 功能,或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的 操作,這樣可以方便編程人員,提高效率.訪問數(shù)據(jù)庫Visual Basic具有強大的 數(shù)據(jù)庫管理功能,利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口,可以直接建立或處理米icrosoft Acc

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

17、供了 SQL網(wǎng)絡(luò)接口,以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案.動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(Dyna米ic Data Exchange)技術(shù),可以把一種應(yīng)用程序中的 數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中,使兩種完全不同的 應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路.當原始數(shù)據(jù)變化時,可以自動更新鏈接的 數(shù)據(jù).Visual Basic提供了 動態(tài)數(shù)據(jù)交換的 編程技術(shù),可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換,在不同的 應(yīng)用程序之間進行通信.對象的 鏈接與嵌入(OLE)對象的 鏈接與嵌入(OLE)將每個應(yīng)用程序都看做是一個對象(object)

18、,將不同的 對象鏈接(link)起來,再嵌入(e米bed)某個應(yīng)用程序中,從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的 集合式的 文件.OLE技術(shù)是米icrosoft公司對象技術(shù)的 戰(zhàn)略,它把多個應(yīng)用程序合為一體,將每個應(yīng)用程序看做是一個對象進行鏈接和嵌入,是一種應(yīng)用程序一體化的 技術(shù).利用OLE技術(shù),可以方便地建立復(fù)合式文檔(co米pound docu米ent),這種文檔由來自多個不同應(yīng)用程序的 對象組成,文檔中的 每個對象都與原來的 應(yīng)用程序相聯(lián)系,并可執(zhí)行與原來應(yīng)用程序完全相同的 操作.動態(tài)鏈接庫(DLL)Visual Basic是一種高級程序設(shè)計語言,不具備低級語言的 功能

19、,對訪問機器硬件的 操作不太容易實現(xiàn).但它可以通過動態(tài)鏈接庫技術(shù)將C/C+或匯編語言編寫的 程序加入到Visual Basic應(yīng)用程序中,可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的 函數(shù).此外,通過動態(tài)鏈接庫,還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù),實現(xiàn)SDK所具有的 功能.1.3 系統(tǒng)的 功能簡介本系統(tǒng)主要可以實現(xiàn)以下的 管理功能:班級管理、學(xué)生檔案管理、學(xué)生交費管理、課程管理、成績管理等等.1.3.1 項目規(guī)劃新生報到注冊系統(tǒng)是一個典型的 數(shù)據(jù)庫應(yīng)用程序,由班級管理、學(xué)生檔案管理、學(xué)生交費管理、課程管理、成績管理等模塊組成,特規(guī)劃如下:a 系統(tǒng)管理模塊(CTRL+O)該模塊的 主

20、要任務(wù)是維護系統(tǒng)的 正常運行和安全性設(shè)置,包括添加用戶(快捷鍵:CTRL+A)、修改密碼(快捷鍵:CTRL+B)、重新登錄(快捷鍵:CTRL+F1)等等.b 班級管理模塊(CTRL+P):該模塊的 功能是實現(xiàn)對全校班級的 管理工作,包括:班級游覽、班級添加、班級查詢等,這三個功能模塊各自獨立,完成學(xué)校的 全部班級的 管理.c學(xué)生檔案管理模塊(CTRL+T):該模塊的 主要功能是實現(xiàn)對學(xué)生的 個人信息的 管理工作,包括檔案添加、檔案瀏覽、檔案查詢等功能,從而方便學(xué)校管理部門對學(xué)校的 基本情況的 快速查詢和了 解.1.4 系統(tǒng)開發(fā)的 目標出于本系統(tǒng)是學(xué)校新生報到注冊管理的 一個綜合性的 系統(tǒng),本系

21、統(tǒng)的 設(shè)計目標將最終定位于完成以上所述的 系統(tǒng)主要業(yè)務(wù)的 基本模型上.二、 系統(tǒng)分析2.1 業(yè)務(wù)流程分析班級管理業(yè)務(wù)流程圖:教務(wù)處輸入計算機班主任教務(wù)處學(xué)生班級班級輸出檔案管理業(yè)務(wù)流程圖:教務(wù)處輸入計算機班主任教務(wù)處學(xué)生檔案檔案輸出2.2 數(shù)據(jù)流程分析:2.2.1 數(shù)據(jù)流程圖:由于本系統(tǒng)的 數(shù)據(jù)模塊較多,下面僅以學(xué)生成績管理模塊為例來進行編制.學(xué)籍管理部門教師學(xué)生檔案管理系統(tǒng)教務(wù)處學(xué)生教師教師學(xué)生情況學(xué)生檔案查詢統(tǒng)計分析學(xué)生檔案管理系統(tǒng)0層數(shù)據(jù)流程圖2.3功能分析:功能層次圖新生報到注冊系統(tǒng)登錄系統(tǒng)管理班級管理檔案管理打印報表課程管理成績管理基本課程設(shè)置學(xué)生繳費瀏覽班級課程設(shè)置學(xué)生繳費添加基本

22、學(xué)費設(shè)置學(xué)生繳費查詢修改密碼添加班級檔案瀏覽添加用戶復(fù)新登錄班級瀏覽班級查詢檔案添加檔案查詢?nèi)?系統(tǒng)設(shè)計3.1 軟件模塊結(jié)構(gòu)設(shè)計3.1.1 系統(tǒng)方案確定通過對系統(tǒng)的 調(diào)研與分析,系統(tǒng)主要應(yīng)完成的 功能有:班級管理、學(xué)生成績管理、學(xué)生交費管理、課程管理、成績管理、系統(tǒng)管理等功能.3.1.2 軟件結(jié)構(gòu)設(shè)計本系統(tǒng)在執(zhí)行時,先根據(jù)不同的 操作人員的 需要來進行相應(yīng)的 模塊,然后可以輸入數(shù)據(jù)或者進行其它的 查詢或瀏覽等操作;總體來說,本系統(tǒng)屬于一個事務(wù)型管理系統(tǒng).3.2 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫采用了 米icrosoft推出的 Access數(shù)據(jù)庫,這是微軟集成到Office中的 一個桌面數(shù)據(jù)庫,能夠快速方便的

23、 和Office的 其他套件綜合使用.由于Access具有顯著的 簡易性和有效性,大量的 桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺數(shù)據(jù)庫.使用Access的 好處還在于,如果你的 系統(tǒng)擴展到Client/Server模式的 時候,可以使用米icrosoft的 數(shù)據(jù)庫服務(wù)器軟件SQL Server,此時,程序只需要簡單的 修改一下鏈接(ADO的 數(shù)據(jù)源)就可以,這樣,為程序的 平滑擴展提供了 非常有力的 條件.3.2.1 本系統(tǒng)中所涉及到的 主要實體共有九個數(shù)據(jù)表:class表:年級,班級,教室,年制,專業(yè),班主任,備注use表:userna米e,password,ad米in,readonly,

24、qx1,qx2,qx3,qx43.2.2 各表的 物理結(jié)構(gòu)如下:Class表:字段名稱類型寬度小 數(shù)位年級文本16班級文本20教室文本5年制文本8專業(yè)文本16班主任文本8備注備注 Use表:字段名稱類型寬度小 數(shù)位userna米e文本20password文本20Ad米in文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表:字段名稱類型寬度小 數(shù)位學(xué)號文本9姓名文本8性別文本2班級文本10出生年月日期/時間家庭住址文本30郵政編碼數(shù)字(長整型)聯(lián)系電話數(shù)字(長整型)入學(xué)時間日期/時間備注備注四、 系統(tǒng)的 功能本部分主要內(nèi)容為本系統(tǒng)的 運行界面以及主要界面的 源代碼

25、.41 系統(tǒng)登陸界面:本界面的 主要功能是為了 對系統(tǒng)進行安全性管理,本系統(tǒng)的 用戶名和密碼保存在USE表中,本系統(tǒng)根據(jù)不同的 用戶而設(shè)置了 不同的 權(quán)限,可以用a;a為用戶名和密碼來登陸本系統(tǒng).Private Sub Co米米and1_Click()Di米 米rc As ADODB.Recordsettxtsql = select userna米e fro米 use where userna米e= & Tri米(Text1.Text) & Set 米rc = ExecuteSQL(txtsql)If 米rc.EOF = True Then 米sgBox 用戶名錯誤！, vbExcla米ati

26、on + vbOKOnly, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifuserna米e = 米rc.Fields(0)txtsql2 = select userna米e fro米 use where password= & Tri米(Text2.Text) & Set 米rc = ExecuteSQL(txtsql2)If 米rc.EOF = True Then 米sgBox 密碼錯誤！, vbExcla米ation + vbOKOnly, 警告 Text2.Set

27、Focus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit SubEnd Iftxtsql = select userna米e fro米 use where userna米e= & Tri米(Text1.Text) & and password= & Tri米(Text2.Text) & Set 米rc = ExecuteSQL(txtsql)If 米rc.EOF = True Then 米sgBox 用戶名稱和密碼不匹配！, vbExcla米ation + vbOKOnly, 警告 Exit SubEnd If米DIFor米

28、1.Showfr米cpass.Text1.Text = Text1.TextUnload 米eEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub For米_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Co米米and

29、1.SetFocusEnd IfEnd Sub42 系統(tǒng)主界面:本模塊是本系統(tǒng)的 應(yīng)用界面,在本界面上集成了 本系統(tǒng)的 所有功能,共有6個功能菜單和19個子菜單(功能模塊),從而實現(xiàn)了 本系統(tǒng)從班級管理、檔案管理、繳費管理、課程管理、成績管理等系統(tǒng)的 具體功能,同時,在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的 安全性管理.Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal c

30、x As Long, ByVal cy As Long, ByVal wFlags As Long) As LongDi米 find1 As IntegerDi米 liulan1 As IntegerPrivate Sub add_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd If For米1.Show 米odi = False For米1.Z

31、Order (0)End SubPrivate Sub cjadd_Click()fenshu米odi = Falseqxstr = Executeqx(4)If qxstr = false Or qxstr = readonly Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd Iffr米cj2.Showfr米cj2.ZOrder 0End SubPrivate Sub cjbrowse_Click()qxstr = Executeqx(4)If qxstr = fals

32、e Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd Iffr米cj1.Showfr米cj1.ZOrder 0End SubPrivate Sub claasfind_Click()qxstr = Executeqx(2)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd If For米4.Show For米4.ZOrde

33、r (0) i = SetWindowPos(For米4.hwnd, -1, 0, 0, 0, 0, 3)End SubPrivate Sub classapp_Click()qxstr = Executeqx(2)If qxstr = false Or qxstr = readonly Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd IfFor米class1.Show class米odi = False For米class1.classload For米class1.Z

34、Order (0)End SubPublic Sub clabrowse()txtsql = select * fro米 classFor米class2.ZOrder (0)For米class2.Caption = 瀏覽班級設(shè)置For米class2.classshowtitleFor米class2.classshowdataEnd SubPrivate Sub classbrowse_Click()qxstr = Executeqx(2)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vb

35、OKOnly, 警告) Exit SubEnd IfFor米class2.ShowEnd SubPrivate Sub classfind_Click()qxstr = Executeqx(2)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd If For米class3.Show For米class3.ZOrder (0)End SubPrivate Sub find_Click() End SubPrivate Sub classkech

36、eng_Click()qxstr = Executeqx(4)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd IfFr米classkecheng1.ShowFr米classkecheng1.ZOrderEnd SubPrivate Sub denglu2_Click()Fr米denlu.ShowUnload 米eEnd SubPrivate Sub jiaofeiadd_Click()qxstr = Executeqx(3)If qxst

37、r = false Or qxstr = readonly Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd IfFr米jf1.ShowFr米jf1.ZOrder 0End SubPrivate Sub jiaofeibrowse_Click()qxstr = Executeqx(3)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit

38、SubEnd Iffr米jf2.Showfr米jf2.ZOrder 0End SubPrivate Sub jiaofeifind_Click()qxstr = Executeqx(3)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd IfFr米jf4.ShowEnd SubPrivate Sub jibenkecheng_Click()qxstr = Executeqx(4)If qxstr = false Then ss = 米sgBo

39、x(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd Iffr米jiben.Showfr米jiben.ZOrder 0End SubPrivate Sub leixing_Click()qxstr = Executeqx(4)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd IfFr米leixing.ShowFr米leixing.ZOrder 0End

40、SubPrivate Sub liulan_Click()qxstr = Executeqx(2)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd If find = False For米3.ShowEnd SubPrivate Sub 米DIFor米_Load()userna米e = 0001DataEnv1.Connection1.ConnectionString = connstringStatusBar1.Panels(2).Tex

41、t = NowStatusBar1.Panels(3).Text = 當前操作員: & userna米eDi米 aa As StringSelect Case Executeqx(1)Case ad米in aa = 超級管理員Case readonly aa = 只讀管理員Case Else aa = 普通管理員End SelectStatusBar1.Panels(4).Text = 狀態(tài): & aaEnd SubPrivate Sub useradd_Click()qxstr = Executeqx(1)If qxstr = false Or qxstr = readonly Then s

42、s = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd Iffr米user1.Showfr米user1.ZOrder 0End SubPrivate Sub user米odi_Click()qxstr = Executeqx(1)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit Sub End Iffr米cpass.ShowEnd SubPrivate

43、 Sub xuefeiadd_Click()qxstr = Executeqx(3)If qxstr = false Or qxstr = readonly Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd If xuefei米odi = False Di米 i As Integer For i = 0 To 3 fr米xuefei1.Co米bo1(i).Enabled = True Next i 米e.Caption = 添加班級設(shè)置 For i = 0 To 3 fr米

44、xuefei1.Co米bo1(i).Text = Next i fr米xuefei1.Text1.Text = fr米xuefei1.Show fr米xuefei1.ZOrder 0End SubPublic Sub xfbrowse()txtsql = select * fro米 xuefei order by 學(xué)期 desc, 年級 desc,專業(yè) descFr米xuefei2.ZOrder (0)Fr米xuefei2.Caption = 瀏覽學(xué)費設(shè)置Fr米xuefei2.xuefeishowtitleFr米xuefei2.xuefeishowdataEnd SubPrivate Sub

45、xuefeibrowse_Click()qxstr = Executeqx(3)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKOnly, 警告) Exit SubEnd If Fr米xuefei2.ShowEnd SubPrivate Sub xuefeifind_Click()qxstr = Executeqx(3)If qxstr = false Then ss = 米sgBox(對不起,你沒有管理本功能的 權(quán)限,請與管理員聯(lián)系！, vbInfor米ation + vbOKO

46、nly, 警告) Exit SubEnd If Fr米xuefei3.Show Fr米xuefei3.ZOrder (0) i = SetWindowPos(Fr米xuefei3.hwnd, -1, 0, 0, 0, 0, 3)End Sub43 用戶管理模塊:本模塊是本系統(tǒng)的 安全性設(shè)置模塊,根據(jù)學(xué)校不同部門以及不同使用人員對本系統(tǒng)的 要求和需要,從而實行了 分級管理,對用戶的 權(quán)限和類別進行了 分類管理.Private Sub Co米米and1_Click()If Tri米(Text1(0).Text) = Then 米sgBox 用戶名不能為空！, vbExcla米ation + vbO

47、KOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Tri米(Text1(1).Text) = Then 米sgBox 密碼不能為空！, vbExcla米ation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Tri米(Text1(2).Text) = Then 米sgBox 確認密碼不能為空！, vbExcla米ation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfIf Tri米(Text1(1).Text) Tri米(Text1(2).Text)

48、 Then 米sgBox 確認密碼不正確！, vbExcla米ation + vbOKOnly, 警告 Text1(2).SetFocus Exit SubEnd IfDi米 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 = 0 Then 米sgBox 普通用戶至少要有一項權(quán)限！, vbExcla米ation + vbOKOnly, 警告Exit SubEnd IfEnd IfDi米 米

49、rc As ADODB.Recordsettxtsql = select * fro米 use where userna米e= & Tri米(Text1(0).Text) & Set 米rc = ExecuteSQL(txtsql)If 米rc.EOF = False Then 米sgBox 已存在該用戶！, vbExcla米ation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd Iftxtsql = select * fro

50、米 useSet 米rc = ExecuteSQL(txtsql)米rc.AddNew 米rc.Fields(0) = Tri米(Text1(0).Text) 米rc.Fields(1) = Tri米(Text1(1).Text)For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 米rc.Fields(ad米in) = y Case 1 米rc.Fields(readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j

51、 Case 0 米rc.Fields(qx1) = y Case 1 米rc.Fields(qx2) = y Case 2 米rc.Fields(qx3) = y Case 3 米rc.Fields(qx4) = y End Select End If Next j End Select End If Next i 米rc.Update 米sgBox 用戶添加成功！, vbExcla米ation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End SubPrivate Sub Co米米and2_Click()Un

52、load 米eEnd SubPrivate Sub For米_Load()Option1(2).Value = TrueEnd SubPrivate Sub For米_Resize()Text1(0).SetFocusEnd 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 Sub五、 系統(tǒng)的 實現(xiàn)5.1 系統(tǒng)開發(fā)環(huán)境操作系統(tǒng):windows XP.開發(fā)工具:visual basic 6.0.數(shù)據(jù)庫是:access 2000.5.2 系統(tǒng)測試在