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

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

2、，本系統(tǒng)界面友好，操作簡單，比較實用。【關鍵字】：管理信息系統(tǒng)、學生管理、Visual Basic應用。SummaryWith more and more widespread and profound application of information technology in management, the implement of management information system has become mature in technology step by step. Managing information system is a new subject. Enterp

3、rise needs existence and development, so enterprise activities should be organized efficiently and organically, which means tightening up the enterprise management and strengthening effective management of any resource (staff, finance, property, etc.) internal the enterprise, and also establishing a

4、 management information system fitting in with its own characteristics.This article introduces the detailed process of exploring a management information system under the environment of visual foxpro, utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploi

5、tation. That is to establish a set of effective scheme for student management by computer, through analyzing disadvantages of student management by human resources. This article emphasizes on three sections. The system analysis section of student management information includes feasible analysis, ma

6、nagement function analysis.The system design section mainly focuses on system function design and data base design and data number design. And the system realization section has provided several major function , together with the main windows and programs.This economical and pragmatic system has exp

7、licit interface, with simple operation.Keywords ：MIS、student management、visual basic application摘要ISummaryII1.系統(tǒng)概述11.1 系統(tǒng)及需求分析11.1.1 系統(tǒng)需求1可行性分析11.2系統(tǒng)設計的背景51.3系統(tǒng)的功能簡介81.4系統(tǒng)開發(fā)的目標102. 系統(tǒng)分析112.1業(yè)務流程分析112.2數(shù)據(jù)流程分析：132.3數(shù)據(jù)存儲分析：實體聯(lián)系圖142.4功能分析：功能層次圖163.系統(tǒng)設計173.1軟件模塊結構設計1732數(shù)據(jù)庫設計184.系統(tǒng)的功能2341系統(tǒng)登陸界面：2342系統(tǒng)主界面：

8、2643用戶管理模塊：3844學生繳費管理模塊：435.系統(tǒng)的實現(xiàn)5551系統(tǒng)開發(fā)環(huán)境：555.2系統(tǒng)測試：555.3 系統(tǒng)運行與維護：5854系統(tǒng)的轉(zhuǎn)換方案：596.全文總結60致謝61參考文獻621.系統(tǒng)概述本學生信息管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)，這它集成了學生學籍管理系統(tǒng)、學生成績管理系統(tǒng)、學生檔案管理系統(tǒng)、學生繳費管理系統(tǒng)等多種功能，因而具有較強的實用性和先進性。1.1系統(tǒng)及需求分析1.1.1系統(tǒng)需求 通過調(diào)查,要求系統(tǒng)需要有以下功能:由于操作人員的計算機知識普遍較差,要求有良好的人機界面;由于該系統(tǒng)的使用對象多,要求有較好的權限管理; 原始數(shù)據(jù)修改簡單方便,支持多條件

9、修改方便的數(shù)據(jù)查詢，支持多條件查詢;在相應的權限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；數(shù)據(jù)計算自動完成，盡量減少人工干預;1.1.2可行性分析由于本系統(tǒng)管理的對象單一,都是在校學生，且每個數(shù)據(jù)內(nèi)容具有較強的關聯(lián)性，涉及的計算過程不是很復雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學校用于學生管理的微機都是PIII以上的機器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)。本系統(tǒng)的設計是在Windows 98中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS

10、中的重要支持技術，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應考慮數(shù)據(jù)庫應用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：Visual Basic語言Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結構化高級程序設計，可用于開發(fā)Windows環(huán)境下的種類應用程序。它簡單易學、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C+編程基礎。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設計工具，使用Wind

11、ows內(nèi)部的應用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。總的來說，Visual Basic具有以下特點：可視化編程：用傳統(tǒng)程序設計語言設計程序時，都是通過編寫程序代碼來設計用戶界面，在設計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改。有時候，這種編程-編譯-修改的操作可能要反復多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設計工具，把Windo

12、ws界面設計的復雜性“封裝”起來，開發(fā)人員不必為界面設計而編寫大量程序代碼。只需要按設計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設計代碼，程序設計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計的效率。面向?qū)ο蟮某绦蛟O計4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O計，但它與一般的面向?qū)ο蟮某绦蛟O計語言(C+)不完全相同。在一般的面向?qū)ο蟪绦蛟O計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應用面向?qū)ο蟮某绦蛟O計方法(OOP)，把程序和數(shù)據(jù)封

13、裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。結構化程序設計語言Visual Basic是在BASIC語言的基礎上發(fā)展起來的，具有高級程序設計語言的語句結構，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解

14、翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。在設計Visual Basic程序的過程中，隨時可以運行程序，而在整個程序設計好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運行。事件驅(qū)動編程機制Visual Basic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應。例如，命令按鈕是一個對象，當用戶單擊該按鈕時，將產(chǎn)生一個“單擊“(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。在用Visual Basic設計大型應用軟件時，不必建立具有明顯開始和結束的程序，而是編寫

15、若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫Visual Basic具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。同時，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，

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

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

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

19、生檔案管理、學生交費管理、課程管理、成績管理等等。 項目規(guī)劃學生信息管理系統(tǒng)是一個典型的數(shù)據(jù)庫應用程序,由班級管理、學生檔案管理、學生交費管理、課程管理、成績管理等模塊組成,特規(guī)劃如下:系統(tǒng)管理模塊(CTRL+O)該模塊的主要任務是維護系統(tǒng)的正常運行和安全性設置,包括添加用戶(快捷鍵：CTRL+A)、修改密碼(快捷鍵：CTRL+B)、重新登錄(快捷鍵：CTRL+F1)等等。班級管理模塊（CTRL+P）：該模塊的功能是實現(xiàn)對全校班級的管理工作，包括：班級游覽、班級添加、班級查詢等，這三個功能模塊各自獨立，完成學校的全部班級的管理。學生檔案管理模塊（CTRL+T）：該模塊的主要功能是實現(xiàn)對學生的個

20、人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便學校管理部門對學校的基本情況的快速查詢和了解。課程管理模塊（CTRL+R）：該模塊對各個班級的課程進行設置，并可在其中設置各門課程的教材選用情況，方便了學校教材管理部門和教務處的教學管理人員的工作。該模塊包括基本課程設計和班級課程設置兩個模塊。成績管理模塊（CTRL+F）：學校的成績管理工作是檢驗學生學習情況的一個主要手段，本模塊包括考試類型設置，共有期中考試和期未考試兩種類型，還設置了成績添加、成績游覽、成績查詢等功能模塊。1.4系統(tǒng)開發(fā)的目標出于本系統(tǒng)是學校學生管理的一個綜合性的系統(tǒng)，本系統(tǒng)的設計目標將最終定位于完成以上所述

21、的系統(tǒng)主要業(yè)務的基本模型上。2. 系統(tǒng)分析2.1業(yè)務流程分析班級管理業(yè)務流程圖：教務處輸入計算機班主任教務處學生班級班級輸出檔案管理業(yè)務流程圖：教務處輸入計算機班主任教務處學生檔案檔案輸出課程管理業(yè)務流程圖：教務處輸入計算機教師教務處學生課程輸出課程成績管理業(yè)務流程圖：教務處輸入計算機教師教務處學生成績教師輸出教務處輸入計算機班主任教務處學生班級班級輸出2.2數(shù)據(jù)流程分析：數(shù)據(jù)流程圖：由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以學生成績管理模塊為例來進行編制。學籍管理部門教師學生成績管理系統(tǒng)教務處學生教師教師學生情況學生成績查詢統(tǒng)計分析學生成績管理系統(tǒng)0層數(shù)據(jù)流程圖管理部門教務處教師1.0學生管理2.0

22、課程管理3.0成績管理4.0統(tǒng)計分析D1D2D3查詢者管理者學生課程成績學生成績管理系統(tǒng)1層數(shù)據(jù)流程圖2.3數(shù)據(jù)存儲分析：實體聯(lián)系圖1、數(shù)據(jù)模型設計。首先來做出學生成績管理系統(tǒng)的E-R圖，分析這個問題的實體，從系統(tǒng)分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統(tǒng)的三個實體。2、再分析三個實體之間的聯(lián)系。首先，這三個實體不是一個統(tǒng)一體，學生成績與教師沒有內(nèi)在聯(lián)系，教師必須通過課程實體才能與學生建立聯(lián)系，因而先不考慮。課程與學生這兩個實體是多對多聯(lián)系；一位學生要學習多門課程，一門課程有多位學生共同學習。而學習成績是這兩個實體“學生”和“成績”共有的屬性，應填在二者

23、的聯(lián)系“學習”邊。因為成績既不是學生獨有的，也不是課程獨有的；“學生甲70分”或“英語70分”是不完全的，說“學生甲英語70分”才是正確的，因為70分是學生甲和英語課二者共有的。這個E-R圖可畫成下圖。學生課程成績學習mn學生成績管理系統(tǒng)中學生與課程的E-R圖教師與課程這兩個實體之間，是一對多聯(lián)系；一位教師可以都多門課程，而一門課程對于學生成績來說只能有一位教師(英語、高等數(shù)學有多位教師教，但對某個固定的學生來說只能有一位教師)。其E-R圖，如下所示。n教師課程教學l教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖，就可以設計數(shù)據(jù)庫。下圖為數(shù)據(jù)模型圖。學生課程教師學習學習課程學

24、生教師實體模型數(shù)據(jù)模型數(shù)據(jù)庫學習lnmm2.4功能分析：功能層次圖學生信息管理系統(tǒng)登錄系統(tǒng)管理班級管理檔案管理打印報表課程管理成績管理基本課程設置學生繳費瀏覽班級課程設置學生繳費添加基本學費設置學生繳費查詢修改密碼添加班級檔案瀏覽添加用戶復新登錄班級瀏覽班級查詢檔案添加檔案查詢3.系統(tǒng)設計3.1軟件模塊結構設計311系統(tǒng)方案確定通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應完成的功能有：班級管理、學生成績管理、學生交費管理、課程管理、成績管理、系統(tǒng)管理等功能。312軟件結構設計本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要來進行相應的模塊，然后可以輸入數(shù)據(jù)或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一

25、個事務型管理系統(tǒng)。接受數(shù)據(jù)處理中心班級管理檔案管理交費管理課程管理成績管理打印報表32數(shù)據(jù)庫設計數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺數(shù)據(jù)庫。使用Access的好處還在于，如果你的系統(tǒng)擴展到Client/Server模式的時候，可以使用Microsoft的數(shù)據(jù)庫服務器軟件SQL Server，此時，程序只需要簡單的修改一下鏈接（ADO的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。3

26、21 本系統(tǒng)中所涉及到的主要實體共有九個數(shù)據(jù)表：allkecheng表：課程名稱，教材cj表：學號，學期，類型，課程名稱，分數(shù)class表：年級，班級，教室，年制，專業(yè)，班主任，備注classkecheng表：年級，專業(yè)，年制，學期，課程名稱jf表：學號，學期，交費，欠費，日期，操作員kaoshileixing表：類型use表：username,password,admin,readonly,qx1,qx2,qx3,qx4xj表：學號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學時間，備注suefei表：年級，專業(yè)，年制，學期，學費322 各表的物理結構如下：allkeche

27、ng表：字段名稱類型寬度小數(shù)位課程名稱文本20教材文本30Cj表：字段名稱類型寬度小數(shù)位學號文本10學期文本50類型文本16課程名稱文本20分數(shù)單精度型數(shù)字自動Class表：字段名稱類型寬度小數(shù)位年級文本16班級文本20教室文本5年制文本8專業(yè)文本16班主任文本8備注備注Classkecheng表：字段名稱類型寬度小數(shù)位年級文本16專業(yè)文本12年制文本8學期文本50課程名稱文本20Jf表：字段名稱類型寬度小數(shù)位學號文本5學期文本50交費貨幣自動欠費貨幣自動日期日期/時間操作員文本10Kaosileixing表：字段名稱類型寬度小數(shù)位類型文本10Use表：字段名稱類型寬度小數(shù)位username文

28、本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2xj表：字段名稱類型寬度小數(shù)位學號文本9姓名文本8性別文本2班級文本10出生年月日期/時間家庭住址文本30郵政編碼數(shù)字（長整型）聯(lián)系電話數(shù)字（長整型）入學時間日期/時間備注備注xuefei表：字段名稱類型寬度小數(shù)位年級文本16專業(yè)文本50年制文本20學期文本40學費貨幣自動4.系統(tǒng)的功能本部分主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼。41系統(tǒng)登陸界面：本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同的用戶而設置了不同的權限，可

29、以用909;909為用戶名和密碼來登陸本系統(tǒng)。Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = "select username from use where username='" & Trim(Text1.Text) & "'"Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox " 用戶名錯誤！", vbExclamation + vbOKOnly, "

30、;警告" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = "select username from use where password='" & Trim(Text2.Text) & "'"Set mrc = ExecuteSQL(txtsql2)If mrc.EOF = True Then MsgBox " 密碼錯誤

31、！", vbExclamation + vbOKOnly, "警告" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit SubEnd Iftxtsql = "select username from use where username='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "&

32、#39;"Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox "用戶名稱和密碼不匹配！", vbExclamation + vbOKOnly, "警告" Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1

33、_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub42系統(tǒng)主界面：本模塊是本系統(tǒng)的應用界面，在本界面上集成了本系統(tǒng)的所有功能，共有6個功能菜單和19個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從班級管理、檔案管理、繳費管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的

34、安全性管理。Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongDim find1 As IntegerDim liulan1 As IntegerPrivate Sub add_Click()qxstr = Executeqx

35、(2)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If Form1.Show modi = False Form1.ZOrder (0)End SubPrivate Sub cjadd_Click()fenshumodi = Falseqxstr = Executeqx(4)If qxstr = &q

36、uot;false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmcj2.Showfrmcj2.ZOrder 0End SubPrivate Sub cjbrowse_Click()qxstr = Executeqx(4)If qxstr = "false" Then ss = MsgBox("對不起，你沒有

37、管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmcj1.Showfrmcj1.ZOrder 0End SubPrivate Sub claasfind_Click()qxstr = Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubE

38、nd If Form4.Show Form4.ZOrder (0) i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3)End SubPrivate Sub classapp_Click()qxstr = Executeqx(2)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit

39、SubEnd IfFormclass1.Show classmodi = False Formclass1.classload Formclass1.ZOrder (0)End SubPublic Sub clabrowse()txtsql = "select * from class"Formclass2.ZOrder (0)Formclass2.Caption = "瀏覽班級設置"Formclass2.classshowtitleFormclass2.classshowdataEnd SubPrivate Sub classbrowse_Click(

40、)qxstr = Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd IfFormclass2.ShowEnd SubPrivate Sub classfind_Click()qxstr = Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限

41、，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If Formclass3.Show Formclass3.ZOrder (0)End SubPrivate Sub find_Click()End SubPrivate Sub classkecheng_Click()qxstr = Executeqx(4)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation

42、+ vbOKOnly, " 警告") Exit SubEnd IfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEnd SubPrivate Sub denglu2_Click()Frmdenlu.ShowUnload MeEnd SubPrivate Sub jiaofeiadd_Click()qxstr = Executeqx(3)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權限，

43、請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd IfFrmjf1.ShowFrmjf1.ZOrder 0End SubPrivate Sub jiaofeibrowse_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If

44、frmjf2.Showfrmjf2.ZOrder 0End SubPrivate Sub jiaofeifind_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd IfFrmjf4.ShowEnd SubPrivate Sub jibenkecheng_Click()qxstr = Executeqx(4)If qx

45、str = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmjiben.Showfrmjiben.ZOrder 0End SubPrivate Sub leixing_Click()qxstr = Executeqx(4)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！&quo

46、t;, vbInformation + vbOKOnly, " 警告") Exit SubEnd IfFrmleixing.ShowFrmleixing.ZOrder 0End SubPrivate Sub liulan_Click()qxstr = Executeqx(2)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If find = Fal

47、se Form3.ShowEnd SubPrivate Sub MDIForm_Load()'username = "0001"DataEnv1.Connection1.ConnectionString = connstringStatusBar1.Panels(2).Text = NowStatusBar1.Panels(3).Text = "當前操作員： " & usernameDim aa As StringSelect Case Executeqx(1)Case "admin" aa = "超級管理員

48、"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 ss = MsgBox("對不起，你沒有管理本功能的

49、權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd Iffrmuser1.Showfrmuser1.ZOrder 0End SubPrivate Sub usermodi_Click()qxstr = Executeqx(1)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd

50、Iffrmcpass.ShowEnd SubPrivate Sub xuefeiadd_Click()qxstr = Executeqx(3)If qxstr = "false" Or qxstr = "readonly" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If xuefeimodi = False Dim i As Integer For i = 0 To 3 frmx

51、uefei1.Combo1(i).Enabled = True Next i Me.Caption = "添加班級設置" For i = 0 To 3 frmxuefei1.Combo1(i).Text = "" Next i frmxuefei1.Text1.Text = "" frmxuefei1.Show frmxuefei1.ZOrder 0End SubPublic Sub xfbrowse()txtsql = "select * from xuefei order by 學期 desc, 年級 desc,專業(yè) d

52、esc"Frmxuefei2.ZOrder (0)Frmxuefei2.Caption = "瀏覽學費設置"Frmxuefei2.xuefeishowtitleFrmxuefei2.xuefeishowdataEnd SubPrivate Sub xuefeibrowse_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告&q

53、uot;) Exit SubEnd If Frmxuefei2.ShowEnd SubPrivate Sub xuefeifind_Click()qxstr = Executeqx(3)If qxstr = "false" Then ss = MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit SubEnd If Frmxuefei3.Show Frmxuefei3.ZOrder (0) i = SetWindowPos(Frmxuefei3

54、.hwnd, -1, 0, 0, 0, 0, 3)End Sub43用戶管理模塊：本模塊是本系統(tǒng)的安全性設置模塊，根據(jù)學校不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權限和類別進行了分類管理。Private Sub Command1_Click()If Trim(Text1(0).Text) = "" Then MsgBox "用戶名不能為空！", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1)

55、.Text) = "" Then MsgBox "密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = "" Then MsgBox "確認密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) <

56、;> Trim(Text1(2).Text) Then MsgBox "確認密碼不正確！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus 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 = 0 Then MsgBox " 普通用戶至少要有一項權限

57、！", 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(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd Iftxtsql = "select * from use"Set mrc = ExecuteSQL(txtsql)mrc.