畢業(yè)設(shè)計（論文）基于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)有較好的可維護性、可靠性、可理解性、效率。易于用戶理解和操作。可維護性包括了可讀性、可

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) = rst.fie