學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)論文

1、<p><b>　　本科畢業(yè)設(shè)計(jì)論文</b></p><p>　　題 目 學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) </p><p>　　學(xué) 院 長(zhǎng)安學(xué)院 </p><p>　　專(zhuān) 業(yè) 軟件工程 </p><p><

2、b>　　摘要</b></p><p>　　隨著信息技術(shù)在管理上越來(lái)越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái)，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。</p><p>　　本文介紹了在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)

3、用開(kāi)發(fā)”的策略開(kāi)發(fā)一個(gè)管理信息系統(tǒng)的過(guò)程。通過(guò)分析某一學(xué)校學(xué)生管理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生學(xué)籍的方案。文章介紹了學(xué)生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫(kù)設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說(shuō)明了幾個(gè)主要模塊的算法,本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。</p><p><b>　　【關(guān)鍵字】：</b></p>

4、;<p>　　管理信息系統(tǒng)、ACCESS 2003、學(xué)生管理、Visual Basic應(yīng)用。</p><p><b>　　Summary</b></p><p>　　With more and more widespread and profound application of information technology in management,

5、 the implement of management 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 o

6、rganized efficiently and organically, which means tightening up the enterprise management and strengthening effective management of any resource (staff, finance, property, etc.) interna</p><p>　　This article

7、 introduces the detailed process of exploring a management information system under the environment of visual basic, utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploitati

8、on. That is to establish a set of effective scheme for student management by computer, through analyzing disadvantages of student management by human resources. This article emphasizes on three sections. The system analy

9、sis section of student management information in</p><p>　　This economical and pragmatic system has explicit interface, with simple operation.</p><p>　　[Keywords] ：</p><p>　　MIS、stud

10、ent management、Access2003、visual basic application</p><p><b>　　引言</b></p><p>　　學(xué)生學(xué)籍管理是一件復(fù)雜而細(xì)致的工作，每年都有新生入學(xué)、畢業(yè)生畢業(yè)及升學(xué)、學(xué)生升級(jí)、留級(jí)等事件發(fā)生；平時(shí)還有班級(jí)的調(diào)整、中途轉(zhuǎn)學(xué)、休學(xué)、復(fù)學(xué)以及退學(xué)的學(xué)生，由于這些工作的雜亂而不確定性，使得學(xué)生學(xué)籍管理工作變

11、得復(fù)雜且不易做到準(zhǔn)確無(wú)誤。因此本軟件設(shè)計(jì)力求實(shí)現(xiàn)學(xué)籍管理工作的自動(dòng)化和現(xiàn)代化，實(shí)現(xiàn)對(duì)學(xué)生在校期間的全過(guò)程管理，從新生入學(xué)注冊(cè)，基本檔案信息的錄入、檔案查詢(xún)以及信息修改，學(xué)生學(xué)號(hào)的編排，升級(jí)、留級(jí)調(diào)整，班級(jí)變動(dòng)等詳細(xì)情況的統(tǒng)計(jì)、分析均由計(jì)算機(jī)自動(dòng)完成；還可以完成如各屆學(xué)生花名冊(cè)、學(xué)生學(xué)籍卡、畢業(yè)生升學(xué)登記表、學(xué)生變動(dòng)情況表等一系列報(bào)表的打印工作，完成班級(jí)學(xué)生人數(shù)、學(xué)生自然分布、家庭住址分布、家長(zhǎng)詳細(xì)信息分布、外單位學(xué)生分布等各種信息的統(tǒng)計(jì)

12、及報(bào)表的打印工作。從而徹底減化學(xué)籍管理手續(xù)，減輕學(xué)籍管理人員的工作量，使學(xué)籍管理工作向科學(xué)化、規(guī)范化和現(xiàn)代化的方向邁進(jìn)。按工作常規(guī)和設(shè)計(jì)要求，整個(gè)軟件分為以下模塊：學(xué)生信息管理、班級(jí)信息管理與課程信息管理等部分。</p><p>　　近年來(lái)，隨著科學(xué)技術(shù)特別是計(jì)算機(jī)數(shù)據(jù)庫(kù)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深深地認(rèn)識(shí)，它已進(jìn)入人類(lèi)社會(huì)生活的各個(gè)領(lǐng)域并發(fā)揮越來(lái)越重要的作用。利用計(jì)算機(jī)數(shù)據(jù)庫(kù)技術(shù)對(duì)

13、學(xué)籍工作進(jìn)行管理，具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)。例如：用計(jì)算機(jī)進(jìn)行學(xué)號(hào)編排可以有效地避免重號(hào)現(xiàn)象，并能達(dá)到高速準(zhǔn)確地編排班級(jí)，只需幾個(gè)小時(shí)就可將數(shù)千人分班編排完畢，極大地提高了工作效率；用計(jì)算機(jī)進(jìn)行學(xué)籍檔案統(tǒng)計(jì)，具有快速、準(zhǔn)確、可靠等特點(diǎn)；用計(jì)算機(jī)進(jìn)行學(xué)生檔案查詢(xún)、檢索迅速方便；用計(jì)算機(jī)進(jìn)行學(xué)生升級(jí)處理工作，可以提高其精確度。因此，開(kāi)發(fā)一套學(xué)生學(xué)籍管理信息系統(tǒng)軟件是很有必要，也是勢(shì)在必行的。它有以下幾個(gè)好處：</p>&

14、lt;p>　　1、可使學(xué)生學(xué)籍管理工作準(zhǔn)確高效；</p><p>　　2、克服了手工管理中的許多困難，提高了速度，結(jié)省了大量時(shí)間；</p><p>　　3、可快速查詢(xún)有關(guān)學(xué)生學(xué)籍的的各種所需信息；</p><p>　　4、只需一到兩名管理人員即可操作系統(tǒng)，節(jié)省了大量的人力；</p><p>　　5、軟件系統(tǒng)可根據(jù)不同的需要隨時(shí)進(jìn)行升級(jí)，

15、從而延長(zhǎng)了軟件的使用壽命；</p><p>　　6、數(shù)據(jù)庫(kù)具有存儲(chǔ)量大，保密性好、運(yùn)行成本低等特點(diǎn)。</p><p>　　此外，為將來(lái)學(xué)校建立校園網(wǎng)考慮，系統(tǒng)采用客戶(hù)機(jī)/服務(wù)器體系結(jié)構(gòu)設(shè)計(jì)，以后學(xué)生學(xué)籍管理信息系統(tǒng)接入網(wǎng)絡(luò)時(shí)，數(shù)據(jù)庫(kù)可直接進(jìn)行移植，勿需作大量的修改工作。</p><p><b>　　第一章 系統(tǒng)概述</b></p>

16、<p>　　本學(xué)生學(xué)籍管理系統(tǒng)可以說(shuō)是一個(gè)綜合性的學(xué)校學(xué)生管理系統(tǒng)，這它集成了學(xué)生信息管理、班級(jí)信息管理、課程信息管理等多種功能，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。</p><p>　　1.1 系統(tǒng)及需求分析</p><p>　　1.1.1 系統(tǒng)需求</p><p>　　通過(guò)調(diào)查,要求系統(tǒng)需要有以下功能:</p><p>　?、?由

17、于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面;</p><p>　?、?由于該系統(tǒng)的使用對(duì)象多,要求有較好的權(quán)限管理; </p><p>　?、?原始數(shù)據(jù)修改簡(jiǎn)單方便,支持多條件修改</p><p>　?、?方便的數(shù)據(jù)查詢(xún)，支持多條件查詢(xún);</p><p>　?、?在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好；</p&

18、gt;<p>　?、?數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù);</p><p>　　1.2 系統(tǒng)開(kāi)發(fā)工具介紹</p><p>　　本系統(tǒng)采用面向?qū)ο蟮能浖_(kāi)發(fā)辦法，以Microsoft公司的可視開(kāi)發(fā)環(huán)境 Visual Basic6.0 作為主要開(kāi)發(fā)工具，使用Microsoft Access 2003作為關(guān)系數(shù)據(jù)庫(kù)，并在VB編程語(yǔ)言中采用ADO數(shù)據(jù)庫(kù)編程模型，配合功能強(qiáng)大的S

19、QL查詢(xún)語(yǔ)言實(shí)現(xiàn)建立關(guān)系數(shù)據(jù)庫(kù)，訪問(wèn)數(shù)據(jù)庫(kù)，更新數(shù)據(jù)庫(kù)，較好地實(shí)現(xiàn)了預(yù)定的需求功能。</p><p>　　一、Visual Basic 6.0概述</p><p>　　1、Visual Basic 6.0 簡(jiǎn)介</p><p>　　無(wú)論用戶(hù)是一個(gè)Windows 編程新手，還是已經(jīng)具有豐富的Windows程序設(shè)計(jì)經(jīng)驗(yàn)的專(zhuān)業(yè)程序開(kāi)發(fā)人員，利用Visual Basic 6

20、.0提供的良好開(kāi)發(fā)環(huán)境，均可以使你快速地完成所需設(shè)計(jì)任務(wù)。所謂Visual ，中文的意思是“可視化”，它提供了一種創(chuàng)建圖形用戶(hù)界面（GUI）的方法，利用這種方法，用戶(hù)可不必書(shū)寫(xiě)復(fù)雜的描述界面元素外觀和位置的程序代碼，而只需將系統(tǒng)提供的對(duì)象放到屏幕上的適當(dāng)位置，并通過(guò)屬性窗口進(jìn)行適當(dāng)?shù)脑O(shè)置或調(diào)整，就可以設(shè)計(jì)出一個(gè)優(yōu)秀的應(yīng)用程序界面。此外，用戶(hù)除了可以使用單獨(dú)的Visual Basic 6.0程序設(shè)計(jì)環(huán)境進(jìn)行程序設(shè)計(jì)外。Visual Bas

21、ic 6.0 程序設(shè)計(jì)系統(tǒng)還被包括在Excel Access 等眾多Windows功能應(yīng)用軟件中，以供用戶(hù)進(jìn)行二次開(kāi)發(fā)。目前在編制網(wǎng)頁(yè)上使用較多的VBScript 腳本語(yǔ)言實(shí)際上是Visual Basic 語(yǔ)言的子集。因此，無(wú)論從哪方面講，用Visual Basic 6.0系統(tǒng)開(kāi)發(fā)軟件都是一件非常合算的投資。</p><p>　　2、Visual Basic 6.0 語(yǔ)言的特點(diǎn)</p><p&

22、gt;　　不管你是編制一個(gè)小小的應(yīng)用程序，還是開(kāi)發(fā)一套大型的專(zhuān)業(yè)系統(tǒng)軟件，甚至是開(kāi)發(fā)一個(gè)跨越Internet 的分布式應(yīng)用系統(tǒng)軟件，Visual Basic 6.0 都可以為用戶(hù)提供合適的工具。利用Visual Basic 6.0的數(shù)據(jù)訪問(wèn)特性，用戶(hù)可創(chuàng)建數(shù)據(jù)庫(kù)、前端應(yīng)用程序、適用于大多數(shù)流行數(shù)據(jù)庫(kù)格式的服務(wù)器組件等。利用ActiveX技術(shù)允許用戶(hù)使用其他應(yīng)用程序提供的功能，如Microsoft Word、Microsoft Excel

23、，甚至可直接使用由Visual Basic 6.0 專(zhuān)業(yè)版和企業(yè)版創(chuàng)建的應(yīng)用程序和對(duì)象。Visual Basic 的Internet 功能允許用戶(hù)使用程序方便地通過(guò)Internet 訪問(wèn)文檔和應(yīng)用程序，甚至創(chuàng)建Internet應(yīng)用程序。用Visual Basic 6.0用戶(hù)創(chuàng)建的是一個(gè)真正的EXE文件，該文件可直接運(yùn)行于操作系統(tǒng)（Windows98/2000/XP或Windows NT系統(tǒng)），完全脫離Visual Basic系統(tǒng)環(huán)境。并

24、且，該文件可以自由發(fā)布，安裝到單機(jī)或網(wǎng)絡(luò)服務(wù)器上。</p><p>　　此外，Visual Basic 6.0 還增加了一些新的功能，具體如下：</p><p>　?、僭黾恿薃DO數(shù)據(jù)對(duì)象，該數(shù)據(jù)訪問(wèn)技術(shù)是一個(gè)簡(jiǎn)單的數(shù)據(jù)模型，可更好地與其它Microsoft和非Microsoft技術(shù)集成。它還是一個(gè)通用接口，可用于訪問(wèn)本地或遠(yuǎn)程數(shù)據(jù)、連續(xù)和離散記錄集、用戶(hù)可訪問(wèn)的數(shù)據(jù)綁定接口和分層記錄集。

25、</p><p>　?、谔峁┝藬?shù)據(jù)環(huán)境設(shè)計(jì)器，其中提供了一種創(chuàng)建ADO對(duì)象的交互設(shè)計(jì)環(huán)境，數(shù)據(jù)環(huán)境可作為窗體或報(bào)表中所有要求數(shù)據(jù)對(duì)象的數(shù)據(jù)源，或者通過(guò)數(shù)據(jù)環(huán)境的方法和屬性由等程序訪問(wèn)，數(shù)據(jù)環(huán)境設(shè)計(jì)器具有用戶(hù)連接設(shè)計(jì)器的全部功能和附加特性，如拖放、分層、分組和合計(jì)等。</p><p>　?、蹟?shù)據(jù)報(bào)表，允許用戶(hù)使用拖放方法利用任何記錄集合快速創(chuàng)建報(bào)表。</p><p>

26、　?、軘?shù)據(jù)源，創(chuàng)建可綁定任何控件的數(shù)據(jù)源、用戶(hù)定義控件和類(lèi)。</p><p>　?、軸QL編輯器，允許用戶(hù)增加新的存儲(chǔ)過(guò)程至SQL服務(wù)器程序和Oracle數(shù)據(jù)庫(kù)中，用戶(hù)還可以使用編輯器編寫(xiě)觸發(fā)器。</p><p>　　⑥增強(qiáng)數(shù)據(jù)窗體向?qū)?，現(xiàn)在用戶(hù)不僅可以構(gòu)造不綁定至數(shù)據(jù)控件的代碼窗體，而且可以使用ADO代碼，該向?qū)б呀?jīng)集成到應(yīng)用程序向?qū)Аhart向?qū)Ш虵lex Grid向?qū)е小?lt;/

27、p><p>　　⑦文件系統(tǒng)對(duì)象，Visual Basic 6.0 提供了改進(jìn)的文件系統(tǒng)中移動(dòng)的程序集，并可創(chuàng)建文本文件和目錄。</p><p>　?、郉ata Grid控件，該控件可幫助用戶(hù)快速構(gòu)造觀察和編輯記錄的程序，它也支持新的ADO數(shù)據(jù)控件。</p><p>　?、峥梢暬瘮?shù)據(jù)庫(kù)工具集成（企業(yè)版）。在Visual Basic 6.0 中用戶(hù)可以可視地創(chuàng)建數(shù)據(jù)庫(kù)和查詢(xún)

28、、SQL服務(wù)器程序、Oracle數(shù)據(jù)庫(kù)表、使用拖放方法創(chuàng)建視圖，以及自動(dòng)改變列數(shù)據(jù)類(lèi)型。</p><p>　　3、Visual Basic 6.0 的版本</p><p>　　目前Visual Basic 6.0有三種版本，各自滿足不同的開(kāi)發(fā)需要。其中：</p><p>　?、賄isual Basic 6.0學(xué)習(xí)版使編程人員可輕松學(xué)習(xí)和設(shè)計(jì)一些基本的應(yīng)用程序。該版本

29、包括所有的內(nèi)部控件，連同Grid、Tab和Data Bound控件。</p><p>　?、赩isual Basic 6.0專(zhuān)業(yè)版為專(zhuān)業(yè)編程人員提供了一套進(jìn)行開(kāi)發(fā)功能完備的工具。該版本包括學(xué)習(xí)版的全部功能連同ActiveX控件，還包括Internet Application Designer（Internet報(bào)務(wù)器應(yīng)用程序設(shè)計(jì)器）、Integrated Visual Database Tools（集成可視化數(shù)據(jù)庫(kù)

30、工具）、Data Environment (數(shù)據(jù)環(huán)境)、ActiveX污染Data Objects（數(shù)據(jù)對(duì)象，簡(jiǎn)稱(chēng)ADO）和Dynamic HTML Page Designer （動(dòng)態(tài)HTML頁(yè)面設(shè)計(jì)器）。</p><p>　　③Visual Basic 6.0企業(yè)版使得專(zhuān)業(yè)編程人員能夠開(kāi)發(fā)功能強(qiáng)大的組內(nèi)分布式應(yīng)用程序。該版本包括專(zhuān)業(yè)版的全部功能連同Back Office 工具，如SQL Server Micro

31、soft Transaction Server 、Internet Information 、Visual SourceSafe、SNA Server等。</p><p>　　二、數(shù)據(jù)庫(kù)基礎(chǔ)與Access的應(yīng)用</p><p><b>　　1、數(shù)據(jù)庫(kù)基礎(chǔ)：</b></p><p>　　數(shù)據(jù)庫(kù)一直是計(jì)算機(jī)軟件開(kāi)發(fā)的重要話題。在利用計(jì)算機(jī)輔助辦公的

32、時(shí)代，人們很難不和數(shù)據(jù)庫(kù)打交道，幾乎所有的應(yīng)用程序都離不開(kāi)數(shù)據(jù)的存取操作，而這種存取操作往往是用數(shù)據(jù)庫(kù)來(lái)實(shí)現(xiàn)的。企業(yè)的所有信息和管理方面的應(yīng)用軟件，基本上都是一個(gè)標(biāo)準(zhǔn)的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。</p><p>　　1）數(shù)據(jù)庫(kù)的概念和術(shù)語(yǔ)</p><p>　　在使用計(jì)算機(jī)處理商業(yè)數(shù)據(jù)信息以前，人們將數(shù)據(jù)分類(lèi)保存在一個(gè)表格中，然后按照表格的分類(lèi)將所有的表格存放在不同的文件中，而不同的文件夾又按其分類(lèi)存

33、放在不同的文件框中；在維護(hù)此類(lèi)文檔的工作人員的桌面上有一大堆預(yù)先打印好的空白表格，以便隨時(shí)建立新的表格并在更新內(nèi)容后取代舊表格，因?yàn)樗械男畔⒕谴娣旁诩垙埳?，而信息的存取和更新等操作均在紙張上進(jìn)行，所以有人把計(jì)算機(jī)數(shù)據(jù)庫(kù)出現(xiàn)之前的時(shí)期稱(chēng)為“紙上辦公時(shí)代”。從某種意義上來(lái)說(shuō)，數(shù)據(jù)庫(kù)技術(shù)是一場(chǎng)信息技術(shù)的革命。然而最早的數(shù)據(jù)庫(kù)結(jié)構(gòu)是非常簡(jiǎn)單的。其組織方式和傳統(tǒng)的信息管理方式相當(dāng)，都有是以二維表的方式來(lái)存放數(shù)據(jù)，其管理方法也比較落后。數(shù)據(jù)庫(kù)最

34、基本的術(shù)語(yǔ)有字段（Field）、記錄（Record）和表（Table）。</p><p>　　2）關(guān)系數(shù)據(jù)庫(kù)的概念和優(yōu)點(diǎn)：</p><p>　　關(guān)系數(shù)據(jù)庫(kù)的概念是很早就提出來(lái)的概念，并以其強(qiáng)大的優(yōu)勢(shì)在微型計(jì)算機(jī)乃至大型計(jì)算機(jī)等系統(tǒng)上獲得了廣泛的應(yīng)用。目前流行的數(shù)據(jù)庫(kù)管理系統(tǒng)幾乎都是關(guān)系數(shù)據(jù)庫(kù)。所謂關(guān)系數(shù)據(jù)庫(kù)，就是將含有不必要重復(fù)數(shù)據(jù)的復(fù)雜數(shù)據(jù)庫(kù)進(jìn)行標(biāo)準(zhǔn)化，使用若干個(gè)表，在每一個(gè)表中存放僅需

35、要記錄一次的數(shù)據(jù)，然后用關(guān)鍵字段連接或聯(lián)系表格而組成的數(shù)據(jù)庫(kù)就稱(chēng)為關(guān)系數(shù)據(jù)庫(kù)。使用關(guān)系數(shù)據(jù)庫(kù)的好處在于可以避免數(shù)據(jù)不必要的重復(fù)。為了避免數(shù)據(jù)的重復(fù)，可以將包含重復(fù)數(shù)據(jù)的表拆分成若干個(gè)沒(méi)有重復(fù)數(shù)據(jù)的表，從而將重復(fù)數(shù)據(jù)分離出來(lái)，存放在單獨(dú)的表中，這就是數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)化，也就是將復(fù)雜數(shù)據(jù)分解到幾個(gè)簡(jiǎn)單的表中，并通過(guò)建立表與表之間的關(guān)系，檢索另一個(gè)表中的關(guān)系記錄中的數(shù)據(jù)；在表與表之間的關(guān)系中，習(xí)慣上稱(chēng)主表為“父表”，通過(guò)關(guān)系連接的其它表就稱(chēng)為“子

36、表“。在關(guān)系數(shù)據(jù)庫(kù)中常用的關(guān)系有：①一對(duì)一關(guān)系②多對(duì)一關(guān)系③一對(duì)多關(guān)系④多對(duì)多關(guān)系。常用的術(shù)語(yǔ)有：關(guān)系、主關(guān)鍵字、外部關(guān)鍵字以及索引。</p><p>　　3）Microsoft Access2003簡(jiǎn)介：</p><p>　　Access是Microsoft公司的一個(gè)成功的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品。其核心是Microsoft Jet數(shù)據(jù)庫(kù)引擎。早期的Access 2.0在辦公自動(dòng)化中獲得了廣

37、泛的應(yīng)用，后續(xù)版本的功能得到了不斷提高，它與Microsoft Office 套件緊密結(jié)合，使之得到越來(lái)越廣泛的應(yīng)用。Access 本身是一個(gè)可視化的數(shù)據(jù)庫(kù)管理系統(tǒng)，它提供了很多非常實(shí)用的向?qū)В鯇W(xué)者很容易學(xué)會(huì)如何用Access建立數(shù)據(jù)庫(kù)的各種對(duì)象，如創(chuàng)建表、查詢(xún)和報(bào)表，也可創(chuàng)建數(shù)據(jù)窗體等。Access使用內(nèi)嵌Visual Basic語(yǔ)言作為開(kāi)發(fā)工具，完全面向?qū)ο缶幊蹋梢钥梢暬鬲?dú)創(chuàng)數(shù)據(jù)庫(kù)應(yīng)用于程序。Access的數(shù)據(jù)庫(kù)和傳統(tǒng)的桌面數(shù)

38、據(jù)庫(kù)幾乎沒(méi)有什么不同，但它支持網(wǎng)絡(luò)環(huán)境的應(yīng)用，如管理應(yīng)用組和安全性等，所以是一種特殊的桌面數(shù)據(jù)庫(kù)管理系統(tǒng)，很多人將其列入客戶(hù)機(jī)/服務(wù)器前端，其核心是Microsoft Jet理論系統(tǒng)RDBMS的范疇。Microsoft Access 2003是當(dāng)前最流行的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)之一，它與Visual Basic數(shù)據(jù)庫(kù)一樣，基本的核心是Microsoft Jet數(shù)據(jù)庫(kù)引擎，數(shù)據(jù)庫(kù)的訪問(wèn)和編程與Vis</p><p>

39、　　1.3系統(tǒng)的功能簡(jiǎn)介</p><p>　　本系統(tǒng)主要可以實(shí)現(xiàn)以下的管理功能：用戶(hù)登陸、學(xué)生信息管理、班級(jí)信息管理、課程信息管理等功能。</p><p>　　1.3.1 項(xiàng)目規(guī)劃</p><p>　　學(xué)生學(xué)籍管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序,由用戶(hù)登陸、學(xué)生信息管理、班級(jí)信息管理、課程信息管理等模塊組成,特規(guī)劃如下:</p><p>&l

40、t;b>　　1登陸模塊：</b></p><p>　　該模塊的主要功能是實(shí)現(xiàn)用戶(hù)登陸系統(tǒng)，及用戶(hù)的權(quán)限管理。</p><p>　　2學(xué)生信息管理模塊：</p><p>　　該模塊的主要功能是實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作，包括信息查詢(xún)、信息刪除、信息修改等功能，從而方便學(xué)校管理部門(mén)對(duì)學(xué)生的基本情況的快速查詢(xún)和了解。</p><p

41、>　　3班級(jí)信息管理模塊：</p><p>　　該模塊的功能是實(shí)現(xiàn)對(duì)全校班級(jí)的管理工作，包括：班級(jí)信息修改、班級(jí)信息查詢(xún)、班級(jí)信息刪除等，這三個(gè)功能模塊各自獨(dú)立，完成學(xué)校的全部班級(jí)的管理。</p><p><b>　　4課程信息管理模塊</b></p><p>　　該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門(mén)課程的教材選用情況，方便

42、了學(xué)校教材管理部門(mén)和教務(wù)處的教學(xué)管理人員的工作。</p><p>　　1.4系統(tǒng)開(kāi)發(fā)的目標(biāo)</p><p>　　出于本系統(tǒng)是學(xué)生學(xué)籍管理的一個(gè)綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計(jì)目標(biāo)最終定位于完成以上所述的系統(tǒng)主要功能的基本模型上。</p><p><b>　　第二章 系統(tǒng)分析 </b></p><p><b>　　2.

43、1系統(tǒng)總體分析</b></p><p>　　系統(tǒng)分析包括系統(tǒng)需求分析和系統(tǒng)性能要求兩個(gè)方面。它是整個(gè)系統(tǒng)設(shè)計(jì)的基礎(chǔ)。</p><p>　　2.1.1需求分析是指用戶(hù)對(duì)系統(tǒng)的要求，它為系統(tǒng)設(shè)計(jì)指明了方向。如本系統(tǒng)就要求：</p><p>　　能夠輸入學(xué)生的學(xué)籍信息和對(duì)信息進(jìn)行查詢(xún)、修改、刪除；</p><p>　　能夠?qū)Π嗉?jí)信息進(jìn)行

44、查詢(xún)、修改、刪除；</p><p>　　能夠?qū)φn程課程信息進(jìn)行查詢(xún)、修改、刪除。</p><p>　　2.1.2系統(tǒng)性能是指設(shè)計(jì)出的系統(tǒng)應(yīng)實(shí)現(xiàn)用戶(hù)要求的特性。本系統(tǒng)中的系統(tǒng)性能要求是：</p><p>　　1系統(tǒng)的安全性與可靠性；</p><p><b>　　2系統(tǒng)功能齊全；</b></p><p&g

45、t;　　3系統(tǒng)操作方便，界面美觀；</p><p>　　4系統(tǒng)易于維護(hù)和擴(kuò)充。</p><p>　　系統(tǒng)總體功能1 可以進(jìn)行文本操作；2 添加一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；3 刪除一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；4 修改一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；5 查詢(xún)信息；6 察看信息表。</p><p><b>　　2.2 數(shù)據(jù)流程圖</b></p><p>

46、　　2.3系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)</p><p>　　本信息管理系統(tǒng)是適合學(xué)校使用的學(xué)籍管理系統(tǒng)，是運(yùn)用Visual Basic6.0編寫(xiě)而成的。使用本學(xué)生學(xué)籍管理系統(tǒng)，可以提高學(xué)校的管理水平。學(xué)校辦公效率可以有很大的提高，為學(xué)校的信息管理提供了一個(gè)良好的工具，減化了繁瑣的工作模式，從而使學(xué)校的管理更加合理化和科學(xué)化。本系統(tǒng)軟件，能幫助教研人員利用計(jì)算機(jī)，快速方便的對(duì)學(xué)生學(xué)籍管理進(jìn)行管理， 輸入、輸出、查找的所需操作，

47、使散亂的人事檔案能夠具體化，直觀化、合理化。 本軟件適用于教育界，對(duì)學(xué)生的學(xué)籍可以隨時(shí)輸入、輸出、查找、修改。本系統(tǒng)是一個(gè)復(fù)雜的信息系統(tǒng)，包含了信息錄入、信息查詢(xún)、信息修改等功能，能滿足學(xué)校學(xué)生管理工作方面的基本要求。該系統(tǒng)主要包括學(xué)生信息、班級(jí)信息、課程信息等方面的信息管理，操作方便，適合廣大中、小學(xué)及其他中、小規(guī)模的學(xué)校使用。是一個(gè)獨(dú)立運(yùn)行的信息管理系統(tǒng)。</p><p><b>　　2.3 系統(tǒng)層

48、次圖</b></p><p><b>　　第三章 系統(tǒng)設(shè)計(jì)</b></p><p>　　3.1軟件模塊結(jié)構(gòu)設(shè)計(jì)</p><p>　　3.1.1系統(tǒng)方案確定</p><p>　　通過(guò)對(duì)系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：系統(tǒng)登錄、班級(jí)信息管理、學(xué)生信息管理、課程信息管理等功能。</p>&l

49、t;p>　　3.1.2軟件結(jié)構(gòu)設(shè)計(jì)</p><p>　　本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來(lái)進(jìn)行相應(yīng)的操作，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢(xún)或?yàn)g覽等操作；總體來(lái)說(shuō)，本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)</p><p><b>　　3.2 數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　本系統(tǒng)數(shù)據(jù)庫(kù)采用了Microsoft推出的Access 20

50、03數(shù)據(jù)庫(kù)，這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫(kù)，能夠快速方便的和Office的其他套件綜合使用。由于Access 2003具有顯著的簡(jiǎn)易性和有效性，大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用Access 2003作為后臺(tái)數(shù)據(jù)庫(kù)。使用Access 2003的好處還在于，如果你的系統(tǒng)擴(kuò)展到Client/Server模式的時(shí)候，可以使用Microsoft的數(shù)據(jù)庫(kù)服務(wù)器軟件SQL Server，此時(shí)，程序只需要簡(jiǎn)單的修改一下鏈接（ADO的數(shù)據(jù)源）就可

51、以，這樣，為程序的平滑擴(kuò)展提供了非常有利的條件。</p><p>　　3.2.1本系統(tǒng)中所涉及到的主要實(shí)體共有四個(gè)數(shù)據(jù)表：</p><p>　　學(xué)生信息表{學(xué)號(hào)、姓名、性別、年齡、班號(hào)}</p><p>　　班級(jí)信息表{班號(hào)、年級(jí)、班主任、教室}</p><p>　　課程信息表{課程編號(hào)、課程名稱(chēng)、授課老師}</p><p

52、>　　用戶(hù)信息表{用戶(hù)名、用戶(hù)密碼、用戶(hù)注釋}</p><p>　　3.2.2 各數(shù)據(jù)表信息如下：</p><p><b>　　班級(jí)信息表：</b></p><p><b>　　學(xué)生信息表：</b></p><p><b>　　課程信息表：</b></p>

53、<p><b>　　用戶(hù)信息表：</b></p><p>　　3.2.3數(shù)據(jù)庫(kù)信息</p><p>　　第四章 系統(tǒng)功能的具體實(shí)現(xiàn)</p><p>　　根據(jù)上幾章的分析我們對(duì)系統(tǒng)有了深刻的了解，系統(tǒng)開(kāi)發(fā)進(jìn)入第二個(gè)階段：詳細(xì)設(shè)計(jì)。在這一階段的工作中，主要任務(wù)有以下幾項(xiàng)：</p><p>　　1、根據(jù)原型化的開(kāi)發(fā)原

54、則，為系統(tǒng)的每個(gè)模塊功能進(jìn)行界面設(shè)計(jì)，作為進(jìn)一步優(yōu)化的基礎(chǔ)。</p><p>　　2、通過(guò)系統(tǒng)的流程分析，為模塊的細(xì)化做好準(zhǔn)備。</p><p>　　3、對(duì)每個(gè)模塊進(jìn)行詳細(xì)的算法設(shè)計(jì)。</p><p>　　4.1數(shù)據(jù)庫(kù)與VB的連接</p><p>　　本系統(tǒng)的數(shù)據(jù)鏈接采用的是ADO方法，打開(kāi)控制面板，打開(kāi)ODBC數(shù)據(jù)源圖標(biāo)，選擇“系統(tǒng)DSN”

55、標(biāo)簽，點(diǎn)擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對(duì)話框中選擇名稱(chēng)為“Microsoft Access 2003 Drive（*.mdb）”，點(diǎn)擊“完成”按鈕，在ODBC Microsoft Access 2003安裝對(duì)話框在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫(kù)這個(gè)框中， 單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫(kù)這一對(duì)話框架中，在驅(qū)動(dòng)器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫(kù)所在驅(qū)動(dòng)器，在目錄中選擇庫(kù)所在的文件夾，在文件類(lèi)型中選擇選“Access數(shù)據(jù)庫(kù)（*.md

56、b）”，在數(shù)據(jù)庫(kù)名中選擇本系統(tǒng)的數(shù)據(jù)庫(kù)，點(diǎn)擊“確定”按鈕即完成數(shù)據(jù)鏈接。</p><p>　　在VB中，用ADODC鏈接數(shù)據(jù)庫(kù)，用Data Grid或DATA將庫(kù)中的數(shù)據(jù)在界面中顯示出來(lái)，本系統(tǒng)采用Data Grid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬性，在屬性對(duì)話框中，在“屬性”這一標(biāo)簽中， 選中單選框“Use ODBC Data Source Name”，并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)

57、源名信息，再在“RecordSoure”標(biāo)簽中，在Command Text（SQL）文本框中輸入查詢(xún)語(yǔ)句，如：select * from 學(xué)生檔案。同時(shí)，將桌面的Data Grid控件選中，在屬性框中，將它的DataSoure設(shè)為Adodc。</p><p>　　我們可以設(shè)置Data Grid控件的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對(duì)話框中單擊“確定”，這時(shí)，表格中出現(xiàn)了表的字段

58、。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進(jìn)行調(diào)整。</p><p>　　4.2 系統(tǒng)模塊的設(shè)計(jì)</p><p><b>　　本系統(tǒng)共包括：</b></p><p><b>　　歡迎界面</b></p><p><b>　　登陸界面</b>&

59、lt;/p><p>　　主界面（學(xué)生信息管理界面、班級(jí)信息管理界面、課程信息管理界面）</p><p>　　學(xué)生信息管理界面（查詢(xún)界面、修改界面、刪除界面）</p><p>　　班級(jí)信息管理界面（查詢(xún)界面、修改界面、刪除界面）</p><p>　　課程信息管理界面（查詢(xún)界面、修改界面、刪除界面）</p><p>　　4.2

60、.1 歡迎界面（如圖4-1所示）</p><p>　　本界面是一個(gè)顯示歡迎界面沒(méi)有具體的功能，主要是為了美化系統(tǒng)而設(shè)置了這個(gè)界面，在設(shè)計(jì)時(shí)我將它設(shè)計(jì)為點(diǎn)擊下鼠標(biāo)進(jìn)入到下一界面。</p><p><b>　　（圖4-1）</b></p><p><b>　　下面為其代碼：</b></p><p>　　

61、Public dl As Integer '定義引出form2的條件</p><p>　　Private Sub Form Click ()</p><p>　　Form2.Show</p><p>　　Unload Form1</p><p><b>　　End Sub</b></p><p

62、>　　Private Sub Form Load ()</p><p><b>　　dl = 0.1</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer ()</p><p>　　If dl = 0.1 Then&l

63、t;/p><p>　　Form2.Show</p><p><b>　　End If</b></p><p><b>　　dl = 0</b></p><p><b>　　End Sub</b></p><p><b>　　關(guān)鍵介紹：</b&

64、gt;</p><p>　　通過(guò)增加一個(gè)timer控件實(shí)現(xiàn)了單擊鼠標(biāo)進(jìn)入下一界面。</p><p>　　4.2.2 登陸界面（如圖4-2所示）</p><p>　　本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶(hù)名和密碼保存在用戶(hù)信息表中，本系統(tǒng)根據(jù)不同的用戶(hù)而設(shè)置了不同的權(quán)限，可以用admin這個(gè)默認(rèn)賬號(hào)來(lái)登陸本系統(tǒng)。</p><p&g

65、t;<b>　　（圖4-2） </b></p><p><b>　　其代碼如下：</b></p><p>　　Dim conn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim rs1 As

66、New ADODB.Recordset</p><p>　　Private Sub Command1_Click ()</p><p>　　rs.LockType = adLockOptimistic</p><p>　　rs.CursorType = adOpenKeyset</p><p>　　rs1.LockType = adLockO

67、ptimistic</p><p>　　rs1.CursorType = adOpenKeyset</p><p>　　conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App. Path & "\學(xué)生學(xué)籍管理.mdb;"</p&g

68、t;<p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入用戶(hù)名！", vbOKOnly, "提示"</p><p><b>　　Else</b></p><p>　　If Text2.Text = ""

69、 Then</p><p>　　MsgBox "請(qǐng)輸入密碼！", vbOKOnly, "提示"</p><p><b>　　Else</b></p><p><b>　　conn.Open</b></p><p>　　rs.Open "SELECT

70、* FROM 用戶(hù)信息表 where 用戶(hù)名='" & Text1.Text & "' ", conn</p><p>　　If rs.RecordCount = 0 Then</p><p>　　MsgBox "用戶(hù)名或密碼錯(cuò)誤！", vbOKOnly + vbInformation, "注意&q

71、uot;</p><p><b>　　rs.Close</b></p><p>　　conn.Close</p><p><b>　　Else</b></p><p>　　rs1.Open "select * from 用戶(hù)信息表 where 用戶(hù)密碼='" &

72、Text2.Text & "' ", conn</p><p>　　If rs1.RecordCount = 0 Then</p><p>　　MsgBox "密碼錯(cuò)誤！", vbOKOnly + vbInformation, "注意"</p><p><b>　　rs1.Clos

73、e</b></p><p>　　conn.Close</p><p><b>　　Else</b></p><p>　　Text2.Text = ""</p><p>　　Unload Form1</p><p>　　Unload Form2</p>

74、<p><b>　　主界面.Show</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If

75、</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click ()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><

76、;p>　　Private Sub Form Load ()</p><p><b>　　End Sub</b></p><p><b>　　關(guān)鍵介紹：</b></p><p>　　通過(guò)ADO控件連接到數(shù)據(jù)庫(kù)中的用戶(hù)信息表，通過(guò)IF語(yǔ)句實(shí)現(xiàn)用戶(hù)名與密碼的核對(duì)，使得用戶(hù)權(quán)限得到了管理。</p><p&

77、gt;　　4.2.3 主界面（如圖4-3所示）</p><p>　　本界面是系統(tǒng)的主界面，在本界面上集成了本系統(tǒng)的所有功能，共有4個(gè)功能菜單和10個(gè)子菜單（功能模塊），從而實(shí)現(xiàn)了本系統(tǒng)班級(jí)信息管理、課程信息管理、學(xué)生信息管理等的具體功能，同時(shí)，在該模塊中可以對(duì)本系統(tǒng)中的所有學(xué)生信息、班級(jí)信息、課程信息進(jìn)行瀏覽或者可以退出系統(tǒng)。</p><p><b>　?。▓D4-3）</b

78、></p><p><b>　　其代碼如下：</b></p><p>　　Private Sub Command1_Click ()</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p><b>　　End Sub</b></p>

79、<p>　　Private Sub Command2_Click ()</p><p>　　Set DataGrid1.DataSource = Adodc2</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click ()</p><p>　

80、　Set DataGrid1.DataSource = Adodc3</p><p><b>　　End Sub</b></p><p>　　Private Sub cxbjxx_Click ()</p><p>　　Form6.Show</p><p><b>　　End Sub</b></

81、p><p>　　Private Sub cxkcxx_Click ()</p><p>　　Form9.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cxxsxx_Click ()</p><p>　　Form3.Show</p>

82、<p><b>　　End Sub</b></p><p>　　Private Sub Form Load ()</p><p>　　Form1.Hide</p><p>　　Form2.Hide</p><p><b>　　End Sub</b></p><p&g

83、t;　　Private Sub Frame1_DragDrop (Source As Control, X As Single, Y As Single)</p><p><b>　　End Sub</b></p><p>　　Private Sub scbjxx_Click ()</p><p>　　Form8.Show</p>

84、<p><b>　　End Sub</b></p><p>　　Private Sub sckcxx_Click ()</p><p>　　Form11.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub scxsxx_Click (

85、)</p><p>　　Form5.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub tc_Click ()</p><p><b>　　End</b></p><p><b>　　End Sub</b&

86、gt;</p><p>　　Private Sub xgbjxx_Click ()</p><p>　　Form7.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xgkcxx_Click ()</p><p>　　Form10.Show&

87、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub xgxsxx_Click ()</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p><p><b>　　關(guān)鍵介紹：<

88、;/b></p><p>　　通過(guò)菜單編輯器創(chuàng)建了級(jí)聯(lián)菜單，使得菜單欄簡(jiǎn)潔、直觀。通過(guò)ADO與DATAGRID控件實(shí)現(xiàn)了信息的瀏覽。</p><p>　　4.2.4 學(xué)生信息查詢(xún)模塊（如圖4-4所示）</p><p>　　本界面是學(xué)生信息查詢(xún)界面，實(shí)現(xiàn)了輸入姓名后可查詢(xún)?cè)搶W(xué)生的基本信息情況或者返回主界面的功能。</p><p><

89、b>　?。▓D4-4）</b></p><p><b>　　其代碼如下：</b></p><p>　　Private Sub Command1_Click ()</p><p>　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Sou

90、rce=" & App. Path & "\學(xué)生學(xué)籍管理.mdb;"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Dim strSQL As String</p><p>　　strSQL = "select * from 學(xué)生信息表 where 姓名

91、like '%" & Text1.Text & "%'"</p><p>　　Adodc1.RecordSource = strSQL</p><p>　　Adodc1.Refresh</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p

92、>　　DataGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click ()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b

93、></p><p>　　Private Sub Form Load ()</p><p><b>　　End Sub</b></p><p><b>　　關(guān)鍵介紹：</b></p><p>　　通過(guò)Select語(yǔ)句實(shí)現(xiàn)了條件查詢(xún)，通過(guò)ADO與DATAGRID控件連接數(shù)據(jù)庫(kù)將查詢(xún)得到的記錄顯示在

94、DATAGRID控件中。</p><p>　　4.2.5 學(xué)生信息修改模塊（如圖4-5所示）</p><p>　　本界面是學(xué)生信息修改界面，通過(guò)該模塊可以先查詢(xún)學(xué)生信息后再對(duì)學(xué)生的信息進(jìn)行修改并保存到數(shù)據(jù)庫(kù)中或者返回主界面。</p><p><b>　?。▓D4-5）</b></p><p><b>　　其代碼如

95、下：</b></p><p>　　Private Sub Command1_Click ()</p><p>　　Adodc1.Recordset.Update</p><p>　　MsgBox "修改成功！"</p><p><b>　　End Sub</b></p>&l

96、t;p>　　Private Sub Command2_Click ()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click ()</p><p>　　Adodc1.

97、ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App. Path & "\學(xué)生學(xué)籍管理.mdb;"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Dim strSQL As String

98、</p><p>　　strSQL = "select * from 學(xué)生信息表 where 學(xué)號(hào) = '" & Text1.Text & "'"</p><p>　　Adodc1.RecordSource = strSQL</p><p>　　Adodc1.Refresh</p>

99、<p>　　Text1.Text = Adodc1.Recordset.Fields("學(xué)號(hào)")</p><p>　　Text2.Text = Adodc1.Recordset.Fields("姓名")</p><p>　　Text3.Text = Adodc1.Recordset.Fields("性別")</p

100、><p>　　Text4.Text = Adodc1.Recordset.Fields("年齡")</p><p>　　Text5.Text = Adodc1.Recordset.Fields("班號(hào)")</p><p><b>　　End Sub</b></p><p>　　Priv

101、ate Sub Form Load ()</p><p>　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App. Path & "\學(xué)生學(xué)籍管理.mdb;"</p><p>　　Adodc1.CommandType = ad

102、CmdText</p><p>　　Dim strSQL As String</p><p>　　strSQL = "select * from 學(xué)生信息表 "</p><p>　　Adodc1.RecordSource = strSQL</p><p>　　Adodc1.Refresh</p><p&

103、gt;　　Text1.Text = Adodc1.Recordset.Fields("學(xué)號(hào)")</p><p>　　Text2.Text = Adodc1.Recordset.Fields("姓名")</p><p>　　Text3.Text = Adodc1.Recordset.Fields("性別")</p>&

104、lt;p>　　Text4.Text = Adodc1.Recordset.Fields("年齡")</p><p>　　Text5.Text = Adodc1.Recordset.Fields("班號(hào)")</p><p><b>　　End Sub</b></p><p><b>　　關(guān)鍵

105、介紹：</b></p><p>　　通過(guò)Select語(yǔ)句實(shí)現(xiàn)了條件查詢(xún)，通過(guò)ADO控件檢索text文本對(duì)其進(jìn)行了修改。</p><p>　　4.2.6 學(xué)生信息刪除界面（如圖4-6所示）</p><p>　　本界面為學(xué)生信息刪除界面，所有的學(xué)生信息都在下面的控件中顯示了出來(lái)，可以進(jìn)行選擇刪除或者返回主界面。</p><p><

106、;b>　?。▓D4-6）</b></p><p><b>　　其代碼如下：</b></p><p>　　Private Sub Command1_Click ()</p><p>　　hxfyn = MsgBox("是否真的刪除?", 36)</p><p>　　If hxfyn =

107、vbYes Then</p><p><b>　　If </b></p><p>　　Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.Delete</p><p><b>　　End If</b></p><p><b

108、>　　End Sub</b></p><p>　　Private Sub Command2_Click ()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form Load

109、()</p><p><b>　　End Sub</b></p><p><b>　　關(guān)鍵介紹：</b></p><p>　　通過(guò)Select語(yǔ)句實(shí)現(xiàn)了條件查詢(xún)，通過(guò)ADO與DATAGRID控件連接數(shù)據(jù)庫(kù)將查詢(xún)得到的記錄顯示在DATAGRID控件中再使用Delete 語(yǔ)句進(jìn)行了刪除。</p><p>

110、;　　4.2.7 班級(jí)信息查詢(xún)界面（如圖4-7所示）</p><p>　　本界面是班級(jí)信息查詢(xún)界面，實(shí)現(xiàn)了輸入班號(hào)后可查詢(xún)班級(jí)基本信息情況或者返回主界面的功能。</p><p><b>　?。▓D4-7）</b></p><p><b>　　其代碼如下：</b></p><p>　　Private S

111、ub Command1_Click ()</p><p>　　Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App. Path & "\學(xué)生學(xué)籍管理.mdb;"</p><p>　　Adodc1.CommandType = adCm

112、dText</p><p>　　Dim strSQL As String</p><p>　　strSQL = "select * from 班級(jí)信息表 where 班號(hào) like '%" & Text1.Text & "%'"</p><p>　　Adodc1.RecordSource = s

113、trSQL</p><p>　　Adodc1.Refresh</p><p>　　Set DataGrid1.DataSource = Adodc1</p><p>　　DataGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Su

114、b Command2_Click ()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form Load ()</p><p><b>　　End Sub</b></

115、p><p><b>　　關(guān)鍵介紹：</b></p><p>　　通過(guò)Select語(yǔ)句實(shí)現(xiàn)了條件查詢(xún)，通過(guò)ADO與DATAGRID控件連接數(shù)據(jù)庫(kù)將查詢(xún)得到的記錄顯示在DATAGRID控件中。</p><p>　　4.2.8班級(jí)信息修改模塊（如圖4-8所示）</p><p>　　本界面是班級(jí)信息修改界面，通過(guò)該模塊可以先查詢(xún)班級(jí)

116、信息后再對(duì)班級(jí)的信息進(jìn)行修改并保存到數(shù)據(jù)庫(kù)中或者返回主界面。</p><p><b>　?。▓D4-8）</b></p><p><b>　　其代碼如下：</b></p><p>　　Private Sub Command1_Click ()</p><p>　　Adodc1.Recordset.Up

117、date</p><p>　　MsgBox "修改成功！"</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click ()</p><p><b>　　Unload Me</b></p><p

118、><b>　　End Sub</b></p><p>　　Private Sub Command3_Click ()</p><p>　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App. Path & "

119、\學(xué)生學(xué)籍管理.mdb;"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Dim strSQL As String</p><p>　　strSQL = "select * from 班級(jí)信息表 where 年級(jí) = '" & Text1.Text & &q

120、uot;'"</p><p>　　Adodc1.RecordSource = strSQL</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = Adodc1.Recordset.Fields("年級(jí)")</p><p>　　Text2.Text = Adodc1

121、.Recordset.Fields("班主任")</p><p>　　Text3.Text = Adodc1.Recordset.Fields("班號(hào)")</p><p>　　Text4.Text = Adodc1.Recordset.Fields("教室")</p><p><b>　　End

122、Sub</b></p><p>　　Private Sub Form Load ()</p><p>　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App. Path & "\學(xué)生學(xué)籍管理.mdb;"</p

123、><p>　　Adodc1.CommandType = adCmdText</p><p>　　Dim strSQL As String</p><p>　　strSQL = "select * from 班級(jí)信息表 "</p><p>　　Adodc1.RecordSource = strSQL</p><