基于VB的學(xué)生信息管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

1、學(xué)生信息管理系統(tǒng)（系統(tǒng)登陸及學(xué)籍管理模塊）【摘要】 隨著學(xué)校規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。而對龐大的信息量，需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。 系統(tǒng)的開發(fā)采用SQLServer2000為數(shù)據(jù)庫管理平臺、VB6.0為客戶端開發(fā)工具，系統(tǒng)架構(gòu)為客戶機(jī)/服務(wù)器（C/S）兩層結(jié)構(gòu)。應(yīng)用軟件工程原則，嚴(yán)格按照項(xiàng)目計(jì)劃、需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)、物理設(shè)計(jì)、編碼、實(shí)現(xiàn)與維護(hù)等步驟進(jìn)行。完成了系統(tǒng)的登陸及學(xué)籍管理模塊開發(fā)工作。關(guān)鍵詞:管理信息系統(tǒng) 學(xué)生管理 VB SQLSer

2、ver2000目 錄摘要-目錄-第1章 概述 -1 1.1 課題研究背景與研究目的意義-11.1.1 研究背景-11.1.2 研究目的及意義-11.1.3 本課題的發(fā)展前景及趨勢-11. 2 系統(tǒng)內(nèi)容簡介及課題調(diào)研-21.2.1 系統(tǒng)內(nèi)容簡介-21.2.2 課題調(diào)研-21.2.3 本課題的實(shí)現(xiàn)途徑-3第2章 系統(tǒng)需求分析 -42.1 系統(tǒng)功能需求分析-42.1.1 系統(tǒng)功能體系結(jié)構(gòu)圖-42.1.2 系統(tǒng)功能體系結(jié)構(gòu)的主要模塊及基本功能-4第3章 系統(tǒng)設(shè)計(jì)-53.1 系統(tǒng)內(nèi)容詳細(xì)說明-53.2 系統(tǒng)數(shù)據(jù)模型設(shè)計(jì)-53.2.1 數(shù)據(jù)庫的設(shè)計(jì)-53.3 系統(tǒng)開發(fā)與運(yùn)行環(huán)境確定-63.3.1 系統(tǒng)開發(fā)

3、-63.3.2 系統(tǒng)開發(fā)環(huán)境-6第4章 系統(tǒng)登陸模塊-84.1 系統(tǒng)登錄模塊-84.2 系統(tǒng)模塊詳細(xì)介紹-9第5章 學(xué)籍信息管理模塊-145.1 學(xué)籍管理模塊詳細(xì)設(shè)計(jì) -14總結(jié)-21致謝-22參考文獻(xiàn)-23第1章 概述隨著計(jì)算機(jī)技術(shù)的進(jìn)步和推廣普及，尤其是自上個(gè)世紀(jì)90年代以來，計(jì)算機(jī)新技術(shù)的飛速發(fā)展已經(jīng)為各行各業(yè)發(fā)展的突飛猛進(jìn)帶來了新生的動力，現(xiàn)代信息技術(shù)的發(fā)展，在改變著我們的生活方式的同時(shí)，也改變著我們的工作方式,推動了其他各個(gè)行業(yè)向更高的層次躍進(jìn)。1.1 課題研究背景與研究目的、意義1.1.1 研究背景 隨著學(xué)校規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。而對龐大的

4、信息量，需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。但一直以來人們使用傳統(tǒng)人工的方式管理各種數(shù)據(jù)，這種管理方式存在著許多缺點(diǎn),比如:效率低、保密性差，另外時(shí)間一長，將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)技術(shù)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對學(xué)生的各項(xiàng)信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點(diǎn)。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長

5、、成本低等。這些優(yōu)點(diǎn)能夠極大地提高工作的效率,也是教育的科學(xué)化、正規(guī)化管理與世界接軌的重要條件。1.1.2 研究目的及意義 在各大中小學(xué)校，用計(jì)算機(jī)管理學(xué)校的信息已經(jīng)越來越普遍了。用計(jì)算機(jī)不但可以提高工作效率，而且還節(jié)省了許多人力物力，增強(qiáng)了學(xué)校資料的安全性。提高了學(xué)校的管理能力，為此，用計(jì)算機(jī)來管理學(xué)校的信息，是非常必要的。我作為一個(gè)計(jì)算機(jī)應(yīng)用的大專生，希望能有所貢獻(xiàn)。用我五年的所學(xué)編制了一個(gè)實(shí)用的程序來幫助我們學(xué)校進(jìn)行更有效的學(xué)生信息管理。1.1.3 本課題的發(fā)展前景及趨勢21世紀(jì)是信息科學(xué)技術(shù)飛躍發(fā)展的時(shí)代，信息技術(shù)在經(jīng)濟(jì)管理領(lǐng)域應(yīng)用廣泛，網(wǎng)絡(luò)經(jīng)濟(jì)的發(fā)展對電子商務(wù)、金融工程等人才的需求勢

6、必增加，隨著全球經(jīng)濟(jì)一體化形勢的發(fā)展，信息管理與信息系統(tǒng)專業(yè)培養(yǎng)的人才將受到人才市場的青睞。 經(jīng)濟(jì)全球化和我國加入WTO，IT企業(yè)迎來前所未有的發(fā)展機(jī)遇和壓力，這些企業(yè)不僅需要計(jì)算機(jī)軟、硬件工程師，網(wǎng)絡(luò)工程師，通信工程師，更需要信息化建設(shè)的復(fù)合型開發(fā)和管理人才，以便進(jìn)行企事 業(yè)和部門的應(yīng)用系統(tǒng)的開發(fā)、維護(hù)，進(jìn)行信息資源的開發(fā)利用。 進(jìn)入新世紀(jì)，我國開始了第三步戰(zhàn)略目標(biāo)的奮斗歷程，國家提出了“以信息化帶動工業(yè)化，以工業(yè)化促進(jìn)信息化”的戰(zhàn)略舉措，提出了我國國家信息化宏偉藍(lán)圖。對于這樣一個(gè)偉大的歷史進(jìn)程，應(yīng)該而且必須有強(qiáng)有力的學(xué)科支持，以便培養(yǎng)數(shù)以千萬計(jì)、幾千萬計(jì)的管理人才、IT人才及其綜合型的復(fù)合

7、人才。 1.2 系統(tǒng)內(nèi)容簡介及課題調(diào)研1.2.1 系統(tǒng)內(nèi)容簡介學(xué)生信息管理系統(tǒng)使針對當(dāng)代社會，教育越來越成為社會的主流這一市場需要而應(yīng)運(yùn)而生的。本系統(tǒng)主要包括系統(tǒng)管理模塊，學(xué)籍信息管理模塊，班級信息管理模塊，課程設(shè)置模塊，成績管理模塊，用戶投訴管理模塊，用戶班級管理模塊和庫存信息管理模塊。1.2.2 課題調(diào)研學(xué)生信息管理系統(tǒng)軟件的設(shè)計(jì)從低到高有三個(gè)層次：第一個(gè)層次為單項(xiàng)數(shù)據(jù)處理，模仿手工管理方式，多用于簡單的事物性工作，這是目前國內(nèi)大多數(shù)物業(yè)管理公司計(jì)算機(jī)應(yīng)用水平；第二個(gè)層次是數(shù)據(jù)綜合處理，此時(shí)計(jì)算機(jī)應(yīng)用呈現(xiàn)網(wǎng)絡(luò)化和實(shí)時(shí)處理特點(diǎn)，已經(jīng)具備部分提高物業(yè)管理效率的特點(diǎn)；第三個(gè)層次則是管理信息系統(tǒng)，

8、此時(shí)信息論、控制論、系統(tǒng)工程等優(yōu)化理論在軟件程序中得以運(yùn)用，計(jì)算機(jī)網(wǎng)絡(luò)和數(shù)據(jù)庫的建立，使計(jì)算機(jī)有管理某個(gè)單一系統(tǒng)發(fā)展成全面的管理系統(tǒng)。系統(tǒng)集成能力的高低和決策分析功能成為衡量此階段物業(yè)管理軟件水平的依據(jù)。一個(gè)好的信息管理軟件，應(yīng)構(gòu)建在一個(gè)好的數(shù)據(jù)庫、程序語言和操作系統(tǒng)平臺上?？蛻舳塑浖钥蛻?服務(wù)器(C/S)模式開發(fā)，能為小區(qū)內(nèi)部不同職能部門的合作提供服務(wù)，包括文件共享、數(shù)據(jù)共享等?？蛻?服務(wù)器(Client/Server)是近年來迅速發(fā)展的分布式信息處理體系結(jié)構(gòu)?？蛻?服務(wù)器體系把信息處理過程分成幾個(gè)部分，并把它分配到整個(gè)計(jì)算機(jī)網(wǎng)絡(luò)上，使信息處理過程能最佳地利用計(jì)算機(jī)的系統(tǒng)資源。在物業(yè)管理系

9、統(tǒng)中，為了避免多個(gè)用戶同時(shí)對同一數(shù)據(jù)進(jìn)行操作，減少系統(tǒng)開銷，系統(tǒng)采用客戶/服務(wù)器結(jié)構(gòu)。1.2.3 本課題的實(shí)現(xiàn)途徑本課題應(yīng)用軟件工程原則，嚴(yán)格按照項(xiàng)目計(jì)劃、需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)、物理設(shè)計(jì)、編碼、實(shí)現(xiàn)與維護(hù)等步驟進(jìn)行。選用SQL Server2000為數(shù)據(jù)庫管理平臺、VB6.0為客戶端開發(fā)工具，系統(tǒng)架構(gòu)為客戶機(jī)/服務(wù)器（C/S）兩層結(jié)構(gòu)。第2章 系統(tǒng)需求分析2.1 系統(tǒng)功能需求分析2.1.1系統(tǒng)功能體系結(jié)構(gòu)圖學(xué)生信息管理系統(tǒng)系統(tǒng)模塊幫助模塊成績管理模塊課程設(shè)置模塊班級管理模塊學(xué)籍管理模塊2.1.2 系統(tǒng)功能體系結(jié)構(gòu)的主要模塊及基本功能 系統(tǒng)模塊：包括對系統(tǒng)的用戶和密碼進(jìn)行修改，增加用戶等

10、功能。學(xué)籍管理模塊：包括添加學(xué)籍信息，查詢和修改學(xué)籍信息等。班級管理模塊：包括班級信息的錄入，查詢和修改等功能。課程設(shè)置模塊：包括課程信息信息的錄入，查詢和刪除等功能。成績管理模塊：包括成績信息的錄入，查詢和刪除，成績排名等功能。幫助模塊：包括使用說明。第3章 系統(tǒng)設(shè)計(jì)3.1 系統(tǒng)內(nèi)容詳細(xì)說明本課題所研究的學(xué)生管理系統(tǒng)由系統(tǒng)模塊，學(xué)籍管理模塊，班級信息管理模塊，課程設(shè)置模塊，成績管理模塊，幫助模塊6個(gè)部分構(gòu)成。啟動系統(tǒng)先通過登錄界面窗口進(jìn)入用戶權(quán)限認(rèn)證窗口，通過了用戶名和密碼驗(yàn)證的用戶方可進(jìn)入系統(tǒng)主窗口進(jìn)行瀏覽與操作。學(xué)籍管理模塊的主要功能是錄入學(xué)生的學(xué)籍信息，其中用戶的個(gè)人信息包括學(xué)號，姓名

11、，班級編號，出生年月，性別，年制，聯(lián)系電話，通訊地址，備注等。班級信息管理模塊的主要功能是系統(tǒng)建成后班級信息的添加，班級信息的查詢。班級信息包括學(xué)號，班級名稱，輔導(dǎo)員，班主任等信息。課程設(shè)置模塊的主要功能是課程信息的錄入，查詢和刪除。成績管理模塊的主要功能首先是學(xué)生成績的輸入，查詢和修改此模塊還能實(shí)現(xiàn)成績的排名。3.2 系統(tǒng)數(shù)據(jù)模型設(shè)計(jì)3.2.1 數(shù)據(jù)庫的設(shè)計(jì)表3-1用戶信息表(userinfo)字段名稱字段類型字段大小是否可為空user_namenvarchar10nopasswordint4no表3-2學(xué)籍信息表（studentinfo）字段名稱字段類型字段大小是否可為空stu_novar

12、char10nonamevarchar12noclass_novarchar10nobirthdatadatetime8nosexvarchar4noaddressvarchar50notelnovarchar20YESmemovarchar20YESnianzhivarchar20no3.3 系統(tǒng)開發(fā)與運(yùn)行環(huán)境確定3.3.1 系統(tǒng)開發(fā)(1)此系統(tǒng)是基于Windows 2000 網(wǎng)絡(luò)環(huán)境的數(shù)據(jù)庫管理，后臺數(shù)據(jù)庫采用 SQL Server2000，前端使用 vb6.0 進(jìn)行開發(fā)。(2)開發(fā)系統(tǒng)中，數(shù)據(jù)庫則是用SQL Server2000開發(fā)，綜合開發(fā)整個(gè)系統(tǒng)都是為了適應(yīng)學(xué)生管理的需要。在程序設(shè)計(jì)

13、過程中，我們?yōu)榱吮ＷC程序能正常的運(yùn)行，根據(jù)學(xué)生的一些實(shí)際情況來進(jìn)行設(shè)計(jì)。(3)編程中，我在指導(dǎo)老師和同學(xué)的幫助下并結(jié)合了自己的實(shí)際水平，在網(wǎng)上查閱了大量資料后盡量使軟件界面完美化。(4)為了方便領(lǐng)導(dǎo)對信息的查詢，引入了下拉組合框控件用于選擇查詢條件，盡量做到查詢的智能化和多樣性。3.3.2 系統(tǒng)開發(fā)環(huán)境此系統(tǒng)是基于Windows 2000 網(wǎng)絡(luò)環(huán)境的數(shù)據(jù)庫管理屬，后臺數(shù)據(jù)庫采用 SQL Server2000，前端使用 Vb 6.0 進(jìn)行開發(fā)。本課題的開發(fā)需要采用一種適合于數(shù)據(jù)庫編程，而且具備同時(shí)訪問多種數(shù)據(jù)庫系統(tǒng)能力的開發(fā)語言與工具。Vb 是一種優(yōu)秀的可視化軟件開發(fā)工具，它以其簡潔明快的編程語

14、言、功能強(qiáng)大的組件和靈活方便的編程環(huán)境在競爭激烈的市場越來越得青睞。它的功能可以與龐大的VisualC+媲美；它易學(xué)易用。VB 作為全球公認(rèn)的快速應(yīng)用程序開發(fā)工具的領(lǐng)導(dǎo)地位。Vb 以其友好的可視化開發(fā)環(huán)境、完全編譯執(zhí)行的高效性而著稱。Vb 遵循業(yè)界標(biāo)準(zhǔn)來開發(fā)分布式多級應(yīng)用系統(tǒng)，所以他能夠使應(yīng)用系統(tǒng)使用于大部分的異構(gòu)環(huán)境。Vb 確定了高效率和快速開發(fā)高性能的客戶端/服務(wù)器（Client/Server）及Enterprise和Internet上的多層體系結(jié)構(gòu)應(yīng)用的標(biāo)準(zhǔn)，其快速應(yīng)用開發(fā)、可伸縮的多層數(shù)據(jù)庫開發(fā)、真正的面向?qū)ο蟮目芍赜眯约氨镜卮a優(yōu)化編譯技術(shù)，為企業(yè)范圍內(nèi)的Client/Server開

15、發(fā)及Internet應(yīng)用創(chuàng)造了條件。Vb 擁有及其強(qiáng)大的數(shù)據(jù)庫操作能力，包括支持對Windows NT Services的開發(fā)，支持大型數(shù)據(jù)庫等。SQL Server 2000是Microsoft公司開發(fā)的企業(yè)級數(shù)據(jù)庫軟件，SQL Server 2000 beta的開發(fā)充分利用了64位硬件平臺的增強(qiáng)性能。它為需要使用大量內(nèi)存的數(shù)據(jù)應(yīng)用程序（例如大型電子商務(wù)、數(shù)據(jù)倉庫和分析應(yīng)用程序）提供了具有更高水平的單系統(tǒng)伸縮性。目前，為SQL Server 2000（64位）計(jì)劃開發(fā)的硬件產(chǎn)品最大可以支持64GB線性物理內(nèi)存，將來的硬件產(chǎn)品將可以支持多達(dá)4TB的線性物理內(nèi)存。Microsoft SQL Se

16、rver是一個(gè)高性能的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，它具有客戶機(jī)/服務(wù)器體系結(jié)構(gòu)，能夠滿足大規(guī)模分布式計(jì)算環(huán)境的需要。系統(tǒng)的性能要求通常指系統(tǒng)需要的存儲容量以及后援存儲，重新啟動和安全性,運(yùn)行效率等方面的考慮。本系統(tǒng)是以Vb 6.0為前臺，SQL Server2000為后臺，因此要求系統(tǒng)運(yùn)行在:Windows 2000 系統(tǒng)運(yùn)行時(shí)對數(shù)據(jù)的保密性要求不高對一般的數(shù)據(jù)不要求進(jìn)行加密。此外，對其它軟件幾乎沒有依賴性，程序健壯性較好。硬件條件：586 CPU以上軟件條件：Windows 2000/Windows XP 本系統(tǒng)有較好的可維護(hù)性、可靠性、可理解性、效率。易于用戶理解和操作?？删S護(hù)性包括了可讀性、可

17、修改性、可測試性、等含義。可靠性通常包括正確性和健壯性。開發(fā)過程中，在各種矛盾的目標(biāo)之間作權(quán)衡，并在一定的限制的條件下（經(jīng)費(fèi)、時(shí)間、可用的軟、硬件資源等），使上述各方面最大限度的得到滿足。 第4章 系統(tǒng)登陸模塊4.1 系統(tǒng)登錄模塊此界面的功能是提供用戶登錄進(jìn)入本系統(tǒng)所用，是系統(tǒng)的身份驗(yàn)證中心，在此進(jìn)行用戶賬號和密碼的驗(yàn)證。如果驗(yàn)證通過則進(jìn)入系統(tǒng)操作界面進(jìn)行相關(guān)的操作，否則提示相關(guān)的錯(cuò)誤信息提醒用戶修改。另外界面中設(shè)置了下拉列表方便用戶進(jìn)行身份選擇。登陸界面如圖4.1所示：圖4.1用戶登陸界面此模塊的核心代碼如下：Private Sub Command1_Click() Set cn = New

18、 ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;database=luhengxiu;server=(local) cn.Open UserName = Trim(Text1.Text) mysql = select * from userinfo where user_name= & UserName & rst.Open mysql, cn If rst.EOF Then MsgBo

19、x 沒有這個(gè)用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 vbOKOnly僅顯示確定按鈕vbExclamation顯示！號圖標(biāo) cn.Close Text1.Text = Text1.SetFocus Else If Trim(rst(password) = Trim(Text2.Text) Then rst.fields(1) = Text2.Text FrmMain.Show Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 cn.Close Text2.Text = Text2.Set

20、Focus End If End IfEnd Sub4.2 系統(tǒng)模塊詳細(xì)介紹添加用戶的界面如下圖4.2所示：圖4-2 添加用戶界面這個(gè)模塊的核心代碼如下：Private Sub Command1_Click()If Trim(Text1.Text) = Then MsgBox 用戶名不能為空！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Exit S

21、ubEnd IfIf Trim(Text3.Text) = Then MsgBox 確認(rèn)密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text3.SetFocus Exit SubEnd IfIf Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 確認(rèn)密碼不正確！, vbExclamation + vbOKOnly, 警告 Text3.Text = Text3.SetFocus Exit SubEnd If*連接數(shù)據(jù)庫 Dim cn As New ADODB.Connection Dim rst As New ADODB.

22、Recordset Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;database=luhengxiu;server=(local) cn.Open *檢測用戶是否存在 UserName = Trim(Text1.Text) mysql = select * from userinfo where user_name= & UserName & rst.Open

23、 mysql, cn With rst If Not rst.EOF Then MsgBox 該用戶已存在，請重新輸入新用戶！, vbExclamation + vbOKOnly, 提示 rst.Close cn.Close Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Exit Sub End If End With rst.Close*添加用戶 rst.Open select * from userinfo , cn, adOpenDynamic, adLockPessimistic With rst .AddNew .Fiel

24、ds(user_name).Value = Trim(Text1) .Fields(password).Value = Trim(Text2) .Update rst.Close MsgBox 添加新用戶成功！, vbOKOnly + vbExclamation, 添加新用戶End WithEnd Sub修改密碼界面如下：圖4.3 修改密碼界面核心代碼如下：Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim rst As New ADODB.RecordsetIf Trim(Text1.Text) = Then Msg

25、Box 請輸入用戶名！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = Then MsgBox 請輸入您的原始密碼！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Exit Sub End If If Trim(Text3.Text) = Then MsgBox 請輸入新密碼！, vbExclamation + vbOKOnly, 警告 Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text)

26、= Then MsgBox 請確認(rèn)新密碼！, vbExclamation + vbOKOnly, 警告 Text4.SetFocus Exit SubEnd IfIf (Trim(Text4.Text) Trim(Text3.Text) Then MsgBox 您輸入的第二次密碼不正確，請重新輸入！, vbExclamation + vbOKOnly, 警告 Text4.SetFocus Text4.Text = Exit SubEnd If cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User I

27、D=sa;database=luhengxiu;server=(local) cn.Open UserName = Trim(Text1.Text) mysql = select * from userinfo where user_name= & UserName & and password= & Text2.Text & rst.Open mysql, cn If rst.EOF Then MsgBox 您輸入的用戶名或密碼不正確，請重新輸入！, vbExclamation + vbOKOnly, 警告 cn.Close Text1.Text = Text2.Text = Text1.S

28、etFocus Exit Sub Else cn.Close cn.Open *修改密碼 rst.Open select * from userinfo where user_name= + Text1.Text + , cn, adOpenDynamic, adLockPessimistic With rst .Fields(Password).Value = Trim(Text3) .Update rst.Close MsgBox 恭喜您已成功修改密碼！, vbOKOnly + vbExclamation, 修改密碼 Text1.Text = Text2.Text = Text3.Text

29、 = Text4.Text = End With End IfEnd Sub 第5章 學(xué)籍信息管理模塊5.1 學(xué)籍管理模塊詳細(xì)設(shè)計(jì)學(xué)生信息的增加，查詢，修改的界面如圖5.1所示：圖5.1 添加學(xué)籍信息界面核心代碼如下：Private Sub Command1_Click() 添加Dim rst As New ADODB.RecordsetDim sex As StringIf Trim(Text1.Text) = Then MsgBox 請輸入學(xué)號！, vbOKOnly + vbExclamation, 警告 要求輸入范圍 Text1.SetFocus Exit Sub End IfIf Tr

30、im(Text2.Text) = Then MsgBox 請輸入姓名！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Exit Sub End IfIf Trim(Text3.Text) = Then MsgBox 請輸入出生日期！, vbOKOnly + vbExclamation, 警告 Text3.SetFocus Exit Sub End IfIf Not Trim(Option1.Value Or Option2.Value) Then MsgBox 請選擇性別！, vbOKOnly + vbExclamation, 警告 Option1.

31、SetFocus Exit Sub End IfIf Option1.Value Then sex = 男 Else sex = 女End If*連接數(shù)據(jù)庫 Set cn = New ADODB.Connection Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;database=luhengxiu;server=(local) cn.Open *檢查學(xué)生信息是否存在 stu_no = Trim(Text1.Text)

32、mysql = select * from studentinfo where stu_no= & stu_no & rst.Open mysql, cn With rst If Not rst.EOF Then MsgBox 該學(xué)生信息已存在，請重新輸入！, vbExclamation + vbOKOnly, 提示 rst.Close cn.Close Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6(6).Text = Text1.SetFocus Exit Sub End If End With

33、rst.Close*添加學(xué)生信息 rst.Open select * from studentInfo , cn, adOpenDynamic, adLockPessimistic With rst .AddNew .Fields(stu_no).Value = Trim(Text1) .Fields(name).Value = Trim(Text2) .Fields(sex).Value = sex .Fields(birthdate).Value = Trim(Text3) .Fields(class_no).Value = Trim(Combo1(1) .Fields(nianzhi).

34、Value = Trim(Combo2(0) .Fields(tel_no).Value = Trim(Text4) .Fields(address).Value = Trim(Text5) .Fields(memo).Value = Trim(Text6(6) .Update rst.Close MsgBox 添加學(xué)生信息成功！, vbOKOnly + vbExclamation, 添加學(xué)生信息 End WithEnd Sub查詢修改學(xué)籍信息模塊的界面如圖5.2所示：圖5.2 查詢修改學(xué)籍信息界面核心代碼如下：Private Sub Command1_Click() Dim txtSQL A

35、s String 聲明字符串變量 Dim rst As New ADODB.Recordset Dim dd(4) As Boolean Dim cn As ADODB.Connection *按學(xué)號查詢 If Check1.Value Then If Trim(Text1) = Then MsgBox 學(xué)號不能為空, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub ElseIf Not IsNumeric(Trim(Text1.Text) Then MsgBox 請輸入數(shù)字！, vbOKOnly + vbExclamation, 警告

36、 Exit Sub Text1.SetFocus Else dd(0) = True txtSQL = select * from studentinfo where stu_no= & Trim(Text1.Text) & End If End If If Check2.Value Then *按姓名查詢 If Trim(Text2) = Then MsgBox 姓名不能為空, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Exit Sub Else dd(1) = True If dd(0) Then txtSQL = select * from

37、studentinfo where stu_no= & Trim(Text1.Text) & and Name= & Trim(Text2.Text) & Else txtSQL = select * from studentinfo where Name= & Trim(Text2.Text) & End If End If End If * If Not (dd(0) Or dd(1) Then MsgBox 請?jiān)O(shè)置查詢方式！, vbOKOnly + vbExclamation, 警告 Exit Sub End If*連接數(shù)據(jù)庫 Set cn = New ADODB.Connection

38、Set rst = New ADODB.Recordset cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;user id=sa;Initial Catalog=luhengxiu;Data Source=(local) cn.Open rst.Open txtSQL, cn If rst.EOF Then MsgBox 沒有該學(xué)生, vbOKOnly + vbExclamation, 警告 Text1 = Text2 = Exit Sub End If

39、 With MSFlexGrid1 .TextMatrix(1, 1) = 學(xué)號 顯示 .TextMatrix(1, 2) = 姓名 .TextMatrix(1, 3) = 班級號 .TextMatrix(1, 4) = 出生日期 .TextMatrix(1, 5) = 性別 .TextMatrix(1, 6) = 通訊地址 .TextMatrix(1, 7) = 年制 .TextMatrix(1, 8) = 電話號碼 .TextMatrix(1, 9) = 備注 Do While Not rst.EOF .Rows = .Rows + 1 .CellAlignment = 9 .TextMa

40、trix(.Rows - 1, 1) = rst.Fields(0) .TextMatrix(.Rows - 1, 2) = rst.Fields(name) .TextMatrix(.Rows - 1, 3) = rst.Fields(class_no) .TextMatrix(.Rows - 1, 4) = rst.Fields(birthdate) .TextMatrix(.Rows - 1, 5) = rst.Fields(sex) .TextMatrix(.Rows - 1, 6) = rst.Fields(address) .TextMatrix(.Rows - 1, 7) = r

41、st.Fields(6) .TextMatrix(.Rows - 1, 8) = rst.Fields(tel_no) .TextMatrix(.Rows - 1, 9) = rst.Fields(memo rst.MoveNext 不能為FlexGrid分配內(nèi)存 Loop End With rst.CloseEnd Sub總 結(jié)學(xué)生管理系統(tǒng)，主要是按照學(xué)生管理問題來開發(fā)的一個(gè)系統(tǒng)，目標(biāo)是使學(xué)生管理的數(shù)據(jù)信息化、快速化和網(wǎng)絡(luò)化。力求與實(shí)際相結(jié)合具有查詢、管理等功能，旨在達(dá)到使對學(xué)生信息的管理和運(yùn)營趨于計(jì)算機(jī)化，使之更加方便、快捷以提高工作效率。這個(gè)學(xué)生管理系統(tǒng)仍然存在著一些不足，比如說身份驗(yàn)證

42、模塊比較簡單，可能對保密性要求不是非常的高，部分?jǐn)?shù)據(jù)庫表的設(shè)計(jì)存在一定的冗余等等，但它還是有自己的一些特點(diǎn)的，它根據(jù)學(xué)生管理中的實(shí)際需求和需要進(jìn)行設(shè)計(jì)和開發(fā)，實(shí)現(xiàn)了一個(gè)學(xué)生信息管理部門所需要進(jìn)行的大部分工作，它的通用性能好，實(shí)用性強(qiáng)，易于推廣，可擴(kuò)展性好，有機(jī)結(jié)合計(jì)算機(jī)自動處理與人工處理。對于此系統(tǒng)要從美觀、功能和技術(shù)上三個(gè)方面做重點(diǎn)改進(jìn)。美觀方面當(dāng)然是提高審美觀點(diǎn)，盡可能做到界面美觀，可視化并且要方便管理人員使用；功能方面要擴(kuò)大此系統(tǒng)的功能，以前沒有時(shí)間實(shí)現(xiàn)的現(xiàn)在要實(shí)現(xiàn)出來并且進(jìn)行功能的擴(kuò)充；技術(shù)方面的改進(jìn)表現(xiàn)在系統(tǒng)雖然基本上實(shí)現(xiàn)了功能要求，但很多方面還沒有考慮仔細(xì)，像實(shí)現(xiàn)某一功能可以用多個(gè)

43、控件，到底用哪個(gè)控件最好、最合適、速度最快還是需要重點(diǎn)考慮的，數(shù)據(jù)庫的關(guān)系模式可以進(jìn)一步規(guī)范化，減少冗余現(xiàn)象還有許多不足的地方也要盡可能的找出來?？傮w說來，在這次一個(gè)學(xué)期的畢業(yè)設(shè)計(jì)中，我學(xué)到了很多在課堂內(nèi)學(xué)不到的知識。整個(gè)畢業(yè)設(shè)計(jì)開發(fā)的過程對我來說是一次能力真正提高的過程，是將以前所學(xué)的理論知識充分用于實(shí)踐的過程，是一次理論聯(lián)系實(shí)際的過程。致 謝值畢業(yè)論文結(jié)束，畢業(yè)設(shè)計(jì)完成之際，我謹(jǐn)向在我畢業(yè)設(shè)計(jì)過程給予我很多幫助的各位老師和同學(xué)表示感謝。我要特別感謝的是我的指導(dǎo)老師，感謝他對我的支持，我從他身上學(xué)到了很多東西。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此