學(xué)籍管理系統(tǒng)數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告

1、<p><b>　　前言</b></p><p>　　學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的

2、困難。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。 作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對學(xué)生信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。</p><p>

3、;　　這次畢業(yè)設(shè)計(jì)的課題為學(xué)生信息管理系統(tǒng)，其主要包含學(xué)生基本信息和考試成績。系統(tǒng)能進(jìn)行學(xué)生信息的錄入考試成績登記查詢等功能。 </p><p><b>　　目 錄</b></p><p>　　第1章 系統(tǒng)的分析與定義 ……………………………………4</p><p>　　1.1 需求分析 ………………………………………………4</

4、p><p>　　1.2 系統(tǒng)的開發(fā)思路 …………………………………………4</p><p>　　1.2.1編程環(huán)境的選擇 ……………………………………4</p><p>　　1.2.2關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn) ………………………………5</p><p>　　1.2.3 二者的結(jié)合(DBA)……………………………………6</p><

5、;p>　　第2章 系統(tǒng)總體規(guī)劃 ……………………………………7</p><p>　　2.1 系統(tǒng)功能 ………………………………………………7</p><p>　　2.2 數(shù)據(jù)庫建立 …………………………………………… 9</p><p>　　第3章 系統(tǒng)具體實(shí)現(xiàn) ………………………………………11</p><p>　　3.1 主控模

6、塊——MDI窗體的設(shè)計(jì)……………………………11</p><p>　　3.1.1主控模塊功能…………………………………………11</p><p>　　3.1.2 建立界面……………………………………………11</p><p>　　3.1.3 設(shè)置對象屬性 ………………………………………12</p><p>　　3.1.4 代碼設(shè)計(jì) …………

7、………………………………12</p><p>　　3.2登錄對話框——frmLogin.frm的設(shè)計(jì)………………………12</p><p>　　3.2.1 登錄模塊的功能 ……………………………………12</p><p>　　3.2.2 建立界面 …………………………………………12</p><p>　　3.2.3 代碼設(shè)計(jì)……………………

8、………………………13</p><p>　　3.3在工程中添加“數(shù)據(jù)環(huán)境 ………………………………13</p><p>　　3.4 增加模塊——增加.frm的設(shè)計(jì)……………………………14</p><p>　　3.4.1增加模塊的功能 ……………………………………14</p><p>　　3.4.2建立界面 ………………………………………

9、……14</p><p>　　3.4.3 設(shè)置對象屬性 ………………………………………15</p><p>　　3.4.4 代碼設(shè)計(jì)……………………………………………16</p><p>　　3.5 刪除模塊——?jiǎng)h除.frm的設(shè)計(jì)……………………………16</p><p>　　3.5.1刪除模塊的功能 ……………………………………16<

10、;/p><p>　　3.5.2建立界面 …………………………………………16</p><p>　　3.5.3 設(shè)置對象屬性 ………………………………………17</p><p>　　3.5.4代碼設(shè)計(jì) ……………………………………………18</p><p>　　3.6修改模塊——修改.frm的設(shè)計(jì)……………………………18</p>

11、<p>　　3.6.1 修改模塊的功能 ……………………………………18</p><p>　　3.6.2 建立界面 …………………………………………18</p><p>　　3.6.3設(shè)置對象屬性 ………………………………………19</p><p>　　3.6.4 代碼設(shè)計(jì) …………………………………………19</p><p>

12、;　　3.7瀏覽模塊——瀏覽.frm的設(shè)計(jì)……………………………19</p><p>　　3.7.1 瀏覽模塊的功能 ……………………………………19</p><p>　　3.7.2 建立界面 …………………………………………19</p><p>　　3.7.3 修改DataGrid1的屬性………………………………20</p><p>　　

13、3.7.4 代碼設(shè)計(jì) …………………………………………20</p><p>　　3.8 查詢模塊——查詢.frm的設(shè)計(jì) …………………………21</p><p>　　3.8.1 查詢模塊的功能 ……………………………………21</p><p>　　3.8.2 建立界面 …………………………………………21</p><p>　　3.8.

14、3 設(shè)置對象屬性………………………………………22</p><p>　　3.8.4 代碼設(shè)計(jì) ………………………………………22</p><p>　　3.9 程序調(diào)試與異常處理 …………………………………22</p><p>　　結(jié)束語…………………………………………………………23</p><p>　　致謝…………………………………

15、…………………………23</p><p>　　參考文獻(xiàn)………………………………………………………24</p><p>　　附 錄 ………………………………………………………25</p><p><b>　　系統(tǒng)開發(fā)的思路</b></p><p><b>　　1.1 需求分析</b></p&

16、gt;<p>　　“百年大計(jì)，教育為本。”可見教育在國家的建設(shè)與發(fā)展中起著重要的作用，占據(jù)著重要的戰(zhàn)略地位，特別是今年來科學(xué)地位的快速發(fā)展，學(xué)校的教育管理水平不斷地提高，積極地推動(dòng)了我國教育事業(yè)的發(fā)展，計(jì)算機(jī)的引用與普及進(jìn)一步加快了學(xué)校的信息化管理。</p><p>　　在傳統(tǒng)模式下利用人工進(jìn)行學(xué)生信息管理，存在著較多的缺點(diǎn)，如：效率底，保密性差，時(shí)間一長將產(chǎn)生大量的文件和數(shù)據(jù)，更不便于查找，更新，

17、維護(hù)等。諸如這些情況，令學(xué)校管理者對學(xué)生的信息管理帶來了很大困難，嚴(yán)重影響了教育工作者的工作效率，針對這些情況，我們可使用日趨成熟的計(jì)算機(jī)技術(shù)來代替?zhèn)鹘y(tǒng)的人工模式，來實(shí)現(xiàn)學(xué)生信息的現(xiàn)代化管理，這一技術(shù)具有手工管理所無法比擬的優(yōu)點(diǎn)，如：檢索迅速，查找方便，可靠性高，存儲(chǔ)量大，保密性好，壽命長，成本底等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率，使我們的學(xué)校在市場經(jīng)濟(jì)的發(fā)展過程中具有一定的競爭優(yōu)勢，也是企業(yè)實(shí)現(xiàn)科學(xué)化，正規(guī)化，現(xiàn)代化的重要條

18、件。</p><p>　　用計(jì)算機(jī)制作的學(xué)生信息化管理系統(tǒng)還可以通過功能強(qiáng)大的Internet網(wǎng)及時(shí)的向?qū)W生的家長傳遞該生在校的最新成績，有助于學(xué)校與家長的信息互動(dòng)，為更好地把握學(xué)校的教育方針起到了一定的促進(jìn)作用！</p><p>　　1.2 系統(tǒng)開發(fā)思路</p><p>　　1.2.1編程環(huán)境的選擇</p><p>　　微軟公司Visual

19、 Basic 6.0是Windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對較好的選擇。</p><p>　　Windows下的 Visual是一種操作方便，使用簡單的新工具。Visual B

20、asic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對象，每一個(gè)對象都具有一些特性和行為（屬性事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對象。使用應(yīng)用程序具有可通用性可擴(kuò)展性和強(qiáng)有力的功能。 Visual Basic應(yīng)用由一個(gè)系列對象組成，包括在函數(shù)菜單結(jié)構(gòu)和數(shù)據(jù)窗口用戶對象用戶事件等等，對象中又包含若干控件如命令按鈕單行編輯器等這些對象和控件都可在許多應(yīng)用中重復(fù)使用。</p><p>　　Visual Basic

21、是一個(gè)強(qiáng)大的Windows平臺(tái)上的開發(fā)工具，從開發(fā)個(gè)人或小組使用的小工具，到大型企業(yè)應(yīng)用系統(tǒng)，甚至遍及全球分布式應(yīng)用程序，都可在Visual Basic提供的工具中各取所需。Visual Basic之所以在這么廣泛的用途是因?yàn)樗哂幸韵绿攸c(diǎn)：</p><p>　　正的面向?qū)ο缶幊蹋归_發(fā)人員在維護(hù)系統(tǒng)運(yùn)行時(shí)只需修改很小的代碼，同時(shí)也加快了系統(tǒng)開發(fā)的速度。</p><p>　　可視化的編程方

22、法，以及向?qū)У墓δ?，使開發(fā)人員幾乎不用加入太多代碼就可以開發(fā)出標(biāo)準(zhǔn)的Windows程序。</p><p>　　數(shù)據(jù)訪問特性允許對Microsoft SQL Server包括和其他企業(yè)數(shù)據(jù)庫在內(nèi)的大部分?jǐn)?shù)據(jù)庫格式建立數(shù)據(jù)庫和前端應(yīng)用程序。</p><p>　　通過ActiveX技術(shù)可使用其他應(yīng)用程序提供的功能，例如Microsoft Word 字處理器，Microsoft Excel電子數(shù)據(jù)

23、表及其他Windows應(yīng)用程序，甚至可以直接使用Visual Basic創(chuàng)建的應(yīng)用程序和對象。</p><p>　　Internet能力強(qiáng)大，使得在應(yīng)用程序容易通過Internet訪問文檔和應(yīng)用程序。</p><p>　　已完成的應(yīng)用程序是真正的.exe文件，供運(yùn)行時(shí)的可自由發(fā)布的動(dòng)態(tài)鏈接庫（DDL）</p><p>　　1.2.2關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)</p&g

24、t;<p>　　Access數(shù)據(jù)庫能匯集各種信息以供查詢存儲(chǔ)和檢索。Access的優(yōu)點(diǎn)在于能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了存儲(chǔ)庫，可以使用數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其它網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫

25、之一。它可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。</p><p>　　Access 具有較多的優(yōu)點(diǎn)：</p><p>　　儲(chǔ)存文件單一，文件單一便于計(jì)算機(jī)硬盤上的文件管理，在其他程序中達(dá)不到這個(gè)效果，這些程序在文件管理上容易造成混亂。</p><p>　　支持Windows 下的長文件名，并且可以在文件名內(nèi)加空格。這樣可以使用敘述性標(biāo)題，使

26、文件便于理解、查找。</p><p>　　可以免于DOS的束縛，自行處理構(gòu)成數(shù)據(jù)庫的個(gè)別元素。</p><p>　　具有強(qiáng)大的網(wǎng)絡(luò)功能。</p><p>　　使用簡便，用戶無需了解太多的編程語言，就可以輕松地設(shè)計(jì)和開發(fā)數(shù)據(jù)庫應(yīng)用程序。</p><p>　　可以處理多種數(shù)據(jù)信息，例如文本文件以及其他一些數(shù)據(jù)庫管理系統(tǒng)的數(shù)據(jù)庫文件。</p&

27、gt;<p>　　1.2.3 二者的結(jié)合（DBA）</p><p>　　微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我是通過它以及來訪問數(shù)據(jù)庫并對其進(jìn)行各種操作。Visual Basic Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。</p><p>　　第2章 系統(tǒng)總體規(guī)劃</p><p>

28、<b>　　2.1系統(tǒng)功能</b></p><p>　　2.1.1增加學(xué)生信息</p><p>　　在班級(jí)里來新學(xué)生時(shí)，我們可以利用些功能，增加該學(xué)生的信息。</p><p>　　2.1.2刪除學(xué)生信息</p><p>　　學(xué)生轉(zhuǎn)學(xué)或因其他情況終止學(xué)業(yè)，取消該生信息。</p><p>　　3.1.

29、3修改學(xué)生信息</p><p>　　當(dāng)學(xué)生信息與實(shí)際情況不同，可通過此功能來進(jìn)行修改。</p><p>　　2.1.4瀏覽學(xué)生信息</p><p>　　可瀏覽學(xué)生信息情況，便于管理者對總體學(xué)生信息的了解。</p><p>　　2.1.5根據(jù)輸入條件查詢</p><p>　　應(yīng)用程序的界面如下圖所示：</p>

30、<p><b>　　查詢操作流程圖:</b></p><p><b>　　N</b></p><p><b>　　Y</b></p><p><b>　　2.2數(shù)據(jù)庫建立</b></p><p>　　根據(jù)對系統(tǒng)功能分析，畫出系統(tǒng)功能模塊結(jié)構(gòu)圖

31、：</p><p><b>　　學(xué)生信息管理系統(tǒng)</b></p><p>　　增 刪 修 瀏 查 退 </p><p>　　加 除 改 覽 詢出 </p><p>　　模 模 模 模 模模 </p>

32、<p>　　塊 塊 塊 塊 塊塊 </p><p><b>　　其結(jié)構(gòu)如下：</b></p><p>　　數(shù)據(jù)表（學(xué)生信息）的結(jié)構(gòu)</p><p>　　使用VB60所提供的“可視化數(shù)據(jù)管理器”建立數(shù)據(jù)庫以及其中的數(shù)據(jù)表。</p><p>　　在VB集成環(huán)境中啟動(dòng)數(shù)據(jù)管理器：

33、單擊“外接程序”菜單下的“可視化數(shù)據(jù)管理器”命令，打開可視化數(shù)據(jù)管理器“VisData”窗口。</p><p>　　選擇“文件”菜單中的“新建”項(xiàng)，在“新建”子菜單中，選擇“Microsoft Access”子菜單中“Version 7.0 MDB”，在創(chuàng)建數(shù)據(jù)庫對框中選擇保存數(shù)據(jù)庫的路徑和庫文件名（XS）后保存。</p><p>　　打開已經(jīng)建立的Access數(shù)據(jù)庫（XS），用鼠標(biāo)右鍵單

34、擊數(shù)據(jù)庫窗口，在快捷菜單中選擇“新建表”，打開“表結(jié)構(gòu)”對話框，輸入表名稱（學(xué)生信息），通過“添加字段”進(jìn)行添加字段，添加完后在“表結(jié)構(gòu)”對話框中單擊“生成表”按鈕生成表。</p><p>　　第3章 系統(tǒng)具體實(shí)現(xiàn)</p><p>　　3.1主控模塊——MDI窗體的設(shè)計(jì)</p><p>　　3.1.1主控模塊功能</p><p>　　用戶登錄

35、系統(tǒng)后，進(jìn)行人機(jī)對話的一個(gè)界面。</p><p>　　3.1.2建立界面</p><p>　　選擇“新建”工程，進(jìn)入窗體設(shè)計(jì)器。首先，在“工程”菜單中選擇“移除Form1.frm”。然后，在“工程”菜單中選擇 “添加MDI窗體“——添加主控窗體MDIForm1.frm。</p><p>　　修改窗體的名稱（Name）屬性為：main。</p><

36、;p>　　在“文件”菜單中，選擇“保存工程”，將新工程保存為“stud.vbp”，然后選擇“保存From1”，將主控窗體保存為“aa.frm”。</p><p>　　在窗體中增加兩個(gè)用作容器的圖片框Picture1和Picture2。在Picture1中增加一個(gè)標(biāo)簽，在Picture2中增加一個(gè)按鈕控件數(shù)組Command1(0)~command1(5)。</p><p>　　3.1.

37、3設(shè)置對象屬性</p><p><b>　　修改窗體的屬性：</b></p><p>　　Caption改為：學(xué)生信息管理系統(tǒng)</p><p>　　修改Picture1的屬性：</p><p>　　Align 改為：1-Align Top</p><p>　　BorderStyle改為：0-Non

38、e</p><p>　　修改Picture2的屬性：1-Align Top</p><p>　　BorderStyle改為：1-Fixed Single</p><p>　　修改 Lable1的屬性：</p><p>　　AutoSize改為：True</p><p>　　Caption改為：學(xué)生信息管理系統(tǒng)</

39、p><p>　　設(shè)置適當(dāng)?shù)?Font屬性。</p><p>　　修改控件數(shù)組Command1(0)~command1(5)的屬性：</p><p>　　Caption依次改為：增加、刪除、修改、瀏覽、查詢、退出</p><p><b>　　3.1.4代碼設(shè)計(jì)</b></p><p><b>

40、　　<見附錄></b></p><p>　　3.2登錄對話框——frmLogin.frm的設(shè)計(jì)</p><p>　　進(jìn)入學(xué)生信息管理系統(tǒng)后，首先應(yīng)進(jìn)行身份檢查——登錄。若口令不正確，立即退出系統(tǒng)。</p><p>　　3.2.1登錄模塊功能</p><p>　　登錄模塊功能是實(shí)現(xiàn)信息管理系統(tǒng)保密性的主要措施，該模塊可以

41、讓信息管理者通過輸入密碼進(jìn)入該系統(tǒng)，對確保學(xué)生信息的安全性有著主要作用。</p><p><b>　　3.2.2建立界面</b></p><p>　　在“工程”菜單中選擇“添加窗體”對話框，新建“登錄對話框”。</p><p><b>　　表結(jié)構(gòu)如下：</b></p><p><b>　　

42、3.2.3代碼設(shè)計(jì)</b></p><p><b>　　〈見附錄〉</b></p><p>　　3.3在工程中添加“數(shù)據(jù)環(huán)境”</p><p>　　在工程中添加“數(shù)據(jù)環(huán)境”的步驟為：</p><p>　　1.在“工程”菜單中，選擇“添加Data Environment”，打開數(shù)據(jù)環(huán)境設(shè)計(jì)器，同時(shí)也為工程添加了

43、一個(gè)數(shù)據(jù)環(huán)境DataEnvironment1。中包含一個(gè)連接對象Connection1。</p><p>　　2.用鼠標(biāo)右鍵單擊“Conection1”對象，在彈出的快捷菜單中選擇“屬性”，打開“數(shù)據(jù)鏈接屬性”對話框。在“提供者”選項(xiàng)卡中，選擇“Microsoft Jet 3.51 OLE DB Provider”。在“連接”選項(xiàng)中選擇所需的數(shù)據(jù)庫路徑和名字（xs），其他設(shè)置不變。測試成功后，回到數(shù)據(jù)環(huán)境設(shè)計(jì)器中

44、。</p><p>　　3.在“Connection1”對象中添加一個(gè)命令對象Command1，打開“Command1屬性”對話框。在“數(shù)據(jù)庫對象”下拉列表框中選擇“表”，在“對象”下拉列表框中選擇“學(xué)生信息”，單擊“確定”按鈕，返回?cái)?shù)據(jù)環(huán)境設(shè)計(jì)器，關(guān)閉“屬性”對話框。</p><p>　　3.4增加模塊——增加.frm的設(shè)計(jì)</p><p>　　3.4.1增加模塊

45、的功能</p><p>　　增加模塊的功能是在添加新的學(xué)生信息時(shí)，利用該模塊進(jìn)行加入該學(xué)生的信息。</p><p><b>　　3.4.2建立界面</b></p><p>　　在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對話框，選擇添加“窗體”。并將新窗體保存為“增加.frm”。</p><p>　　在窗體的下部一

46、個(gè)容器的圖片框Picture1，在其中ADO控件Adodc1和一個(gè)命令按扭控件數(shù)組Command1(0)~ Command1(2)。在窗體中增加一個(gè)標(biāo)簽組Lable1(0)~ Lable1(9)和一個(gè)文本框控件數(shù)組Text1(0)~ Text1(9)。</p><p>　　數(shù)據(jù)表（學(xué)生信息）的結(jié)構(gòu)</p><p>　　3.4.3設(shè)置對象屬性</p><p>　　首先

47、設(shè)置ADO控件Adodc1的屬性。打開ADODC屬性頁，選中“使用連接字符串”進(jìn)入“數(shù)據(jù)鏈接屬性”對話框，在“提供者”選項(xiàng)中，選擇“Microsoft Jet 3.51 OLE DB Provider”。單擊“下一步”按鈕，打開“連接”選項(xiàng)卡。用鼠標(biāo)單擊“選擇或輸入數(shù)據(jù)庫名稱”框右邊的“…按鈕，選擇所需的數(shù)據(jù)庫和名字（），其他設(shè)置不變。</p><p>　　當(dāng)連接成功后，在“屬性頁”對話框中打開“記錄源”選項(xiàng)卡，

48、在命令類型下拉框選擇“2-”，在“表或存儲(chǔ)過程名稱”下拉框中選擇“學(xué)生信息”表，退出“屬性頁”對話框。</p><p><b>　　設(shè)置其他對象的屬性</b></p><p><b>　　修改窗體的屬性：</b></p><p>　　名稱(Name)改為：增加</p><p>　　Caption改為

49、：增加</p><p>　　MaxButton 改為：False</p><p>　　MinButton 改為：False</p><p>　　MDIChild改為：True</p><p>　　修改 Pictrue1的屬性：</p><p>　　Align 改為：2-Align Bottom </p>

50、<p>　　BorderStyle改為：0-None</p><p>　　修改控件數(shù)組Command1(0)~ Command1(2)的屬性：</p><p>　　Caption依次改為增加、確定、取消</p><p>　　修改標(biāo)簽組Lable1(0)~ Lable1(9)的屬性：</p><p>　　Caption依次改為學(xué)號(hào)、姓

51、名、電話、班級(jí)、地址、年齡、數(shù)學(xué)、政治、語文、英語</p><p>　　修改控件數(shù)組Text1(0)~ Text1(9)的屬性：</p><p>　　Datasource改為：Adodc1</p><p>　　DataField依次改為：學(xué)號(hào)、姓名、電話、班級(jí)、地址、年齡、數(shù)學(xué)、政治、語文、英語</p><p><b>　　3.4.

52、4代碼設(shè)計(jì)</b></p><p><b>　　〈見附錄〉</b></p><p>　　3.5刪除模塊——?jiǎng)h除.frm的設(shè)計(jì)</p><p>　　3.5.1刪除模塊的功能</p><p>　　刪除模塊功能是實(shí)現(xiàn)對終止學(xué)業(yè)人員的信息進(jìn)行刪除的操作。</p><p><b>　　

53、3.5.2建立界面</b></p><p>　　在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對話框，選擇添加“窗體”。并將新窗體保存為“刪除.frm”。</p><p>　　在窗體的下部一個(gè)容器的圖片框Picture1，在其中ADO控件Adodc1和一個(gè)命令按扭控件數(shù)組Command1(0)~ Command1(1)。在窗體中增加一個(gè)標(biāo)簽組Lable1(0)~ Lable

54、1(9)和一個(gè)文本框控件數(shù)組Text1(0)~ Text1(9)。</p><p>　　數(shù)據(jù)表（學(xué)生信息）的結(jié)構(gòu)</p><p>　　3.5.3設(shè)置對象屬性</p><p>　　各對象的屬性設(shè)置完與“增加.frm”中各對象的屬性設(shè)置相同，只是控件數(shù)組Command1(0)~ Command1(1)的Caption屬性依次改為：刪除、查找。</p>&l

55、t;p><b>　　3.5.4代碼設(shè)計(jì)</b></p><p><b>　　〈見附錄〉</b></p><p>　　3.6修改模塊——修改.frm的設(shè)計(jì)</p><p>　　3.6.1修改模塊的功能</p><p>　　修改模塊的功能是實(shí)現(xiàn)對學(xué)生信息系統(tǒng)中錯(cuò)誤的信息進(jìn)行糾正的模塊，有效地保證學(xué)

56、生信息管理系統(tǒng)的準(zhǔn)確性。</p><p><b>　　3.6.2建立界面</b></p><p>　　在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對話框，選擇添加“窗體”。并將新窗體保存為“修改.frm”。</p><p>　　在窗體的下部一個(gè)容器的圖片框Picture1，在其中ADO控件Adodc1和一個(gè)命令按扭控件數(shù)組Command1

57、(0)~ Command1(2)。在窗體中增加一個(gè)標(biāo)簽組Lable1(0)~ Lable1(9)和一個(gè)文本框控件數(shù)組Text1(0)~ Text1(9)。</p><p>　　數(shù)據(jù)表（學(xué)生信息）的結(jié)構(gòu)</p><p>　　3.6.3設(shè)置對象屬性</p><p>　　各對象的屬性設(shè)置完與“增加.frm”中各對象的屬性設(shè)置相同，只是控件數(shù)組Command1(0)~ Co

58、mmand1(2)的Caption屬性依次改為：確定、取消、查找。</p><p><b>　　3.6.4代碼設(shè)計(jì)</b></p><p><b>　　〈見附錄〉</b></p><p>　　3.7瀏覽模塊——瀏覽.frm的設(shè)計(jì)</p><p>　　3.7.1瀏覽模塊的功能</p>&

59、lt;p>　　瀏覽模塊功能是實(shí)現(xiàn)全面了解學(xué)生情況。</p><p><b>　　3.7.2建立界面</b></p><p>　　在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對話框，選擇添加“窗體”。并將新窗體保存為“瀏覽.frm”。</p><p>　　在窗體中增加一個(gè)表格控件DataGrid1。</p><p&

60、gt;　　數(shù)據(jù)表（學(xué)生信息）的結(jié)構(gòu)</p><p>　　3.7.3修改DataGrid1的屬性：</p><p>　　DataSource改為：DataEnvironment1</p><p>　　DataMember改為:Command1</p><p>　　然后用鼠標(biāo)右鍵單擊DataGrid1，在彈擊的快捷菜單中選擇“檢索字段”，用新的字

61、段替換現(xiàn)有的表格布局。</p><p><b>　　3.7.4代碼設(shè)計(jì)</b></p><p><b>　　〈見附錄〉</b></p><p>　　3.8查詢模塊——查詢.frm的設(shè)計(jì)</p><p>　　3.8.1查詢模塊的功能</p><p>　　查詢模塊的功能可查詢出所

62、有滿足查詢條件的學(xué)生信息，以便于學(xué)生信息的分類、分級(jí)。</p><p><b>　　3.8.2建立界面</b></p><p>　　在“工程”菜單中選擇“添加窗體”，打開“添加窗體”對話框，選擇添加“窗體”。并將新窗體保存為“查詢.frm”。</p><p>　　在窗體的下部一個(gè)容器的圖片框Picture1，在其中ADO控件Adodc1和一個(gè)命

63、令按扭控件數(shù)組Command1(0)~ Command1(1)。在窗體中增加一個(gè)標(biāo)簽組Lable1(0)~ Lable1(9)和一個(gè)文本框控件數(shù)組Text1(0)~ Text1(9)。</p><p>　　數(shù)據(jù)表（學(xué)生信息）的結(jié)構(gòu)</p><p>　　3.8.3設(shè)置對象屬性：</p><p>　　各對象的屬性設(shè)置完與“增加.frm”中各對象的屬性設(shè)置相同，只是控件數(shù)

64、組Command1(0)~ Command1(1)的Caption屬性依次改為：按學(xué)號(hào)查、按姓名查。</p><p><b>　　3.8.4代碼設(shè)計(jì)</b></p><p><b>　　〈見附錄〉</b></p><p>　　3.9 程序調(diào)試與異常處理</p><p>　　在應(yīng)用程序的設(shè)計(jì)過程中，無

65、論是初學(xué)者還是編程老手，在編寫程序的時(shí)候總避免不了各式各樣錯(cuò)誤的發(fā)生。查找應(yīng)用程序中的錯(cuò)誤并修改程序的過程稱為調(diào)試。VB6.0提供了一組方便的調(diào)試工具，開發(fā)人員可以方便快捷地找到應(yīng)用程序中存在的問題，開發(fā)出滿意的應(yīng)用程序。</p><p>　　為了能夠快速確定錯(cuò)誤的原因，盡快地排除程序邏輯錯(cuò)誤，通常把程序錯(cuò)誤劃分為三種類型：語法錯(cuò)誤,運(yùn)行錯(cuò)誤和邏輯錯(cuò)誤。在本次學(xué)生信息管理系統(tǒng)的程序設(shè)計(jì)中，也發(fā)現(xiàn)了一些錯(cuò)誤，通過查

66、閱參考文獻(xiàn)資料和老師的精心指導(dǎo)，逐一改正了錯(cuò)誤，使程序基本達(dá)到了設(shè)計(jì)意圖和設(shè)計(jì)功能。</p><p><b>　　結(jié)束語</b></p><p>　　經(jīng)過三個(gè)多月的設(shè)計(jì)，學(xué)生信息管理系統(tǒng)基本設(shè)計(jì)完畢。其功能基本符合要求，能夠完成學(xué)生信息的存儲(chǔ)輸入修改查詢等功能。由于畢業(yè)設(shè)計(jì)時(shí)較短，所該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都

67、有進(jìn)一步改善。</p><p><b>　　致謝</b></p><p>　　在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。朱老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神深厚的理論水平都使我收益匪淺。他無論在理論上還是實(shí)踐中，都給與我很大幫助，使得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。另外，同組的同學(xué)同樣給與我不少幫助，這里一并表示

68、感謝。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 《Visual Basic 6.0程序設(shè)計(jì)教程》</p><p>　　[2] 《 Visual Basic 6.0程序員指南》</p><p>　　[3] 《VB6開發(fā)寶典》</p><p>　　[4] 《Visua

69、l Basic 6.0使用指南》</p><p>　　[5] 《Visual Basic 6.0中文控件大全》</p><p>　　[6] 《VB和SQL Server編程指南》</p><p>　　[7] 《Access2000入門與提高》</p><p><b>　　附 錄</b></p><p&

70、gt;<b>　　主窗口代碼：</b></p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　If Forms.Count > 1 Then</p><p>　　Unload Forms(Forms.Count - 1)</p><p>&

71、lt;b>　　End If</b></p><p>　　Select Case Index</p><p><b>　　Case 0</b></p><p><b>　　增加.Show</b></p><p><b>　　Case 1</b></p>

72、;<p><b>　　刪除.Show</b></p><p><b>　　Case 2</b></p><p><b>　　修改.Show</b></p><p><b>　　Case 3</b></p><p><b>　　查詢.

73、Show</b></p><p><b>　　Case 4</b></p><p><b>　　瀏覽.Show</b></p><p><b>　　Case 5</b></p><p><b>　　Unload Me</b></p>

74、<p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　Me.Show</b></p><p>　　frmLogin.Show 1</p>

75、<p>　　DataEnvironment1.Recordsets(1).Open</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)</p><p>　　a = Ms

76、gBox("退出嗎?", vbOKCancel + vbDefaultButton1)</p><p>　　If a = vbOK Then Unload Me Else Cancel = 1</p><p><b>　　End Sub</b></p><p><b>　　對話框代碼：</b></

77、p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "000000" Then</p><p>　　LoginSucceed = Ture</p><p><b>　　Unload Me</b></p><p&g

78、t;<b>　　Else</b></p><p>　　MsgBox "密碼錯(cuò)誤,請重試!"</p><p>　　Me.SetFocus</p><p>　　SendKeys "{Home}+{End}"</p><p><b>　　End If</b><

79、/p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　LoginSucceeded = False</p><p><b>　　Unload Me</b></p><p><b&g

80、t;　　End</b></p><p><b>　　End Sub</b></p><p><b>　　查詢窗口代碼：</b></p><p>　　Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pEr

81、ror As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)</p><p>　　Adodc1.Caption = "record:" & CStr(Adodc1.Recordset.AbsolutePosition)</p><p><

82、;b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　With Adodc1.Recordset</p><p>　　.MoveFirst</p><p><b>　　End With</b></p><p

83、>　　bb = InputBox("查找 姓名為: ", , "*")</p><p>　　With Adodc1.Recordset</p><p>　　.MoveFirst</p><p><b>　　End With</b></p><p>　　If bb <&g

84、t; "*" Then</p><p>　　Adodc1.Recordset.Find "姓名 like '" & bb & "*'"</p><p><b>　　End If</b></p><p><b>　　Exit Sub</b&

85、gt;</p><p><b>　　Error:</b></p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　W

86、ith Adodc1.Recordset</p><p>　　.MoveFirst</p><p><b>　　End With</b></p><p>　　xh = InputBox("查找 學(xué)號(hào)為: ", , "*")</p><p>　　If xh <> &quo

87、t;*" Then</p><p>　　Adodc1.Recordset.Find "學(xué)號(hào) like '" & xh & "*'"</p><p><b>　　End If</b></p><p><b>　　Exit Sub</b><

88、/p><p><b>　　Error:</b></p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　Left

89、 = 0</b></p><p><b>　　Top = 0</b></p><p>　　Me.Height = aa.ScaleHeight</p><p>　　Me.Width = aa.ScaleWidth</p><p><b>　　End Sub</b></p>

90、<p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　source0 = DataEnvironment1.Recordsets(1).Source</p><p>　　activeconnection0 = DataEnvironment1.Recordsets(1).ActiveConnection</p&

91、gt;<p>　　DataEnvironment1.Recordsets(1).Close</p><p>　　DataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3</p><p><b>　　End Sub</b></p><p><b&g

92、t;　　瀏覽窗口代碼:</b></p><p>　　Private Sub Form_Load()</p><p><b>　　Left = 0</b></p><p><b>　　Top = 0</b></p><p>　　Me.Height = aa.ScaleHeight</

93、p><p>　　Me.Width = aa.ScaleWidth</p><p>　　With DataGrid1</p><p><b>　　.Left = 0</b></p><p><b>　　.Top = 0</b></p><p>　　.Height = Me.Scal

94、eHeight</p><p>　　.Width = Me.ScaleWidth</p><p><b>　　End With</b></p><p>　　source0 = DataEnvironment1.Recordsets(1).Source</p><p>　　activeconnection0 = DataE

95、nvironment1.Recordsets(1).ActiveConnection</p><p>　　DataEnvironment1.Recordsets(1).Close</p><p>　　DataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3</p><p><b&g

96、t;　　End Sub</b></p><p><b>　　增加窗口代碼:</b></p><p>　　Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventSt

97、atusEnum, ByVal pRecordset As ADODB.Recordset)</p><p>　　Adodc1.Caption = "record:" & CStr(Adodc1.Recordset.AbsolutePosition)</p><p><b>　　End Sub</b></p><p>

98、;　　Private Sub Command1_Click(Index As Integer)</p><p>　　Select Case Index</p><p><b>　　Case 0</b></p><p>　　Adodc1.Recordset.AddNew</p><p><b>　　Case 1&

99、lt;/b></p><p>　　Adodc1.Recordset.UpdateBatch adAffectAll</p><p>　　With Adodc1.Recordset</p><p>　　.MoveFirst</p><p><b>　　End With</b></p><p>

100、<b>　　Case 2</b></p><p>　　Adodc1.Refresh</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b&g

101、t;　　Left = 0</b></p><p><b>　　Top = 0</b></p><p>　　Me.Height = aa.ScaleHeight</p><p>　　Me.Width = aa.ScaleWidth</p><p>　　Set rec = DataEnvironment1.Rec

102、ordsets(1)</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　source0 = DataEnvironment1.Recordsets(1).Source</p><p>　　act

103、iveconnection0 = DataEnvironment1.Recordsets(1).ActiveConnection</p><p>　　DataEnvironment1.Recordsets(1).Close</p><p>　　DataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3</p

104、><p><b>　　End Sub</b></p><p><b>　　刪除窗口代碼:</b></p><p>　　Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adS

105、tatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)</p><p>　　Adodc1.Caption = "record:" & CStr(Adodc1.Recordset.AbsolutePosition)</p><p><b>　　End Sub</b&g

106、t;</p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　Select Case Index</p><p><b>　　Case 0</b></p><p>　　With Adodc1.Recordset</p><p&g

107、t;<b>　　.Delete</b></p><p><b>　　.MoveNext</b></p><p>　　If .EOF Then .MoveLast</p><p><b>　　End With</b></p><p><b>　　Exit Sub<

108、/b></p><p><b>　　Case 1</b></p><p>　　With Adodc1.Recordset</p><p>　　.MoveFirst</p><p><b>　　End With</b></p><p>　　bb = InputBox(&q

109、uot;查找 姓名為: ", , "*")</p><p>　　If bb <> "*" Then</p><p>　　Adodc1.Recordset.Find "姓名 like '" & bb & "*'"</p><p><

110、;b>　　End If</b></p><p>　　End Select</p><p><b>　　Exit Sub</b></p><p><b>　　Error:</b></p><p>　　MsgBox Err.Description</p><p>

111、;<b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　Left = 0</b></p><p><b>　　Top = 0</b></p><p>　　Me.Height = aa.ScaleHei

112、ght</p><p>　　Me.Width = aa.ScaleWidth</p><p><b>　　end Sub</b></p><p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　source0 = DataEnvironment1.Record

113、sets(1).Source</p><p>　　activeconnection0 = DataEnvironment1.Recordsets(1).ActiveConnection</p><p>　　DataEnvironment1.Recordsets(1).Close</p><p>　　DataEnvironment1.Recordsets(1).Ope

114、n source0, activeconnection0, 3, 3</p><p><b>　　End Sub</b></p><p><b>　　修改窗口代碼:</b></p><p>　　Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReas

115、onEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)</p><p>　　Adodc1.Caption = "record:" & CStr(Adodc1.Recordset.AbsolutePosition)</p&

116、gt;<p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　Select Case Index</p><p><b>　　Case 0</b></p><p>　　

117、On Error GoTo Error</p><p>　　Adodc1.Recordset.UpdateBatch adAffectAll</p><p><b>　　Case 1</b></p><p>　　On Error GoTo Error</p><p>　　Adodc1.Refresh</p>

118、<p><b>　　Case 2</b></p><p>　　bb = InputBox("查找 姓名為: ", , "*")</p><p>　　If bb <> "*" Then</p><p>　　Adodc1.Recordset.Find "姓

119、名 like '" & bb & "*'"</p><p><b>　　End If</b></p><p>　　End Select</p><p><b>　　Exit Sub</b></p><p><b>　　Error

120、:</b></p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　Left = 0</b></p><p&g

121、t;<b>　　Top = 0</b></p><p>　　Me.Height = aa.ScaleHeight</p><p>　　Me.Width = aa.ScaleWidth</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Unloa

122、d(Cancel As Integer)</p><p>　　source0 = DataEnvironment1.Recordsets(1).Source</p><p>　　activeconnection0 = DataEnvironment1.Recordsets(1).ActiveConnection</p><p>　　DataEnvironment1.