學籍管理系統(tǒng)數(shù)據(jù)庫課程設計報告

1、<p><b>　　前言</b></p><p>　　學生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學校的決策者和管理者來說都至關重要,所以學生信息管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的

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

3、;　　這次畢業(yè)設計的課題為學生信息管理系統(tǒng)，其主要包含學生基本信息和考試成績。系統(tǒng)能進行學生信息的錄入考試成績登記查詢等功能。 </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關系型數(shù)據(jù)庫的實現(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)具體實現(xiàn) ………………………………………11</p><p>　　3.1 主控模

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

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

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

9、……14</p><p>　　3.4.3 設置對象屬性 ………………………………………15</p><p>　　3.4.4 代碼設計……………………………………………16</p><p>　　3.5 刪除模塊——刪除.frm的設計……………………………16</p><p>　　3.5.1刪除模塊的功能 ……………………………………16<

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

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

12、;　　3.7瀏覽模塊——瀏覽.frm的設計……………………………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 代碼設計 …………………………………………20</p><p>　　3.8 查詢模塊——查詢.frm的設計 …………………………21</p><p>　　3.8.1 查詢模塊的功能 ……………………………………21</p><p>　　3.8.2 建立界面 …………………………………………21</p><p>　　3.8.

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

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

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

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

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

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

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

21、是一個強大的Windows平臺上的開發(fā)工具，從開發(fā)個人或小組使用的小工具，到大型企業(yè)應用系統(tǒng)，甚至遍及全球分布式應用程序，都可在Visual Basic提供的工具中各取所需。Visual Basic之所以在這么廣泛的用途是因為它具有以下特點：</p><p>　　正的面向?qū)ο缶幊?，使開發(fā)人員在維護系統(tǒng)運行時只需修改很小的代碼，同時也加快了系統(tǒng)開發(fā)的速度。</p><p>　　可視化的編程方

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

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

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

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

26、文件便于理解、查找。</p><p>　　可以免于DOS的束縛，自行處理構(gòu)成數(shù)據(jù)庫的個別元素。</p><p>　　具有強大的網(wǎng)絡功能。</p><p>　　使用簡便，用戶無需了解太多的編程語言，就可以輕松地設計和開發(fā)數(shù)據(jù)庫應用程序。</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ù)庫并對其進行各種操作。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增加學生信息</p><p>　　在班級里來新學生時，我們可以利用些功能，增加該學生的信息。</p><p>　　2.1.2刪除學生信息</p><p>　　學生轉(zhuǎn)學或因其他情況終止學業(yè)，取消該生信息。</p><p>　　3.1.

29、3修改學生信息</p><p>　　當學生信息與實際情況不同，可通過此功能來進行修改。</p><p>　　2.1.4瀏覽學生信息</p><p>　　可瀏覽學生信息情況，便于管理者對總體學生信息的了解。</p><p>　　2.1.5根據(jù)輸入條件查詢</p><p>　　應用程序的界面如下圖所示：</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>　　學生信息管理系統(tǒng)</b></p><p>　　增 刪 修 瀏 查 退 </p><p>　　加 除 改 覽 詢出 </p><p>　　模 模 模 模 模模 </p>

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

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

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

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

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

37、3設置對象屬性</p><p><b>　　修改窗體的屬性：</b></p><p>　　Caption改為：學生信息管理系統(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改為：學生信息管理系統(tǒng)</

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

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

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

42、3.2.3代碼設計</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)境設計器，同時也為工程添加了

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

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

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

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

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

48、在命令類型下拉框選擇“2-”，在“表或存儲過程名稱”下拉框中選擇“學生信息”表，退出“屬性頁”對話框。</p><p><b>　　設置其他對象的屬性</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>　　修改標簽組Lable1(0)~ Lable1(9)的屬性：</p><p>　　Caption依次改為學號、姓

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

68、感謝。</p><p><b>　　參考文獻</b></p><p>　　[1] 《Visual Basic 6.0程序設計教程》</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 "密碼錯誤,請重試!"</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("查找 學號為: ", , "*")</p><p>　　If xh <> &quo

87、t;*" Then</p><p>　　Adodc1.Recordset.Find "學號 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.