畢業(yè)設(shè)計(jì)基于vb的學(xué)校信息管理系統(tǒng)

1、<p><b>　　學(xué)校管理系統(tǒng)</b></p><p><b>　　目 錄</b></p><p>　　內(nèi)容提要………………………………………………………………………1</p><p>　　選題的背景……………………………………………………………………1</p><p>　　學(xué)校管理

2、系統(tǒng)的設(shè)計(jì)方法和技術(shù)線路………………………………………2</p><p>　　系統(tǒng)的基本框架、總體結(jié)構(gòu)以及各部分功能………………………………4</p><p>　　系統(tǒng)部分窗體界面、代碼及簡(jiǎn)要解釋………………………………………6</p><p>　　數(shù)據(jù)庫（表）分析……………………………………………………………17</p><p>　　遇到的

3、困難和解決方案………………………………………………………26</p><p>　　用戶操作說明…………………………………………………………………27</p><p>　　系統(tǒng)自我評(píng)價(jià)…………………………………………………………………28</p><p>　　致謝……………………………………………………………………………29</p><p>　

4、　參考資料………………………………………………………………………30</p><p>　　附錄部分………………………………………………………………………31</p><p><b>　　【內(nèi)容提要】</b></p><p>　　隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，信息管理系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。信息管理系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科

5、，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的信息管理系統(tǒng)。本文采用VB和ACCESS等軟件為開發(fā)工具，以Windows XP（或Windows 2000）為開發(fā)平臺(tái)，設(shè)計(jì)出一個(gè)學(xué)校管理系統(tǒng)，對(duì)學(xué)生、員工的信息、學(xué)生的課程以及成績(jī)進(jìn)行統(tǒng)一管理，便于查詢、修改和打印。主要實(shí)現(xiàn)的功能模塊有系統(tǒng)管理子系統(tǒng)、學(xué)生信息管理子系統(tǒng)、員工信息管理子系統(tǒng)、班級(jí)信息管理子系統(tǒng)、課程信息管理子系統(tǒng)、成績(jī)信息管理

6、子系統(tǒng)、綜合測(cè)評(píng)子系統(tǒng)、畢業(yè)管理子系統(tǒng)、圖書館管理子系統(tǒng)等。</p><p>　　本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。</p><p><b>　　【關(guān)鍵字】</b></p><p>　　系統(tǒng)；管理；信息管理</p><p><b>　　選題的背景</b></p><p>&

7、lt;b>　　1需求分析</b></p><p>　　一個(gè)功能齊全、簡(jiǎn)單易用的信息管理系統(tǒng)不但能有效地減輕學(xué)校各類工作人員的工作負(fù)擔(dān)，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要。所以學(xué)校管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案、統(tǒng)計(jì)和查詢數(shù)據(jù)，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,人工的大量浪費(fèi)；另外時(shí)間一長(zhǎng),將產(chǎn)生大量的

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

9、一個(gè)單位科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。</p><p>　　因此，開發(fā)這樣一套管理軟件成為很有必要的事情，我通過自己的知識(shí)和大量書籍的翻閱、網(wǎng)站的查閱，和同學(xué)一起合作開發(fā)了一個(gè)學(xué)校管理系統(tǒng)。</p><p><b>　　1.2歷史現(xiàn)狀</b></p><p>　　該項(xiàng)目開發(fā)的軟件為學(xué)校管理系統(tǒng)軟件,是鑒于目前學(xué)校學(xué)生、員工人數(shù)和圖書

10、館信息劇增,信息呈爆炸性增長(zhǎng)的前提下,學(xué)校對(duì)信息管理的自動(dòng)化與準(zhǔn)確化的要求日益強(qiáng)烈的背景下構(gòu)思出來的,該軟件設(shè)計(jì)完成后可用于所有教育單位(包括學(xué)校,學(xué)院等等)的信息的管理.目前社會(huì)上信息管理系統(tǒng)發(fā)展飛快,各個(gè)企事業(yè)單位都引入了信息管理軟件來管理自己日益增長(zhǎng)的各種信息,學(xué)校管理系統(tǒng)也是有了很大的發(fā)展,商業(yè)化的信息管理軟件也不少.但本系統(tǒng)完全獨(dú)立開發(fā),力求使系統(tǒng)功能簡(jiǎn)潔明了,但功能齊全且易于操作.</p><p>　

11、　1.3學(xué)校管理系統(tǒng)的功能及特點(diǎn)</p><p>　　學(xué)校管理信息系統(tǒng)是一個(gè)以計(jì)算機(jī)為工具，對(duì)學(xué)校管理信息進(jìn)行處理的人—機(jī)系統(tǒng)，它能準(zhǔn)確統(tǒng)計(jì)出學(xué)生的考試分?jǐn)?shù)，能從全局出發(fā)輔助學(xué)校各職能部門以及校長(zhǎng)管理學(xué)校。可見，學(xué)校管理系統(tǒng)首先必須具有強(qiáng)大的電子數(shù)據(jù)處理功能，能大大提高學(xué)校管理人員的工作效率，減輕勞動(dòng)強(qiáng)度，同時(shí)，該系統(tǒng)應(yīng)當(dāng)采用管理模型，將仿真、優(yōu)化等現(xiàn)代決策手段結(jié)合起來，為學(xué)校管理層的決策提供有效信息。本系統(tǒng)的用

12、戶類型可分為三種：管理員、普通用戶</p><p>　　管理員：擁有一切權(quán)限，可管理用戶，修改，刪除數(shù)據(jù)。</p><p>　　普通用戶：只能查看數(shù)據(jù)，不得修改刪除數(shù)據(jù)。</p><p>　　整個(gè)系統(tǒng)，包括了學(xué)生信息管理、員工信息管理、班級(jí)信息管理、課程信息管理、成績(jī)信息管理、綜合測(cè)評(píng)、畢業(yè)管理等。基本符合學(xué)校管理的需求。</p><p>　

13、　學(xué)校管理系統(tǒng)的設(shè)計(jì)方法和技術(shù)線路</p><p>　　2.1選用的設(shè)計(jì)語言</p><p>　　本系統(tǒng)采用面向?qū)ο蟮能浖_發(fā)方法，以Microsoft公司的可視開發(fā)環(huán)境Visual Basic 6.0作為主要開發(fā)工具，使用Microsoft Access 2000作為關(guān)系數(shù)據(jù)庫，并在VB編程語言中采用ADO 數(shù)據(jù)庫編程模型，配合功能強(qiáng)大的查詢語言實(shí)現(xiàn)建立關(guān)系數(shù)據(jù)庫，訪問數(shù)據(jù)庫，對(duì)數(shù)據(jù)庫

14、的更新，較好地實(shí)現(xiàn)了預(yù)定的需求功能。</p><p>　　Visual Basic 6.0是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高、且功能強(qiáng)大。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口（API）函數(shù)，以及動(dòng)態(tài)鏈接庫（DLL）、動(dòng)態(tài)數(shù)據(jù)交換（DDE

15、）、對(duì)象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　Visual Basic 6.0 是專門為Microsoft的32位操作系統(tǒng)設(shè)計(jì)的，可用來建立32位的應(yīng)用程序。在Windows9x、WindowsNT或Windows2000環(huán)境下，用Visual Basic 6.0的編譯器可以自動(dòng)生成32位應(yīng)用程

16、序。這樣的應(yīng)用程序在32位操作系統(tǒng)下運(yùn)行，速度更快，更安全，并且更適合在多任務(wù)環(huán)境下運(yùn)行。</p><p>　　2.2選用Access作為后臺(tái)數(shù)據(jù)庫</p><p>　　Access2000 就是關(guān)系數(shù)據(jù)庫管理工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel的電子表格，可以使數(shù)據(jù)庫一目了然

17、。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(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ù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。</p><p>　　作為應(yīng)用程序

18、與OLE DB連接的橋梁，ActiveX Data Objects (ADO)為Visual Basic 6.0 下開發(fā)的應(yīng)用程序訪問本地或遠(yuǎn)程數(shù)據(jù)庫提供了有效的手段。Microsoft ActiveX Data Objects (ADO) 主要優(yōu)點(diǎn)是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。ADO 支持用于建立基于客戶端/服務(wù)器和 Web 的應(yīng)用程序的主要功能。在VB中，可以使用開發(fā)環(huán)境提供的ADO控件，數(shù)據(jù)庫訪問方法，對(duì)ACC

19、ESS中建立的關(guān)系數(shù)據(jù)庫簡(jiǎn)單快捷的進(jìn)行訪問。</p><p>　　在數(shù)據(jù)庫方面，我主要采用了ADODC 的綁定方法。</p><p>　　ADO是微軟公司最新推出的數(shù)據(jù)訪問技術(shù)，他特別設(shè)計(jì)用來訪問OLE DB PRIVDER 一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（ UNIVERSAL DATA ACCESS），OLEDB 是底層的數(shù)據(jù)訪問接口，ADO控件使用數(shù)據(jù)對(duì)象來快速建立數(shù)據(jù)綁定的控件和數(shù)

20、據(jù)提供者之間的連接。ADO的全名是ActiveX Data Object(ActiveX數(shù)據(jù)對(duì)象),是一組優(yōu)化的訪問數(shù)據(jù)庫的專用對(duì)象集，它為ASP提供了完整的站點(diǎn)數(shù)據(jù)庫解決方案，它作用在服務(wù)器端，提供含有數(shù)據(jù)庫信息的主頁內(nèi)容，通過執(zhí)行SQL命令，讓用戶在瀏覽器畫面中輸入，更新和刪除站點(diǎn)數(shù)據(jù)庫的信息。 　　ADO主要包括Connection,Recordset和Command三個(gè)對(duì)象, 它們的主要功能如下： 　　·Conne

21、ction對(duì)象：負(fù)責(zé)打開或連接數(shù)據(jù)庫文件； 　　·Recordset對(duì)象：存取數(shù)據(jù)庫的內(nèi)容； 　　·Command對(duì)象：對(duì)數(shù)據(jù)庫下達(dá)行動(dòng)查詢指令，以及執(zhí)行SQL Server的存儲(chǔ)過程。</p><p><b>　　比較而言：</b></p><p>　　ODBC – （Open Database Connectivity）是第一個(gè)使用SQL訪

22、問不同關(guān)系數(shù)據(jù)庫的數(shù)據(jù)訪問技術(shù)。使用ODBC應(yīng)用程序能夠通過單一的命令操縱不同的數(shù)據(jù)庫，而開發(fā)人員需要做的僅僅只是針對(duì)不同的應(yīng)用加入相應(yīng)的ODBC驅(qū)動(dòng)。 DAO - （Data Access Objects）不像ODBC那樣是面向C/C++程序員的，它是微軟提供給Visual Basic開發(fā)人員的一種簡(jiǎn)單的數(shù)據(jù)訪問方法，用于操縱Access數(shù)據(jù)庫。 RDO – 在使用DAO訪問不同的關(guān)系型數(shù)據(jù)庫的時(shí)候，Jet引擎不得不在

23、DAO和ODBC之間進(jìn)行命令的轉(zhuǎn)化，導(dǎo)致了性能的下降，而RDO（Remote Data Objects）的出現(xiàn)就順理成章了。 OLE DB – 隨著越來越多的數(shù)據(jù)以非關(guān)系型格式存儲(chǔ)，需要一種新的架構(gòu)來提供這種應(yīng)用和數(shù)據(jù)源之間的無縫連接，基于COM（Component Object Model）的OLE DB應(yīng)運(yùn)而生了。</p><p>　　綜上所述ADO – 基于OLE DB之上的ADO更簡(jiǎn)單、更高級(jí)、更

24、適合Visual Basic程序員，同時(shí)消除了OLE DB的多種弊端，取而代之是微軟技術(shù)發(fā)展的趨勢(shì)。所以我采用ADO 的方法來綁定數(shù)據(jù)庫，能夠達(dá)到功能的要求。</p><p>　　系統(tǒng)的基本框架、總體結(jié)構(gòu)以及各部分功能</p><p><b>　　3.1基本框架</b></p><p>　　這是一個(gè)學(xué)校管理系統(tǒng)，其下有三大模塊：信息管理系統(tǒng)，學(xué)

25、籍管理系統(tǒng)，以及圖書館管理系統(tǒng)。</p><p><b>　　1.信息管理系統(tǒng)</b></p><p>　　學(xué)生信息：基本信息：學(xué)號(hào)、班級(jí)、宿舍等</p><p>　　檔案：姓名、住址、電話等</p><p>　　體檢信息：入學(xué)體檢、畢業(yè)體檢</p><p><b>　　獎(jiǎng)懲信息<

26、/b></p><p>　　員工信息：基本信息：姓名、教授課程、部門等</p><p>　　檔案：姓名、住址、電話等</p><p><b>　　2.學(xué)籍管理：</b></p><p>　　a. 學(xué)生成績(jī)管理：成績(jī)錄入、查詢、不及格名單、學(xué)生總分名次、綜合測(cè)評(píng)表、畢業(yè)設(shè)計(jì)、實(shí)習(xí)管理、班級(jí)查詢、設(shè)置年級(jí)課程等<

27、/p><p>　　b. 員工培訓(xùn)管理：</p><p>　　我主要負(fù)責(zé)學(xué)生信息系統(tǒng)即學(xué)籍管理，使用VB和數(shù)據(jù)庫的連接實(shí)現(xiàn)對(duì)系統(tǒng)的管理，在VB界面下實(shí)現(xiàn)各種功能。即窗體MDIForm1、班級(jí)查詢、班級(jí)查詢結(jié)果、班級(jí)瀏覽、畢業(yè)設(shè)計(jì)、補(bǔ)考成績(jī)查詢結(jié)果、成績(jī)查詢結(jié)果、成績(jī)輸入、創(chuàng)建用戶、各班課程設(shè)置、關(guān)于、積考成績(jī)查詢結(jié)果、界面、實(shí)習(xí)管理、學(xué)生成績(jī)查詢、學(xué)生成績(jī)輸入、學(xué)生成績(jī)輸入數(shù)據(jù)顯示、學(xué)校基本課程

28、、用戶登陸、員工培訓(xùn)信息、重修成績(jī)查詢結(jié)果、綜合測(cè)評(píng)、綜合測(cè)評(píng)信息都由我完成。</p><p>　　3.2系統(tǒng)的總體結(jié)構(gòu)</p><p><b>　　如圖所示：</b></p><p>　　圖3.1 系統(tǒng)的總體結(jié)構(gòu)</p><p>　　此系統(tǒng)主要由四個(gè)部分組成，分別是用戶添加及登陸部分，學(xué)生信息管理部分，員工信息管理部分

29、，班級(jí)信息管理部分，課程信息管理部分，成績(jī)信息管理部分，綜合測(cè)評(píng)部分，畢業(yè)管理部分以及圖書館部分。</p><p>　　3.3系統(tǒng)各部分功能</p><p>　　學(xué)生信息管理部分分為基本信息、體檢信息兩部分。</p><p>　　員工信息管理部分分為基本信息和培訓(xùn)信息兩部分。員工培訓(xùn)信息部分可以瀏覽所有員工培訓(xùn)的資料，添加新的培訓(xùn)資料，修改需要改的信息。</p

30、><p>　　班級(jí)信息管理部分分為班級(jí)查詢和班級(jí)瀏覽兩部分。班級(jí)查詢部分可以依各條件查詢所有班級(jí)信息。班級(jí)瀏覽部分支持資料的修改和刪除以及班級(jí)資料的報(bào)表打印。</p><p>　　課程管理部分分為學(xué)?；菊n程，各班課程設(shè)置兩部分。學(xué)?；菊n程設(shè)置部分提供所有課程的設(shè)置，可以查詢、添加、刪除、篩選。各班課程設(shè)置部分則根據(jù)各個(gè)班級(jí)情況從已經(jīng)設(shè)置好的基本課程中選擇所需要的課程，或者刪除不需要的課程，

31、同樣支持報(bào)表打印。</p><p>　　成績(jī)信息管理部分分為學(xué)生成績(jī)信息、補(bǔ)考、重修、積考成績(jī)輸入和學(xué)生成績(jī)查詢?nèi)糠帧W(xué)生成績(jī)信息部分可以瀏覽所有成績(jī)信息，并能輸入/修改，支持報(bào)表打印。補(bǔ)考、重修、積考成績(jī)輸入部分可以添加/修改補(bǔ)考、重修、積考成績(jī)。學(xué)生成績(jī)查詢部分可以查詢所有成績(jī)、補(bǔ)考成績(jī)、重修成績(jī)和積考成績(jī)。</p><p>　　綜合測(cè)評(píng)部分分為綜合測(cè)評(píng)信息和綜合測(cè)評(píng)圖示兩部分。綜合

32、測(cè)評(píng)信息部分顯示所有綜合測(cè)評(píng)資料，并能實(shí)現(xiàn)多項(xiàng)查詢，支持打印。綜合測(cè)評(píng)圖示部分能依每個(gè)人的成績(jī)顯示不同的二維圖。</p><p>　　畢業(yè)管理部分分為畢業(yè)設(shè)計(jì)、實(shí)習(xí)管理兩部分。畢業(yè)設(shè)計(jì)部分能瀏覽所有學(xué)生的畢業(yè)設(shè)計(jì)資料，并能進(jìn)行資料的添加/修改。實(shí)習(xí)管理部分能瀏覽所有學(xué)生的實(shí)習(xí)資料，并能進(jìn)行資料的添加/修改。</p><p><b>　　圖書館管理部分。</b><

33、/p><p>　　系統(tǒng)部分窗體界面、代碼及簡(jiǎn)要解釋</p><p>　　4.1界面窗體（界面.frm）</p><p><b>　　圖4.1界面窗體</b></p><p>　　這是一個(gè)運(yùn)行的主界面，在控件中增加了ProgressBar，再利用Time控件來控制其的變化。</p><p>　　Priv

34、ate Sub Timer1_Timer()</p><p>　　If ProgressBar1.Value = ProgressBar1.Max Then '當(dāng)ProgressBar的達(dá)到100（max設(shè)定值）時(shí)觸發(fā)</p><p><b>　　Unload Me</b></p><p><b>　　用戶登陸.Show<

35、;/b></p><p>　　Timer1.Enabled = False '停止時(shí)鐘</p><p><b>　　End If</b></p><p>　　ProgressBar1.Value = ProgressBar1.Value + 2.5 'ProgressBar的值每次加2.5</p><p

36、>　　'timer屬性中設(shè)定每0.05秒觸發(fā)一次，因此展示窗體顯示時(shí)間移動(dòng)為2秒</p><p><b>　　End Sub</b></p><p>　　4.2用戶登陸窗體（用戶登陸.frm）</p><p>　　圖4.2用戶登陸窗體</p><p>　　這是個(gè)用戶登陸的窗體，用DataCombo來設(shè)置了連

37、接數(shù)據(jù)庫的所有組名稱，用于方便選擇。DataSource來源于DataEnvironment1,DataMember來源于組表，DataField來源于組名，RowSource來源于DataEnvironment1,RowMember來源于組表，ListFiele來源于組名。</p><p>　　Option Explicit</p><p>　　Dim rstS As ADODB.Rec

38、ordset</p><p>　　Private Sub Command2_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "用戶名不能為空！", vbExclamation + vbOKOnly, "警告"</p><

39、;p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　End If '防止空用戶名</p><p>　　If Text2.Text = "" Then</p><p>　　MsgBox "密碼不能為空！",

40、vbExclamation + vbOKOnly, "警告"</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p>　　End If '防止空密碼</p><p><b>　　Do</b></p>

41、;<p>　　If DataCombo1.Text = rstS(0) And Text1.Text = rstS(2) And Text2.Text = rstS(3) Then</p><p>　　If rstS(0) = "管理員" Then</p><p><b>　　admin = 1</b></p><

42、p><b>　　Else</b></p><p><b>　　admin = 0</b></p><p><b>　　End If</b></p><p>　　MDIForm1.Show</p><p>　　rstS.Close</p><p>&

43、lt;b>　　Unload Me</b></p><p><b>　　Exit Do</b></p><p>　　End If '當(dāng)用戶名和密碼相符的時(shí)候，進(jìn)入主窗體，跳出循環(huán)</p><p>　　rstS.MoveNext</p><p>　　If rstS.EOF = True Then&l

44、t;/p><p>　　MsgBox "密碼錯(cuò)誤，請(qǐng)重新輸入！", vbExclamation + vbOKOnly, "警告"</p><p>　　Text2.Text = ""</p><p>　　Text2.SetFocus</p><p>　　rstS.MoveFirst</

45、p><p><b>　　Exit Do</b></p><p>　　End If '用戶名或者密碼不相符或者不存在，都出現(xiàn)提示密碼錯(cuò)誤的對(duì)話框，跳出循環(huán)</p><p>　　Loop '循環(huán)搜索每條記錄，直到出現(xiàn)以上兩種結(jié)果的一種</p><p><b>　　End Sub</b><

46、;/p><p>　　Private Sub Form_Load()</p><p>　　Set rstS = DataEnvironment1.rs用戶表</p><p>　　rstS.MoveFirst</p><p><b>　　End Sub</b></p><p>　　4.3班級(jí)瀏覽窗體（班級(jí)

47、瀏覽.frm）</p><p>　　圖4.3班級(jí)瀏覽窗體</p><p>　　這是一個(gè)班級(jí)瀏覽窗體，用DataGrid調(diào)用了整張班級(jí)表，用追加實(shí)現(xiàn)對(duì)表中列的布局，用Adodc控制了記錄的變化，同時(shí)用DataCombo調(diào)用數(shù)據(jù)庫的年級(jí)表來實(shí)現(xiàn)對(duì)年級(jí)的篩選，此外還運(yùn)用了數(shù)據(jù)報(bào)表。</p><p>　　班級(jí)表.Filter = "年級(jí) like '&qu

48、ot; & DataCombo1.Text & "%'" '按年級(jí)過濾</p><p>　　班級(jí)表.Filter = "cancel like '0'" '取消過濾，實(shí)際是根據(jù)cancel項(xiàng)進(jìn)行過濾，此項(xiàng)是數(shù)據(jù)型，默認(rèn)為0</p><p>　　4.4學(xué)生成績(jī)查詢窗體（學(xué)生成績(jī).frm）</

49、p><p>　　圖4.4學(xué)生成績(jī)查詢窗體</p><p>　　這是學(xué)生成績(jī)查詢窗體，在控件中增加了SSTab來定義同類風(fēng)格，是四個(gè)查詢、四張表都能集中在一個(gè)窗體中，簡(jiǎn)單清晰。</p><p>　　Private Sub Form_Load()</p><p>　　Set rstS = DataEnvironment2.rs成績(jī)表</p>

50、;<p>　　Set a = DataEnvironment2.rs補(bǔ)考表</p><p>　　Set b = DataEnvironment2.rs重修表</p><p>　　Set c = DataEnvironment2.rs積考表</p><p><b>　　End Sub</b></p><p>

51、　　4.5學(xué)生成績(jī)輸入數(shù)據(jù)顯示窗體（學(xué)生成績(jī)輸入數(shù)據(jù)顯示.frm）</p><p>　　4.5學(xué)生成績(jī)輸入數(shù)據(jù)顯示窗體</p><p>　　這是學(xué)生成績(jī)輸入數(shù)據(jù)顯示窗體，整頁設(shè)置風(fēng)格大方，操作簡(jiǎn)便，一目了然，利用DataGrid調(diào)用數(shù)據(jù)庫中的成績(jī)表，同時(shí)也利用了追加實(shí)現(xiàn)了對(duì)表中列的布局。數(shù)據(jù)報(bào)表可以綜觀所有相關(guān)報(bào)表信息，輸入按扭可以實(shí)現(xiàn)對(duì)學(xué)生成績(jī)的錄入。</p><p&

52、gt;　　Private Sub Command4_Click()</p><p>　　Adodc1.Caption = "刪除"</p><p>　　If MsgBox("真的要?jiǎng)h除當(dāng)前記錄嗎?", vbOKCancel + vbCritical, "刪除") = vbOK Then</p><p>　　

53、Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</

54、b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　Adodc1.Recordset.UpdateBatch adAffectAllChap

55、ters '刷新記錄</p><p><b>　　End Sub</b></p><p><b>　　4.6學(xué)?；菊n程</b></p><p>　　圖4.6學(xué)校基本課程</p><p>　　這是學(xué)?；菊n程窗體，整頁綜合了多項(xiàng)控件，但并不顯得雜反而很有條理。三個(gè)Lable設(shè)置了排序、查找、

56、篩選三個(gè)功能模塊，而在排序和查找模塊中又分別用了三個(gè)Option來做出選擇，用Adodc連接了后臺(tái)數(shù)據(jù)庫用DataGrid實(shí)現(xiàn)前臺(tái)數(shù)據(jù)的展現(xiàn)，DataCombo的選擇來實(shí)現(xiàn)篩選。</p><p>　　Private Sub Command8_Click()</p><p>　　If Option1.Value = True Then</p><p>　　Adodc1

57、.Recordset.Sort = "課程代號(hào) "</p><p><b>　　End If</b></p><p>　　If Option2.Value = True Then</p><p>　　Adodc1.Recordset.Sort = "課程名 desc "</p><p&

58、gt;　　ElseIf Option3.Value = True Then</p><p>　　Adodc1.Recordset.Sort = "學(xué)分 desc,課程代號(hào)"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><

59、;p>　　Private Sub Command9_Click()</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　If Option4.Value = True Then</p><p>　　Adodc1.Recordset.Find ("教學(xué)要求 like '" & Text

60、7.Text & "%'")</p><p><b>　　End If</b></p><p>　　If Option5.Value = True Then</p><p>　　Adodc1.Recordset.Find ("學(xué)分 like '" & Text7.Text

61、& "%'")</p><p>　　ElseIf Option6.Value = True Then</p><p>　　Adodc1.Recordset.Find ("學(xué)期 like '" & Text7.Text & "%'")</p><p><b

62、>　　End If</b></p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　MsgBox "未找到!"</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></

63、p><p><b>　　End Sub</b></p><p>　　4.7畢業(yè)設(shè)計(jì)窗體（畢業(yè)設(shè)計(jì).frm）</p><p>　　圖4.7畢業(yè)設(shè)計(jì)窗體</p><p>　　這是畢業(yè)設(shè)計(jì)窗體，這頁的特點(diǎn)在于利用了特效。用Adodc連接了后臺(tái)數(shù)據(jù)庫中的畢業(yè)設(shè)計(jì)表，8個(gè)Command可以實(shí)現(xiàn)諸多功能，特色在于三個(gè)Time控件，會(huì)使左

64、右兩邊的“畢業(yè)設(shè)計(jì)信息”字樣呈閃爍狀態(tài)，此外還有當(dāng)前時(shí)間的顯示。</p><p>　　Private Sub Timer1_Timer()</p><p>　　Dim i As Integer</p><p>　　For i = 1 To 255</p><p>　　Label6.ForeColor = RGB((Rnd * 255 + 1)

65、, (Rnd * 255 + 1), (Rnd * 255 + 1))</p><p>　　Label7.ForeColor = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1))</p><p><b>　　Next</b></p><p><b>　　End Sub<

66、/b></p><p>　　Private Sub Timer2_Timer()</p><p>　　Label8.Caption = Time</p><p>　　Label9.Caption = Date</p><p><b>　　End Sub</b></p><p>　　Priva

67、te Sub Timer3_Timer()</p><p>　　If Label6.Visible = True Then</p><p>　　Label7.Visible = True</p><p>　　Label6.Visible = False</p><p>　　ElseIf Label7.Visible = True Then&l

68、t;/p><p>　　Label6.Visible = True</p><p>　　Label7.Visible = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.8綜合測(cè)評(píng)窗體（綜合測(cè)

69、評(píng).frm）</p><p>　　圖4.8綜合測(cè)評(píng)窗體</p><p>　　這是綜合測(cè)評(píng)窗體，在這里增加了控件MSChart，利用Adodc調(diào)用數(shù)據(jù)的變化而時(shí)圖表呈現(xiàn)變化狀態(tài)，成為又一新亮點(diǎn)。</p><p>　　Private Sub Form_Load()</p><p>　　MSChart1.Data = Text6.Text</

70、p><p>　　MSChart1.Data = Text7.Text</p><p>　　MSChart1.Data = Text8.Text</p><p>　　MSChart1.Data = Text3.Text</p><p>　　MSChart1.Data = Text4.Text</p><p>　　MSChar

71、t1.Data = Text5.Text</p><p>　　Set rs = Adodc1.Recordset</p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_Change()</p><p>　　MSChart1.Data = Text6.Text</

72、p><p>　　MSChart1.Data = Text7.Text</p><p>　　MSChart1.Data = Text8.Text</p><p>　　MSChart1.Data = Text3.Text</p><p>　　MSChart1.Data = Text4.Text</p><p>　　MSChar

73、t1.Data = Text5.Text</p><p><b>　　End Sub</b></p><p><b>　　數(shù)據(jù)庫（表）分析</b></p><p><b>　　5.1數(shù)據(jù)庫設(shè)計(jì)</b></p><p>　　數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)

74、設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。</p><p>　　設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設(shè)計(jì)一般包括如下幾個(gè)步驟：</p><p><b>　　數(shù)據(jù)庫需求分析。</b></p><p>　　數(shù)據(jù)庫邏

75、輯結(jié)構(gòu)分析。</p><p>　　5.2數(shù)據(jù)庫需求分析</p><p>　　這個(gè)系統(tǒng)使用的數(shù)據(jù)庫是微軟Access2000數(shù)據(jù)庫。由于整個(gè)系統(tǒng)有兩個(gè)人共同完成，而且內(nèi)容上又有偏差，故我們制作了兩個(gè)數(shù)據(jù)庫。而其中的數(shù)據(jù)庫.mdb是由我完成，總共有19張資料表。</p><p>　　用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信

76、息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。</p><p>　　針對(duì)學(xué)校管理的需求，通過對(duì)學(xué)校內(nèi)部管理內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：</p><p>　　數(shù)據(jù)庫：數(shù)據(jù)庫.mdb</p><p>　　資料表1：按課程類型 </p><p><

77、;b>　　資料表2：班級(jí)表</b></p><p>　　資料表3：畢業(yè)設(shè)計(jì)表</p><p><b>　　資料表4：補(bǔ)考表</b></p><p><b>　　資料表5：成績(jī)表</b></p><p><b>　　資料表6：各班課程</b></p>

78、<p><b>　　資料表7：積考表</b></p><p><b>　　資料表8：教材表</b></p><p><b>　　資料表9：課程總表</b></p><p><b>　　資料表10：年級(jí)表</b></p><p><b&g

79、t;　　資料表11：實(shí)習(xí)表</b></p><p><b>　　資料表12：學(xué)期表</b></p><p>　　資料表13：學(xué)生情況表</p><p><b>　　資料表14：用戶表</b></p><p>　　資料表15：?jiǎn)T工信息表</p><p>　　資料表1

80、6：?jiǎn)T工信息表</p><p><b>　　資料表17：重修表</b></p><p>　　資料表18：綜合測(cè)評(píng)表</p><p><b>　　資料表19：組表</b></p><p>　　5.3 部分?jǐn)?shù)據(jù)E-R圖</p><p>　　5.3.1 班級(jí)E-R圖：</p

81、><p>　　5.3.1 畢業(yè)設(shè)計(jì)E-R圖：</p><p>　　5.3.3 成績(jī)E-R圖：</p><p>　　5.3.4 課程E-R圖：</p><p>　　5.3.5 學(xué)生E-R圖：</p><p>　　5.3.6 員工培訓(xùn)E-R圖：</p><p>　　5.3.7 員工E-R圖：</p

82、><p>　　遇到的困難和解決方法</p><p>　　6.1相對(duì)路徑的問題</p><p>　　我們?cè)O(shè)計(jì)的學(xué)校管理系統(tǒng)，從實(shí)質(zhì)上說是一個(gè)軟件，但是它是以VB為界面基礎(chǔ)的，后臺(tái)的數(shù)據(jù)庫是ACCESS，這就引發(fā)了一個(gè)問題，在小組人員各自完成模塊的設(shè)計(jì)時(shí)，在自己的PC上就可以運(yùn)行，但是在合并程序的階段，就無法運(yùn)行了，指導(dǎo)老師在設(shè)計(jì)初期就象我們提示過要改路徑的問題。所以，在后

83、期合并時(shí)期，我們找到了原因，是因?yàn)樵谠O(shè)計(jì)初期，把數(shù)據(jù)庫的文件單獨(dú)放在一個(gè)文件夾里，我們修改了相對(duì)路徑，避免了一系列的修改的麻煩，在此我們要感謝指導(dǎo)老師的細(xì)心和負(fù)責(zé)。在我們小組人員共同的努力下，也使程序能順利的完成。</p><p><b>　　6.2權(quán)限設(shè)置</b></p><p>　　權(quán)限設(shè)置的設(shè)計(jì)思想：比如添加、刪除、修改操作如果一般用戶對(duì)這些信息都可以設(shè)置，就造

84、成了管理上的混亂和沖突，所以，在功能實(shí)現(xiàn)中就對(duì)一般用戶在權(quán)限上做了限制，當(dāng)?shù)顷懻邽橐压芾韱T身份登陸那就只能瀏覽信息而不能進(jìn)行任何操作，若以管理員的身份登陸系統(tǒng)，那么就可以對(duì)信息窗體進(jìn)行設(shè)置。此外，參考了同學(xué)的設(shè)計(jì)，因?yàn)樗麄兪前压δ茏鲈谕饷嫠钥梢栽诘顷憰r(shí)界面后就能發(fā)現(xiàn)，這明顯與我們做的有沖突換句話說是不值得我們借鑒，因此我要朋友詢問了適合我們的權(quán)限設(shè)置，在系統(tǒng)中添加個(gè)模塊，然后在代碼中再增加語句。</p><p>

85、;　　Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Integer) As Integer</p><p>　　Declare Function FillRect Lib "USER" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As I

86、nteger) As Integer</p><p>　　Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer</p><p><b>　　Type RECT</b></p><p>　　left As Integer<

87、;/p><p>　　top As Integer</p><p>　　right As Integer</p><p>　　bottom As Integer</p><p><b>　　End Type</b></p><p>　　Public admin As Integer'用于驗(yàn)證是否

88、有管理員權(quán)限</p><p><b>　　用戶操作說明</b></p><p>　　軟硬件環(huán)境硬件配置：486以上檔次的計(jì)算機(jī)，彩色顯示器，內(nèi)存>8M,硬盤>200M。軟件配置：Windows 95/98/2000/xp操作系統(tǒng)，Visual Basic 6.0數(shù)據(jù)庫管理系統(tǒng)。</p><p>　　2.  應(yīng)用系統(tǒng)安裝

89、 直接拷貝：把應(yīng)用系統(tǒng)光盤插入到驅(qū)動(dòng)器中，在任意盤目錄下建立子文件夾畢業(yè)設(shè)計(jì)，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設(shè)計(jì)中。初次運(yùn)行時(shí)，須對(duì)某些文件進(jìn)行重定向。</p><p>　　3. 操作方法(1) 啟動(dòng)應(yīng)用系統(tǒng) 先啟動(dòng)Visual Basin 6.0運(yùn)行后綴為“.exe” 可執(zhí)行文件。</p><p><b>　　(2)登陸系統(tǒng) <

90、/b></p><p>　　輸入用戶名和準(zhǔn)確的密碼，進(jìn)入父窗體，即可進(jìn)入相應(yīng)的子系統(tǒng)，選擇“退出“按鈕可以退出系統(tǒng)。</p><p>　　(3)用戶管理，可以進(jìn)行添加和刪除用戶。（管理員權(quán)限）</p><p>　　添加：輸入用戶編號(hào)，用戶名字，用戶密碼以及密碼確認(rèn)，就可以添加為公司管理系統(tǒng)用戶。</p><p>　　刪除：輸入用戶編號(hào)，

91、經(jīng)確認(rèn)之后，再輸入用戶密碼，即可以刪除用戶。</p><p><b>　　系統(tǒng)自我評(píng)價(jià)</b></p><p>　　本系統(tǒng)是針對(duì)學(xué)校開發(fā)的信息、學(xué)籍、圖書館管理軟件，實(shí)現(xiàn)對(duì)學(xué)校現(xiàn)代化信息管理。</p><p>　　學(xué)籍管理系統(tǒng)以學(xué)號(hào)和員工號(hào)生成，能夠快速的錄入成績(jī)、設(shè)置課程等，極大的方便了學(xué)校對(duì)于學(xué)生成績(jī)和員工工作狀況的管理；而信息管理系統(tǒng)是與

92、學(xué)籍管理系統(tǒng)數(shù)據(jù)共享的，其中各式各樣的報(bào)表方便了信息的管理；圖書館管理系統(tǒng)則是現(xiàn)代學(xué)校的典型的一個(gè)管理系統(tǒng)，它實(shí)現(xiàn)了對(duì)書籍的各式管理。</p><p>　　系統(tǒng)總體結(jié)構(gòu)：系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化。</p><p><b>　　1.信息系統(tǒng)化</b></p><p>　　通過該系統(tǒng)，將實(shí)現(xiàn)各種數(shù)據(jù)的共享，方便了信息

93、的管理。</p><p>　　2.學(xué)校管理系統(tǒng)規(guī)范化</p><p>　　該系統(tǒng)只要包括：信息管理系統(tǒng)、學(xué)籍管理系統(tǒng)、圖書館管理系統(tǒng)，這些管理系統(tǒng)將建立在一個(gè)規(guī)范標(biāo)準(zhǔn)的界面之上，大大提高了學(xué)校的管理水平。</p><p>　　3.圖書資料檢索借閱自動(dòng)化</p><p>　　通過圖書館管理系統(tǒng)，實(shí)現(xiàn)圖書檢索和借閱，從而一方面能作到資料共享。另一

94、方面，能大大簡(jiǎn)化借閱手續(xù)，提高圖書利用率和圖書管理工作效率。</p><p><b>　　8.1優(yōu)點(diǎn)</b></p><p>　　接口美觀大方，界面風(fēng)格統(tǒng)一。整個(gè)系統(tǒng)包含了學(xué)生信息管理，員工信息管理，班級(jí)信息管理，課程信息管理，成績(jī)信息管理，綜合測(cè)評(píng)，畢業(yè)管理，這幾部分都能夠非?？旖莸膶?duì)資料內(nèi)容進(jìn)行添加修改刪除以及報(bào)表打印等操作。</p><p&g

95、t;<b>　　8.2缺點(diǎn)</b></p><p>　　學(xué)校管理系統(tǒng)的局限性：該系統(tǒng)是單機(jī)版，所以使用范圍得到了限制。不能實(shí)現(xiàn)局域網(wǎng)上的多臺(tái)機(jī)器，共享同一數(shù)據(jù)庫。而信息管理系統(tǒng)，需要多個(gè)職能部門來參與管理，比如學(xué)生信息以及成績(jī)的錄入，需要教師來管理。 而教師的信息需要學(xué)校教務(wù)部門來管理。圖書信息的管理，需要圖書館來完成。 因此，系統(tǒng)的單機(jī)性質(zhì)，制約了系統(tǒng)在學(xué)校的廣泛應(yīng)用。</p>

96、<p>　　查詢模塊做的不是很理想，只能進(jìn)行單條件查詢。系統(tǒng)不是很完善，有待補(bǔ)充。</p><p><b>　　8.3可擴(kuò)充內(nèi)容</b></p><p>　　使用者的權(quán)限，成績(jī)管理部分，數(shù)據(jù)庫備份和恢復(fù)等。</p><p><b>　　致謝</b></p><p>　　在本次畢業(yè)設(shè)計(jì)中

97、，我從指導(dǎo)老師陳桂生老師身上學(xué)到了很多東西。陳老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開發(fā)過程中同組的同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同樣給與我不少幫助，這里一并表示感謝。</p><p>&l

98、t;b>　　參考資料：</b></p><p>　　1．協(xié)同教育微軟ATC教材編譯室 編著 《開發(fā)工具專家 Visual Basic 6.0 培訓(xùn)教程》 電子工業(yè)出版社 </p><p>　　2．上海市計(jì)算機(jī)應(yīng)用能力考核辦公室 編《計(jì)算機(jī)應(yīng)用教程——Access 2000》 復(fù)旦大學(xué)出版社 </p><p>　　3．明日科技 高春艷 李艷

99、谷偉東 編著《Visual Basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用》 人民郵電出版社 </p><p>　　4．源江科技/編著《VB編程技巧280例》 上?？茖W(xué)普及出版社 </p><p>　　5．佳文工作室創(chuàng)作《Visual Basic6.0編程實(shí)例教程》 電子工業(yè)出版社 </p><p>　　6．王珊 陳紅編著《數(shù)據(jù)庫系統(tǒng)原理教程》 清華大學(xué)出

100、版社 </p><p>　　7．劉圣才 李春葆編著《Visual Basic6.0 程序設(shè)計(jì)導(dǎo)學(xué)》 清華大學(xué)出版社 </p><p>　　8．周國(guó)民 《Visual Basic + Access數(shù)據(jù)庫項(xiàng)目開發(fā)實(shí)踐》 中國(guó)鐵道出版社</p><p>　　9．段興 《Visual Basic 6.0控件實(shí)用程序設(shè)計(jì)100例》 人民郵電出版社 </p>

101、;<p>　　10．Kris Jamsa 博士Lars Klander博士 著 《Visual Basic 程序設(shè)計(jì)技巧1001例》 電子工業(yè)出版社 </p><p><b>　　附錄部分</b></p><p>　　*實(shí)習(xí)管理窗體（實(shí)習(xí)管理.frm）</p><p>　　Dim 實(shí)習(xí)表 As ADODB.Recordset<

102、;/p><p>　　Private Sub Command1_Click()</p><p><b>　　'判斷是否有權(quán)限</b></p><p>　　If admin = 0 Then</p><p>　　MsgBox "你不是管理員,沒有此權(quán)限！", vbExclamation + vbOKO

103、nly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　實(shí)習(xí)表.AddNew '添加記錄</p><p>　　Command1.Enabled = False</p>&

104、lt;p>　　Command2.Enabled = False</p><p>　　Command5.Visible = True</p><p>　　Command4.Enabled = True</p><p>　　Command7.Visible = False</p><p>　　Command8.Visible = True&

105、lt;/p><p>　　Adodc1.Enabled = False</p><p>　　Text1.Enabled = True</p><p>　　Text2.Enabled = True</p><p>　　Text3.Enabled = True</p><p>　　Text4.Enabled = True<

106、/p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p>　　Adodc1.Recordset.MovePrevious</p><p>　　If Adodc1.Recordset.BOF = True Then</p>&

107、lt;p>　　Adodc1.Recordset.MoveFirst</p><p>　　MsgBox ("已到首記錄")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Com

108、mand11_Click()</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　MsgBox ("已到末記錄")<

109、;/p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command12_Click()</p><p>　　Adodc1.Recordset.MoveLast</p><p><b

110、>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　'判斷是否有權(quán)限</b></p><p>　　If admin = 0 Then</p><p>　　MsgBox "你不是管理員,沒有此權(quán)限！&qu

111、ot;, vbExclamation + vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Command1.Enabled = True </p><p>　　Command

112、4.Enabled = True</p><p>　　Command2.Visible = False</p><p>　　Command5.Visible = False</p><p>　　Command7.Visible = True</p><p>　　Command8.Visible = True</p><p&

113、gt;　　Adodc1.Enabled = True</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p&

114、gt;<b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　實(shí)習(xí)表.CancelUpdate </p><p>　　Command7.Visible = False</p><p>　　Command8.Visible = False&

115、lt;/p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Adodc1.Enabled = True</p><p>　　Text1.Enabled =

116、False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub

117、 Command4_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　'判斷是否有權(quán)限</b&g

118、t;</p><p>　　If admin = 0 Then</p><p>　　MsgBox "你不是管理員,沒有此權(quán)限！", vbExclamation + vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　

119、　End If</b></p><p>　　實(shí)習(xí)表.Update</p><p>　　Command5.Visible = False</p><p>　　Command2.Visible = False</p><p>　　Command1.Enabled = True</p><p>　　Command

120、8.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　Command7.Visible = True</p><p>　　Adodc1.Enabled = True</p><p>　　Text1.Enabled = False</p><p>　　T

121、ext2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p>

122、<p>　　實(shí)習(xí)表.CancelUpdate </p><p>　　Command5.Visible = False</p><p>　　Command2.Visible = True</p><p>　　Command1.Enabled = True</p><p>　　Command4.Enabled = True</p&

123、gt;<p>　　Adodc1.Enabled = True</p><p>　　Text1.Enabled = False</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text4.Enabled = False</p&

124、gt;<p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p><b>　　'判斷是否有權(quán)限</b></p><p>　　If admin = 0 Then</p><p>　　MsgBox &qu