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

1、學(xué)生信息管理系統(tǒng)（系統(tǒng)登陸及學(xué)籍管理模塊）【摘要】 隨著學(xué)校規(guī)模不斷擴大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。而對龐大的信息量，需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速的查詢，從而減少管理方面的工作量。 系統(tǒng)的開發(fā)采用SQLServer2000為數(shù)據(jù)庫管理平臺、VB6.0為客戶端開發(fā)工具，系統(tǒng)架構(gòu)為客戶機/服務(wù)器（C/S）兩層結(jié)構(gòu)。應(yīng)用軟件工程原則，嚴格按照項目計劃、需求分析、概念設(shè)計、邏輯設(shè)計、物理設(shè)計、編碼、實現(xià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 本課題的實現(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è)計-53.1 系統(tǒng)內(nèi)容詳細說明-53.2 系統(tǒng)數(shù)據(jù)模型設(shè)計-53.2.1 數(shù)據(jù)庫的設(shè)計-53.3 系統(tǒng)開發(fā)與運行環(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)模塊詳細介紹-9第5章 學(xué)籍信息管理模塊-145.1 學(xué)籍管理模塊詳細設(shè)計 -14總結(jié)-21致謝-22參考文獻-23第1章 概述隨著計算機技術(shù)的進步和推廣普及，尤其是自上個世紀90年代以來，計算機新技術(shù)的飛速發(fā)展已經(jīng)為各行各業(yè)發(fā)展的突飛猛進帶來了新生的動力，現(xiàn)代信息技術(shù)的發(fā)展，在改變著我們的生活方式的同時，也改變著我們的工作方式,推動了其他各個行業(yè)向更高的層次躍進。1.1 課題研究背景與研究目的、意義1.1.1 研究背景 隨著學(xué)校規(guī)模不斷擴大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。而對龐大的

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

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

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

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

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

9、統(tǒng)中，為了避免多個用戶同時對同一數(shù)據(jù)進行操作，減少系統(tǒng)開銷，系統(tǒng)采用客戶/服務(wù)器結(jié)構(gòu)。1.2.3 本課題的實現(xiàn)途徑本課題應(yīng)用軟件工程原則，嚴格按照項目計劃、需求分析、概念設(shè)計、邏輯設(shè)計、物理設(shè)計、編碼、實現(xiàn)與維護等步驟進行。選用SQL Server2000為數(shù)據(jù)庫管理平臺、VB6.0為客戶端開發(fā)工具，系統(tǒng)架構(gòu)為客戶機/服務(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)的用戶和密碼進行修改，增加用戶等

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

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

12、char10nonamevarchar12noclass_novarchar10nobirthdatadatetime8nosexvarchar4noaddressvarchar50notelnovarchar20YESmemovarchar20YESnianzhivarchar20no3.3 系統(tǒng)開發(fā)與運行環(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 進行開發(fā)。(2)開發(fā)系統(tǒng)中，數(shù)據(jù)庫則是用SQL Server2000開發(fā)，綜合開發(fā)整個系統(tǒng)都是為了適應(yīng)學(xué)生管理的需要。在程序設(shè)計

13、過程中，我們?yōu)榱吮ＷC程序能正常的運行，根據(jù)學(xué)生的一些實際情況來進行設(shè)計。(3)編程中，我在指導(dǎo)老師和同學(xué)的幫助下并結(jié)合了自己的實際水平，在網(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 進行開發(fā)。本課題的開發(fā)需要采用一種適合于數(shù)據(jù)庫編程，而且具備同時訪問多種數(shù)據(jù)庫系統(tǒng)能力的開發(fā)語言與工具。Vb 是一種優(yōu)秀的可視化軟件開發(fā)工具，它以其簡潔明快的編程語

14、言、功能強大的組件和靈活方便的編程環(huán)境在競爭激烈的市場越來越得青睞。它的功能可以與龐大的VisualC+媲美；它易學(xué)易用。VB 作為全球公認的快速應(yīng)用程序開發(fā)工具的領(lǐng)導(dǎo)地位。Vb 以其友好的可視化開發(fā)環(huán)境、完全編譯執(zhí)行的高效性而著稱。Vb 遵循業(yè)界標準來開發(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)用的標準，其快速應(yīng)用開發(fā)、可伸縮的多層數(shù)據(jù)庫開發(fā)、真正的面向?qū)ο蟮目芍赜眯约氨镜卮a優(yōu)化編譯技術(shù)，為企業(yè)范圍內(nèi)的Client/Server開

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

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

17、修改性、可測試性、等含義。可靠性通常包括正確性和健壯性。開發(fā)過程中，在各種矛盾的目標之間作權(quán)衡，并在一定的限制的條件下（經(jīng)費、時間、可用的軟、硬件資源等），使上述各方面最大限度的得到滿足。 第4章 系統(tǒng)登陸模塊4.1 系統(tǒng)登錄模塊此界面的功能是提供用戶登錄進入本系統(tǒng)所用，是系統(tǒng)的身份驗證中心，在此進行用戶賬號和密碼的驗證。如果驗證通過則進入系統(tǒng)操作界面進行相關(guān)的操作，否則提示相關(guān)的錯誤信息提醒用戶修改。另外界面中設(shè)置了下拉列表方便用戶進行身份選擇。登陸界面如圖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 沒有這個用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 vbOKOnly僅顯示確定按鈕vbExclamation顯示！號圖標 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)模塊詳細介紹添加用戶的界面如下圖4.2所示：圖4-2 添加用戶界面這個模塊的核心代碼如下：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 確認密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text3.SetFocus Exit SubEnd IfIf Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 確認密碼不正確！, 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 請確認新密碼！, 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é)籍管理模塊詳細設(shè)計學(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 請設(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ā)的一個系統(tǒng)，目標是使學(xué)生管理的數(shù)據(jù)信息化、快速化和網(wǎng)絡(luò)化。力求與實際相結(jié)合具有查詢、管理等功能，旨在達到使對學(xué)生信息的管理和運營趨于計算機化，使之更加方便、快捷以提高工作效率。這個學(xué)生管理系統(tǒng)仍然存在著一些不足，比如說身份驗證

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

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