《VB程序設(shè)計(jì)》課程設(shè)計(jì)說(shuō)明書(shū)——學(xué)生信息管理系統(tǒng)

《《VB程序設(shè)計(jì)》課程設(shè)計(jì)說(shuō)明書(shū)——學(xué)生信息管理系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《《VB程序設(shè)計(jì)》課程設(shè)計(jì)說(shuō)明書(shū)——學(xué)生信息管理系統(tǒng)（44頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、 畢業(yè)統(tǒng)考 2010—2011學(xué)年第二學(xué)期08級(jí)畢業(yè)統(tǒng)考VB程序設(shè)計(jì)統(tǒng)考作品 《VB程序設(shè)計(jì)》課程設(shè)計(jì)說(shuō)明書(shū)——學(xué)生信息管理系統(tǒng) 專(zhuān) 業(yè)： 08計(jì)算機(jī)應(yīng)用與技術(shù) 班 級(jí): 08計(jì)應(yīng)2班 學(xué) 號(hào)： xxxxxxxxxxxxx班 姓 名： xxx 日 期： 2011-03-20 第1章 系統(tǒng)概述 1.系統(tǒng)概述 本學(xué)生信息管理系統(tǒng)可以說(shuō)是一個(gè)綜合性的學(xué)校學(xué)生管理系統(tǒng)，這它集成了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績(jī)管理

2、系統(tǒng)、學(xué)生檔案管理系統(tǒng)、系統(tǒng)等多種功能，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。 1.1 系統(tǒng)及需求分析 1.1.1 系統(tǒng)需求 通過(guò)調(diào)查,要求系統(tǒng)需要有以下功能: ⑴ 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面; ⑵ 由于該系統(tǒng)的使用對(duì)象多,要求有較好的權(quán)限管理; ⑶ 原始數(shù)據(jù)修改簡(jiǎn)單方便,支持多條件修改 ⑷ 方便的數(shù)據(jù)查詢，支持多條件查詢; ⑸ 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好； ⑹ 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù); 1.1.2可行性分析 （1） 對(duì)象運(yùn)用可行性 由于本系統(tǒng)管理的對(duì)象單一,都是在校學(xué)生，且每個(gè)數(shù)據(jù)內(nèi)容

3、具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過(guò)程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫(kù)管理。且學(xué)校用于學(xué)生管理的微機(jī)都是PIII以上的機(jī)器，在存儲(chǔ)量、速度方面都能滿足數(shù)據(jù)庫(kù)運(yùn)行的要求。 （2）社會(huì)與經(jīng)濟(jì)可行性 利用學(xué)生信息管理系統(tǒng)實(shí)現(xiàn)了無(wú)紙化辦公，提高效率的同時(shí)還保護(hù)了環(huán)境。本來(lái)大量的計(jì)算、數(shù)據(jù)統(tǒng)計(jì)工作需要幾天、甚至一個(gè)月完成的工作，可以在幾個(gè)小時(shí)，最多幾天內(nèi)完成，大量節(jié)省了人力資本。學(xué)生信息管理系統(tǒng)同時(shí)也給老師和學(xué)生帶來(lái)了極大的方便。老師可以將課程安排，第一時(shí)間錄入到系統(tǒng)。學(xué)生也可以第一時(shí)間登錄到該系統(tǒng)，查詢自己本學(xué)期課程安排和考試方式，大大提高了時(shí)間成本。 1.2系統(tǒng)設(shè)計(jì)的背景 本系統(tǒng)的設(shè)計(jì)是在W

4、indows 2000中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開(kāi)發(fā)成功的。數(shù)據(jù)庫(kù)是MIS中的重要支持技術(shù)，在MIS開(kāi)發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫(kù)時(shí)，應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語(yǔ)言介紹如下： Visual Basic語(yǔ)言 Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā)Windows環(huán)境下的種類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專(zhuān)業(yè)開(kāi)發(fā)工具SDK相媲美，而且程序開(kāi)發(fā)人員不

5、必具有C/C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn)(ODBC)等技術(shù)，可以高效、快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 總的來(lái)說(shuō)，Visual Basic具有以下特點(diǎn)： 可視化編程： 用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中

6、修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來(lái)，開(kāi)發(fā)人員不必為界面設(shè)計(jì)而編寫(xiě)大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。 面向?qū)ο蟮某绦蛟O(shè)計(jì) 4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言(C++)不完全相同。在

7、一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。 結(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)單易懂，其編輯器

8、支持彩色代碼，可自動(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)行 事件驅(qū)動(dòng)編程機(jī)制 Visual Basic通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生

9、一個(gè)“單擊“(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。 在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程。這些過(guò)程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。 訪問(wèn)數(shù)據(jù)庫(kù) Visual Basic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯

10、和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。 Visual Basic提供開(kāi)放式數(shù)據(jù)連接，即ODBC功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語(yǔ)言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。 動(dòng)態(tài)數(shù)

11、據(jù)交換(DDE) 利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 對(duì)象的鏈接與嵌入(OLE) 對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文

12、字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。 動(dòng)態(tài)鏈接庫(kù)(DLL) Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到Visual Basic應(yīng)

13、用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。 1.3系統(tǒng)的功能簡(jiǎn)介 本系統(tǒng)主要可以實(shí)現(xiàn)以下的管理功能：班級(jí)管理、學(xué)生檔案管理、課程管理、成績(jī)管理等等。 1.3.1 項(xiàng)目規(guī)劃 學(xué)生信息管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序,由班級(jí)管理、學(xué)生檔案管理、課程管理、成績(jī)管理等模塊組成,特規(guī)劃如下: 1.3.2系統(tǒng)管理模塊(CTRL+O) 該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置,包括添加用戶(快捷鍵：CTRL+A)、重新登錄(快捷鍵：CTRL+F1)。 1.3.3班級(jí)管理

14、模塊（CTRL+P）： 該模塊的功能是實(shí)現(xiàn)對(duì)全校班級(jí)的管理工作，包括：班級(jí)游覽、班級(jí)添加、班級(jí)查詢等，這三個(gè)功能模塊各自獨(dú)立，完成學(xué)校的全部班級(jí)的管理。 1.3.4學(xué)生檔案管理模塊（CTRL+T）： 該模塊的主要功能是實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便學(xué)校管理部門(mén)對(duì)學(xué)校的基本情況的快速查詢和了解。 1.3.5課程管理模塊（CTRL+R）： 該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門(mén)課程的教材選用情況，方便了學(xué)校教材管理部門(mén)和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)計(jì)和班級(jí)課程設(shè)置兩個(gè)模塊。 1.3.6成績(jī)管理模塊（CTR

15、L+F）： 學(xué)校的成績(jī)管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段，本模塊包括考試類(lèi)型設(shè)置，共有期中考試和期未考試兩種類(lèi)型，還設(shè)置了成績(jī)添加、成績(jī)游覽功能模塊。 1.4系統(tǒng)開(kāi)發(fā)的目標(biāo) 出于本系統(tǒng)是學(xué)校學(xué)生管理的一個(gè)綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計(jì)目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。 畢業(yè)統(tǒng)考 第2章 系統(tǒng)分析 2.1系統(tǒng)流程 在用戶啟動(dòng)應(yīng)用程序時(shí)，首先進(jìn)入登陸界面進(jìn)行用戶的身份驗(yàn)證。如果用戶通過(guò)身份驗(yàn)證，系統(tǒng)將根據(jù)用戶的不同級(jí)別分別引導(dǎo)用戶進(jìn)入不同的界面，超級(jí)管理員和老

16、師可進(jìn)入各自的管理界面進(jìn)行操作和查詢，而學(xué)生用戶則只能通過(guò)輸入姓名、學(xué)號(hào)來(lái)查詢自己的信息。 2.2數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖 1、數(shù)據(jù)模型設(shè)計(jì)。首先來(lái)做出學(xué)生成績(jī)管理系統(tǒng)的E-R圖，分析這個(gè)問(wèn)題的實(shí)體，從系統(tǒng)分析可以知道，學(xué)生的成績(jī)是由任課教師按照課程給出的，學(xué)生、課程、教師組成了這個(gè)系統(tǒng)的三個(gè)實(shí)體。 2、再分析三個(gè)實(shí)體之間的聯(lián)系。首先，這三個(gè)實(shí)體不是一個(gè)統(tǒng)一體，學(xué)生成績(jī)與教師沒(méi)有內(nèi)在聯(lián)系，教師必須通過(guò)課程實(shí)體才能與學(xué)生建立聯(lián)系，因而先不考慮。課程與學(xué)生這兩個(gè)實(shí)體是多對(duì)多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門(mén)課程，一門(mén)課程有多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績(jī)是這兩個(gè)實(shí)體“學(xué)生”和“成績(jī)”共有的屬性，應(yīng)填在二者

17、的聯(lián)系“學(xué)習(xí)”邊。因?yàn)槌煽?jī)既不是學(xué)生獨(dú)有的，也不是課程獨(dú)有的；“學(xué)生甲70分”或“英語(yǔ)70分”是不完全的，說(shuō)“學(xué)生甲英語(yǔ)70分”才是正確的，因?yàn)?0分是學(xué)生甲和英語(yǔ)課二者共有的。這個(gè)E-R圖可畫(huà)成下圖。 學(xué)生 n 學(xué)生 成績(jī) 課程 m 課程 成績(jī) 學(xué)習(xí) 學(xué)生成績(jī)管理系統(tǒng)中學(xué)生與課程的E-R圖 教師與課程這兩個(gè)實(shí)體之間，是一對(duì)多聯(lián)系；一位教師可以都多門(mén)課程，而一門(mén)課程對(duì)于學(xué)生成績(jī)來(lái)說(shuō)只能有一位教師(英語(yǔ)、高等數(shù)學(xué)有多位教師教，但對(duì)某個(gè)固定的學(xué)生來(lái)說(shuō)只能有一位教師)。其E-R圖，如下所示。 1 教師 教學(xué) 課程 n 教師

18、課程 教學(xué) 教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖， 就可以設(shè)計(jì)數(shù)據(jù)庫(kù)。下圖為最后的e-r圖。 n 學(xué)生 領(lǐng)導(dǎo) n n 選修 m 1 n 任 課 教 師 課程 程 3 畢業(yè)統(tǒng)考 第3章

19、系統(tǒng)設(shè)計(jì) 3.1軟件模塊結(jié)構(gòu)設(shè)計(jì) 3．1．1系統(tǒng)方案確定 通過(guò)對(duì)系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級(jí)管理、學(xué)生成績(jī)管理、課程管理、成績(jī)管理、系統(tǒng)管理等功能。 3．1．2軟件結(jié)構(gòu)設(shè)計(jì) 班級(jí)管理 接受數(shù)據(jù) 處理中心 檔案管理 課程管理 成績(jī)管理 本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來(lái)進(jìn)行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作；總體來(lái)說(shuō)，本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。 3．2數(shù)據(jù)庫(kù)設(shè)計(jì) 3．2．1 Acess數(shù)據(jù)庫(kù)簡(jiǎn)介 數(shù)據(jù)庫(kù)是有結(jié)構(gòu)的數(shù)據(jù)集合,它與一般的數(shù)據(jù)文件不同，(其中的數(shù)據(jù)是無(wú)結(jié)構(gòu)的

20、)是一串文字或數(shù)字流。數(shù)據(jù)庫(kù)中的數(shù)據(jù)可以是文字、圖象、聲音等。 Microsoft Access是一種關(guān)系式數(shù)據(jù)庫(kù)，關(guān)系式數(shù)據(jù)庫(kù)由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè)字段有一個(gè)字段名，字段名在一個(gè)表中不能重復(fù)。表與表之間可以建立關(guān)系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息。Access數(shù)據(jù)庫(kù)以文件形式保存，文件的擴(kuò)展名是MDB。 　　　　　　　　　　Access 2000 的6種對(duì)象 Access 2000數(shù)據(jù)庫(kù)由六種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、宏和模塊。 　表(Table) ——表是數(shù)據(jù)庫(kù)的基本對(duì)象，是創(chuàng)建其他5種

21、對(duì)象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來(lái)存貯數(shù)據(jù)庫(kù)的數(shù)據(jù)，故又稱數(shù)據(jù)表。 　　查詢(Query)——查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個(gè)表的字段組成新表。 　　窗體(Form)——窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。 　　報(bào)表(Report)——報(bào)表的功能是將數(shù)據(jù)庫(kù)中的數(shù)據(jù)分類(lèi)匯總，然后打印出來(lái)，以便分析。 　　宏(Macro)——宏相當(dāng)于DOS中的批處理，用來(lái)自動(dòng)執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來(lái)十分方便。 　　模塊(Module)——模塊

22、的功能與宏類(lèi)似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫(xiě)程序。模塊使用Visual Basic編程。 　　與Access 以前的版本比較，Access 2000新增了許多功能，字段類(lèi)型增加了OLE對(duì)象和超級(jí)鏈接，特別是與Internet的融合，在數(shù)據(jù)庫(kù)中可以直接鏈接到指定的Web頁(yè)面或網(wǎng)絡(luò)文件，也可以把Web頁(yè)面上的表格導(dǎo)入到數(shù)據(jù)庫(kù)。Access 2000可以方便地利用各種數(shù)據(jù)源，包括dBASE, FoxBase,FoxPro,Excel,Word 等。Access 2000增加了數(shù)據(jù)庫(kù)訪問(wèn)的安全機(jī)制，可對(duì)表一級(jí)設(shè)置訪問(wèn)許可權(quán)。Access 2000還可以方便地利用Fox

23、Pro數(shù)據(jù)庫(kù)、Excel電子表格的數(shù)據(jù)，還可以和Word混合使用，打印通用信函或信封。 本次數(shù)據(jù)庫(kù)采用了Microsoft推出的Access數(shù)據(jù)庫(kù)，能夠快速方便的和Office的其他套件綜合使用。由于Access具有顯著的簡(jiǎn)易性和有效性，大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫(kù)。使用Access的好處還在于，如果你的系統(tǒng)擴(kuò)展到Client/Server模式的時(shí)候，可以使用Microsoft的數(shù)據(jù)庫(kù)服務(wù)器軟件SQL Server，此時(shí)，程序只需要簡(jiǎn)單的修改一下鏈接（ADO的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。 3.2.2建立數(shù)據(jù)庫(kù) 使用VB6.0所提供的

24、“可視化數(shù)據(jù)管理器”建立數(shù)據(jù)庫(kù)以及其中的數(shù)據(jù)表。 a. 在VB集成環(huán)境中啟動(dòng)數(shù)據(jù)管理器：?jiǎn)螕簟巴饨映绦颉辈藛蜗碌摹翱梢暬瘮?shù)據(jù)管理器”命令，打開(kāi)可視化數(shù)據(jù)管理器“VisData”窗口。 b. 選擇“文件”菜單中的“新建”項(xiàng)，在“新建”子菜單中，選擇“Microsoft Access”子菜單中“Version 7.0 MDB”，在創(chuàng)建數(shù)據(jù)庫(kù)對(duì)框中選擇保存數(shù)據(jù)庫(kù)的路徑和庫(kù)文件名（XS）后保存。 本系統(tǒng)中所涉及到的主要實(shí)體共有七個(gè)數(shù)據(jù)表： allkecheng表：{課程名稱，教材} cj表：{學(xué)號(hào)，學(xué)期，類(lèi)型，課程名稱，分?jǐn)?shù)} class表：{年級(jí)，班級(jí)，教室，年制，專(zhuān)業(yè)，班主

25、任，備注} classkecheng表：{年級(jí)，專(zhuān)業(yè)，年制，學(xué)期，課程名稱} kaoshileixing表：{類(lèi)型} use表：{username,password,admin,readonly,qx1,qx2,qx3,qx4} xj表：{學(xué)號(hào)，姓名，性別，班級(jí)，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時(shí)間，備注} 表名 字段名稱 類(lèi)型 寬度 小數(shù)位數(shù) Allkecheng表 課程名稱 文本 20 教材 文本 30 Cj表 學(xué)號(hào) 文本 10 學(xué)期 文本 50 類(lèi)型 文本 16 課程名稱 文本 20

26、 分?jǐn)?shù) 單精度型數(shù)字 自動(dòng) 2 Class表 年級(jí) 文本 16 班級(jí) 文本 20 教室 文本 5 年制 文本 8 專(zhuān)業(yè) 文本 16 班主任 文本 8 備注 備注 classkecheng 年級(jí) 文本 16 專(zhuān)業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名稱 文本 20 kaoshileixing 類(lèi)型 文本 10 User表 username 文本 20 password 文本 20 Admin 文本 2

27、 readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 Xj表 學(xué)號(hào) 文本 9 姓名 文本 8 性別 文本 2 班級(jí) 文本 10 出生年月 日期/時(shí)間 家庭住址 文本 30 郵政編碼 長(zhǎng)整型 聯(lián)系電話 長(zhǎng)整型 入學(xué)時(shí)間 日期/時(shí)間 備注 備注 5

28、 畢業(yè)統(tǒng)考 第4章 系統(tǒng)的功能 本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。 4．1系統(tǒng)登陸界面： 本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用909;909為用戶名和密碼來(lái)登陸本系統(tǒng)。具體設(shè)置是： 選擇“工程”里的“添加窗體”，選擇“登錄對(duì)話框”，保存為“frmdenlu”。并且填寫(xiě)代碼，完成與數(shù)據(jù)庫(kù)的鏈接。對(duì)窗體的屬性進(jìn)行設(shè)置，登錄界面添加 “某某學(xué)?！弊謽印? 在“工程”菜單中選擇“添加窗體”，打開(kāi)“添加窗體”對(duì)話框，選擇添加“窗體”。并將新窗體保存為“denglu”。并且

29、使用菜單編輯器，按照功能流程圖的位置制作主頁(yè)面的下拉菜單。完成后設(shè)置主頁(yè)面屬性，將“Caption”命名為“學(xué)生信息管理系統(tǒng)”；通過(guò)“Picture”屬性，對(duì)主界面的背景進(jìn)行設(shè)置；調(diào)整主界面大小，并設(shè)置“WindowState”屬性為“2-Mixmized”,并將頁(yè)面調(diào)整到屏幕的中央。添加代碼，完善《學(xué)生信息管理系統(tǒng)》主頁(yè)面的代碼設(shè)計(jì)。 Private Sub Command1_Click() Dim mrc As ADODB.Recordset txtsql = "select username from use where username=" & Trim(Text1.Text)

30、& "" Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox " 用戶名錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub End If username = mrc.Fields(0) txtsql2 = "select username from use where password=" & Trim(Text2.T

31、ext) & "" Set mrc = ExecuteSQL(txtsql2) If mrc.EOF = True Then MsgBox " 密碼錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit Sub End If txtsql = "select username from use where username=" & Trim(Text1.Text) & "and password

32、=" & Trim(Text2.Text) & "" Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then MsgBox "用戶名稱和密碼不匹配！", vbExclamation + vbOKOnly, "警告" Exit Sub End If MDIForm1.Show frmcpass.Text1.Text = Text1.Text Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load()

33、 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub 4.2系統(tǒng)管理模塊設(shè)計(jì) “系統(tǒng)管理”模塊分為“添加新用戶”和“退出”兩個(gè)子模塊。 在“工程”菜單中選擇“添加窗體”，打開(kāi)“添加窗體”對(duì)話框，選

34、擇添加“窗體”。并將新窗體保存為“frmuser1”。 進(jìn)行代碼設(shè)計(jì)，代碼如下： Private Sub Command1_Click() If Trim(Text1(0).Text) = "" Then MsgBox "用戶名不能為空！", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = "" Then MsgBox "密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(1).SetFocu

35、s Exit Sub End If If Trim(Text1(2).Text) = "" Then MsgBox "確認(rèn)密碼不能為空！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then MsgBox "確認(rèn)密碼不正確！", vbExclamation + vbOKOnly, "警告" Text1(2).SetFocus Exit Sub End If Dim aa As

36、 Integer aa = 0 If Option1(2).Value = True Then For i = 0 To 2 If Check1(i).Value = 1 Then aa = 1 Exit For End If Next i If aa = 0 Then MsgBox " 普通用戶至少要有一項(xiàng)權(quán)限！", vbExclamation + vbOKOnly, "警告" Exit Sub End If End If Dim mrc As ADODB.Recordset txtsql = "select * from use where

37、 username=" & Trim(Text1(0).Text) & "" Set mrc = ExecuteSQL(txtsql) If mrc.EOF = False Then MsgBox " 已存在該用戶！", vbExclamation + vbOKOnly, "警告" Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If txtsql = "select * from use" Set mrc = Exe

38、cuteSQL(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 Case 0 mrc.Fields("admin") = "y" Case 1 mrc.Fields("readonly") = "y" Case 2 For j = 0 To 2

39、 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" End Select End If

40、 Next j End Select End If Next i mrc.Update MsgBox " 用戶添加成功！", vbExclamation + vbOKOnly, "警告" Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Option1(2).Value = True End Sub

41、Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index <> 2 Then For i = 0 To 2 Check1(i).Enabled = False Next i Else For i = 0 To 2 Check1(i).Enabled = True Next i End If End Sub 通過(guò)代碼設(shè)計(jì)，實(shí)現(xiàn)了對(duì)三種不同權(quán)限的新用戶的添加，管理員具有所有得權(quán)限，老師在管理員的授權(quán)下可以選擇系統(tǒng)

42、管理、課程管理與檔案管理、課程管理的一種、兩種或者全部權(quán)限，學(xué)生則只有瀏覽的功能。 4.3班級(jí)管理 在完成了系統(tǒng)的登錄頁(yè)面設(shè)計(jì)、系統(tǒng)主頁(yè)面系統(tǒng)設(shè)計(jì)后，接下來(lái)在總體設(shè)計(jì)思想的指導(dǎo)下完成系統(tǒng)的其余功能模塊的設(shè)計(jì)。這些子模塊作為《學(xué)生信息管理系統(tǒng)》的組成部分，在很大程度上增強(qiáng)了所開(kāi)發(fā)系統(tǒng)的整體功能。以下主要講述班級(jí)管理這個(gè)功能模塊的具體設(shè)計(jì)和實(shí)現(xiàn)。 班級(jí)管理的主要功能是對(duì)各院系的班級(jí)的基本信息進(jìn)行管理，這些信息包括年級(jí)、班級(jí)、教室、年制、專(zhuān)業(yè)、班主任、備注等。相應(yīng)的管理操作包括：添加記錄、修改記錄、刪除記錄、查詢記錄以及打印記錄。執(zhí)行查詢，先輸入要進(jìn)行操作的班級(jí)，確定后再進(jìn)行對(duì)應(yīng)的操作。添加操

43、作可直接添加新的班級(jí)記錄。 4.3.1添加班級(jí)模塊設(shè)計(jì) 在“工程”菜單中選擇“添加窗體”，打開(kāi)“添加窗體”對(duì)話框，選擇添加“窗體”。并將新窗體保存為“formclass1”。添加代碼并且進(jìn)行屬性設(shè)置。將“Caption”改為“添加班級(jí)”，并且調(diào)整窗口大小。 “添加系統(tǒng)”模塊的界面如下圖所示： 4.3.2瀏覽班級(jí)模塊設(shè)計(jì) 在“工程”菜單中選擇“添加窗體”，打開(kāi)“添加窗體”對(duì)話框，選擇添加“窗體”。并將新窗體保存為“formclass2”。添加代碼并且進(jìn)行屬性設(shè)置。將“Caption”改為“瀏覽班級(jí)”，并且調(diào)整窗口大小。 “添加系統(tǒng)”模塊的界面如下圖所示： 通過(guò)設(shè)計(jì)的瀏覽班級(jí)

44、模塊，可以根據(jù)年級(jí)，對(duì)本校的各班級(jí)信息進(jìn)行總體瀏覽。并且根據(jù)需要，對(duì)班級(jí)設(shè)置進(jìn)行修改，刪除，打印。 4.3.3班級(jí)查詢模塊設(shè)計(jì) 在“工程”菜單中選擇“添加窗體”，打開(kāi)“添加窗體”對(duì)話框，選擇添加“窗體”。并將新窗體保存為“formclass3”。進(jìn)行屬性設(shè)置。將“Caption”改為“班級(jí)查詢”，并且調(diào)整窗口大小。通過(guò)設(shè)計(jì)，此模塊可以通過(guò)年級(jí)、班級(jí)、專(zhuān)業(yè)對(duì)班級(jí)設(shè)計(jì)查詢。 “添加系統(tǒng)”模塊的界面如下圖所示： 進(jìn)行代碼設(shè)計(jì)，代碼如下： Private Sub Command1_Click() txtsql = "" If Text1(0).Text <> "" Then

45、 If txtsql = "" Then txtsql = "年級(jí)=" & Trim(Text1(0).Text) & "" Else txtsql = txtsql & "and 年級(jí)=" & Trim(Text1(0).Text) & "" End If End If If Text1(1).Text <> "" Then If txtsql = "" Then txtsql = "班級(jí)=" & Trim(Text1(1).Text) & "" Else txtsql = txtsql & "and 班級(jí)=" & Trim

46、(Text1(1).Text) & "" End If End If If Text1(2).Text <> "" Then aa = 1 If txtsql = "" Then txtsql = "專(zhuān)業(yè)=" & Trim(Text1(2).Text) & "" Else txtsql = txtsql & "and 專(zhuān)業(yè)=" & Trim(Text1(2).Text) & "" End If End If If txtsql = "" Then ss = MsgBox("你至少要輸入一個(gè)條件以上才能查詢！", , " 警告")

47、 Text1(0).SetFocus Exit Sub End If txtsql = "select * from class where " & txtsql Dim mrc As ADODB.Recordset Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then zzz = MsgBox("對(duì)不起，沒(méi)有此班級(jí)的檔案記錄！", vbOKOnly, "查詢") Formclass3.ZOrder (0) Formclass3.Text1(0).SetFocus Exit Sub End

48、If Formclass2.printstr = txtsql classfind = True Formclass2.Show Formclass2.classshowtitle Formclass2.classshowdata Formclass2.Caption = "班級(jí)設(shè)置查詢結(jié)果" Formclass2.ZOrder (0) End Sub Private Sub Form_Unload(Cancel As Integer) classfind = False End Sub 必須同時(shí)輸入一個(gè)條件，否則將彈出警告對(duì)話框“你至少要輸入一個(gè)以上條件以上才能查詢

49、！”用戶可以同時(shí)設(shè)定一個(gè)、兩個(gè)或者三個(gè)條件進(jìn)行查詢。 4. 4學(xué)生檔案管理 學(xué)生檔案管理是對(duì)全校學(xué)生的基本資料進(jìn)行查詢、修改、添加、刪除、打印操作。執(zhí)行查詢操作時(shí)，可以根據(jù)學(xué)號(hào)、姓名、班級(jí)、姓名關(guān)鍵字進(jìn)行查詢?？梢詫?duì)查找到的信息進(jìn)行修改和刪除。添加操作可直接添加相應(yīng)的學(xué)生基本情況。學(xué)生信息包括學(xué)號(hào)、姓名、性別、班級(jí)、家庭住址、出生年月、聯(lián)系電話、入學(xué)時(shí)間、備注等信息。 4.4.1檔案添加模塊設(shè)計(jì) 首先明確檔案添加的功能是添加對(duì)入學(xué)的學(xué)生進(jìn)行入學(xué)檔案登記，其中包括姓名、性別、班級(jí)、聯(lián)系電話等信息。在“工程”菜單中選擇“添加窗體”，打開(kāi)“添加窗體”對(duì)話框，選擇添加“窗體”。并將新窗體保存為

50、“form1”。進(jìn)行屬性設(shè)置，并且編寫(xiě)代碼，完成的頁(yè)面如下圖所示： Private Sub Command1_Click() For j = 0 To 7 If Text1(j) = "" Then ss = MsgBox(Label1(j).Caption & "不能為空！", vbExclamation + vbOKOnly, "警告") Text1(j).SetFocus Text1(j).SelStart = 0 Text1(j).SelLength = Len(Text1(j).Text) Exit Sub

51、 End If Next 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, "警告") Text1(0).SetFocus Text1(0

52、).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) mrc.Close Exit Sub End If End If If Not IsDate(Text1(2).Text) Then 判斷是否日期格式 ssss = MsgBox("應(yīng)輸入日期 mm-dd-yy", vbInformation + vbOKOnly, "警告") Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = Len

53、(Text1(2).Text) Exit Sub End If If Not IsDate(Text1(6).Text) Then ssss = MsgBox("應(yīng)輸入日期 mm-dd-yy", vbInformation + vbOKOnly, "警告") Text1(6).SetFocus Text1(6).SelStart = 0 Text1(6).SelLength = Len(Text1(6).Text) Exit Sub End If If modi = True Then txtsql1 = "u

54、pdate xj set 學(xué)號(hào)=" & Trim(Text1(0).Text) & ",姓名=" & Trim(Text1(1).Text) & ",性別=" & Trim(Combo1(0).Text) & ",班級(jí)=" & Trim(Combo1(1).Text) & ",出生年月=#" & Trim(Text1(2).Text) & "# ,家庭住址=" & Trim(Text1(3).Text) & " ,郵政編碼=" & Trim(Text1(4).Text) & " ,聯(lián)系電話=" & Trim(Text1(5).Text) & " ,入學(xué)時(shí)間=#" & Trim(Text1

55、(6).Text) & "# ,備注=" & Trim(Text1(7).Text) & "where 學(xué)號(hào)=" & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & "" Set mrc = ExecuteSQL(txtsql1) txtsql1 = "update cj set 學(xué)號(hào)=" & Trim(Text1(0).Text) & " where 學(xué)號(hào)=" & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & "" Set mrc = ExecuteSQL(txtsql1) tx

56、tsql1 = "update jf set 學(xué)號(hào)=" & Trim(Text1(0).Text) & " where 學(xué)號(hào)=" & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & "" Set mrc = ExecuteSQL(txtsql1) Unload Me Exit Sub End If txtsql1 = "select * from xj " Set mrc = ExecuteSQL(txtsql1) mrc.AddNew For i = 4 To 9 mrc.Fields(i) = Text1(i

57、 - 2).Text Next i mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Fields(2) = Trim(Combo1(0).Text) mrc.Fields(3) = Trim(Combo1(1).Text) mrc.Update Set mrc = Nothing For j = 0 To 7 Text1(j) = "" Next End Sub 4.4.2檔案瀏覽模塊設(shè)計(jì) 類(lèi)似可以進(jìn)行檔案瀏覽模塊

58、設(shè)計(jì)，完成之后的設(shè)計(jì)見(jiàn)面如下圖所示： 其代碼如下： Public Sub showdata() Dim j As Integer Dim i As Integer Dim mrc As ADODB.Recordset Set mrc = New ADODB.Recordset Set mrc = ExecuteSQL(txtsql) If mrc.EOF = False Then mrc.MoveFirst With MSF1 .Rows = 50 .Row = 1 Do While Not mrc.EOF .R

59、ows = .Rows + 1 For i = 1 To mrc.Fields.Count .TextMatrix(.Row, i) = mrc.Fields(i - 1) Next i .Row = .Row + 1 mrc.MoveNext Loop End With Else If find = True Then Form3.Hide Form4.Show zzz = MsgBox("對(duì)不起，沒(méi)有此學(xué)生的檔案記錄！", vbOKOnly, "查詢") Form4.Z

60、Order (0) Form4.Text1(0).SetFocus End If End If Set mrc = Nothing End Sub Public Sub tree() TreeView1.Nodes.Clear Dim nodex As Node Dim mrc As ADODB.Recordset Dim mrc1 As ADODB.Recordset Dim str As String Dim a As String a = "年級(jí)" TreeView1.LineStyle = tvwRootLines str = "

61、select distinct 年級(jí) from class order by 年級(jí)" Set mrc = ExecuteSQL(str) str = "select distinct 年級(jí),班級(jí) from class order by 年級(jí),班級(jí)" Set mrc1 = ExecuteSQL(str) mrc.MoveFirst Do Until mrc.EOF mrc1.MoveFirst Set nodex = TreeView1.Nodes.Add(, , a, mrc.Fields(0), 1, 1) Do While Not mrc1.EOF If

62、 mrc1.Fields(0) = mrc.Fields(0) Then Set nodex = TreeView1.Nodes.Add(a, tvwChild, , mrc1.Fields(1), 2, 2) End If mrc1.MoveNext Loop a = a & "1" mrc.MoveNext Loop mrc1.Close mrc.Close Set mrc = Nothing Set mrc1 = Nothing End Sub Private Sub Toolbar1_ButtonClick(By

63、Val Button As MSComctlLib.Button) Select Case Button.Tag Case "find" Form4.Show Case "modi" If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then sssss = MsgBox("你還沒(méi)有選擇記錄！", vbOKOnly + vbExclamation, "警告") Exit Sub

64、 Else qxstr = Executeqx(2) If qxstr = "readonly" Then ss = MsgBox("對(duì)不起，你是只讀用戶不能修改記錄，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If modi = True Form1.Show F

65、orm1.ZOrder 0 End If Case "del" Dim mrc As ADODB.Recordset Dim intcount As Integer If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then sssss = MsgBox("你還沒(méi)有選擇記錄！", vbOKOnly + vbExclamation, "警告") Else

66、 If qxstr = "readonly" Then ss = MsgBox("對(duì)不起，你是只讀用戶不能刪除記錄，請(qǐng)與管理員聯(lián)系！", vbInformation + vbOKOnly, " 警告") Exit Sub End If If MsgBox("確定要?jiǎng)h除學(xué)號(hào)為 " & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & " 的記錄嗎？" & Chr(10) & Chr(13) & "該操作會(huì)導(dǎo)致該學(xué)生成績(jī)記錄的丟失！確定嗎？", vbOKCancel + vbExclamation, "警告") = vbOK Then intcount = Me.MSF1.Row txtsql = "delete * from xj where 學(xué)號(hào)=" &