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

1、 畢 業(yè) 論 文 論文題目 學生信息管理系統(tǒng) 學 院 資源環(huán)境學院 專 業(yè) 信息管理與信息系統(tǒng) 年 級 2006級061班 姓 名 指導(dǎo)教師 段永紅 職 稱 （2010年6月）山西農(nóng)業(yè)大學教務(wù)處制學生信息管理系統(tǒng)摘要：隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，就必須建立與自身特點相適應(yīng)的管理信息系統(tǒng)。本文介紹了在visual basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析某一學校學生管理的不足

2、，創(chuàng)建了一套行之有效的計算機管理學生的方案。文章介紹了學生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計部分主要介紹了系統(tǒng)功能設(shè)計和數(shù)據(jù)庫設(shè)計及代碼設(shè)計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法， 本系統(tǒng)界面友好，操作簡單，比較實用?！娟P(guān)鍵字】：管理信息系統(tǒng)、學生管理、visual basic應(yīng)用。畢業(yè)設(shè)計論文外文摘要學生信息管理系統(tǒng)abstract：with more and more widespread and profound application of information technology in management, the implement of m

3、anagement information system has become mature in technology step by step. managing information system is a new subject. enterprise needs existence and development, so enterprise activities should be organized efficiently and organically, which means tightening up the enterprise management and stren

4、gthening effective management of any resource (staff, finance, property, etc.) internal the enterprise, and also establishing a management information system fitting in with its own characteristics.this article introduces the detailed process of exploring a management information system under the en

5、vironment of visual foxpro, utilizing “top-bottom” overall plan and a strategy according to “bottom-top” application and exploitation. that is to establish a set of effective scheme for student management by computer, through analyzing disadvantages of student management by human resources. this art

6、icle emphasizes on three sections. the system analysis section of student management information includes feasible analysis, management 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

7、 has provided several major function , together with the main windows and programs.this economical and pragmatic system has explicit interface, with simple operation.keywords ：mis、student management、visual basic application目 錄摘 要iabstractii第1章 緒論12.系統(tǒng)概述32.1現(xiàn)有系統(tǒng)分析32.2可行性分析32.3 開發(fā)工具簡介42.3.1 visual bas

8、ic 6.0 簡介42.3.2 microsoft sql 2000 簡介52.4 系統(tǒng)的功能簡介52.5系統(tǒng)開發(fā)的目標63. 系統(tǒng)分析73.1業(yè)務(wù)流程分析73.2 數(shù)據(jù)流程分析83.3數(shù)據(jù)存儲分析94.系統(tǒng)設(shè)計114.1軟件模塊結(jié)構(gòu)設(shè)計114.1.1 系統(tǒng)方案確定114.1.2 軟件結(jié)構(gòu)設(shè)計114.2 數(shù)據(jù)庫設(shè)計114.2.1 系統(tǒng)e-r圖124.2.2 各表的物理結(jié)構(gòu)145.系統(tǒng)的實現(xiàn)175.1 系統(tǒng)登陸界面175.2系統(tǒng)主界面195.3用戶管理模塊295.4學生繳費管理模塊34結(jié) 論43致 謝44參考文獻45第1章 緒論 信息管理系統(tǒng)（mis）1的概念是1961年美國人j.d.galla

9、gher首先提出來的，是一門新興的、集管理科學、信息科學、系統(tǒng)科學及計算機科學為一體的綜合性學科，研究的是企業(yè)中信息管理活動的全過程，以便有效的管理信息，提供各類管理決策信息，輔助企業(yè)進行現(xiàn)代化管理。信息管理系統(tǒng)，具備數(shù)據(jù)處理、計劃、控制、預(yù)測和輔助決策功能，用統(tǒng)一標準處理和提供信息，排除使用前后矛盾的不完整的數(shù)據(jù)。完整、及時提供在管理及決策中需要的數(shù)據(jù)。向各級管理機構(gòu)提供不同詳細程度的報告，縮短分析和解釋時間。用最低的費用最短的時間提供盡可能精確、可靠的信息。國外狀況:據(jù)統(tǒng)計，目前，美國在財務(wù)會計上占有90%的工作由計算機完成；人事管理中80-100%的信息處理由計算機完成；計劃管理是809

10、0%；在計算機應(yīng)用發(fā)展較快的國家中，計算機應(yīng)用于經(jīng)濟管理的占80%；用于科技計算的占8%，用于生產(chǎn)過程控制的占12%；由此可以看出，信息管理是計算機應(yīng)用的主要領(lǐng)域。國內(nèi)狀況:由于種種原因，我國的信息資源建設(shè)水平遠遠落后于信息基礎(chǔ)設(shè)施的建設(shè)的水平。長期以來，我國信息資源的開發(fā)管理未能與信息資源的增長同步進行。我國有豐富的原始信息資源，但在此基礎(chǔ)上再生的二次信息系統(tǒng)和數(shù)據(jù)庫產(chǎn)業(yè)的規(guī)模和市場占有率、使用率相當?shù)?，大量的有價值的信息未能進一步加工成商品使其增值。我國的計算機應(yīng)用要比西方國家落后十幾年，人事管理等信息系統(tǒng)的開發(fā)應(yīng)用是從1973年開始的，83年以后才開始了大量的實際的開發(fā)和研究工作。因此，

11、信息資源的開發(fā)和利用已被確立為國民經(jīng)濟信息的核心內(nèi)容，信息數(shù)字化，傳輸?shù)木W(wǎng)絡(luò)化是縮小發(fā)展中國家與發(fā)達國家差距的捷徑，世界信息化浪潮正以不可阻擋之勢席卷全球時，我國要迎頭趕上，就必須利用現(xiàn)有的信息基礎(chǔ)設(shè)施，重點開發(fā)和推廣應(yīng)用于各類科技經(jīng)濟等數(shù)據(jù)庫和網(wǎng)絡(luò)資源服務(wù)系統(tǒng)，以便取得巨大的社會效益和經(jīng)濟效益。由于物業(yè)管理在社會大生產(chǎn)中占用重要地位，其計算機化在發(fā)達國家已達到95%以上，而我國在全國范圍內(nèi)推廣計算機在管理中的應(yīng)用，是在80年代初開始的。起步雖晚，但發(fā)展快。特別是微型計算機的出現(xiàn)和普及，為信息處理提供了物美價廉的手段，對于推動我國管理信息處理現(xiàn)代化起到了重要作用。學生信息管理系統(tǒng)是用于校園內(nèi)部

12、管理學生基本信息的一個不可缺少的部分，它的功能對于校內(nèi)學生信息管理部門和管理者，組織和管理學生信息至關(guān)重要，所以學生信息管理系統(tǒng)應(yīng)該能為管理者提供有效和快捷的管理方式。一直以來學校內(nèi)部使用傳統(tǒng)的人工錄入學生信息的管理方式，這種方式存在著許多缺點，如：效率低、不準確，而且時間長了，對于查找、更新和維護這些學生信息都帶來一定的困難。隨著科學技術(shù)的不斷提高,計算機科學日漸成熟,其強大的功能已被人們深刻認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分,使用計算機對學生信息進行管理，具有手工管理所無法比擬的優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命

13、長、成本低等。這些優(yōu)點能夠極大地提高學生信息管理部門的工作效率，也是校園的科學化、正規(guī)化管理信息,與時代接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情。系統(tǒng)設(shè)計采用功能模塊化設(shè)計，結(jié)合當前的數(shù)據(jù)庫技術(shù)，使得管理系統(tǒng)雖然功能強大，但操作并不復(fù)雜，這正迎合了軟件發(fā)展的需求，即簡單易用。使得信息管理者從以前的繁忙工作中解脫出來，輕松完成學生信息的管理。2.系統(tǒng)概述2.1現(xiàn)有系統(tǒng)分析1 工作負荷由于數(shù)據(jù)量越來越大，現(xiàn)有的系統(tǒng)已明顯不能適應(yīng)目前的龐大數(shù)據(jù)量，系統(tǒng)工作負荷過大。2 費用支出由于現(xiàn)有系統(tǒng)的工作負荷嚴重超載，在現(xiàn)有系統(tǒng)上投入的人力，設(shè)備，空間，材料，等等與其他的一系列支持性服務(wù)越

14、來越大，導(dǎo)致開發(fā)費用支出巨大，嚴重影響系統(tǒng)的可用性，急需改進。3 人員和設(shè)備鑒于原有系統(tǒng)的技術(shù)性含量比較低，故不需要多少高技術(shù)人員的操作，只是由于數(shù)據(jù)量的日益擴大，所需要的操作人員數(shù)量不斷增大。這一點已不再適應(yīng)目前信息化時代的步伐。設(shè)備的科技含量也比較低，沒有達到大量的計算機普及程度。 4 局限性經(jīng)過嚴謹?shù)姆治?，可知原有的系統(tǒng)存在很大的局限性，比如技術(shù)的過于陳舊，人員工作負荷大，系統(tǒng)維護及費用支出巨大，人員與設(shè)備技術(shù)含量低等等一系列缺點，所有這些都明確了需要一個新的適應(yīng)新的信息化時代的高科技的系統(tǒng)。所以開發(fā)這樣一個系統(tǒng)還是很有必要的。2.2可行性分析考慮到項目時間、資源等因素，在實際開發(fā)該計算

15、機系統(tǒng)時，常常要為資源不足和交付日期難以完成而苦惱，因而需要慎重地盡可能早地估價研制課題的可行性?？尚行匝芯堪ǎ航?jīng)濟可行性、技術(shù)可行性、法律可行性、操作可行性等等。(1) 經(jīng)濟可行性分析經(jīng)濟可行性分析中最重要的內(nèi)容之一是成本效益分析。對于一個基于計算機系統(tǒng)的研制項目要在經(jīng)濟方面評價其是否合理，成本效益分析要估計出系統(tǒng)研制開發(fā)的花費并與收益（包括有形的可以用貨幣計數(shù)的及無形的利益）衡量比較。作為畢業(yè)設(shè)計，我們所受到的效益，應(yīng)該說是收益終生，而花費則寥寥無幾，因為學校提供實驗室。(2) 技術(shù)可行性分析就目前使用的開發(fā)技術(shù)來說,系統(tǒng)的功能目標能夠達到；利用現(xiàn)有的技術(shù)在規(guī)定的期限內(nèi)開發(fā)工作基本能夠完

16、成。(3) 法律可行性分析法律可行性是考慮要開發(fā)系統(tǒng)是否存在任何侵犯、妨礙和責任問題，用戶操作可行性考慮待開發(fā)軟件的運行方式在用戶組織內(nèi)是否行得通，現(xiàn)行管理制度、人員素質(zhì)、操作知識是否可行。作為畢業(yè)設(shè)計所需要的僅僅是人員素質(zhì)和操作知識的要求。(4) 操作可行性分析操作可行性主要是指用戶使用的舒適性，因此界面設(shè)計時要充分考慮管理人員的習慣，使得操作簡單便宜；數(shù)據(jù)錄入迅速、規(guī)范、可靠；統(tǒng)計準確，制表靈活，適應(yīng)力強，容易擴充。具有易用性、靈活性、開放性與可視性等，這些可以實現(xiàn)。由以上經(jīng)濟、技術(shù)、法律、操作四方面的分析可以看出，本系統(tǒng)的開發(fā)時機成熟，從多種角度考慮，都是可行的，采用本系統(tǒng)，能夠使整個系

17、統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。由于采用統(tǒng)一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它信息的，使信息快速高效運行。2.3 開發(fā)工具簡介2.3.1 visual basic 6.0 簡介visual basic 6.0是microsoft公司開發(fā)的面向?qū)ο蟪绦蛟O(shè)計平臺，它簡單易學，繼承了basic語言的優(yōu)點，采用窗體截面和事件驅(qū)動，深化了程序設(shè)計計者對windows環(huán)境下程序設(shè)計的理解?？梢暬挠脩艚缑嬖O(shè)計功能，可以使得程序設(shè)計人員從煩瑣復(fù)雜的界面設(shè)計中解脫出來。它支持win32下所有的api函數(shù)，可以方便的為windows開發(fā)程序，而且提供了代碼優(yōu)化技術(shù)，使得代碼更加簡

18、潔。還可以用它來開發(fā)自己的activex組件。visual basic 6.0的數(shù)據(jù)庫處理能力也很強大，雖然它不是專門的數(shù)據(jù)庫開發(fā)系統(tǒng)，但在數(shù)據(jù)庫設(shè)計方面也提供了強大的功能和豐富的工具，可以滿足編程人員的需求。它提供的dao、rdo、ado等多種與數(shù)據(jù)庫相聯(lián)系的方法并可與sql server、access、sybase2等多種數(shù)據(jù)庫系統(tǒng)想關(guān)聯(lián)，使之為數(shù)據(jù)庫編程，以及操縱數(shù)據(jù)庫。并且支持web開發(fā)。2.3.2 microsoft sql 2000 簡介sql server2000是由microsoft公司開發(fā)的關(guān)系數(shù)據(jù)庫管理系統(tǒng)。區(qū)別于foxpro、access小型數(shù)據(jù)庫，sql server是

19、一個功能完備的數(shù)據(jù)庫管理系統(tǒng)。它包括支持開發(fā)的引擎、標準的sql語言、擴展的特性(如復(fù)制、olap3、分析)等功能。而像存儲過程、觸發(fā)器等特性，也是大型數(shù)據(jù)庫才擁有的。sql server提供了在服務(wù)器系統(tǒng)上運行的服務(wù)器軟件和在客戶端運行的客戶端軟件，連接客戶和服務(wù)器計算機的網(wǎng)絡(luò)軟件則由windows nt/2000提供。sql server建立于microsoft window nt的可伸縮性和可管理性之上，提供了功能強大的客戶服務(wù)器平臺，高性能客戶服務(wù)器結(jié)構(gòu)的數(shù)據(jù)庫管理系統(tǒng)可以將visual basic、visual foxpro、visual c+作為客戶端開發(fā)工具，而將sql serv

20、er作為存儲數(shù)據(jù)的后臺服務(wù)器軟件。本學生信息管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)，這它集成了學生學籍管理系統(tǒng)、學生成績管理系統(tǒng)、學生檔案管理系統(tǒng)、學生繳費管理系統(tǒng)等多種功能，因而具有較強的實用性和先進性。2.4 系統(tǒng)的功能簡介本系統(tǒng)主要可以實現(xiàn)以下的管理功能：班級管理、學生檔案管理、學生交費管理、課程管理、成績管理等等。項目規(guī)劃學生信息管理系統(tǒng)是一個典型的數(shù)據(jù)庫應(yīng)用程序,由班級管理、學生檔案管理、學生交費管理、課程管理、成績管理等模塊組成,特規(guī)劃如下:系統(tǒng)管理模塊(ctrl+o)該模塊的主要任務(wù)是維護系統(tǒng)的正常運行和安全性設(shè)置,包括添加用戶(快捷鍵：ctrl+a)、修改密碼(快捷鍵：c

21、trl+b)、重新登錄(快捷鍵：ctrl+f1)等等。班級管理模塊（ctrl+p）：該模塊的功能是實現(xiàn)對全校班級的管理工作，包括：班級游覽、班級添加、班級查詢等，這三個功能模塊各自獨立，完成學校的全部班級的管理。學生檔案管理模塊（ctrl+t）：該模塊的主要功能是實現(xiàn)對學生的個人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便學校管理部門對學校的基本情況的快速查詢和了解。課程管理模塊（ctrl+r）：該模塊對各個班級的課程進行設(shè)置，并可在其中設(shè)置各門課程的教材選用情況，方便了學校教材管理部門和教務(wù)處的教學管理人員的工作。該模塊包括基本課程設(shè)計和班級課程設(shè)置兩個模塊。成績管理模塊

22、（ctrl+f）學校的成績管理工作是檢驗學生學習情況的一個主要手段，本模塊包括考試類型設(shè)置，共有期中考試和期未考試兩種類型，還設(shè)置了成績添加、成績游覽、成績查詢等功能模塊。2.5系統(tǒng)開發(fā)的目標出于本系統(tǒng)是學校學生管理的一個綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計目標將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。3. 系統(tǒng)分析3.1業(yè)務(wù)流程分析班級管理業(yè)務(wù)流程圖：教務(wù)處輸入計算機班主任教務(wù)處學生班級班級輸出檔案管理業(yè)務(wù)流程圖：教務(wù)處輸入計算機班主任教務(wù)處學生檔案檔案輸出課程管理業(yè)務(wù)流程圖：教務(wù)處輸入計算機教師教務(wù)處學生課程輸出課程成績管理業(yè)務(wù)流程圖：教務(wù)處輸入計算機教師教務(wù)處學生成績教師輸出教務(wù)處輸入計

23、算機班主任教務(wù)處學生班級班級輸出3.2 數(shù)據(jù)流程分析3.2.1數(shù)據(jù)流程圖由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以學生成績管理模塊為例來進行編制。學籍管理部門教師學生成績管理系統(tǒng)教務(wù)處學生教師教師學生情況學生成績查詢統(tǒng)計分析學生成績管理系統(tǒng)0層數(shù)據(jù)流程圖管理部門教務(wù)處教師1.0學生管理2.0課程管理3.0成績管理4.0統(tǒng)計分析d1d2d3查詢者管理者學生課程成績學生成績管理系統(tǒng)1層數(shù)據(jù)流程圖3.3數(shù)據(jù)存儲分析1、數(shù)據(jù)模型設(shè)計。首先來做出學生成績管理系統(tǒng)的e-r圖，分析這個問題的實體，從系統(tǒng)分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統(tǒng)的三個實體。2、再分析三個實體之

24、間的聯(lián)系。首先，這三個實體不是一個統(tǒng)一體，學生成績與教師沒有內(nèi)在聯(lián)系，教師必須通過課程實體才能與學生建立聯(lián)系，因而先不考慮。課程與學生這兩個實體是多對多聯(lián)系；一位學生要學習多門課程，一門課程有多位學生共同學習。而學習成績是這兩個實體“學生”和“成績”共有的屬性，應(yīng)填在二者的聯(lián)系“學習”邊。因為成績既不是學生獨有的，也不是課程獨有的；“學生甲70分”或“英語70分”是不完全的，說“學生甲英語70分”才是正確的，因為70分是學生甲和英語課二者共有的。這個e-r圖可畫成下圖。學生課程成績學習mn學生成績管理系統(tǒng)中學生與課程的e-r圖教師與課程這兩個實體之間，是一對多聯(lián)系；一位教師可以都多門課程，而一

25、門課程對于學生成績來說只能有一位教師(英語、高等數(shù)學有多位教師教，但對某個固定的學生來說只能有一位教師)。其e-r圖，如下所示。n教師課程教學l教師與課程的e-r圖組合到一起，得到最后的e-r圖，有了e-r圖，就可以設(shè)計數(shù)據(jù)庫。下圖為數(shù)據(jù)模型圖。學生課程教師學習學習課程學生教師實體模型數(shù)據(jù)模型數(shù)據(jù)庫學習lnmm4.系統(tǒng)設(shè)計4.1軟件模塊結(jié)構(gòu)設(shè)計4.1.1 系統(tǒng)方案確定通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級管理、學生成績管理、學生交費管理、課程管理、成績管理、系統(tǒng)管理等功能。4.1.2 軟件結(jié)構(gòu)設(shè)計本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要來進行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進行

26、其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個事務(wù)型管理系統(tǒng)。接受數(shù)據(jù)處理中心班級管理檔案管理交費管理課程管理成績管理打印報表 圖4-1 4.2 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫采用了microsoft推出的sql server數(shù)據(jù)庫，使用sql server的好處還在于，如果你的系統(tǒng)擴展到client/server模式的時候，可以使用microsoft的數(shù)據(jù)庫服務(wù)器軟件sql server，此時，程序只需要簡單的修改一下鏈接（ado的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。4.2.1 系統(tǒng)e-r圖本系統(tǒng)中所涉及到的主要實體共有8個數(shù)據(jù)表allkecheng表：課程名稱，教材cj表：學號

27、，學期，類型，課程名稱，分數(shù)class表：年級，班級，教室，年制，專業(yè)，班主任，備注classkecheng表：年級，專業(yè)，年制，學期，課程名稱jf表：學號，學期，交費，欠費，日期，操作員kaoshileixing表：類型use表：username,password,admin,readonly,qx1,qx2,qx3,qx4xj表：學號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學時間，備注suefei表：年級，專業(yè)，年制，學期，學費系統(tǒng)各e-r圖：課程表課程名稱教材圖4-2 課程表e-r圖成績表學號學期類型課程名稱分數(shù)圖4-3 成績表e-r圖班級年級班級教室年制專業(yè)班主任

28、備注圖4-4 班級e-r圖班級課程表年級專業(yè)年制學期課程名稱圖4-5班級課程表e-r圖交費表學號學期交費欠費日期操作員圖4-6交費表e-r圖學籍學號姓名性別班級出生年月家庭住址e-mail碼聯(lián)系電話聯(lián)系電話 入學時間備注圖4-7學籍e-r圖學費表年級專業(yè)年制學期學費圖4-8學費表e-r圖4.2.2 各表的物理結(jié)構(gòu)allkecheng表：字段名稱類型寬度小數(shù)位課程名稱文本20教材文本30cj表：字段名稱類型寬度小數(shù)位學號文本10學期文本50類型文本16課程名稱文本20分數(shù)單精度型數(shù)字自動class表：字段名稱類型寬度小數(shù)位年級文本16班級文本20教室文本5年制文本8專業(yè)文本16班主任文本8備注備

29、注classkecheng表：字段名稱類型寬度小數(shù)位年級文本16專業(yè)文本12年制文本8學期文本50課程名稱文本20jf表：字段名稱類型寬度小數(shù)位學號文本5學期文本50交費貨幣自動欠費貨幣自動日期日期/時間操作員文本10kaosileixing表：字段名稱類型寬度小數(shù)位類型文本10use表：字段名稱類型寬度小數(shù)位username文本20password文本20admin文本2readonly文本2qx1文本2qx2文本2qx3文本2qx4文本2xj表：字段名稱類型寬度小數(shù)位學號文本9姓名文本8性別文本2班級文本10出生年月日期/時間家庭住址文本30郵政編碼數(shù)字（長整型）聯(lián)系電話數(shù)字（長整型）入學

30、時間日期/時間備注備注xuefei表：字段名稱類型寬度小數(shù)位年級文本16專業(yè)文本50年制文本20學期文本40學費貨幣自動5.系統(tǒng)的實現(xiàn)本部分主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼。5.1 系統(tǒng)登陸界面本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在use表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限。 private sub command1_click()dim mrc as adodb.recordsettxtsql = select username from use where username= & trim(text1.text) & set mrc =

31、 executesql(txtsql)if mrc.eof = true then msgbox 用戶名錯誤！, vbexclamation + vbokonly, 警告 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.

32、eof = true then msgbox 密碼錯誤！, 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) & set mrc = executesql(txtsql)if mrc.eof = true then ms

33、gbox 用戶名稱和密碼不匹配！, 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_keypress(keyascii as integer)if keyascii = 13 then text2.setfocusend ifend subprivate

34、sub text2_keypress(keyascii as integer)if keyascii = 13 then command1.setfocusend ifend sub5.2系統(tǒng)主界面本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有5個功能菜單和19個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從班級管理、檔案管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。private declare function setwindowpos lib user32 (byval hwnd as long, byval hwndinsert

35、after 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(2)if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vboko

36、nly, 警告) exit subend if form1.show modi = false form1.zorder (0)end subprivate sub cjadd_click()fenshumodi = falseqxstr = executeqx(4)if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmcj2.showfrmcj2.zorder 0end subprivate s

37、ub cjbrowse_click()qxstr = executeqx(4)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmcj1.showfrmcj1.zorder 0end subprivate sub claasfind_click()qxstr = executeqx(2)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation +

38、 vbokonly, 警告) exit subend 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(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend ifformclass1.show

39、classmodi = false formclass1.classload formclass1.zorder (0)end subpublic sub clabrowse()txtsql = select * from classformclass2.zorder (0)formclass2.caption = 瀏覽班級設(shè)置formclass2.classshowtitleformclass2.classshowdataend subprivate sub classbrowse_click()qxstr = executeqx(2)if qxstr = false then ss = m

40、sgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend ifformclass2.showend subprivate sub classfind_click()qxstr = executeqx(2)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if formclass3.show formclass3.zorder (0)end subpriv

41、ate sub find_click() end subprivate sub classkecheng_click()qxstr = executeqx(4)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmclasskecheng1.showfrmclasskecheng1.zorderend subprivate sub denglu2_click()frmdenlu.showunload meend subprivate s

42、ub jiaofeiadd_click()qxstr = executeqx(3)if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmjf1.showfrmjf1.zorder 0end subprivate sub jiaofeibrowse_click()qxstr = executeqx(3)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限

43、，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmjf2.showfrmjf2.zorder 0end subprivate sub jiaofeifind_click()qxstr = executeqx(3)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmjf4.showend subprivate sub jibenkecheng_click()qxstr =

44、 executeqx(4)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmjiben.showfrmjiben.zorder 0end subprivate sub leixing_click()qxstr = executeqx(4)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit sube

45、nd iffrmleixing.showfrmleixing.zorder 0end subprivate sub liulan_click()qxstr = executeqx(2)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if find = false form3.showend subprivate sub mdiform_load()username = 0001dataenv1.connection1.connections

46、tring = connstringstatusbar1.panels(2).text = nowstatusbar1.panels(3).text = 當前操作員： & usernamedim aa as stringselect case executeqx(1)case admin aa = 超級管理員case readonly aa = 只讀管理員case else aa = 普通管理員end selectstatusbar1.panels(4).text = 狀態(tài)： & aaend subprivate sub useradd_click()qxstr = executeqx(1)i

47、f qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend iffrmuser1.showfrmuser1.zorder 0end subprivate sub usermodi_click()qxstr = executeqx(1)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) ex

48、it sub end iffrmcpass.showend subprivate sub xuefeiadd_click()qxstr = executeqx(3)if qxstr = false or qxstr = readonly then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if xuefeimodi = false dim i as integer for i = 0 to 3 frmxuefei1.combo1(i).enabled = true next i

49、 me.caption = 添加班級設(shè)置 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è) descfrmxuefei2.zorder (0)frmxuefei2.caption = 瀏覽學費設(shè)置frmxuefei2.xuefeishowtitlefrmxu

50、efei2.xuefeishowdataend subprivate sub xuefeibrowse_click()qxstr = executeqx(3)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if frmxuefei2.showend subprivate sub xuefeifind_click()qxstr = executeqx(3)if qxstr = false then ss = msgbox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbinformation + vbokonly, 警告) exit subend if frmxuefei3.show frmxuefei3.zorder (0) i = setwindowpos(frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3)end sub5.3用戶管理模塊本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)學校不同部門以及