版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、<p><b> 摘 要</b></p><p> 隨著計(jì)算機(jī)技術(shù)的發(fā)展,各行各業(yè)中計(jì)算機(jī)都已經(jīng)普及,尤其是在學(xué)校,考試跟學(xué)生的關(guān)系是非常密切的,考試的出題也是一個(gè)比較麻煩的問(wèn)題,要花費(fèi)大量的時(shí)間和精力,教師出題工作量大,勞動(dòng)強(qiáng)度高,而且試題的保存也比較占地方,而且試題多了也顯得亂,基于以上這幾點(diǎn)考慮,為了解決考試試題的多樣性、隨機(jī)性和上述一些問(wèn)題,教師擁有一套試題庫(kù)管理管
2、理系統(tǒng)是非常必要的。該試題庫(kù)管理系統(tǒng)就可以摒棄傳統(tǒng)試題的手工整理的麻煩,而且可以減少出題的精力和時(shí)間。</p><p> 這個(gè)試題庫(kù)管理系統(tǒng)是基于Windows平臺(tái),采用了Visual Basic 6.0編程和SQL Server數(shù)據(jù)庫(kù)技術(shù)。此系統(tǒng)包含試題管理、試卷管理、課程管理、用戶管理和幫助這五大功能。為了實(shí)系統(tǒng)這些功能,我建立了數(shù)據(jù)庫(kù)exam,該數(shù)據(jù)庫(kù)共中共包含Users(用戶表),Class(課程表),
3、Titles(題型表),Exams(試題表),Papaers(試卷表),QuestionP(試卷題目表)這幾個(gè)表。能夠?qū)崿F(xiàn)的主要功能有錄入試題,查詢?cè)囶},修改試題,修改/添加/刪除用戶,課程添加/刪除,題型添加/刪除,修改密碼,自動(dòng)組卷等。另外根據(jù)用戶的權(quán)限不同,可以訪問(wèn)不同的模塊。其中系統(tǒng)管理員可以管理各個(gè)用戶,而科目教師只能管理所授科目的所有信息不能越權(quán)操作。</p><p> 【關(guān)鍵字】試題庫(kù) 試卷管理
4、 試題庫(kù)管理系統(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è)計(jì)工具簡(jiǎn)介...........................................6</p><p> 第三章 系統(tǒng)設(shè)計(jì)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查詢?cè)囶}模塊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ù)庫(kù)的分析與設(shè)計(jì).....................................14</p><p><b> 結(jié)束語(yǔ)16<
14、;/b></p><p><b> 致謝16</b></p><p><b> 參考文獻(xiàn)16</b></p><p><b> 附程序源碼17</b></p><p><b> 第一章 前 言</b></p><
15、p> 考試在我國(guó)古代就已經(jīng)有了很大的發(fā)展,早在1300年以前就有了科舉制度。但這種考試不規(guī)范、不嚴(yán)密,不能客觀、準(zhǔn)確地評(píng)估一個(gè)人的能力水平。第二次世界大戰(zhàn)結(jié)束后,考試在社會(huì)生活中的地位進(jìn)一步提高, 資格證書(shū)考試也就應(yīng)運(yùn)而生。這種考試次數(shù)頻繁,命題工作量大,并且對(duì)考試的測(cè)量學(xué)特性要求更加嚴(yán)格,不少考生要求結(jié)果相互可比,因此,建立高質(zhì)量、大容量的現(xiàn)代化題庫(kù)成為必要。目前,經(jīng)濟(jì)發(fā)達(dá)國(guó)家已經(jīng)建立了完善的考試專業(yè)機(jī)構(gòu)。各機(jī)構(gòu)也都根據(jù)自己所
16、承擔(dān)的職能建立起了大型題庫(kù)。</p><p> 傳統(tǒng)的考試出題總是教師考前集中出題、集中組卷,這樣很難保證試卷的質(zhì)量,進(jìn)而不能準(zhǔn)確反映學(xué)生的學(xué)習(xí)效果。為促進(jìn)教學(xué)手段的現(xiàn)代化,提高教學(xué)質(zhì)量,減輕教師在出題、組卷和成績(jī)分析中的工作量,本系統(tǒng)在VB編程環(huán)境下開(kāi)發(fā)了這套能實(shí)現(xiàn)試題管理軟件。</p><p> 試題庫(kù)系統(tǒng)作為教學(xué)手段現(xiàn)代化的重要組成部分,與數(shù)據(jù)庫(kù)相結(jié)合,發(fā)揮著很大的作用。該軟件在
17、Windows XP操作系統(tǒng)下,采用Visual Basic語(yǔ)言開(kāi)發(fā)而成,具有Windows風(fēng)格,其主要特點(diǎn)如下:</p><p> 1、圖形化界面、可操作性強(qiáng)、通用性強(qiáng):界面和菜單顯而易見(jiàn),所以即使是計(jì)算機(jī)基礎(chǔ)很差的用戶經(jīng)過(guò)簡(jiǎn)單的培訓(xùn)后,也能很快地熟練操作。</p><p> 2、安全性:試題庫(kù)管理系統(tǒng)必須要有極其強(qiáng)大的安全性。本系統(tǒng)會(huì)在內(nèi)部設(shè)制權(quán)限來(lái)控制用戶的操作。提高整個(gè)系統(tǒng)的安
18、全性。</p><p> 3、通過(guò)其錄入模塊錄入試題后,即可形成本課程的試題庫(kù)系統(tǒng),而且系統(tǒng)還具有自動(dòng)組卷功能、試題查詢等功能,從而可以實(shí)現(xiàn)教考分離。</p><p> 4、強(qiáng)大的提示性功能:該系統(tǒng)將具有較強(qiáng)的糾錯(cuò)能力,當(dāng)運(yùn)行時(shí),用戶操作錯(cuò)誤時(shí)會(huì)提出相當(dāng)?shù)牡木荆茏詣?dòng)保護(hù)系統(tǒng)避免系統(tǒng)出錯(cuò)。</p><p><b> 第二章 系統(tǒng)分析</b&
19、gt;</p><p> 如今是信息化的時(shí)代,學(xué)校、企事業(yè)單位的電腦特別是PC機(jī)已相當(dāng)普及,對(duì)試題進(jìn)行電腦化管理已具備了足夠的硬件條件,本系統(tǒng)是在電腦中進(jìn)行試題管理的一種軟件,提供友好的界面,結(jié)合數(shù)據(jù)庫(kù)技術(shù),具有易學(xué)、易懂、易操作的優(yōu)點(diǎn),本軟件的開(kāi)發(fā)一定能得到廣大用戶的歡迎。</p><p> 考試是檢查學(xué)生對(duì)知識(shí)掌握程度的一種考核,試題的管理,特別是學(xué)校對(duì)試題的管理不能停留在普通試卷
20、存檔上,無(wú)紙化的試題管理才能適應(yīng)當(dāng)今的發(fā)展潮流,具有試題更新方便、組卷快的特點(diǎn)。本系統(tǒng)的開(kāi)發(fā)的目的就是要對(duì)試題進(jìn)行集中、有序、有效的管理。</p><p> 2.1 可行性分析</p><p> 隨著現(xiàn)代教育事業(yè)的發(fā)展,教學(xué)手段現(xiàn)代化問(wèn)題顯得越來(lái)越重要。試題庫(kù)的管理,特別是學(xué)校的試題庫(kù)具有量大、種類多的特點(diǎn),常規(guī)管理有工作量大、查詢困難、不易更新的缺點(diǎn),試題庫(kù)管理系統(tǒng)可對(duì)試題實(shí)行科學(xué)
21、的管理,利用現(xiàn)代電腦功能強(qiáng)大、運(yùn)算速度快的優(yōu)點(diǎn),對(duì)試題進(jìn)行集中、有序、有效的管理,更新方便、查詢快捷、組卷靈活,大大降低了勞動(dòng)強(qiáng)度,需用密碼登錄系統(tǒng),具有一定的安全性。</p><p> 可行性研究主要集中在四個(gè)方面:(1)經(jīng)濟(jì)可行性(2)技術(shù)可行性(3)法律可行性(4)技術(shù)可行性由于時(shí)間的限制,雖然還存在在著一些問(wèn)題,但是也有其優(yōu)點(diǎn):</p><p> 1、圖形化界面、菜單欄,工具欄
22、清晰地展現(xiàn)系統(tǒng)的功能。</p><p> 2、系統(tǒng)安全性:試題庫(kù)管理系統(tǒng)必須要有極其強(qiáng)大的安全性。</p><p> 3、高效性:試題庫(kù)管理系統(tǒng)應(yīng)該具有的強(qiáng)大適應(yīng)能力和簡(jiǎn)便實(shí)現(xiàn)能力。系統(tǒng)運(yùn)行的高效性是我們追求的目標(biāo)之一。</p><p> 4、本系統(tǒng)開(kāi)發(fā)成本低,風(fēng)險(xiǎn)小。</p><p> 2.2 需求分析</p>&
23、lt;p> (一)在考試過(guò)程中,教師工作存在以下問(wèn)題:</p><p> 1、必須事先找好要出的試題、并且是最好的試題。有時(shí)教師在教學(xué)過(guò)程中,發(fā)現(xiàn)了很好的試題,只好記在書(shū)上或本子上,這是很容易忘記的事,等到要再用的時(shí)候,才發(fā)現(xiàn)試題不知放到哪了;</p><p> 2、找好試題之后,整理試題也是一項(xiàng)要花費(fèi)大量時(shí)間的問(wèn)題;</p><p> 3、整理好試題
24、后,要把試題輸入到計(jì)算機(jī)中,以進(jìn)行打印。當(dāng)教師想把上次或以前的某些試題再放到試卷中時(shí),必須再重新輸入一次,給工作帶來(lái)了許多時(shí)間的浪費(fèi);</p><p> 4、還有一個(gè)問(wèn)題,當(dāng)下次出試卷時(shí),很難找到以前試卷的原樣。</p><p><b> ?。ǘ┕δ芊治?lt;/b></p><p><b> ?。?)數(shù)據(jù)的錄入:</b>&
25、lt;/p><p> 把系統(tǒng)中所需要的信息錄入進(jìn)去,包括,用戶信息的錄入,題型的錄入,課程的錄入,試題的錄入等。</p><p><b> ?。?)數(shù)據(jù)的查詢:</b></p><p> 根據(jù)已有的條件查詢需求的信息,本系統(tǒng)的查詢主要是試題的查詢,可以根據(jù)試題號(hào),試題的難易程度,試題的題型來(lái)查詢。</p><p> (
26、3)數(shù)據(jù)的修改和刪除:</p><p> 包括題型、試題、課程的修改刪除等。</p><p><b> ?。?)用戶的管理:</b></p><p> 用戶的增加、刪除及密碼修改。</p><p><b> 2.3設(shè)計(jì)工具簡(jiǎn)介</b></p><p> Visual
27、Basic</p><p> Visual Basic是創(chuàng)建Windows應(yīng)用程序最快捷、最容易的工具。Visual Basic提供了一整套簡(jiǎn)化快速應(yīng)用程序開(kāi)發(fā)的工具集。</p><p> Visual指的是創(chuàng)建圖形用戶界面(GUI)所使用的方法。不用編寫(xiě)許多行代碼來(lái)描述界面元素的外形和位置,你只需簡(jiǎn)單地在屏幕上添加一個(gè)預(yù)先創(chuàng)建的對(duì)象即可。假如你已使用過(guò)像畫(huà)筆(Paint)之類的畫(huà)圖程
28、序,你就已經(jīng)有了創(chuàng)建有效的用戶界面所必需的大部分技巧。</p><p> 無(wú)論你是要?jiǎng)?chuàng)建個(gè)人還是工作組的小型實(shí)用程序或者企業(yè)級(jí)大型系統(tǒng),Visual Basic都有能滿足你要求的工具。</p><p> 其數(shù)據(jù)訪問(wèn)的特性可以創(chuàng)建數(shù)據(jù)庫(kù)、前端應(yīng)用程序和應(yīng)用于大多數(shù)流行數(shù)據(jù)庫(kù)格式的可伸縮服務(wù)端組件。ActiveX技術(shù)允許你使用由其他應(yīng)用程序所提供的功能,如由Word字處理程序、Excel電
29、子表格和其他Windows應(yīng)用程序提供的功能。Visual Basic的因特網(wǎng)功能,使你可以通過(guò)因特網(wǎng)很容易從你的應(yīng)用程序訪問(wèn)文檔和其他應(yīng)用程序,或創(chuàng)建因特網(wǎng)服務(wù)器應(yīng)用程序。</p><p> 對(duì)于Visual Basic來(lái)說(shuō),它的主要優(yōu)點(diǎn)是很容易理解,許多編程工作都很容易完成,基本上隱藏了Windows API和COM組件結(jié)構(gòu)的內(nèi)涵。其缺點(diǎn)是Visual Basic從來(lái)沒(méi)有實(shí)現(xiàn)真正意義上的面向?qū)ο?,所以大型?yīng)
30、用程序很難分解和維護(hù)。另外,因?yàn)閂B的語(yǔ)法繼承于BASIC的早期版本(BASIC主要是為了讓初學(xué)者更容易理解,而不是為了編寫(xiě)大型商業(yè)應(yīng)用程序),所以不能真正成為結(jié)構(gòu)化或面向?qū)ο蟮木幊陶Z(yǔ)言。</p><p> SQL Server</p><p> Microsft SQL Server,是基于客戶端/服務(wù)器模式的新一代大型關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)。它在電子商務(wù)、數(shù)據(jù)他庫(kù)和數(shù)據(jù)庫(kù)解決方案等應(yīng)
31、用中起著重要的核心作用,為企業(yè)的數(shù)據(jù)管理提供強(qiáng)大的支持,對(duì)數(shù)據(jù)為患 的數(shù)據(jù)提供有效的管理,并采用有效的措施實(shí)現(xiàn)數(shù)據(jù)的完整性及數(shù)據(jù)的安全性。</p><p><b> 第三章 系統(tǒng)設(shè)計(jì)</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> 考慮到試題庫(kù)系統(tǒng)的的安全性,每個(gè)用戶都有自己的密碼,用戶只有輸入正確密碼,才能進(jìn)入本系統(tǒng)的主菜單界面。而在主界面中,用戶可
33、以根據(jù)自己的權(quán)限選擇系統(tǒng)所提供的功能。而系統(tǒng)管理員還可以添加、刪除修改用戶,查看、刪除和增加各種題型和科目。</p><p><b> 設(shè)計(jì)構(gòu)思</b></p><p> 系統(tǒng)運(yùn)行時(shí),首先是一個(gè)簡(jiǎn)單明了的登陸界面。用戶需要輸入“用戶名”,“密碼”,系統(tǒng)將所填寫(xiě)的資料與exam數(shù)據(jù)庫(kù)里的用戶表資料核對(duì),經(jīng)核對(duì)正確以后,考生才能進(jìn)入主界面,否則退出登陸。</p&
34、gt;<p><b> 登陸界面</b></p><p> 登陸后,就是主菜單界面。用戶可以根據(jù)需要來(lái)選擇主菜單所提供的功能。系統(tǒng)主界面截取圖如下:</p><p> 3.1.2試題管理模塊:</p><p> 此菜單具有以下子菜單:“錄入試題”、“編輯試題”、“查詢?cè)囶}”、“題型設(shè)置”。</p><p
35、> ?。ǎ保颁浫朐囶}”:即添加新的試題,該菜單和“編輯試題”菜單單擊后鏈接到一個(gè)界面。</p><p><b> 設(shè)計(jì)構(gòu)思:</b></p><p> 系統(tǒng)設(shè)置了兩個(gè)Combo控件,可以選擇題型及題型的難易程度,另外試題的題號(hào)是繼上一題目自動(dòng)遞增的。還有設(shè)置了兩個(gè)Richtextbox控件用于錄入題目和試題的答案。還有一個(gè)Datagrid控件和一個(gè)ADOD
36、C控件可以即時(shí)顯示剛添加的試題,能做到瀏覽方便,而且也便于修改試題和刪除試題時(shí)能清晰地看清每個(gè)題的題目、答案、錄入人員,題號(hào)等相關(guān)信息。界面如下:</p><p> ?。ǎ玻熬庉嬙囶}”:包括修改試題和刪除試題,可以對(duì)剛才用“添加試題”按鈕加入的試題進(jìn)行修正和刪除。</p><p><b> 設(shè)計(jì)構(gòu)思:</b></p><p> ?。?)“修
37、改試題”:通過(guò)雙擊Datagrid控件的一行,使該行的相關(guān)信息(題型,難易程度,題目,答案)進(jìn)入到各信息對(duì)應(yīng)的地方處于可編輯狀態(tài)進(jìn)行編輯。編輯后再占擊“修改試題“按鈕保存對(duì)剛才試題的修改。</p><p> (2)刪除試題:在Datagrid中選中要修改行,點(diǎn)擊“刪除試題”即可。單擊后,該行即從Datagrid中消失,同時(shí)更改Exams表,使相對(duì)應(yīng)的記錄刪除。</p><p> 3.1
38、.3題型設(shè)置模塊:</p><p> 該模塊包括“添加”、“刪除”、“修改題型”三個(gè)子功能。界面如下圖所示:</p><p> 進(jìn)入此模塊系統(tǒng)會(huì)自動(dòng)記錄用戶登錄時(shí)的科目(如語(yǔ)文),也就是說(shuō),用戶只能設(shè)置所教課程(語(yǔ)文)的題型,不能越權(quán)設(shè)置。</p><p><b> 設(shè)計(jì)構(gòu)思:</b></p><p> “添加題
39、型”后,新增的題型會(huì)在list1中顯示,另外還要在Titles表中添加新題型。“修改題型”后會(huì)將修改后的題型保存?!皠h除題型”,需要在list中刪除,同時(shí)從Titles表中刪除?!胺祷亍奔词顷P(guān)閉該窗口</p><p> 3.1.4查詢?cè)囶}模塊:</p><p> 該模塊可以根據(jù)已知條件,查詢?cè)囶}題目和答案。</p><p><b> 設(shè)計(jì)構(gòu)思:<
40、;/b></p><p> 此處設(shè)置了三個(gè)查詢條件:試題類型,難易程度和試題題號(hào)。屬于單選按鈕option,查詢出結(jié)果后即時(shí)在Datagrid控件中顯示,同時(shí)設(shè)置兩個(gè)Richtextbox控件,處于非編輯狀態(tài),鼠標(biāo)選項(xiàng)中Datagrid中的某一行時(shí),該行的詳細(xì)信息會(huì)在Richtextbox中顯示,</p><p> 此功能復(fù)雜之處在于涉及到Exam表,Titles表,Classe
41、s表三個(gè)表,sql句中需要進(jìn)行必要的關(guān)聯(lián)。界面中顯示的信息只能查看,不能修改,如果要修改需要在上面介紹的“編輯試題”菜單中進(jìn)行。該模塊的流程圖如下:</p><p> “查詢?cè)囶}”界面如下:</p><p> 3.1.5試卷管理模塊:</p><p> 此菜單設(shè)置了一項(xiàng)功能:自動(dòng)組卷功能。</p><p><b> 設(shè)計(jì)構(gòu)思
42、:</b></p><p> 需要填入試卷名稱,試卷標(biāo)題,還需要選擇題型以及每個(gè)題型的題量。此模塊有兩個(gè)地方難實(shí)現(xiàn):(1)在添加題型時(shí),在text處需要輸入題量,需要統(tǒng)計(jì)出數(shù)據(jù)庫(kù)中每一題型的總題量,輸入的題量不能超過(guò)總題量。(2)在組卷時(shí),需要利用隨機(jī)函數(shù)選擇試題,但是由于隨機(jī)函數(shù)的隨機(jī)性,就需要循環(huán)判斷每一次選擇的試題是否已經(jīng)添加到試卷中,防止一個(gè)試題添加兩次。</p><p&
43、gt; 添加完試題及試題的數(shù)量以后就可以點(diǎn)擊“組卷”進(jìn)行自動(dòng)組卷,鏈接到另一個(gè)界面,設(shè)置一個(gè)richtextbox顯示組卷完成的內(nèi)容,以達(dá)到一目了然的效果,另外,設(shè)計(jì)“保存試卷”按鈕,可以將組的試卷存放在.txt文件中。界面如下:</p><p> 3.1.6課程設(shè)置模塊:</p><p> 可以添加、刪除、修改課程,這一模塊只能由系統(tǒng)管理員使用。某一科目教師無(wú)權(quán)使用該功能。<
44、/p><p><b> 設(shè)計(jì)構(gòu)思:</b></p><p> 在課程名處填寫(xiě)要添加的課程,描述不是必須的。在“添加題型”后,需要在list1中顯示,另外還要對(duì)應(yīng)地在后臺(tái)Classes表中添加新課程?!靶薷恼n程”后會(huì)將修改后的題型保存。“刪除題型”,需要在list中刪除,同時(shí)從Classes表中刪除。界面如下圖所示:</p><p> 3.1.
45、7用戶管理模塊:</p><p> 此模塊具有“添加用戶”,“刪除用戶”和“修改密碼”三個(gè)功能。添加用戶和刪除用戶只能由管理員使用。</p><p><b> 設(shè)計(jì)構(gòu)思:</b></p><p> 添加用戶需要輸入用戶名,密碼,科目名稱,以及用戶的類型(系統(tǒng)管理員或科目管理員)添加后在list中顯示,同時(shí)要在Users表中添加新記錄.刪除
46、用戶要在list中刪除,同時(shí)在Users表中刪除該記錄。修改密碼功能是每個(gè)用戶都可以用的,只要用戶名和舊密碼輸入正確,就可以更改新密碼,所以具有一定的安全性。界面略。</p><p> 3.1.8幫助模塊:</p><p> 目前只添加了“關(guān)于”下拉菜單。</p><p> 3.2數(shù)據(jù)庫(kù)的分析與設(shè)計(jì)</p><p> 打開(kāi)SQL se
47、rver企業(yè)管理器,新建一個(gè)數(shù)據(jù)庫(kù),名稱為exam。</p><p> 建好空數(shù)據(jù)庫(kù)后,再建立各張表:</p><p> 數(shù)據(jù)庫(kù)中各表的字段設(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課程號(hào))——主鍵</p><p> Classname(char 3
49、0 課程名)</p><p> Des (text16描述)</p><p> Titles(題型表):</p><p> Classid (int 4課程號(hào))——主鍵</p><p> Titlename(char 20 題型名)——主鍵</p><p> Exams(試題表):<
50、/p><p> Examid(int4試題號(hào))——主鍵</p><p> Classid(int4課程號(hào))</p><p> Titlename(char20題型名)</p><p> Question(text16問(wèn)題)</p><p> Answer(text16答案)</
51、p><p> Username(char15用戶名)</p><p> nanyi(char16難易程度)</p><p> Papers(試卷表)</p><p> Paperid(int4試卷號(hào))——關(guān)鍵字</p><p> Papername(char30試卷名)</p>
52、<p> Username(char15用戶名)</p><p> Header(char60試卷標(biāo)題)</p><p> Des(text16試卷描述)</p><p> Classname(char30試卷的課程名)</p><p> QuestionP(試卷題目表):</p>
53、<p> Id(int4實(shí)際題號(hào))</p><p> Paperid(int4試卷號(hào))</p><p> Examid(int4試題號(hào))</p><p><b> 結(jié)束語(yǔ)</b></p><p> 本系統(tǒng)以“實(shí)用”為基本指導(dǎo)思想,在數(shù)據(jù)庫(kù)選擇方面做了細(xì)致的研究和對(duì)比,在綜合分析了各
54、種數(shù)據(jù)庫(kù)的優(yōu)缺點(diǎn)和試題庫(kù)的特點(diǎn)后選用了穩(wěn)定實(shí)用的SQL Server數(shù)據(jù)庫(kù);在對(duì)試題庫(kù)功能做了大量分析后,確定了本系統(tǒng)的數(shù)據(jù)結(jié)構(gòu);本系統(tǒng)界面友好,易于使用,通用性強(qiáng);在自動(dòng)組卷、試題查詢和試題錄入等功能的設(shè)計(jì)方面突出體現(xiàn)了其實(shí)用性。 同時(shí),本系統(tǒng)的自動(dòng)組卷模塊設(shè)計(jì)尚需進(jìn)一步完善,試卷預(yù)覽也應(yīng)進(jìn)一步改善,應(yīng)不斷提高試卷顯示功能,另外手工組卷,在初步分析階段也列在其中,但由于時(shí)間原因,在該系統(tǒng)中沒(méi)做考慮。另外以后還可以考慮把“組卷內(nèi)
55、容直接打印形成word文檔”功能加入其中,這樣系統(tǒng)功能就可以做到非常完善。</p><p> 系統(tǒng)在設(shè)計(jì)過(guò)程中遇到不少難題。雖然,我們不是全都解決,更重要的是學(xué)會(huì)了書(shū)本上學(xué)不到的知識(shí)和方法。在此我要感謝那些在我們?cè)O(shè)計(jì)過(guò)程中給我們的提出了不少寶貴意見(jiàn)的老師和同學(xué),有了他們的幫助才使此系統(tǒng)的功能逐漸完善,從而基本都能順利使用。</p><p><b> 致謝</b>&
56、lt;/p><p> 現(xiàn)在我們的系統(tǒng)已基本完成,其中夾有我很多的艱辛也有快樂(lè)。在此我要對(duì)各位指導(dǎo)師老師:xx老師說(shuō)聲:“謝謝”。另外我還要感謝在這兩個(gè)月的設(shè)計(jì)過(guò)程給過(guò)我?guī)椭耐瑢W(xué)們。</p><p><b> 參考文獻(xiàn)</b></p><p> 1、Visual Basic程序設(shè)計(jì)教程(第二版) 劉炳文 清華大學(xué)出版社</p>
57、<p> 2、Visual Basic編程實(shí)例教程 袁帥 希望電子出版社</p><p> ?。?、SQL Server實(shí)用教程 鄭阿奇 電子工業(yè)出版社</p><p> 4、管理信息系統(tǒng) 北京大學(xué)出版社</p><p> 5、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語(yǔ)句</p><p> If
59、Trim(Text1.Text) = "" Then '用戶名為空</p><p> MsgBox "請(qǐng)輸入用戶名", 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對(duì)象</p><p> Set objconn = New ADODB.Connection '實(shí)例化</p><p> Dim connectionstring As String '指定數(shù)
63、據(jù)庫(kù)連接,指定連接字符串</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 '實(shí)例化</p><p> objrs.Open Trim$(mysql), objconn, adOpenKeyset, adLockOptimistic '前:上下移動(dòng)指針,后:查詢的記錄放在objrs,可增刪改等.</p><p> If objrs.EOF Then</p>
65、<p> MsgBox "沒(méi)有這個(gè)用戶請(qǐng)重新輸入", 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 "密碼錯(cuò)誤,請(qǐng)重新輸入!", 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 '存放課程號(hào)</p><p> Private Sub Command1_Click() '添加試題</
74、p><p> Dim max As Integer '存放最大的試題號(hào)</p><p> RichTextBox1.SetFocus</p><p> If RichTextBox1.Text = "" Or RichTextBox2.Text = "" Then</p>&
75、lt;p> MsgBox "請(qǐng)輸入題目和答案!", 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> '試題號(hào),課程號(hào),題型名,問(wèn)題,答案,錄入員,難易程度</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 '不允許手動(dòng)更新</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 "請(qǐng)雙擊選擇要修改的試題!", 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("刪除當(dāng)前記錄?", 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 題號(hào),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 '不允許手動(dòng)更新</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、自動(dòng)出卷</b></p><p> Public connectionstring As String</p><p> Dim hao As String '存放課程號(hào)</p><p>
108、 Private Sub Command1_Click() '添加試題</p><p> Dim max As Integer '存放最大的試題號(hào)</p><p> RichTextBox1.SetFocus</p><p> If RichTextBox1.Text = "" Or
109、 RichTextBox2.Text = "" Then</p><p> MsgBox "請(qǐng)輸入題目和答案!", 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> '試題號(hào),課程號(hào),題型名,問(wèn)題,答案,錄入員,難易程度</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 '不允許手動(dòng)更新</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 "請(qǐng)雙擊選擇要修改的試題!", 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=
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 試題庫(kù)管理系統(tǒng)畢業(yè)論文
- 試題庫(kù)管理系統(tǒng)畢業(yè)論文
- 試題庫(kù)管理系統(tǒng)畢業(yè)論文
- 試題庫(kù)管理系統(tǒng)畢業(yè)論文.pdf
- 計(jì)算機(jī)論文試題庫(kù)管理系統(tǒng)畢業(yè)論文
- 計(jì)算機(jī)論文試題庫(kù)管理系統(tǒng)畢業(yè)論文
- 《sql server數(shù)據(jù)庫(kù)管理》試題庫(kù)管理系統(tǒng) 畢業(yè)論文
- 畢業(yè)論文——精品在線試題庫(kù)設(shè)計(jì)
- 試題庫(kù)管理系統(tǒng)論文
- 精品在線試題庫(kù)設(shè)計(jì)——畢業(yè)論文
- 試題庫(kù)管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 試題庫(kù)管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)論文范文——試題庫(kù)管理及成績(jī)分析系統(tǒng)研究
- 智能試題庫(kù)系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)【畢業(yè)論文】
- 畢業(yè)論文范文——精品在線試題庫(kù)設(shè)計(jì)
- 試題庫(kù)管理系統(tǒng)
- 試題庫(kù)管理系統(tǒng).pdf
- 試題庫(kù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)——論文
- 試題庫(kù)管理系統(tǒng)本科畢業(yè)設(shè)計(jì)
- 試題庫(kù)管理系統(tǒng)簡(jiǎn)介.pdf
評(píng)論
0/150
提交評(píng)論