試題庫管理系統(tǒng)畢業(yè)論文

1、<p><b>　　摘 要</b></p><p>　　隨著計算機技術(shù)的發(fā)展，各行各業(yè)中計算機都已經(jīng)普及，尤其是在學(xué)校，考試跟學(xué)生的關(guān)系是非常密切的，考試的出題也是一個比較麻煩的問題，要花費大量的時間和精力，教師出題工作量大，勞動強度高，而且試題的保存也比較占地方，而且試題多了也顯得亂，基于以上這幾點考慮，為了解決考試試題的多樣性、隨機性和上述一些問題，教師擁有一套試題庫管理管

2、理系統(tǒng)是非常必要的。該試題庫管理系統(tǒng)就可以摒棄傳統(tǒng)試題的手工整理的麻煩，而且可以減少出題的精力和時間。</p><p>　　這個試題庫管理系統(tǒng)是基于Windows平臺，采用了Visual Basic 6.0編程和SQL Server數(shù)據(jù)庫技術(shù)。此系統(tǒng)包含試題管理、試卷管理、課程管理、用戶管理和幫助這五大功能。為了實系統(tǒng)這些功能，我建立了數(shù)據(jù)庫exam，該數(shù)據(jù)庫共中共包含Users(用戶表)，Class(課程表),

3、Titles(題型表),Exams(試題表),Papaers(試卷表),QuestionP(試卷題目表)這幾個表。能夠?qū)崿F(xiàn)的主要功能有錄入試題，查詢試題，修改試題，修改/添加/刪除用戶，課程添加/刪除，題型添加/刪除，修改密碼，自動組卷等。另外根據(jù)用戶的權(quán)限不同，可以訪問不同的模塊。其中系統(tǒng)管理員可以管理各個用戶，而科目教師只能管理所授科目的所有信息不能越權(quán)操作。</p><p>　　【關(guān)鍵字】試題庫　　試卷管理

4、　　試題庫管理系統(tǒng)</p><p><b>　　ABSTRACT</b></p><p>　　Along with the computer technology development, in all the various trades and occupations the computer all already popularized, in the sch

5、ool, took a test with student's relations was extremely close in particular, the test set the topic of a composition also is a quite troublesome question, had to spend the massive time and the energy, the teacher set

6、s the topic of a composition the work load to be big, the labor intensity was high, moreover the test question preservation also compared occupies</p><p>　　This tries the question bank management system mana

7、gement system is based on the Windows platform, has used Visual the Basic 6.0 programming and SQL the Server data bank technology. This system contains the test question management, the examination paper management, the

8、curriculum manages, the user manages and helps these five big functions. For real system these functions, I have established database exam, this database altogether Chinese Communist Party contains Users (user table), Cl

9、ass (clas</p><p>　　【Keywords】　the question bank the examination paper management </p><p>　　question bank management system </p><p><b>　　目 錄</b></p><p&g

10、t;<b>　　摘 要1</b></p><p>　　ABSTRACT2</p><p>　　第一章 前 言4</p><p>　　第二章 系統(tǒng)分析5</p><p>　　2.1 可行性分析．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．5</p>

11、<p>　　2.2 需求分析．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．5</p><p>　　2.3　設(shè)計工具簡介．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．6</p><p>　　第三章 系統(tǒng)設(shè)計8</p><p>　　3．1模塊圖及系統(tǒng)總流程．．．．

12、．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．8</p><p>　　3.1.1登陸模塊9</p><p>　　3.1.2試題管理模塊10</p><p>　　3.1.3題型設(shè)置模塊11</p><p>　　3.1.4查詢試題模塊11</p><p>　　3.1.5試卷管理模塊12<

13、/p><p>　　3.1.6課程設(shè)置模塊13</p><p>　　3.1.7用戶管理模塊14</p><p>　　3.1.8幫助模塊14</p><p>　　3.2數(shù)據(jù)庫的分析與設(shè)計．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．14</p><p><b>　　結(jié)束語16<

14、;/b></p><p><b>　　致謝16</b></p><p><b>　　參考文獻16</b></p><p><b>　　附程序源碼17</b></p><p><b>　　第一章 前 言</b></p><

15、p>　　考試在我國古代就已經(jīng)有了很大的發(fā)展，早在1300年以前就有了科舉制度。但這種考試不規(guī)范、不嚴密，不能客觀、準確地評估一個人的能力水平。第二次世界大戰(zhàn)結(jié)束后，考試在社會生活中的地位進一步提高， 資格證書考試也就應(yīng)運而生。這種考試次數(shù)頻繁，命題工作量大，并且對考試的測量學(xué)特性要求更加嚴格，不少考生要求結(jié)果相互可比，因此，建立高質(zhì)量、大容量的現(xiàn)代化題庫成為必要。目前，經(jīng)濟發(fā)達國家已經(jīng)建立了完善的考試專業(yè)機構(gòu)。各機構(gòu)也都根據(jù)自己所

16、承擔的職能建立起了大型題庫。</p><p>　　傳統(tǒng)的考試出題總是教師考前集中出題、集中組卷，這樣很難保證試卷的質(zhì)量，進而不能準確反映學(xué)生的學(xué)習(xí)效果。為促進教學(xué)手段的現(xiàn)代化，提高教學(xué)質(zhì)量，減輕教師在出題、組卷和成績分析中的工作量，本系統(tǒng)在VB編程環(huán)境下開發(fā)了這套能實現(xiàn)試題管理軟件。</p><p>　　試題庫系統(tǒng)作為教學(xué)手段現(xiàn)代化的重要組成部分，與數(shù)據(jù)庫相結(jié)合，發(fā)揮著很大的作用。該軟件在

17、Windows XP操作系統(tǒng)下，采用Visual Basic語言開發(fā)而成，具有Windows風(fēng)格，其主要特點如下：</p><p>　　1、圖形化界面、可操作性強、通用性強：界面和菜單顯而易見，所以即使是計算機基礎(chǔ)很差的用戶經(jīng)過簡單的培訓(xùn)后，也能很快地熟練操作。</p><p>　　2、安全性：試題庫管理系統(tǒng)必須要有極其強大的安全性。本系統(tǒng)會在內(nèi)部設(shè)制權(quán)限來控制用戶的操作。提高整個系統(tǒng)的安

18、全性。</p><p>　　3、通過其錄入模塊錄入試題后，即可形成本課程的試題庫系統(tǒng)，而且系統(tǒng)還具有自動組卷功能、試題查詢等功能，從而可以實現(xiàn)教考分離。</p><p>　　4、強大的提示性功能：該系統(tǒng)將具有較強的糾錯能力，當運行時，用戶操作錯誤時會提出相當?shù)牡木荆茏詣颖Ｗo系統(tǒng)避免系統(tǒng)出錯。</p><p><b>　　第二章 系統(tǒng)分析</b&

19、gt;</p><p>　　如今是信息化的時代，學(xué)校、企事業(yè)單位的電腦特別是PC機已相當普及，對試題進行電腦化管理已具備了足夠的硬件條件，本系統(tǒng)是在電腦中進行試題管理的一種軟件，提供友好的界面，結(jié)合數(shù)據(jù)庫技術(shù)，具有易學(xué)、易懂、易操作的優(yōu)點，本軟件的開發(fā)一定能得到廣大用戶的歡迎。</p><p>　　考試是檢查學(xué)生對知識掌握程度的一種考核，試題的管理，特別是學(xué)校對試題的管理不能停留在普通試卷

20、存檔上，無紙化的試題管理才能適應(yīng)當今的發(fā)展潮流，具有試題更新方便、組卷快的特點。本系統(tǒng)的開發(fā)的目的就是要對試題進行集中、有序、有效的管理。</p><p>　　2.1 可行性分析</p><p>　　隨著現(xiàn)代教育事業(yè)的發(fā)展，教學(xué)手段現(xiàn)代化問題顯得越來越重要。試題庫的管理，特別是學(xué)校的試題庫具有量大、種類多的特點，常規(guī)管理有工作量大、查詢困難、不易更新的缺點，試題庫管理系統(tǒng)可對試題實行科學(xué)

21、的管理，利用現(xiàn)代電腦功能強大、運算速度快的優(yōu)點，對試題進行集中、有序、有效的管理，更新方便、查詢快捷、組卷靈活，大大降低了勞動強度，需用密碼登錄系統(tǒng)，具有一定的安全性。</p><p>　　可行性研究主要集中在四個方面：（1）經(jīng)濟可行性（2）技術(shù)可行性（3）法律可行性（4）技術(shù)可行性由于時間的限制，雖然還存在在著一些問題，但是也有其優(yōu)點：</p><p>　　1、圖形化界面、菜單欄，工具欄

22、清晰地展現(xiàn)系統(tǒng)的功能。</p><p>　　2、系統(tǒng)安全性：試題庫管理系統(tǒng)必須要有極其強大的安全性。</p><p>　　3、高效性：試題庫管理系統(tǒng)應(yīng)該具有的強大適應(yīng)能力和簡便實現(xiàn)能力。系統(tǒng)運行的高效性是我們追求的目標之一。</p><p>　　4、本系統(tǒng)開發(fā)成本低，風(fēng)險小。</p><p>　　2.2 需求分析</p>&

23、lt;p>　　(一)在考試過程中，教師工作存在以下問題：</p><p>　　1、必須事先找好要出的試題、并且是最好的試題。有時教師在教學(xué)過程中，發(fā)現(xiàn)了很好的試題，只好記在書上或本子上，這是很容易忘記的事，等到要再用的時候，才發(fā)現(xiàn)試題不知放到哪了；</p><p>　　2、找好試題之后，整理試題也是一項要花費大量時間的問題；</p><p>　　3、整理好試題

24、后，要把試題輸入到計算機中，以進行打印。當教師想把上次或以前的某些試題再放到試卷中時，必須再重新輸入一次，給工作帶來了許多時間的浪費；</p><p>　　4、還有一個問題，當下次出試卷時，很難找到以前試卷的原樣。</p><p><b>　　（二）功能分析</b></p><p><b>　?。?）數(shù)據(jù)的錄入：</b>&

25、lt;/p><p>　　把系統(tǒng)中所需要的信息錄入進去，包括，用戶信息的錄入，題型的錄入，課程的錄入，試題的錄入等。</p><p><b>　　（2）數(shù)據(jù)的查詢：</b></p><p>　　根據(jù)已有的條件查詢需求的信息,本系統(tǒng)的查詢主要是試題的查詢，可以根據(jù)試題號，試題的難易程度，試題的題型來查詢。</p><p>　?。?/p>

26、3）數(shù)據(jù)的修改和刪除：</p><p>　　包括題型、試題、課程的修改刪除等。</p><p><b>　　（4）用戶的管理：</b></p><p>　　用戶的增加、刪除及密碼修改。</p><p><b>　　2.3設(shè)計工具簡介</b></p><p>　　Visual

27、Basic</p><p>　　Visual Basic是創(chuàng)建Windows應(yīng)用程序最快捷、最容易的工具。Visual Basic提供了一整套簡化快速應(yīng)用程序開發(fā)的工具集。</p><p>　　Visual指的是創(chuàng)建圖形用戶界面（GUI）所使用的方法。不用編寫許多行代碼來描述界面元素的外形和位置，你只需簡單地在屏幕上添加一個預(yù)先創(chuàng)建的對象即可。假如你已使用過像畫筆（Paint）之類的畫圖程

28、序，你就已經(jīng)有了創(chuàng)建有效的用戶界面所必需的大部分技巧。</p><p>　　無論你是要創(chuàng)建個人還是工作組的小型實用程序或者企業(yè)級大型系統(tǒng)，Visual Basic都有能滿足你要求的工具。</p><p>　　其數(shù)據(jù)訪問的特性可以創(chuàng)建數(shù)據(jù)庫、前端應(yīng)用程序和應(yīng)用于大多數(shù)流行數(shù)據(jù)庫格式的可伸縮服務(wù)端組件。ActiveX技術(shù)允許你使用由其他應(yīng)用程序所提供的功能，如由Word字處理程序、Excel電

29、子表格和其他Windows應(yīng)用程序提供的功能。Visual Basic的因特網(wǎng)功能，使你可以通過因特網(wǎng)很容易從你的應(yīng)用程序訪問文檔和其他應(yīng)用程序，或創(chuàng)建因特網(wǎng)服務(wù)器應(yīng)用程序。</p><p>　　對于Visual Basic來說，它的主要優(yōu)點是很容易理解，許多編程工作都很容易完成，基本上隱藏了Windows API和COM組件結(jié)構(gòu)的內(nèi)涵。其缺點是Visual Basic從來沒有實現(xiàn)真正意義上的面向?qū)ο?，所以大型?yīng)

30、用程序很難分解和維護。另外，因為VB的語法繼承于BASIC的早期版本(BASIC主要是為了讓初學(xué)者更容易理解，而不是為了編寫大型商業(yè)應(yīng)用程序)，所以不能真正成為結(jié)構(gòu)化或面向?qū)ο蟮木幊陶Z言。</p><p>　　SQL Server</p><p>　　Microsft SQL Server,是基于客戶端/服務(wù)器模式的新一代大型關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。它在電子商務(wù)、數(shù)據(jù)他庫和數(shù)據(jù)庫解決方案等應(yīng)

31、用中起著重要的核心作用，為企業(yè)的數(shù)據(jù)管理提供強大的支持，對數(shù)據(jù)為患 的數(shù)據(jù)提供有效的管理，并采用有效的措施實現(xiàn)數(shù)據(jù)的完整性及數(shù)據(jù)的安全性。</p><p><b>　　第三章 系統(tǒng)設(shè)計</b></p><p>　　3．1模塊圖及系統(tǒng)總流程</p><p><b>　　功能結(jié)構(gòu)圖</b></p><p&

32、gt;<b>　　系統(tǒng)總流程</b></p><p>　　本系統(tǒng)統(tǒng)包括以下六大模塊，即登陸、試題管理模塊，試卷模塊，課程管理模塊，查詢模塊，幫助和用戶管理模塊。</p><p>　　3.1.1登陸模塊：</p><p>　　考慮到試題庫系統(tǒng)的的安全性，每個用戶都有自己的密碼，用戶只有輸入正確密碼，才能進入本系統(tǒng)的主菜單界面。而在主界面中，用戶可

33、以根據(jù)自己的權(quán)限選擇系統(tǒng)所提供的功能。而系統(tǒng)管理員還可以添加、刪除修改用戶，查看、刪除和增加各種題型和科目。</p><p><b>　　設(shè)計構(gòu)思</b></p><p>　　系統(tǒng)運行時，首先是一個簡單明了的登陸界面。用戶需要輸入“用戶名”，“密碼”，系統(tǒng)將所填寫的資料與exam數(shù)據(jù)庫里的用戶表資料核對，經(jīng)核對正確以后，考生才能進入主界面，否則退出登陸。</p&

34、gt;<p><b>　　登陸界面</b></p><p>　　登陸后，就是主菜單界面。用戶可以根據(jù)需要來選擇主菜單所提供的功能。系統(tǒng)主界面截取圖如下：</p><p>　　3.1.2試題管理模塊：</p><p>　　此菜單具有以下子菜單：“錄入試題”、“編輯試題”、“查詢試題”、“題型設(shè)置”。</p><p

35、>　?。ǎ保颁浫朐囶}”：即添加新的試題，該菜單和“編輯試題”菜單單擊后鏈接到一個界面。</p><p><b>　　設(shè)計構(gòu)思：</b></p><p>　　系統(tǒng)設(shè)置了兩個Combo控件，可以選擇題型及題型的難易程度，另外試題的題號是繼上一題目自動遞增的。還有設(shè)置了兩個Richtextbox控件用于錄入題目和試題的答案。還有一個Datagrid控件和一個ADOD

36、C控件可以即時顯示剛添加的試題，能做到瀏覽方便，而且也便于修改試題和刪除試題時能清晰地看清每個題的題目、答案、錄入人員，題號等相關(guān)信息。界面如下：</p><p>　?。ǎ玻熬庉嬙囶}”：包括修改試題和刪除試題，可以對剛才用“添加試題”按鈕加入的試題進行修正和刪除。</p><p><b>　　設(shè)計構(gòu)思：</b></p><p>　?。?）“修

37、改試題”：通過雙擊Datagrid控件的一行，使該行的相關(guān)信息（題型，難易程度，題目，答案）進入到各信息對應(yīng)的地方處于可編輯狀態(tài)進行編輯。編輯后再占擊“修改試題“按鈕保存對剛才試題的修改。</p><p>　?。?）刪除試題：在Datagrid中選中要修改行，點擊“刪除試題”即可。單擊后，該行即從Datagrid中消失，同時更改Exams表，使相對應(yīng)的記錄刪除。</p><p>　　3.1

38、.3題型設(shè)置模塊：</p><p>　　該模塊包括“添加”、“刪除”、“修改題型”三個子功能。界面如下圖所示：</p><p>　　進入此模塊系統(tǒng)會自動記錄用戶登錄時的科目（如語文），也就是說，用戶只能設(shè)置所教課程（語文）的題型，不能越權(quán)設(shè)置。</p><p><b>　　設(shè)計構(gòu)思：</b></p><p>　　“添加題

39、型”后，新增的題型會在list1中顯示，另外還要在Titles表中添加新題型。“修改題型”后會將修改后的題型保存?！皠h除題型”，需要在list中刪除，同時從Titles表中刪除。“返回”即是關(guān)閉該窗口</p><p>　　3.1.4查詢試題模塊：</p><p>　　該模塊可以根據(jù)已知條件，查詢試題題目和答案。</p><p><b>　　設(shè)計構(gòu)思：<

40、;/b></p><p>　　此處設(shè)置了三個查詢條件：試題類型，難易程度和試題題號。屬于單選按鈕option，查詢出結(jié)果后即時在Datagrid控件中顯示，同時設(shè)置兩個Richtextbox控件，處于非編輯狀態(tài)，鼠標選項中Datagrid中的某一行時，該行的詳細信息會在Richtextbox中顯示，</p><p>　　此功能復(fù)雜之處在于涉及到Exam表，Titles表,Classe

41、s表三個表，sql句中需要進行必要的關(guān)聯(lián)。界面中顯示的信息只能查看，不能修改，如果要修改需要在上面介紹的“編輯試題”菜單中進行。該模塊的流程圖如下：</p><p>　　“查詢試題”界面如下:</p><p>　　3.1.5試卷管理模塊：</p><p>　　此菜單設(shè)置了一項功能：自動組卷功能。</p><p><b>　　設(shè)計構(gòu)思

42、：</b></p><p>　　需要填入試卷名稱，試卷標題，還需要選擇題型以及每個題型的題量。此模塊有兩個地方難實現(xiàn)：（1）在添加題型時，在text處需要輸入題量，需要統(tǒng)計出數(shù)據(jù)庫中每一題型的總題量，輸入的題量不能超過總題量。（2）在組卷時，需要利用隨機函數(shù)選擇試題，但是由于隨機函數(shù)的隨機性，就需要循環(huán)判斷每一次選擇的試題是否已經(jīng)添加到試卷中，防止一個試題添加兩次。</p><p&

43、gt;　　添加完試題及試題的數(shù)量以后就可以點擊“組卷”進行自動組卷，鏈接到另一個界面，設(shè)置一個richtextbox顯示組卷完成的內(nèi)容，以達到一目了然的效果，另外，設(shè)計“保存試卷”按鈕，可以將組的試卷存放在.txt文件中。界面如下：</p><p>　　3.1.6課程設(shè)置模塊：</p><p>　　可以添加、刪除、修改課程，這一模塊只能由系統(tǒng)管理員使用。某一科目教師無權(quán)使用該功能。<

44、/p><p><b>　　設(shè)計構(gòu)思：</b></p><p>　　在課程名處填寫要添加的課程，描述不是必須的。在“添加題型”后，需要在list1中顯示，另外還要對應(yīng)地在后臺Classes表中添加新課程?！靶薷恼n程”后會將修改后的題型保存。“刪除題型”，需要在list中刪除，同時從Classes表中刪除。界面如下圖所示：</p><p>　　3.1.

45、7用戶管理模塊：</p><p>　　此模塊具有“添加用戶”，“刪除用戶”和“修改密碼”三個功能。添加用戶和刪除用戶只能由管理員使用。</p><p><b>　　設(shè)計構(gòu)思：</b></p><p>　　添加用戶需要輸入用戶名，密碼，科目名稱，以及用戶的類型（系統(tǒng)管理員或科目管理員）添加后在list中顯示，同時要在Users表中添加新記錄.刪除

46、用戶要在list中刪除，同時在Users表中刪除該記錄。修改密碼功能是每個用戶都可以用的，只要用戶名和舊密碼輸入正確，就可以更改新密碼，所以具有一定的安全性。界面略。</p><p>　　3.1.8幫助模塊：</p><p>　　目前只添加了“關(guān)于”下拉菜單。</p><p>　　3.2數(shù)據(jù)庫的分析與設(shè)計</p><p>　　打開SQL se

47、rver企業(yè)管理器，新建一個數(shù)據(jù)庫，名稱為exam。</p><p>　　建好空數(shù)據(jù)庫后，再建立各張表:</p><p>　　數(shù)據(jù)庫中各表的字段設(shè)置如下：</p><p>　　Users（用戶表）：</p><p>　　Username（char,15,用戶名）——主鍵</p><p>　　Password（char,

48、10,密碼）</p><p>　　Usertype（smallint,2權(quán)限）</p><p>　　Classname (char30,課程名)</p><p>　　Classes（課程表）：</p><p>　　Classid(int4課程號）——主鍵</p><p>　　Classname(char 3

49、0 課程名）</p><p>　　Des (text16描述）</p><p>　　Titles（題型表）：</p><p>　　Classid (int 4課程號）——主鍵</p><p>　　Titlename(char 20 題型名）——主鍵</p><p>　　Exams（試題表）：<

50、/p><p>　　Examid（int4試題號）——主鍵</p><p>　　Classid（int4課程號）</p><p>　　Titlename（char20題型名）</p><p>　　Question（text16問題）</p><p>　　Answer（text16答案）</

51、p><p>　　Username（char15用戶名）</p><p>　　nanyi（char16難易程度）</p><p>　　Papers（試卷表）</p><p>　　Paperid（int4試卷號）——關(guān)鍵字</p><p>　　Papername（char30試卷名）</p>

52、<p>　　Username（char15用戶名）</p><p>　　Header（char60試卷標題）</p><p>　　Des（text16試卷描述）</p><p>　　Classname（char30試卷的課程名）</p><p>　　QuestionP（試卷題目表）：</p>

53、<p>　　Id(int4實際題號)</p><p>　　Paperid(int4試卷號)</p><p>　　Examid(int4試題號)</p><p><b>　　結(jié)束語</b></p><p>　　本系統(tǒng)以“實用”為基本指導(dǎo)思想，在數(shù)據(jù)庫選擇方面做了細致的研究和對比，在綜合分析了各

54、種數(shù)據(jù)庫的優(yōu)缺點和試題庫的特點后選用了穩(wěn)定實用的SQL Server數(shù)據(jù)庫；在對試題庫功能做了大量分析后，確定了本系統(tǒng)的數(shù)據(jù)結(jié)構(gòu)；本系統(tǒng)界面友好，易于使用，通用性強；在自動組卷、試題查詢和試題錄入等功能的設(shè)計方面突出體現(xiàn)了其實用性。 同時，本系統(tǒng)的自動組卷模塊設(shè)計尚需進一步完善，試卷預(yù)覽也應(yīng)進一步改善，應(yīng)不斷提高試卷顯示功能，另外手工組卷，在初步分析階段也列在其中，但由于時間原因，在該系統(tǒng)中沒做考慮。另外以后還可以考慮把“組卷內(nèi)

55、容直接打印形成word文檔”功能加入其中，這樣系統(tǒng)功能就可以做到非常完善。</p><p>　　系統(tǒng)在設(shè)計過程中遇到不少難題。雖然，我們不是全都解決，更重要的是學(xué)會了書本上學(xué)不到的知識和方法。在此我要感謝那些在我們設(shè)計過程中給我們的提出了不少寶貴意見的老師和同學(xué)，有了他們的幫助才使此系統(tǒng)的功能逐漸完善，從而基本都能順利使用。</p><p><b>　　致謝</b>&

56、lt;/p><p>　　現(xiàn)在我們的系統(tǒng)已基本完成，其中夾有我很多的艱辛也有快樂。在此我要對各位指導(dǎo)師老師：xx老師說聲：“謝謝”。另外我還要感謝在這兩個月的設(shè)計過程給過我?guī)椭耐瑢W(xué)們。</p><p><b>　　參考文獻</b></p><p>　?。薄isual Basic程序設(shè)計教程（第二版） 劉炳文 清華大學(xué)出版社</p>

57、<p>　?。病isual Basic編程實例教程 袁帥 希望電子出版社</p><p>　?。场QL Server實用教程 鄭阿奇 電子工業(yè)出版社</p><p>　?。础⒐芾硇畔⑾到y(tǒng) 北京大學(xué)出版社</p><p>　?。?、MSDN Microsoft </p><p&

58、gt;<b>　　附程序源碼</b></p><p><b>　　登陸界面</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim mysql As String '存放sql語句</p><p>　　If

59、Trim(Text1.Text) = "" Then '用戶名為空</p><p>　　MsgBox "請輸入用戶名", vbOKOnly + 48, "警告"</p><p><b>　　Exit Sub</b></p><

60、;p><b>　　End If</b></p><p>　　If Trim(Text2.Text) = "" Then '密碼為空</p><p>　　MsgBox "密碼不能為空", vbOKOnly + 48, "警告"</p

61、><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　mysql = "select * from users where username='" & Text1.Text & "'"<

62、/p><p>　　Dim objconn As ADODB.Connection '聲明connection對象</p><p>　　Set objconn = New ADODB.Connection '實例化</p><p>　　Dim connectionstring As String '指定數(shù)

63、據(jù)庫連接,指定連接字符串</p><p>　　connectionstring = "DSN=wang;"</p><p>　　objconn.Open connectionstring</p><p>　　Dim objrs As ADODB.Recordset '聲明</p><p>　　Se

64、t objrs = New ADODB.Recordset '實例化</p><p>　　objrs.Open Trim$(mysql), objconn, adOpenKeyset, adLockOptimistic '前:上下移動指針,后:查詢的記錄放在objrs,可增刪改等.</p><p>　　If objrs.EOF Then</p>

65、<p>　　MsgBox "沒有這個用戶請重新輸入", vbOKOnly + 48, "警告"</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　If Trim(objrs.Fields(1)) = Trim(Text2.Te

66、xt) Then '普通用戶登陸系統(tǒng)，設(shè)置可使用的菜單和工具欄</p><p>　　UserName = Text1.Text</p><p>　　If objrs.Fields(2) = 1 Then</p><p>　　ClassName = objrs.Fields(3)</p><p>　　MDIFrmmain.mnu_stg

67、l.Enabled = True</p><p>　　MDIFrmmain.mnu_sjgl.Enabled = True</p><p>　　MDIFrmmain.mnu_kcgl.Enabled = False</p><p>　　MDIFrmmain.mnu_yhgl.Enabled = False</p><p>　　Else 

68、9;管理員登陸，設(shè)置可使用的菜單并隱藏工具欄</p><p>　　MDIFrmmain.mnu_stgl.Enabled = False</p><p>　　MDIFrmmain.mnu_sjgl.Enabled = False</p><p>　　MDIFrmmain.mnu_kcgl.Enabled = True</p><p>　　MD

69、IFrmmain.mnu_yhgl.Enabled = True</p><p>　　MDIFrmmain.Toolbar1.Visible = False</p><p><b>　　End If</b></p><p>　　MDIFrmmain.Show</p><p><b>　　Unload Me<

70、;/b></p><p><b>　　Else</b></p><p>　　MsgBox "密碼錯誤,請重新輸入!", vbOKOnly + 48, "警告"</p><p>　　Text1.Text = ""</p><p>　　Text2.Text =

71、 ""</p><p>　　Text2.SetFocus</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　Set objconn = Nothing</p><p>　　Set rst

72、 = Nothing</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p>

73、<p><b>　　2、錄入試題界面</b></p><p>　　Public connectionstring As String</p><p>　　Dim hao As String '存放課程號</p><p>　　Private Sub Command1_Click() '添加試題</

74、p><p>　　Dim max As Integer '存放最大的試題號</p><p>　　RichTextBox1.SetFocus</p><p>　　If RichTextBox1.Text = "" Or RichTextBox2.Text = "" Then</p>&

75、lt;p>　　MsgBox "請輸入題目和答案！", vbOKOnly, "提示"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　connectionstring = "DSN=wang&q

76、uot;</p><p>　　Dim tsql As String</p><p>　　Dim ssql As String</p><p>　　Dim objconn1 As ADODB.Connection</p><p>　　Dim objrs1 As ADODB.Recordset</p><p>　　Set

77、objconn1 = New ADODB.Connection</p><p>　　Set objrs1 = New ADODB.Recordset</p><p>　　objconn1.Open connectionstring</p><p>　　ssql = "select max(Examid) from Exams "</p>

78、;<p>　　objrs1.Open Trim(ssql), objconn1, adOpenKeyset, adLockOptimistic</p><p>　　max = objrs1.Fields(0)</p><p>　　objrs1.Close</p><p>　　tsql = "select * from Exams"&

79、lt;/p><p>　　objrs1.Open Trim(tsql), objconn1, adOpenKeyset, adLockOptimistic</p><p>　　'試題號，課程號，題型名，問題，答案，錄入員，難易程度</p><p>　　objrs1.AddNew</p><p>　　objrs1.Fields(0) = ma

80、x + 1</p><p>　　objrs1.Fields(1) = hao</p><p>　　objrs1.Fields(2) = Trim(Combo1.Text)</p><p>　　objrs1.Fields(3) = Trim(RichTextBox1.Text)</p><p>　　objrs1.Fields(4) = Trim

81、(RichTextBox2.Text)</p><p>　　objrs1.Fields(5) = Trim(Label2.Caption)</p><p>　　objrs1.Fields(6) = Trim(Combo2.Text)</p><p>　　objrs1.Update</p><p>　　MsgBox "試題添加成功!&

82、quot;</p><p>　　RichTextBox1.Text = ""</p><p>　　RichTextBox2.Text = ""</p><p>　　Adodc1.Refresh</p><p>　　DataGrid1.Columns(0).Width = 500 '更

83、改datagrid中的列寬</p><p>　　DataGrid1.Columns(1).Width = 800</p><p>　　DataGrid1.Columns(2).Width = 800</p><p>　　DataGrid1.Columns(3).Width = 800</p><p>　　DataGrid1.AllowAddN

84、ew = False '不允許手動更新</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　DataGrid1.AllowDelete = False</p><p>　　DataGrid1.AllowRowSizing = False</p><p><b>　　End Su

85、b</b></p><p>　　Private Sub Command2_Click() '修改試題</p><p>　　If RichTextBox1.Text = "" Then</p><p>　　MsgBox "請雙擊選擇要修改的試題！", vbOKOnly, "提示"</

86、p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Dim msql As String</p><p>　　Dim objconnm As ADODB.Connection '聲明objconnm :修改功能

87、</p><p>　　Set objconnm = New ADODB.Connection</p><p>　　connectionstring = "DSN=wang"</p><p>　　objconnm.Open connectionstring</p><p>　　Dim objrsm As ADODB.Reco

88、rdset</p><p>　　Set objrsm = New ADODB.Recordset</p><p>　　'修改題目，答案，難易程度,不修改題型</p><p>　　msql = "update Exams set Titlename='" + Combo1.Text + "',Question=&#

89、39;" + Trim(RichTextBox1.Text) + "',Answer='" + RichTextBox2.Text + "',nanyi='" + Combo2.Text + "'where Examid='" + DataGrid1.Columns(0).Text + "'"

90、</p><p>　　If MsgBox("保存修改？", vbYesNo, "提示") = vbYes Then</p><p>　　objconnm.Execute msql</p><p>　　RichTextBox1.Text = ""</p><p>　　RichTextB

91、ox2.Text = ""</p><p>　　Adodc1.Refresh</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>&

92、lt;p>　　Private Sub Command3_Click()</p><p>　　If MsgBox("刪除當前記錄？", vbYesNo, "提示") = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p><b>　　Exit Sub</

93、b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p><b>　　Unload Me</b></p><

94、p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_DblClick()</p><p>　　Combo1.Text = Trim(DataGrid1.Columns(1).Text)</p><p>　　Combo2.Text = Trim(DataGrid1.Columns(3).T

95、ext)</p><p>　　RichTextBox1.Text = Trim(DataGrid1.Columns(4).Text)</p><p>　　RichTextBox2.Text = Trim(DataGrid1.Columns(5).Text)</p><p><b>　　End Sub</b></p><p&g

96、t;　　Private Sub Form_Load()</p><p>　　Label2.Caption = UserName '用戶名和課程名</p><p>　　Label6.Caption = ClassName</p><p>　　Combo2.AddItem "容易" '加難易程度&l

97、t;/p><p>　　Combo2.AddItem "較容易"</p><p>　　Combo2.AddItem "較難"</p><p>　　Combo2.AddItem "難"</p><p>　　Combo2.Text = "容易"</p><

98、;p>　　Dim connectionstring As String</p><p>　　Dim objconn As ADODB.Connection</p><p>　　Dim objrs As ADODB.Recordset</p><p>　　Set objconn = New ADODB.Connection</p><p>

99、;　　Set objrs = New ADODB.Recordset</p><p>　　connectionstring = "DSN=wang"</p><p>　　objconn.Open connectionstring</p><p>　　Dim mysql As String

100、 '向combo1中加題型</p><p>　　mysql = "select Titles.* from Titles,Classes where Classes.Classname='" & _</p><p>　　Trim(Label6.Caption) & " 'and Classes.Classid=T

101、itles.Classid"</p><p>　　objrs.Open Trim(mysql), objconn, adOpenKeyset, adLockOptimistic</p><p>　　hao = objrs.Fields(0)</p><p>　　Combo1.Text = Trim(objrs.Fields(1))</p>&

102、lt;p>　　While objrs.EOF = False</p><p>　　Combo1.AddItem Trim(objrs.Fields(1))</p><p>　　objrs.MoveNext</p><p><b>　　Wend</b></p><p>　　Adodc1.connectionstrin

103、g = "DSN=wang" '設(shè)置連接字符串</p><p>　　Adodc1.CommandType = adCmdText '設(shè)置命令類型，表示從表中返回所有行</p><p>　　Adodc1.RecordSource = "select examid as 題號,titlename as 題

104、型,username as 錄入員,nanyi as 難易程度,question as 題目,answer as 答案 from exams where classid= " + hao '設(shè)置數(shù)據(jù)源</p><p>　　Adodc1.Refresh '刷新控件</p><p>　　DataGrid1.Columns(0).

105、Width = 500 '更改datagrid中的列寬</p><p>　　DataGrid1.Columns(1).Width = 800</p><p>　　DataGrid1.Columns(2).Width = 800</p><p>　　DataGrid1.Columns(3).Width = 800</p>

106、<p>　　DataGrid1.AllowAddNew = False '不允許手動更新</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　DataGrid1.AllowDelete = False</p><p>　　DataGrid1.AllowRowSizing = False</p

107、><p><b>　　End Sub</b></p><p><b>　　3、自動出卷</b></p><p>　　Public connectionstring As String</p><p>　　Dim hao As String '存放課程號</p><p>

108、　　Private Sub Command1_Click() '添加試題</p><p>　　Dim max As Integer '存放最大的試題號</p><p>　　RichTextBox1.SetFocus</p><p>　　If RichTextBox1.Text = "" Or

109、 RichTextBox2.Text = "" Then</p><p>　　MsgBox "請輸入題目和答案！", vbOKOnly, "提示"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p&

110、gt;<p>　　connectionstring = "DSN=wang"</p><p>　　Dim tsql As String</p><p>　　Dim ssql As String</p><p>　　Dim objconn1 As ADODB.Connection</p><p>　　Dim o

111、bjrs1 As ADODB.Recordset</p><p>　　Set objconn1 = New ADODB.Connection</p><p>　　Set objrs1 = New ADODB.Recordset</p><p>　　objconn1.Open connectionstring</p><p>　　ssql =

112、"select max(Examid) from Exams "</p><p>　　objrs1.Open Trim(ssql), objconn1, adOpenKeyset, adLockOptimistic</p><p>　　max = objrs1.Fields(0)</p><p>　　objrs1.Close</p>

113、<p>　　tsql = "select * from Exams"</p><p>　　objrs1.Open Trim(tsql), objconn1, adOpenKeyset, adLockOptimistic</p><p>　　'試題號，課程號，題型名，問題，答案，錄入員，難易程度</p><p>　　objrs1

114、.AddNew</p><p>　　objrs1.Fields(0) = max + 1</p><p>　　objrs1.Fields(1) = hao</p><p>　　objrs1.Fields(2) = Trim(Combo1.Text)</p><p>　　objrs1.Fields(3) = Trim(RichTextBox1.

115、Text)</p><p>　　objrs1.Fields(4) = Trim(RichTextBox2.Text)</p><p>　　objrs1.Fields(5) = Trim(Label2.Caption)</p><p>　　objrs1.Fields(6) = Trim(Combo2.Text)</p><p>　　objrs1

116、.Update</p><p>　　MsgBox "試題添加成功!"</p><p>　　RichTextBox1.Text = ""</p><p>　　RichTextBox2.Text = ""</p><p>　　Adodc1.Refresh </p>

117、<p>　　DataGrid1.Columns(0).Width = 500 '更改datagrid中的列寬</p><p>　　DataGrid1.Columns(1).Width = 800</p><p>　　DataGrid1.Columns(2).Width = 800</p><p>　　DataGrid1.Columns

118、(3).Width = 800</p><p>　　DataGrid1.AllowAddNew = False '不允許手動更新</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　DataGrid1.AllowDelete = False</p><p>　　DataGrid1.All

119、owRowSizing = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click() '修改試題</p><p>　　If RichTextBox1.Text = "" Then</p><p>　　MsgBo

120、x "請雙擊選擇要修改的試題！", vbOKOnly, "提示"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Dim msql As String</p><p>　　Dim ob

121、jconnm As ADODB.Connection '聲明objconnm :修改功能</p><p>　　Set objconnm = New ADODB.Connection</p><p>　　connectionstring = "DSN=wang"</p><p>　　objconnm.Open connec

122、tionstring</p><p>　　Dim objrsm As ADODB.Recordset</p><p>　　Set objrsm = New ADODB.Recordset</p><p>　　'修改題目，答案，難易程度,不修改題型</p><p>　　msql = "update Exams set Titl

123、ename='" + Combo1.Text + "',Question='" + Trim(RichTextBox1.Text) + "',Answer='" + RichTextBox2.Text + "',nanyi='" + Combo2.Text + "'where Examid=&#