PAGE江西藍天學院畢業(yè)論文PAGEPAGE42摘要隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的實施在技術上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個單位要生存要發(fā)展，要高效率地把內部活動有機地組織起來，就必須建立與自身特點相適應的管理信息系統(tǒng)。本文介紹了在VisualBasic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析某一學校學生管理的不足，創(chuàng)建了一套行之有效的計算機管理學生的方案。文章介紹了學生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務流程分析等；系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計和數據庫設計及代碼設計；系統(tǒng)實現部分說明了幾個主要模塊的算法，本系統(tǒng)界面友好，操作簡單，比較實用。關鍵字：管理信息系統(tǒng)、學生管理、VisualS+SQLServer/Access。ABSTRACTAsinformationtechnologyapplyinginmanagementmoreandmoreextensiveanddeep,theimplementationofmanagementinformationsystemhasgraduallymaturedintechnology.Managementinformationsystemisanewsubjectthatisgrowing,anyoneunitmustestablishmanagementinformationsystemaccordingtoitsowncharacteristics,iftheunitwantstosurviveanddevelop,wantstoorganizeinternalactivitiesorganiclyandefficiently.Thisthesisintroducesaprocessthatexploitamanagementinformationsysteminthestrategyof“up-downmasterplan,bottom-upapplicationdevelopment”intheenvironmentofVisualbasic6.0.Byanalyzingthelackofstudentsmanagementinonecollege,wecreatedasetofeffectiveprogramthatmanagingstudentsbycomputer.Thethesisintroducessystemanalysispartofstudentsmanagementinformationsystem,includingfeasibilityanalysis,businessprocessanalysis.Systemdesignpartmainlyintroducessystemfunctiondesignanddatabasedesignandthecodedesign.Systemimplementpartintroducesalgorithmofseveralmainmodule.Thissystemhasfriendlyinterface,simpleoperation,quitepractical.Keywords:managementinformationsystem;studentmanagement;VisualS+SQLServer/Access。

目錄摘要 IABSTRACT II第1章系統(tǒng)概述 11.1系統(tǒng)及需求分析 21.1.1系統(tǒng)需求 21.1.2可行性分析 21.2系統(tǒng)設計的背景 21.3系統(tǒng)的功能簡介 61.3.1項目規(guī)劃 61.3.2系統(tǒng)管理模塊(CTRL+O) 61.3.3班級管理模塊（CTRL+P） 61.3.4學生檔案管理模塊（CTRL+T） 71.3.5課程管理模塊（CTRL+R） 71.3.6成績管理模塊（CTRL+F） 71.4系統(tǒng)開發(fā)的目標 7第2章系統(tǒng)分析 82.1業(yè)務流程分析 8班級管理業(yè)務流程圖 8檔案管理業(yè)務流程圖 82.2數據流程分析 102.3數據存儲分析實體聯系圖 112.4功能分析功能層次圖 13第3章系統(tǒng)設計 143.1軟件模塊結構設計 143.1.1系統(tǒng)方案確定 143.1.2軟件結構設計 143．2數據庫設計 143.2.1本系統(tǒng)中所涉及到的主要實體共有九個數據表 153.2.2表的物理結構 15第4章系統(tǒng)的功能 194．1系統(tǒng)登陸界面 194．2系統(tǒng)主界面 224．3用戶管理模塊 33第5章總結與展望 39致謝 40參考文獻 41第1章系統(tǒng)概述本學生信息管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)，這它集成了學生學籍管理系統(tǒng)、學生成績管理系統(tǒng)、學生檔案管理系統(tǒng)、學生繳費管理系統(tǒng)等多種功能，因而具有較強的實用性和先進性。1.1系統(tǒng)及需求分析1.1.1系統(tǒng)需求通過調查,要求系統(tǒng)需要有以下功能=1\*GB2⑴由于操作人員的計算機知識普遍較差,要求有良好的人機界面=2\*GB2⑵由于該系統(tǒng)的使用對象多,要求有較好的權限管理=3\*GB2⑶原始數據修改簡單方便,支持多條件修改=4\*GB2⑷方便的數據查詢，支持多條件查詢=5\*GB2⑸在相應的權限下，刪除數據方便簡單，數據穩(wěn)定性好=6\*GB2⑹數據計算自動完成，盡量減少人工干預1.1.2可行性分析由于本系統(tǒng)管理的對象單一,都是在校學生，且每個數據內容具有較強的關聯性，涉及的計算過程不是很復雜。因此，比較適合于采用數據庫管理。且學校用于學生管理的微機都是PIII以上的機器，在存儲量、速度方面都能滿足數據庫運行的要求。在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網上資料，特別是參考其它程序的功能，因此完全可以實現。1.2系統(tǒng)設計的背景本系統(tǒng)的設計是在WindowsXP操作系統(tǒng)環(huán)境下，使用VisualBasic6.0中文版開發(fā)成功的。數據庫是MIS中的重要支持技術，在MIS開發(fā)過程中，如何選擇數據庫管理是一個重要的問題，目前，數據庫產品較多，每種產品都具有各自的特點和適用范圍，因此，在選擇數據庫時，應考慮數據庫應用的特點及適用范圍，本系統(tǒng)選用的數據庫語言介紹如下：VisualBasic語言VisualBasic是一種可視化的、面對對象和條用事件驅動方式的結構化高級程序設計，可用于開發(fā)Windows環(huán)境下的種類應用程序。它簡單易學、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎。在VisualBasic環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的應用程序接口(API)函數，以及動態(tài)鏈接庫(DLL)、動態(tài)數據交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數據訪問(ODBC)等技術，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。總的來說，VisualBasic具有以下特點：可視化編程：用傳統(tǒng)程序設計語言設計程序時，都是通過編寫程序代碼來設計用戶界面，在設計過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改。有時候，這種編程-編譯-修改的操作可能要反復多次，大大影響了軟件開發(fā)效率。VisualBasic提供了可視化設計工具，把Windows界面設計的復雜性“封裝”起來，開發(fā)人員不必為界面設計而編寫大量程序代碼。只需要按設計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設置這些圖形對象的屬性。VisualBasic自動產生界面設計代碼，程序設計人員只需要編寫實現程序功能的那部分代碼，從而可以大大提高程序設計的效率。面向對象的程序設計4.0版以后的VisualBasic支持面向對象的程序設計，但它與一般的面向對象的程序設計語言(C++)不完全相同。在一般的面向對象程序設計語言中，對象由程序代碼和數據組成，是抽象的概念；而VisualBasic則是應用面向對象的程序設計方法(OOP)，把程序和數據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，VisualBasic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。結構化程序設計語言VisualBasic是在BASIC語言的基礎上發(fā)展起來的，具有高級程序設計語言的語句結構，接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調試器和編譯器。VisualBasic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。在設計VisualBasic程序的過程中，隨時可以運行程序，而在整個程序設計好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離VisualBasic環(huán)境，直接在Windows環(huán)境下運行。事件驅動編程機制VisualBasic通過事件來執(zhí)行對象的操作。一個對象可能會產生多個事件，每個事件都可以通過一段程序來響應。例如，命令按鈕是一個對象，當用戶單擊該按鈕時，將產生一個“單擊“(CLICK)事件，而在產生該事件時將執(zhí)行一段程序，用來實現指定的操作。在用VisualBasic設計大型應用軟件時，不必建立具有明顯開始和結束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅動完成某種特定的功能，或者由事件驅動程序調用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數據庫VisualBasic具有強大的數據庫管理功能，利用數據控件和數據庫管理窗口，可以直接建立或處理MicrosoftAccess格式的數據庫，并提供了強大的數據存儲和檢索功能。同時，VisualBasic還能直接編輯和訪問其他外部數據庫，如dBASE，FoxPro，Paradox等，這些數據庫格式都可以用VisualBasic編輯和處理。VisualBasic提供開放式數據連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網絡數據庫，如SQLServer，Oracle等。在應用程序中，可以使用結構化查詢語言SQL數據標準，直接訪問服務器上的數據庫，并提供了簡單的面向對象的庫操作指令和多用戶數據庫訪問的加鎖機制和網絡數據庫的SQL的編程技術，為單機上運行的數據庫提供了SQL網絡接口，以便在分布式環(huán)境中快速而有效地實現客戶/服務器(client/server)方案。動態(tài)數據交換(DDE)利用動態(tài)數據交換(DynamicDataExchange)技術，可以把一種應用程序中的數據動態(tài)地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態(tài)數據鏈路。當原始數據變化時，可以自動更新鏈接的數據。VisualBasic提供了動態(tài)數據交換的編程技術，可以在應用程序中與其他Windows應用程序建立動態(tài)數據交換，在不同的應用程序之間進行通信。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應用程序都看做是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。OLE技術是Microsoft公司對象技術的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程序看做是一個對象進行鏈接和嵌入，是一種應用程序一體化的技術。利用OLE技術，可以方便地建立復合式文檔(compounddocument)，這種文檔由來自多個不同應用程序的對象組成，文檔中的每個對象都與原來的應用程序相聯系，并可執(zhí)行與原來應用程序完全相同的操作。動態(tài)鏈接庫(DLL)VisualBasic是一種高級程序設計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現。但它可以通過動態(tài)鏈接庫技術將C/C++或匯編語言編寫的程序加入到VisualBasic應用程序中，可以像調用內部函數一樣調用其他語言編寫的函數。此外，通過動態(tài)鏈接庫，還可以調用Windows應用程序接口(API)函數，實現SDK所具有的功能。1.3系統(tǒng)的功能簡介本系統(tǒng)主要可以實現以下的管理功能：班級管理、學生檔案管理、學生交費管理、課程管理、成績管理等等。1.3.1項目規(guī)劃學生信息管理系統(tǒng)是一個典型的數據庫應用程序,由班級管理、學生檔案管理、學生交費管理、課程管理、成績管理等模塊組成,特規(guī)劃如下:1.3.2系統(tǒng)管理模塊(CTRL+O)該模塊的主要任務是維護系統(tǒng)的正常運行和安全性設置,包括添加用戶(快捷鍵：CTRL+A)、修改密碼(快捷鍵：CTRL+B)、重新登錄(快捷鍵：CTRL+F1)等等。1.3.3班級管理模塊（CTRL+P）該模塊的功能是實現對全校班級的管理工作，包括：班級游覽、班級添加、班級查詢等，這三個功能模塊各自獨立，完成學校的全部班級的管理。1.3.4學生檔案管理模塊（CTRL+T）該模塊的主要功能是實現對學生的個人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便學校管理部門對學校的基本情況的快速查詢和了解。1.3.5課程管理模塊（CTRL+R）該模塊對各個班級的課程進行設置，并可在其中設置各門課程的教材選用情況，方便了學校教材管理部門和教務處的教學管理人員的工作。該模塊包括基本課程設計和班級課程設置兩個模塊。1.3.6成績管理模塊（CTRL+F）學校的成績管理工作是檢驗學生學習情況的一個主要手段，本模塊包括考試類型設置，共有期中考試和期未考試兩種類型，還設置了成績添加、成績游覽、成績查詢等功能模塊。1.4系統(tǒng)開發(fā)的目標出于本系統(tǒng)是學校學生管理的一個綜合性的系統(tǒng)，本系統(tǒng)的設計目標將最終定位于完成以上所述的系統(tǒng)主要業(yè)務的基本模型上。

第2章系統(tǒng)分析2.1業(yè)務流程分析輸出輸出輸入計算機教務處輸入計算機教務處班級學生班級學生班級班級教務處班主任教務處班主任圖2.1班級管理業(yè)務流程圖輸出輸出輸入計算機教務處輸入計算機教務處檔案學生檔案學生檔案檔案教務處班主任教務處班主任圖2.2檔案管理業(yè)務流程圖

輸出輸入計算機教務處課程輸出輸入計算機教務處課程課程學生課程學生教務處教師教務處教師圖2.3課程管理業(yè)務流程圖輸出輸出輸入計算機教務處輸入計算機教務處成績學生成績學生教師教師教務處教師教務處教師圖2.4成績管理業(yè)務流程圖輸出輸出輸入計算機教務處輸入計算機教務處學生班級學生班級班級班級教務處班主任教務處班主任圖2.52.2數據流程分析由于本系統(tǒng)的數據模塊較多，下面僅以學生成績管理模塊為例來進行編制。學籍管理部門學籍管理部門教師學生成績管理系統(tǒng)教務處學生教師教師學生情況學生成績查詢統(tǒng)計分析圖2.6學生成績管理系統(tǒng)0層數據流程圖

管理部門教務處管理部門教務處教師1.0學生管理2.0課程管理3.0成績管理4.0統(tǒng)計分析D1D2D3查詢者管理者學生學生課程課程成績成績圖2.7學生成績管理系統(tǒng)1層數據流程圖2.3數據存儲分析實體聯系圖1、數據模型設計。首先來做出學生成績管理系統(tǒng)的E-R圖，分析這個問題的實體，從系統(tǒng)分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統(tǒng)的三個實體。2、再分析三個實體之間的聯系。首先，這三個實體不是一個統(tǒng)一體，學生成績與教師沒有內在聯系，教師必須通過課程實體才能與學生建立聯系，因而先不考慮。課程與學生這兩個實體是多對多聯系；一位學生要學習多門課程，一門課程有多位學生共同學習。而學習成績是這兩個實體“學生”和“成績”共有的屬性，應填在二者的聯系“學習”邊。因為成績既不是學生獨有的，也不是課程獨有的；“學生甲70分”或“英語70分”是不完全的，說“學生甲英語70分”才是正確的，因為70分是學生甲和英語課二者共有的。這個E-R圖可畫成下圖。學生學生課程成績學習mn圖2.8學生成績管理系統(tǒng)中學生與課程的E-R圖教師與課程這兩個實體之間，是一對多聯系；一位教師可以都多門課程，而一門課程對于學生成績來說只能有一位教師(英語、高等數學有多位教師教，但對某個固定的學生來說只能有一位教師)。其E-R圖，如下所示。nn教師教師課程教學l圖2.9教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖，就可以設計數據庫。下圖為數據模型圖。學生學生課程教師學習學習課程學生教師實體模型數據模型數據庫學習lnmm學習lnmm圖2.102.4功能分析功能層次圖學生信息管理系統(tǒng)學生信息管理系統(tǒng)登錄系統(tǒng)管理班級管理檔案管理打印報表課程管理成績管理基本課程設置學生繳費瀏覽班級課程設置學生繳費添加基本學費設置學生繳費查詢修改密碼添加班級檔案瀏覽添加用戶復新登錄班級瀏覽班級查詢檔案添加檔案查詢-+圖2.11第3章系統(tǒng)設計3.1軟件模塊結構設計3.1.1系統(tǒng)方案確定通過對系統(tǒng)的調研與分析，系統(tǒng)主要應完成的功能有：班級管理、學生成績管理、學生交費管理、課程管理、成績管理、系統(tǒng)管理等功能。3.1.2軟件結構設計本系統(tǒng)在執(zhí)行時，先根據不同的操作人員的需要來進行相應的模塊，然后可以輸入數據或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個事務型管理系統(tǒng)。接受數據接受數據處理中心班級管理檔案管理交費管理課程管理成績管理打印報表圖3.13．2數據庫設計數據庫采用了Microsoft推出的Access數據庫，這是微軟集成到Office中的一個桌面數據庫，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡易性和有效性，大量的桌面數據庫系統(tǒng)都采用Access作為后臺數據庫。使用Access的好處還在于，如果你的系統(tǒng)擴展到Client/Server模式的時候，可以使用Microsoft的數據庫服務器軟件SQLServer，此時，程序只需要簡單的修改一下鏈接（ADO的數據源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。3.2.1本系統(tǒng)中所涉及到的主要實體共有九個數據表allkecheng表：{課程名稱，教材}cj表：{學號，學期，類型，課程名稱，分數}class表：{年級，班級，教室，年制，專業(yè)，班主任，備注}classkecheng表：{年級，專業(yè)，年制，學期，課程名稱}jf表：{學號，學期，交費，欠費，日期，操作員}kaoshileixing表：{類型}use表：{username,password,admin,readonly,qx1,qx2,qx3,qx4}xj表：{學號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯系電話，入學時間，備注}suefei表：{年級，專業(yè)，年制，學期，學費}3.2.2表的物理結構表3.1allkecheng表字段名稱類型寬度小數位課程名稱文本20教材文本30表3.2Cj表字段名稱類型寬度小數位學號文本10學期文本50類型文本16課程名稱文本20分數單精度型數字自動表3.2Class表字段名稱類型寬度小數位年級文本16班級文本20教室文本5年制文本8專業(yè)文本16班主任文本8備注備注表3.3Classkecheng表字段名稱類型寬度小數位年級文本16專業(yè)文本12年制文本8學期文本50課程名稱文本20表3.4Jf表字段名稱類型寬度小數位學號文本5學期文本50交費貨幣自動欠費貨幣自動日期日期/時間操作員文本10表3.5Kaosileixing表字段名稱類型寬度小數位類型文本10表3.6Use表字段名稱類型寬度小數位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2表3.7xj表字段名稱類型寬度小數位學號文本9姓名文本8性別文本2班級文本10出生年月日期/時間家庭住址文本30郵政編碼數字（長整型）聯系電話數字（長整型）入學時間日期/時間備注備注表3.8xuefei表字段名稱類型寬度小數位年級文本16專業(yè)文本50年制文本20學期文本40學費貨幣自動

第4章系統(tǒng)的功能本部分主要內容為本系統(tǒng)的運行界面以及主要界面的源代碼。4.1系統(tǒng)登陸界面本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據不同的用戶而設置了不同的權限，可以用909;909為用戶名和密碼來登陸本系統(tǒng)。圖4.1系統(tǒng)登錄界面PrivateSubCommand1_Click()DimmrcAsADODB.Recordsettxtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=TrueThenMsgBox"用戶名錯誤！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)ExitSubEndIfusername=mrc.Fields(0)txtsql2="selectusernamefromusewherepassword='"&Trim(Text2.Text)&"'"Setmrc=ExecuteSQL(txtsql2)Ifmrc.EOF=TrueThenMsgBox"密碼錯誤！",vbExclamation+vbOKOnly,"警告"Text2.SetFocusText2.SelStart=0Text2.SelLength=Len(Text2.Text)ExitSubEndIftxtsql="selectusernamefromusewhereusername='"&Trim(Text1.Text)&"'andpassword='"&Trim(Text2.Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=TrueThenMsgBox"用戶名稱和密碼不匹配！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfMDIForm1.Showfrmcpass.Text1.Text=Text1.TextUnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenText2.SetFocusEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub4.2系統(tǒng)主界面本模塊是本系統(tǒng)的應用界面，在本界面上集成了本系統(tǒng)的所有功能，共有6個功能菜單和19個子菜單（功能模塊），從而實現了本系統(tǒng)從班級管理、檔案管理、繳費管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。圖4.2系統(tǒng)主界面PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongDimfind1AsIntegerDimliulan1AsIntegerPrivateSubadd_Click()qxstr=Executeqx(2)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfForm1.Showmodi=FalseForm1.ZOrder(0)EndSubPrivateSubcjadd_Click()fenshumodi=Falseqxstr=Executeqx(4)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcj2.Showfrmcj2.ZOrder0EndSubPrivateSubcjbrowse_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcj1.Showfrmcj1.ZOrder0EndSubPrivateSubclaasfind_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfForm4.ShowForm4.ZOrder(0)i=SetWindowPos(Form4.hwnd,-1,0,0,0,0,3)EndSubPrivateSubclassapp_Click()qxstr=Executeqx(2)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass1.Showclassmodi=FalseFormclass1.classloadFormclass1.ZOrder(0)EndSubPublicSubclabrowse()txtsql="select*fromclass"Formclass2.ZOrder(0)Formclass2.Caption="瀏覽班級設置"Formclass2.classshowtitleFormclass2.classshowdataEndSubPrivateSubclassbrowse_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass2.ShowEndSubPrivateSubclassfind_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFormclass3.ShowFormclass3.ZOrder(0)EndSubPrivateSubfind_Click()EndSubPrivateSubclasskecheng_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmclasskecheng1.ShowFrmclasskecheng1.ZOrderEndSubPrivateSubdenglu2_Click()Frmdenlu.ShowUnloadMeEndSubPrivateSubjiaofeiadd_Click()qxstr=Executeqx(3)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmjf1.ShowFrmjf1.ZOrder0EndSubPrivateSubjiaofeibrowse_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmjf2.Showfrmjf2.ZOrder0EndSubPrivateSubjiaofeifind_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmjf4.ShowEndSubPrivateSubjibenkecheng_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmjiben.Showfrmjiben.ZOrder0EndSubPrivateSubleixing_Click()qxstr=Executeqx(4)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmleixing.ShowFrmleixing.ZOrder0EndSubPrivateSubliulan_Click()qxstr=Executeqx(2)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffind=FalseForm3.ShowEndSubPrivateSubMDIForm_Load()'username="0001"DataEnv1.Connection1.ConnectionString=connstringStatusBar1.Panels(2).Text=NowStatusBar1.Panels(3).Text="當前操作員："&usernameDimaaAsStringSelectCaseExecuteqx(1)Case"admin"aa="超級管理員"Case"readonly"aa="只讀管理員"CaseElseaa="普通管理員"EndSelectStatusBar1.Panels(4).Text="狀態(tài)："&aaEndSubPrivateSubuseradd_Click()qxstr=Executeqx(1)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmuser1.Showfrmuser1.ZOrder0EndSubPrivateSubusermodi_Click()qxstr=Executeqx(1)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIffrmcpass.ShowEndSubPrivateSubxuefeiadd_Click()qxstr=Executeqx(3)Ifqxstr="false"Orqxstr="readonly"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfxuefeimodi=FalseDimiAsIntegerFori=0To3frmxuefei1.Combo1(i).Enabled=TrueNextiMe.Caption="添加班級設置"Fori=0To3frmxuefei1.Combo1(i).Text=""Nextifrmxuefei1.Text1.Text=""frmxuefei1.Showfrmxuefei1.ZOrder0EndSubPublicSubxfbrowse()txtsql="select*fromxuefeiorderby學期desc,年級desc,專業(yè)desc"Frmxuefei2.ZOrder(0)Frmxuefei2.Caption="瀏覽學費設置"Frmxuefei2.xuefeishowtitleFrmxuefei2.xuefeishowdataEndSubPrivateSubxuefeibrowse_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmxuefei2.ShowEndSubPrivateSubxuefeifind_Click()qxstr=Executeqx(3)Ifqxstr="false"Thenss=MsgBox("對不起，你沒有管理本功能的權限，請與管理員聯系！",vbInformation+vbOKOnly,"警告")ExitSubEndIfFrmxuefei3.ShowFrmxuefei3.ZOrder(0)i=SetWindowPos(Frmxuefei3.hwnd,-1,0,0,0,0,3)EndSub4.3用戶管理模塊本模塊是本系統(tǒng)的安全性設置模塊，根據學校不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權限和類別進行了分類管理。圖4.3新曾用戶界面PrivateSubCommand1_Click()IfTrim(Text1(0).Text)=""ThenMsgBox"用戶名不能為空！",vbExclamation+vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfIfTrim(Text1(1).Text)=""ThenMsgBox"密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1(1).SetFocusExitSubEndIfIfTrim(Text1(2).Text)=""ThenMsgBox"確認密碼不能為空！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSubEndIfIfTrim(Text1(1).Text)<>Trim(Text1(2).Text)ThenMsgBox"確認密碼不正確！",vbExclamation+vbOKOnly,"警告"Text1(2).SetFocusExitSubEndIfDimaaAsIntegeraa=0IfOption1(2).Value=TrueThenFori=0To3IfCheck1(i).Value=1Thenaa=1ExitForEndIfNextiIfaa=0ThenMsgBox"普通用戶至少要有一項權限！",vbExclamation+vbOKOnly,"警告"ExitSubEndIfEndIfDimmrcAsADODB.Recordsettxtsql="select*fromusewhereusername='"&Trim(Text1(0).Text)&"'"Setmrc=ExecuteSQL(txtsql)Ifmrc.EOF=FalseThenMsgBox"已存在該用戶！",vbExclamation+vbOKOnly,"警告"Text1(0).SetFocusText1(0).SelStart=0Text1(0).SelLength=Len(Text1(0).Text)ExitSubEndIftxtsql="select*fromuse"Setmrc=ExecuteSQL(txtsql)mrc.AddNewmrc.Fields(0)=Trim(Text1(0).Text)mrc.Fields(1)=Trim(Text1(1).Text)Fori=0To2IfOption1(i).Value=TrueThenSelectCaseiCase0mrc.Fields("admin")="y"Case1mrc.Fields("readonly")="y"Case2Forj=0To3IfCheck1(j).Value=1ThenSelectCasejCase0mrc.Fields("qx1")="y"Case1