1、畢業(yè)設(shè)計(jì)（論文）原創(chuàng)性聲明和使用授權(quán)說(shuō)明畢業(yè)設(shè)計(jì)（論文）原創(chuàng)性聲明和使用授權(quán)說(shuō)明原創(chuàng)性聲明原創(chuàng)性聲明本人重承諾：所呈交的畢業(yè)設(shè)計(jì)（論文） ，是我個(gè)人在指導(dǎo)教師的指導(dǎo)下進(jìn)行的研究工作與取得的成果。盡我所知，除文中特別加以標(biāo)注和致的地方外，不包含其他人或組織已經(jīng)發(fā)表或公布過(guò)的研究成果，也不包含我為獲得與其它教育機(jī)構(gòu)的學(xué)位或?qū)W歷而使用過(guò)的材料。對(duì)本研究提供過(guò)幫助和做出過(guò)貢獻(xiàn)的個(gè)人或集體，均已在文中作了明確的說(shuō)明并表示了意。作 者 簽 名：日 期：指導(dǎo)教師簽名： 日期：使用授權(quán)說(shuō)明使用授權(quán)說(shuō)明本人完全了解大學(xué)關(guān)于收集、保存、使用畢業(yè)設(shè)計(jì)（論文）的規(guī)定，即：按照學(xué)校要求提交畢業(yè)設(shè)計(jì)（論文）的印刷本和電子

2、版本；學(xué)校有權(quán)保存畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務(wù)；學(xué)校可以采用影印、縮印、數(shù)字化或其它復(fù)制手段保存論文；在不以贏利為目的前提下，學(xué)校可以公布論文的部分或全部容。作者簽名： 日 期：學(xué)位論文原創(chuàng)性聲明學(xué)位論文原創(chuàng)性聲明本人重聲明：所呈交的論文是本人在導(dǎo)師的指導(dǎo)下獨(dú)立進(jìn)行研究所取得的研究成果。除了文中特別加以標(biāo)注引用的容外，本論文不包含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫(xiě)的成果作品。對(duì)本文的研究做出重要貢獻(xiàn)的個(gè)人和集體，均已在文中以明確方式標(biāo)明。本人完全意識(shí)到本聲明的法律后果由本人承擔(dān)。 . . . 1 / 29作者簽名： 日期： 年 月 日學(xué)位論文使用授權(quán)書(shū)學(xué)位論文使用授

3、權(quán)書(shū)本學(xué)位論文作者完全了解學(xué)校有關(guān)保留、使用學(xué)位論文的規(guī)定，同意學(xué)校保留并向國(guó)家有關(guān)部門(mén)或機(jī)構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱和借閱。本人授權(quán)大學(xué)可以將本學(xué)位論文的全部或部分容編入有關(guān)數(shù)據(jù)庫(kù)進(jìn)行檢索，可以采用影印、縮印或掃描等復(fù)制手段保存和匯編本學(xué)位論文。涉密論文按學(xué)校規(guī)定處理。作者簽名：日期： 年 月 日導(dǎo)師簽名： 日期： 年 月 日目目 錄錄第一章緒論第一章緒論 1 1第二章課題總體介紹第二章課題總體介紹 2 22.1 課題介紹 22.2 主要設(shè)計(jì)功能 3第三章開(kāi)發(fā)方法的選擇第三章開(kāi)發(fā)方法的選擇 3 33.1 開(kāi)發(fā)工具的選擇 33.2 WINDOWS下的 VISUAL BASIC

4、編程環(huán)境介紹 4第四章系統(tǒng)分析第四章系統(tǒng)分析 5 5 . . . 2 / 294.1 系統(tǒng)分析的重要性 54.2 需求分析 64.3 可行性分析 6第五章系統(tǒng)總體規(guī)劃第五章系統(tǒng)總體規(guī)劃 7 75.1 系統(tǒng)功能 75.2 使用 ACCESS2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù) 85.3 數(shù)據(jù)庫(kù)的實(shí)現(xiàn) 95.4 VB 與數(shù)據(jù)庫(kù)的連接方式 12第六章系統(tǒng)詳細(xì)設(shè)計(jì)第六章系統(tǒng)詳細(xì)設(shè)計(jì) 12126.1 系統(tǒng)的特點(diǎn) 126.2 系統(tǒng)子模塊功能概括 126.3 用戶(hù)界面的實(shí)現(xiàn) 13第七章系統(tǒng)測(cè)試第七章系統(tǒng)測(cè)試 2525第八章結(jié)束語(yǔ)第八章結(jié)束語(yǔ) 2626參考文獻(xiàn)參考文獻(xiàn) 2727第一章第一章 緒緒 論論學(xué)生信息管理系統(tǒng)是

5、一個(gè)教育單位不可缺少的部分,它的容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要,所以學(xué)生信息管理系統(tǒng)設(shè)計(jì)是以能夠?yàn)橛脩?hù)提供充足的信息和快捷的查詢(xún)手段為核心容的。一直以來(lái)人們所使用的傳統(tǒng)的人工管理文件信息的方式實(shí)在是太落后，它存在著許許多多的缺點(diǎn)，效率低、性差的問(wèn)題尤其突出。另外工作量稍微一大,將會(huì)有大量的文件和數(shù)據(jù)需要維護(hù),有些問(wèn)題是人工所無(wú)法解決的。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)應(yīng)用越來(lái)越廣泛,其強(qiáng)大的功能已為人們所深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)，檢索快捷、查找方便、可靠性高、存儲(chǔ)量

6、大、性好、壽命長(zhǎng)、成本低等。這些顯而易見(jiàn)的優(yōu)點(diǎn)能夠極提高學(xué)校管理人員的工作效率，也即提高進(jìn)行學(xué)生信息管理的效率。由于這些原因加之指導(dǎo)老師的睿智指導(dǎo)，選擇這樣一個(gè)學(xué)生信息管理系統(tǒng)的設(shè)計(jì)也就成了必然。 . . . 3 / 29學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以與前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。經(jīng)過(guò)分析，我們使用MICROSOFT 公司的 VISUAL BASIC 開(kāi)發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)

7、據(jù)庫(kù)的智能化對(duì)象，首先在短時(shí)間建立系統(tǒng)應(yīng)用原型，然后，對(duì)初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成用戶(hù)滿(mǎn)意的可行系統(tǒng)。關(guān)鍵字：控件、窗體、域、數(shù)據(jù)庫(kù)。本系統(tǒng)主要包括學(xué)生信息查詢(xún)、教務(wù)信息維護(hù)和學(xué)生選課三部分。其功能主要有：有關(guān)學(xué)籍等信息的輸入，包括輸入學(xué)生基本信息、所在班級(jí)、所學(xué)課程和成績(jī)等。學(xué)生信息的查詢(xún)，包括查詢(xún)學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績(jī)等。學(xué)生信息的修改。班級(jí)管理信息的輸入，包括輸入班級(jí)設(shè)置、年級(jí)信息等。班級(jí)管理信息的查詢(xún)。班級(jí)管理信息的修改。本文論述了在 Microsoft Visual Basic 6.0 可視化開(kāi)發(fā)軟件工具下分析、設(shè)計(jì)、開(kāi)發(fā)，實(shí)現(xiàn)創(chuàng)建了一套行之有

8、效的計(jì)算機(jī)管理學(xué)生的方案。文章中介紹了學(xué)生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析等。系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫(kù)設(shè)計(jì)與代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說(shuō)明了幾個(gè)主要模塊的算法。該系統(tǒng)基本上滿(mǎn)足了用戶(hù)在學(xué)校信息管理方面的需求，用戶(hù)界面友好。此系統(tǒng)更加貼近信息電子化處理，從而降低了人工勞動(dòng)并增加了信息的準(zhǔn)確性。下面我就談?wù)剬W(xué)生信息管理系統(tǒng)的開(kāi)發(fā)過(guò)程中所遇到的問(wèn)題與解決方法。第二章第二章 課題總體介紹課題總體介紹2.12.1 課題介紹課題介紹高校學(xué)生信息的管理是一項(xiàng)既重要又繁瑣的工作。為更好的做好這項(xiàng)工作，提過(guò)工作效率，更好的為學(xué)校的發(fā)展和一線教學(xué)服務(wù)，結(jié)合我校實(shí)際情況，自行研制了一套學(xué)生信

9、息管理系統(tǒng)。由于我國(guó)有些學(xué)校學(xué)生信息的管理水平比較低，只停留在紙介質(zhì)的水準(zhǔn)上，這樣的機(jī)制很明顯地已不能適應(yīng)時(shí)代的發(fā)展要求，它浪費(fèi)了過(guò)多的人力與物力，還存在一些先天缺陷。在信息時(shí)代，這種傳統(tǒng)的管理方法被以計(jì)算機(jī)為基礎(chǔ)的信息管理方法取代已是大勢(shì)所趨。歸納起來(lái)，學(xué)生信息管理系統(tǒng)做到一下功能比較合民意：首先，可以存儲(chǔ)歷屆的學(xué)生信息，安全、高效；其次，系統(tǒng)可操作性強(qiáng)，能夠節(jié)省人力，最好只需一到二名信息錄入員；第三，查找信息速度快、效率高，可以檢索有條件信息；第四，為將來(lái)學(xué)校實(shí)現(xiàn)網(wǎng)絡(luò)化教育做準(zhǔn)備。 . . . 4 / 292.22.2 主要設(shè)計(jì)主要設(shè)計(jì)功能功能本程序需要具備以下功能：1、對(duì)學(xué)生基本信息的添

10、加、修改和刪除等操作；2、可以對(duì)學(xué)生基本信息進(jìn)行查詢(xún)、對(duì)學(xué)生成績(jī)和所學(xué)課程進(jìn)行查詢(xún)等；3、系統(tǒng)管理具體包括添加用戶(hù)、刪除用戶(hù)，修改用戶(hù)信息等。第三章第三章 開(kāi)發(fā)方法的選擇開(kāi)發(fā)方法的選擇本章主要介紹了在程序，系統(tǒng)開(kāi)發(fā)過(guò)程中所用到的軟件和硬件環(huán)境，以與各類(lèi)工具在windows XP 環(huán)境下的安裝與調(diào)試。3.3.1 1 開(kāi)發(fā)工具的選擇開(kāi)發(fā)工具的選擇作為數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)，Visual Basic 是一個(gè)非常理想的選擇，它簡(jiǎn)單易讀懂。數(shù)據(jù)庫(kù)技術(shù)是 MIS 設(shè)計(jì)中的重要支持技術(shù)，在 MIS 開(kāi)發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理也是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品可謂琳瑯滿(mǎn)目，每種產(chǎn)品都具有各自的特點(diǎn)和適用圍，因

11、此，在選擇數(shù)據(jù)庫(kù)前，我慎重考慮了一下，應(yīng)數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)與適用圍，本系統(tǒng)選用了數(shù)據(jù)庫(kù) Access 2000，開(kāi)發(fā)工具當(dāng)然是非 Visual Basic 莫屬了。 . . . 5 / 293.23.2 WindowsWindows 下的下的 VisualVisual BasicBasic 編程環(huán)境介紹編程環(huán)境介紹3.2.13.2.1 VisualVisual BasicBasic 的功能簡(jiǎn)介的功能簡(jiǎn)介1、結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言：Visual Basic 是在 BASIC 語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類(lèi)的邏輯思維方式。Visual Basic 語(yǔ)句簡(jiǎn)單易

12、懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。Visual Basic 是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。在設(shè)計(jì) Visual Basic 程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。2、訪問(wèn)數(shù)據(jù)庫(kù)功能：Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫(kù)

13、，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic 還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如：DATABASE，F(xiàn)oxPro，Paradox 等，這些數(shù)據(jù)庫(kù)格式都可以用 Visual Basic 編輯和處理。3.2.23.2.2 開(kāi)發(fā)工具開(kāi)發(fā)工具 VisualVisual BasicBasic 的使用的使用Visual Basic 應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶(hù)對(duì)象、用戶(hù)事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等，這些對(duì)象和控件中都可在許多程序中重復(fù)使用，使其具有了最廣大意義上的可通用性和擴(kuò)展性。使用 Visual Basic 的菜單

14、編輯器即可建立菜單或者修改已經(jīng)存在的菜單。由于大家對(duì)菜單等的使用已駕輕就熟，現(xiàn)著重對(duì)主要控件的使用作個(gè)介紹：首先，選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“Microsoft Windows Common Controls 6.0” ，然后，在工具箱中增加該控件，即可實(shí)現(xiàn)控件的添加。1.ImageList 控件:ImageList 用于為其他控件提供圖像庫(kù)，屬性定義與數(shù)據(jù)條對(duì)應(yīng)的ImageList 控件名，該控件定義工具條按鈕顯示的圖像。2.Align 控件:定義工具條在窗體中的位置3.ToolTipText 控件:是字符串類(lèi)型，定義控件的提示字符4

15、.Style 控件:定義按鈕外觀。5. HotImangeList 控件:設(shè)置 ImageList 控件名，使控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。6.DisabledImageList 控件:定義工具條按鈕無(wú)效時(shí)顯示的圖像。 . . . 6 / 29第四章第四章 系統(tǒng)分析系統(tǒng)分析系統(tǒng)分析是程序設(shè)計(jì)中的一門(mén)重要課題，在本章中，我們將會(huì)對(duì)學(xué)生信息管理系統(tǒng)的系統(tǒng)需求進(jìn)行分析，分析其可行性與重要性，進(jìn)而對(duì)系統(tǒng)的各個(gè)模塊進(jìn)行分析、設(shè)計(jì)。4.14.1 系統(tǒng)分析的重要性系統(tǒng)分析的重要性在管理信息系統(tǒng)的生命周期中，緊接系統(tǒng)規(guī)劃階段的是系統(tǒng)開(kāi)發(fā)。系統(tǒng)開(kāi)發(fā)階段的目標(biāo)是根據(jù)系統(tǒng)規(guī)劃所確定的系統(tǒng)總體結(jié)構(gòu)方案和項(xiàng)目開(kāi)發(fā)計(jì)

16、劃，按擬定的項(xiàng)目開(kāi)發(fā)出可以運(yùn)行的實(shí)際系統(tǒng)。這是系統(tǒng)建設(shè)工作中任務(wù)最為繁重、耗費(fèi)資源最多的一個(gè)階段，這個(gè)階段又可劃分為系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施三個(gè)小階段，構(gòu)成系統(tǒng)開(kāi)發(fā)生命周期的三個(gè)主要階段。系統(tǒng)分析階段的主要活動(dòng)有：系統(tǒng)初步調(diào)查、可行性研究、系統(tǒng)詳細(xì)調(diào)查、新系統(tǒng)邏輯方案的提出。這是管理信息系統(tǒng)開(kāi)發(fā)的起始階段，也是非常重要的階段。按照結(jié)構(gòu)化方法嚴(yán)格劃分工作階段， “先邏輯、后物理”的原則，系統(tǒng)分析階段的目標(biāo)，就是按系統(tǒng)規(guī)劃所定的某個(gè)開(kāi)發(fā)項(xiàng)目圍，明確系統(tǒng)開(kāi)發(fā)的目標(biāo)和用戶(hù)的信息需求，提出系統(tǒng)的邏輯方案。系統(tǒng)分析在整個(gè)系 . . . 7 / 29統(tǒng)開(kāi)發(fā)過(guò)程中，是要解決“做什么”的問(wèn)題，把要解決哪些問(wèn)

17、題、滿(mǎn)足用戶(hù)哪些具體的信息需求，調(diào)查、分析清楚，從邏輯上，或者說(shuō)從信息處理的功能需求上提出系統(tǒng)的方案，即邏輯模型，為下一階段進(jìn)行物理方案設(shè)計(jì)、解決“怎么做”提供依據(jù)。本階段主要解決用戶(hù)要求做什么，該問(wèn)題值不值得做，是否有可行的解決辦法，以防止花費(fèi)了大量人力、物力、財(cái)力和時(shí)間后，卻發(fā)現(xiàn)問(wèn)題無(wú)解，而造成浪費(fèi)。若有解，且值得做，就應(yīng)該推薦一個(gè)較好的解決方案，并制定一個(gè)初步計(jì)劃。由此，可見(jiàn)系統(tǒng)分析的重要。4.24.2 需求分析需求分析每所高校每年都有大量的學(xué)生入學(xué)，如何對(duì)學(xué)生的信息進(jìn)行有效的管理，這是一件比較復(fù)雜的問(wèn)題。為更好的做好學(xué)生信息管理這項(xiàng)工作，提高工作效率，更好的為學(xué)校的發(fā)展和一線教學(xué)服務(wù)，

18、結(jié)合我校實(shí)際情況，自行研制一套學(xué)生信息管理系統(tǒng)。在我校目前的學(xué)生信息管理中，雖然應(yīng)用了計(jì)算機(jī)進(jìn)行管理，擺脫了全手工的管理方式，但由于沒(méi)有一套統(tǒng)一的方式、方法和軟件系統(tǒng)支持，仍然存在著諸如數(shù)據(jù)分散、不一致、可利用率低等的問(wèn)題，以致影響了工作效率的進(jìn)一步提高。目前我校的校園網(wǎng)絡(luò)已經(jīng)基本建設(shè)完畢，網(wǎng)絡(luò)的應(yīng)用為我校的發(fā)展提供的良好的基礎(chǔ)支持。本系統(tǒng)以后可以進(jìn)一步充分利用這一有利條件，不久的將來(lái)開(kāi)發(fā)一套完全網(wǎng)絡(luò)化的學(xué)生信息管理系統(tǒng)，進(jìn)一步提高工作效率，使之更加便捷。4.34.3 可行性分析可行性分析通過(guò)調(diào)查分析，建立新的學(xué)生信息管理信息系統(tǒng)有其充分的必要性和可能性。可以建立該信息系統(tǒng)的可能性具體包含了它

19、具有經(jīng)濟(jì)可行性、技術(shù)可行性和社會(huì)可行性，新系統(tǒng)能達(dá)到以最小的開(kāi)發(fā)成本取得最佳的經(jīng)濟(jì)效益，開(kāi)發(fā)中所需人員、硬軟件支持以與其它費(fèi)用進(jìn)行估算情況均滿(mǎn)意，技術(shù)條件也能保證順利完成開(kāi)發(fā)工作。最終認(rèn)為該系統(tǒng)完全可行，并根據(jù)其特點(diǎn)決定采用 VB6.0 作為開(kāi)發(fā)工具。 . . . 8 / 29第五章第五章 系統(tǒng)總體規(guī)劃系統(tǒng)總體規(guī)劃5.15.1 系統(tǒng)功能系統(tǒng)功能學(xué)生管理系統(tǒng)是一個(gè)交互式查詢(xún)系統(tǒng)，利用該系統(tǒng)學(xué)生作為只讀用戶(hù)可以查詢(xún)自己的信息，修改自己個(gè)人信息如進(jìn)入系統(tǒng)的口令；學(xué)校教師作為普通用戶(hù)則可以錄入自己學(xué)生的基本信息等，當(dāng)然條件是在系統(tǒng)允許的情況下；查詢(xún)所教科目的學(xué)生成績(jī)，修改系統(tǒng)口令。系統(tǒng)管理員用戶(hù)作為超

20、級(jí)用戶(hù)可管理所有用戶(hù)的權(quán)限。1.系統(tǒng)管理：此項(xiàng)功能權(quán)限僅限于超級(jí)用戶(hù)即系統(tǒng)管理員，實(shí)現(xiàn)的功能有：用戶(hù)注冊(cè)，角色定義，權(quán)限分配，用戶(hù)信息維護(hù)等。普通用戶(hù)的不擁有這些權(quán)限。 . . . 9 / 292.數(shù)據(jù)編輯：此項(xiàng)權(quán)限由超級(jí)用戶(hù)和給予權(quán)限的普通用戶(hù)享有。由于歸于系統(tǒng)用戶(hù)的疇，因此，所進(jìn)行的操作是對(duì)原始數(shù)據(jù)庫(kù)的編輯，選中數(shù)據(jù)庫(kù)中的某一表便可以進(jìn)行數(shù)據(jù)編輯，當(dāng)然，修改時(shí)一定要慎之又慎，要考慮到數(shù)據(jù)的參照完整性。否則，修改后的數(shù)據(jù)很難得出正確的查詢(xún)結(jié)果。系統(tǒng)功能如圖 5-1 所示：圖 5-1 學(xué)生信息管理系統(tǒng)5.25.2 使用使用 Access2000Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)實(shí)現(xiàn)關(guān)系型數(shù)

21、據(jù)庫(kù)5.2.15.2.1 數(shù)據(jù)庫(kù)的概念數(shù)據(jù)庫(kù)的概念數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息。簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類(lèi)：非關(guān)系型數(shù)據(jù)庫(kù)（flat-file）和關(guān)系型數(shù)據(jù)庫(kù)（relational） 。關(guān)系型數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，如記錄、域等。5.2.25.2.2 新建一個(gè)數(shù)據(jù)庫(kù)新建一個(gè)數(shù)據(jù)庫(kù)創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是要仔細(xì)地規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。其新建過(guò)程包括：1、標(biāo)識(shí)需要的數(shù)據(jù)；2、收集被標(biāo)識(shí)的字段到表中；3、標(biāo)識(shí)主關(guān)鍵字字

22、段；4、繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； . . . 10 / 295、規(guī)數(shù)據(jù)；6、標(biāo)識(shí)指定字段的信息；7、創(chuàng)建物理表。5.2.35.2.3 修改已建的數(shù)據(jù)庫(kù)修改已建的數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來(lái)完成。5.2.45.2.4 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系數(shù)據(jù)庫(kù)之間的關(guān)系是指兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)是指一種虛擬的表，這種表是在當(dāng)用戶(hù)要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的形式稱(chēng)為自，這種是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由

23、重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類(lèi)型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類(lèi)型用于描述庫(kù)表示什么以與在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。5.2.55.2.5 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)Access2000 是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢(xún)、存儲(chǔ)和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access 也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，

24、與其他網(wǎng)絡(luò)用戶(hù)共享數(shù)據(jù)庫(kù)。如上所述，Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。5.35.3 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)數(shù)據(jù)庫(kù)的實(shí)現(xiàn)5.3.15.3.1 課程數(shù)據(jù)表課程數(shù)據(jù)表(allkecheng)(allkecheng)該表實(shí)現(xiàn)對(duì)各課程教材的管理。結(jié)構(gòu)如表 5-1 所示：表 5-1 課程數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空課程名稱(chēng)文本20否教材文本30否5.3.25.3.2 成績(jī)數(shù)據(jù)表成績(jī)數(shù)據(jù)表(cj)(cj)高校院系分類(lèi)繁多,容廣泛就一個(gè)專(zhuān)業(yè)而言其學(xué)生學(xué)習(xí)的課程也有 30 多門(mén),那一個(gè)學(xué)院的總共 34 年的課程至少也有幾十門(mén)且有的專(zhuān)

25、業(yè)發(fā)展很快，每年要更新幾門(mén)課程，撤掉若干門(mén)課程因此，如何合理存放每個(gè)畢業(yè)生的各個(gè)學(xué)期的課程成績(jī)就為至關(guān)重要結(jié)構(gòu)如表 5-2 所示：表 5-2 成績(jī)數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空 . . . 11 / 29學(xué)號(hào)文本10否學(xué)期文本100否類(lèi)型文本16否課程名稱(chēng)文本20否分?jǐn)?shù)數(shù)字單精度否5.3.35.3.3 班級(jí)數(shù)據(jù)表班級(jí)數(shù)據(jù)表(class)(class)班級(jí)數(shù)據(jù)庫(kù)將對(duì)信息的管理具體到班級(jí)，在一個(gè)較小的圍實(shí)現(xiàn)對(duì)學(xué)生信息的管理，這對(duì)于學(xué)校管理是具有實(shí)際意義的。這是學(xué)生信息管理中最小圍的管理，已不需要用學(xué)號(hào)作為標(biāo)識(shí)，可對(duì)一些更具體的信息進(jìn)行管理，實(shí)現(xiàn)更細(xì)化的管理。該表就可實(shí)現(xiàn)對(duì)學(xué)生上課信息的管理

26、，例如上課教室等。結(jié)構(gòu)如表 5-3 所示：表 5-3 班級(jí)數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空年級(jí)文本16否班級(jí)文本20否教室文本5否年制文本8否專(zhuān)業(yè)文本16否班主任文本8否備注備注無(wú)否5.3.45.3.4 班級(jí)課程數(shù)據(jù)表班級(jí)課程數(shù)據(jù)表(classkecheng)(classkecheng)該數(shù)據(jù)庫(kù)對(duì)不同年級(jí)、專(zhuān)業(yè)、年制根據(jù)學(xué)期的不同對(duì)每個(gè)學(xué)生的接受的課程進(jìn)行管理。結(jié)構(gòu)如表 5-4 所示：表 5-4 班級(jí)課程數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空年級(jí)文本16否專(zhuān)業(yè)文本12否年制文本8否學(xué)期文本50否課程名稱(chēng)文本20否5.3.55.3.5 交費(fèi)數(shù)據(jù)表交費(fèi)數(shù)據(jù)表(jf)(jf)該數(shù)據(jù)庫(kù)是對(duì)學(xué)生各

27、學(xué)期交費(fèi)信息的管理，由于入學(xué)時(shí)間、專(zhuān)業(yè)、學(xué)期的不同，其交費(fèi)信息也不一樣，故要設(shè)立專(zhuān)門(mén)的表對(duì)其進(jìn)行管理。結(jié)構(gòu)如表 5-5 所示：表 5-5 交費(fèi)數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空學(xué)號(hào)文本5否學(xué)期文本50否交費(fèi)貨幣小數(shù)位數(shù)自動(dòng)否欠費(fèi)貨幣小數(shù)位數(shù)自動(dòng)否 . . . 12 / 29日期日期/時(shí)間自動(dòng)否操作員文本10否5.3.65.3.6 考試類(lèi)型數(shù)據(jù)表考試類(lèi)型數(shù)據(jù)表(kaoshileixing)(kaoshileixing)該表實(shí)現(xiàn)對(duì)各次考試類(lèi)型的管理。結(jié)構(gòu)如表 5-6 所示：表 5-6 考試類(lèi)型數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空類(lèi)型文本10否5.3.75.3.7 學(xué)生基本信息數(shù)據(jù)表學(xué)生基本信

28、息數(shù)據(jù)表(xj)(xj)為方便管理，我們采用學(xué)號(hào)作為唯一的標(biāo)識(shí)。因?yàn)樵趯W(xué)校中每個(gè)學(xué)生都有一個(gè)唯一標(biāo)識(shí)身份的代碼學(xué)號(hào)，用它管理簡(jiǎn)便易行。該表共有學(xué)號(hào)、 、性別、班級(jí)、出生年月、家庭住址、郵政編碼、聯(lián)系、入學(xué)時(shí)間、備注十個(gè)字段，學(xué)號(hào)作為主鍵。結(jié)構(gòu)如表 5-7 所示：表 5-7學(xué)生基本信息數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空學(xué)號(hào)文本5否文本8否性別文本2否班級(jí)文本10否出生年月日期/時(shí)間自動(dòng)否家庭住址文本30否郵政編碼數(shù)字長(zhǎng)整型否聯(lián)系數(shù)字長(zhǎng)整型否入學(xué)時(shí)間日期/時(shí)間自動(dòng)否備注備注無(wú)否5.3.85.3.8 學(xué)費(fèi)數(shù)據(jù)表學(xué)費(fèi)數(shù)據(jù)表(xuefei)(xuefei)該數(shù)據(jù)庫(kù)是對(duì)學(xué)生各學(xué)期交費(fèi)信息的管理，由于入

29、學(xué)時(shí)間、專(zhuān)業(yè)、學(xué)期的不同，其交費(fèi)信息也不一樣，故要設(shè)立專(zhuān)門(mén)的表對(duì)其進(jìn)行管理。結(jié)構(gòu)如表 5-8 所示：表 5-8 學(xué)費(fèi)數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空年級(jí)文本16否專(zhuān)業(yè)文本50否年制文本20否學(xué)期文本40否學(xué)費(fèi)貨幣小數(shù)位數(shù)自動(dòng)否5.3.95.3.9 用戶(hù)名數(shù)據(jù)表用戶(hù)名數(shù)據(jù)表(use)(use)該表主要實(shí)現(xiàn)用戶(hù)注冊(cè)、角色定義、權(quán)限分配和用戶(hù)信息維護(hù)等功能，普通用戶(hù)的是否有效。各字段的含義 Username(用戶(hù)名)、password(密碼)用來(lái)進(jìn)入系統(tǒng)時(shí)輸入，admin(管理員)、readonly(自由訪問(wèn)者)、qx(權(quán)限)根據(jù)不同權(quán)限來(lái)確定可實(shí)現(xiàn)的不同功能，超級(jí)用戶(hù)（管理員）可實(shí)現(xiàn)對(duì)所有功

30、能的訪問(wèn)，普通用戶(hù)其權(quán)限由超級(jí)用戶(hù)來(lái)指定，只讀用戶(hù)只能瀏覽和查詢(xún)，不能修改和添加。結(jié)構(gòu)如表 5-9 所示： . . . 13 / 29表 5-9 用戶(hù)名數(shù)據(jù)表字段名稱(chēng)字段類(lèi)型字段寬度是否可空username文本20否password文本20否Admin文本2否readonly文本2否Qx1文本2否Qx2文本2否Qx3文本2否Qx4文本2否5.45.4 VBVB 與數(shù)據(jù)庫(kù)的連接方式與數(shù)據(jù)庫(kù)的連接方式Visual Basic 提供了與底層數(shù)據(jù)庫(kù)系統(tǒng)緊密的連接。它支持不同的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫(kù)的特長(zhǎng)，生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的應(yīng)用程序。Visual Basic 通過(guò)使用 AD

31、O 的連接方式來(lái)與數(shù)據(jù)庫(kù)進(jìn)行連接。第六章第六章 系統(tǒng)系統(tǒng)詳細(xì)設(shè)計(jì)詳細(xì)設(shè)計(jì)6.16.1 系統(tǒng)的特點(diǎn)系統(tǒng)的特點(diǎn)本系統(tǒng)主要是利用 VB6.0 技術(shù)，結(jié)合學(xué)生信息管理的需要，力求在滿(mǎn)足系統(tǒng)功能需求的基礎(chǔ)上，使程序的運(yùn)行更加快捷高效，并在數(shù)據(jù)查詢(xún)等方面更加貼近使用者的使用習(xí)慣使界面更為友好。在錄入窗口中，實(shí)現(xiàn)了數(shù)據(jù)窗口控件和下拉式數(shù)據(jù)窗口對(duì)象相結(jié)合的方式，既讓程序的操作方便，又讓系統(tǒng)直接與數(shù)據(jù)庫(kù)本身的原始數(shù)據(jù)相交互，保證了所操作數(shù)據(jù)的準(zhǔn)確性；6.26.2 系統(tǒng)子模塊功能概括系統(tǒng)子模塊功能概括該學(xué)生信息管理系統(tǒng)包括系統(tǒng)管理模塊、學(xué)生信息管理模塊。其中學(xué)生信息管理模塊又包括班級(jí)管理模塊、學(xué)生檔案管理模塊、學(xué)

32、生交費(fèi)管理模塊、課程管理模塊、成績(jī)管理模塊。 . . . 14 / 29本系統(tǒng)具有如下功能：系統(tǒng)管理：包括添加用戶(hù)，重新登錄；班級(jí)管理：包括班級(jí)瀏覽，添加班級(jí)，班級(jí)查詢(xún)；學(xué)生檔案管理：包括檔案添加，檔案瀏覽，檔案查詢(xún)；學(xué)生交費(fèi)管理：包括基本學(xué)費(fèi)設(shè)置，學(xué)生交費(fèi)瀏覽，學(xué)生交費(fèi)添加，學(xué)生交費(fèi)查詢(xún)；課程管理：包括基本課程設(shè)置，班級(jí)課程設(shè)置；成績(jī)管理：包括考試類(lèi)型設(shè)置，成績(jī)添加，成績(jī)?yōu)g覽，成績(jī)查詢(xún)；6.36.3 用戶(hù)界面的實(shí)現(xiàn)用戶(hù)界面的實(shí)現(xiàn)6.3.16.3.1 登錄界面登錄界面首先，系統(tǒng)的界面是至關(guān)重要的。它是與用戶(hù)溝通的橋梁，用戶(hù)工作時(shí)要時(shí)時(shí)面對(duì)它，所以界面一定要簡(jiǎn)潔、直觀，操作簡(jiǎn)單。根據(jù)選擇的相應(yīng)用

33、戶(hù)和對(duì)應(yīng)的口令進(jìn)入系統(tǒng)，進(jìn)行相應(yīng)的操作。若密碼錯(cuò)誤，則彈出“密碼錯(cuò)誤”對(duì)話框。效果如圖 6-1 所示：圖 6-1 登錄界面登錄流程如圖 6-2 所示：圖 6-2 登錄流程圖6.3.26.3.2 主界面主界面密碼無(wú)誤，正確登錄后會(huì)看到主界面。效果如圖 6-3 所示： . . . 15 / 29圖 6-3 主界面6.3.36.3.3 系統(tǒng)管理界面系統(tǒng)管理界面點(diǎn)擊系統(tǒng)管理后看到的界面，效果如圖 6-4 所示：圖 6-4 系統(tǒng)管理若是超級(jí)用戶(hù)（管理員）則可以使用添加用戶(hù)功能，在此可以添加用戶(hù)的同時(shí)給用戶(hù)賦予權(quán)限。超級(jí)用戶(hù)是權(quán)限最高的用戶(hù)，他可以享有系統(tǒng)的所有功能。只讀用戶(hù)權(quán)限最低，只可以瀏覽系統(tǒng)的某些

34、容，而不能參與修改。普通用戶(hù)可以根據(jù)超級(jí)用戶(hù)賦予的權(quán)限進(jìn)行權(quán)限欄中的任意一項(xiàng)或多項(xiàng)功能。普通用戶(hù)和只讀用戶(hù)都沒(méi)有添加用戶(hù)功能。作為普通用戶(hù)在進(jìn)行未賦予權(quán)限的功能和只讀用戶(hù)在進(jìn)行“寫(xiě)”操作時(shí)，會(huì)彈出對(duì)話框“對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！” 。效果如圖 6-5 所示： . . . 16 / 29圖 6-5 新增用戶(hù)學(xué)生信息管理部分包括班級(jí)管理、學(xué)生檔案管理、學(xué)生交費(fèi)管理、課程管理、成績(jī)管理。而每一部分都包括對(duì)該部分信息的添加、瀏覽、查詢(xún)、修改、刪除。其實(shí)現(xiàn)過(guò)程是相似的。我們以學(xué)生檔案管理為例，介紹其實(shí)現(xiàn)過(guò)程，可使用下面的程序完成。Private Sub Command1_Clic

35、k()If Trim(Text1(0).Text) = Then MsgBox 用戶(hù)名不能為空！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 確認(rèn)密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1

36、(2).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 確認(rèn)密碼不正確！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus . . . 17 / 29 Exit SubEnd IfDim aa As Integeraa = 0If Option1(2).Value = True Then For i = 0 To 3 If Check1(i).Value = 1 Then aa = 1 Exit For End IfNext iIf aa =

37、 0 Then MsgBox 普通用戶(hù)至少要有一項(xiàng)權(quán)限！, vbExclamation + vbOKOnly, 警告Exit SubEnd IfEnd IfDim mrc As ADODB.Recordsettxtsql = select * from use where username= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = False Then MsgBox 已存在該用戶(hù)！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(

38、0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd Iftxtsql = select * from useSet mrc = ExecuteSQL(txtsql)mrc.AddNew mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text)For i = 0 To 2 If Option1(i).Value = True Then Select Case i . . . 18 / 29 Case 0 mrc.Fields(a

39、dmin) = y Case 1 mrc.Fields(readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 mrc.Fields(qx1) = y Case 1 mrc.Fields(qx2) = y Case 2 mrc.Fields(qx3) = y Case 3 mrc.Fields(qx4) = y End Select End If Next j End Select End If Next i mrc.Update MsgBox 用戶(hù)添加成功！, vbExclama

40、tion + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Option1(2).Value = TrueEnd SubPrivate Sub Form_Resize() . . . 19 / 29Text1(0).SetFocusEnd SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As

41、Single)End SubPrivate Sub Option1_Click(Index As Integer)If Index 2 ThenFor i = 0 To 3 Check1(i).Enabled = FalseNext iElseFor i = 0 To 3 Check1(i).Enabled = TrueNext iEnd IfEnd Sub6.3.46.3.4 學(xué)生檔案管理界面學(xué)生檔案管理界面點(diǎn)擊“學(xué)生檔案管理”后出現(xiàn)如下界面，效果如圖 6-6 所示。圖 6-6 檔案管理界面在學(xué)生信息管理的添加界面中，我們先通過(guò)變量傳遞得到輸入的學(xué)號(hào)，然后進(jìn)行判斷。首先程序先對(duì)輸入的學(xué)號(hào)進(jìn)行

42、判斷，若已存在，則給出提示信息，若不存在，則顯示所要添加的容。輸入學(xué)生信息后，我們將信息加入到數(shù)據(jù)庫(kù)中，而對(duì)于記錄刪除，可以使用下面程序完成：Dim mrc As ADODB.Recordset txtsql1 = select * from xj where 學(xué)號(hào)= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql1)If modi = False Then If mrc.EOF = False Then sss = MsgBox(已經(jīng)存在該學(xué)號(hào)的記錄,學(xué)號(hào)不能重復(fù)！, vbExclamation + vbOKOnly,

43、警告) Text1(0).SetFocus Text1(0).SelStart = 0 . . . 20 / 29 Text1(0).SelLength = Len(Text1(0).Text) mrc.Close Exit Sub End If圖 6-7 入學(xué)登記界面另外，對(duì)于記錄查找，可以使用下面程序來(lái)完成：Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = xj.學(xué)號(hào)= & Trim(Text1(0).Text) & Else txtsql = tx

44、tsql & and xj.學(xué)號(hào)= & Trim(Text1(0).Text) & End IfEnd IfIf Trim(Text1(1).Text) Thenaa = 1 If txtsql = Then txtsql = xj.= & Trim(Text1(1).Text) & . . . 21 / 29 Else txtsql = txtsql & and xj.= & Trim(Text1(1).Text) & End IfEnd IfIf Trim(Text1(2).Text) Then aa = 1 If txtsq

45、l = Then txtsql = xj.班級(jí)= & Trim(Text1(2).Text) & Else txtsql = txtsql & and xj.班級(jí)= & Trim(Text1(2).Text) & End IfEnd IfIf Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = xj. like % & Trim(Text1(3).Text) & %End IfIf aa = 0 Thenss = MsgBox(你至少要輸入一個(gè)條件以上才能查詢(xún)！, , 警告)Text1(0)

46、.SetFocus Exit SubEnd IfDim str As Stringstr = select * from xj where & txtsqlDim mrc As ADODB.RecordsetSet mrc = ExecuteSQL(str)If mrc.EOF = True Thenzzz = MsgBox(對(duì)不起，沒(méi)有此學(xué)生的檔案記錄！, vbOKOnly, 查詢(xún))Form4.ZOrder (0) Form4.Text1(0).SetFocus Exit SubEnd If對(duì)于記錄修改，可以使用下面程序：If Trim(Me.MSF1.TextMatrix(MSF1

47、.Row, 1) = Then . . . 22 / 29 sssss = MsgBox(你還沒(méi)有選擇記錄！, vbOKOnly + vbExclamation, 警告) Exit Sub Else qxstr = Executeqx(2) If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶(hù)不能修改記錄，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If modi = True Form1.Show Form1.ZOrder 0 End If對(duì)于記錄刪除，可以使用下面程序：Dim mrc A

48、s ADODB.Recordset Dim intcount As Integer If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) = Then sssss = MsgBox(你還沒(méi)有選擇記錄！, vbOKOnly + vbExclamation, 警告) Else If qxstr = readonly Then ss = MsgBox(對(duì)不起，你是只讀用戶(hù)不能刪除記錄，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告) Exit Sub End If If MsgBox(確定要?jiǎng)h除學(xué)號(hào)為 & Trim(Me.MSF1.Te

49、xtMatrix(MSF1.Row, 1) & 的記錄嗎？ & Chr(10) & Chr(13) & 該操作會(huì)導(dǎo)致該學(xué)生交費(fèi)記錄和成績(jī)記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intcount = Me.MSF1.Row txtsql = delete * from xj where 學(xué)號(hào)= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql) txtsql = delete * from

50、jf where 學(xué)號(hào)= & . . . 23 / 29Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql) txtsql = delete * from cj where 學(xué)號(hào)= & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql) TreeView1_DblClick End If End If瀏覽界面，在此處可以進(jìn)行查找、修改、刪除和打印工作。效果如圖 6-8 所示：圖 6-8 學(xué)生檔案瀏覽

51、下面為查詢(xún)界面，可在此處進(jìn)行記錄的查詢(xún)。效果如圖 6-9 所示：圖 6-9 學(xué)生檔案查詢(xún)可使用下面程序完成：Private Sub Command1_Click()Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = xj.學(xué)號(hào)= & Trim(Text1(0).Text) & Else txtsql = txtsql & and xj.學(xué)號(hào)= & Trim(Text1(0).Text) & . . . 24 / 29 End IfE

52、nd IfIf Trim(Text1(1).Text) Thenaa = 1 If txtsql = Then txtsql = xj.= & Trim(Text1(1).Text) & Else txtsql = txtsql & and xj.= & Trim(Text1(1).Text) & End IfEnd IfIf Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = xj.班級(jí)= & Trim(Text1(2).Text) & Else txtsql = txts

53、ql & and xj.班級(jí)= & Trim(Text1(2).Text) & End IfEnd IfIf Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = xj. like % & Trim(Text1(3).Text) & %End IfIf aa = 0 Then ss = MsgBox(你至少要輸入一個(gè)條件以上才能查詢(xún)！, , 警告) Text1(0).SetFocus Exit SubEnd IfDim str As Stringstr = select * from xj where &am

54、p; txtsqlDim mrc As ADODB.RecordsetSet mrc = ExecuteSQL(str)If mrc.EOF = True Then zzz = MsgBox(對(duì)不起，沒(méi)有此學(xué)生的檔案記錄！, vbOKOnly, 查詢(xún)) Form4.ZOrder (0) Form4.Text1(0).SetFocus Exit SubEnd Iftxtsql = select xj.學(xué)號(hào),xj.,xj.性別,class.年級(jí),xj.班級(jí),class.專(zhuān)業(yè),class.年制,xj.出生年月,xj.家庭住址,xj.郵政編碼,xj.聯(lián)系,xj.入學(xué)時(shí)間,xj.備注 from xj inner join class on xj.班級(jí)=class.班級(jí) where & txtsql & order by class.年級(jí) desc,class.班級(jí) desc