【正文】 = vbWhite = False Proc_Exit: Set rst = Nothing If 0 Then If = 2147467259 Then MsgBox 題目編號不能重復(fù) !, vbInformation Else MsgBox 發(fā)生意外錯誤 ,錯誤號 : amp。 = amp。 Set = Else = 1 End If End Sub 按上面的增加按鈕后我們就彈出如下的界面： 該代碼里比較重要的代碼如下： 留給外部窗體調(diào)用的時候的接口代碼： Public Function EditSubject(Optional ByVal lngID As Long = 0, Optional lngSubjectSetID As Long) Dim rst As Recordset mlngSubjectID = lngSubjectSetID mlngID = lngID mblnEdit = IIf(lngID 0, True, False) If mblnEdit Then Set rst = New Recordset select * from 題庫主表 where ID= amp。 (, 1) amp。 () Set = If 1 Then = 1 End If Call InitSubjectAnswer End Sub 由于我們在選中上面表格的每道試題的時候，需要顯示下面的數(shù)據(jù)，當(dāng)表格的選中的單元格發(fā)生改變的時候會發(fā)生 RowColChange 事件，所以我們把備選答案的顯示放在該事件里做，代碼如下： Private Sub MSHFlexGrid1_RowColChange() Call InitSubjectAnswer End Sub Private Sub InitSubjectAnswer() If 1 Then = = select * from 題目明細(xì) where 題目編號 =39。39。比如加載題庫套號數(shù)據(jù)，然后加載該套試題的數(shù)據(jù)。而上面表格列出是哪套試題，取決于在組合框里選擇的是哪一套試題了。 5． 4 題庫內(nèi)容維護(hù)和備選答案維護(hù) 在前面的設(shè)計的時候我們已經(jīng) 知道餓了題庫內(nèi)容和備選答案正好是主表和子表的關(guān)系，所以有必要把這幾個模塊一起處理的。最后把該錯誤清除了。由于套號名稱是唯一的，所以當(dāng)用戶添加同樣的套號名稱的時候，就會發(fā)生錯誤，從上面的代碼我們知道，這時候的錯誤代碼就是－ 2147467259。 錯誤描述 : amp。這里的代碼實(shí)現(xiàn)如下： 其中確定按鈕的代碼如下： Private Sub Command1_Click() Dim rst As Recordset On Error GoTo Proc_Exit If Len(Text1) 0 Then Set rst = New Recordset select * from 套號 , pCN, adOpenStatic, adLockBatchOptimistic rst![套號名稱 ] = Text1 Text1 = End If Proc_Exit: If 0 Then If = 2147467259 Then MsgBox 套號名稱不能重復(fù) !, vbInformation Else MsgBox 發(fā)生意外錯誤 ,錯誤號 : amp。我在這個系統(tǒng)里主要采用的還是第一種的錯誤處理。另外一種是遇到錯誤跳出執(zhí)行。所以我們 有必要在可能發(fā)生錯誤的地方加上我們錯誤處理代碼，來捕獲這種錯誤了。 5． 2 VB 中的錯誤處理 系統(tǒng)運(yùn)行難免有錯誤，比如說系統(tǒng)的可使用內(nèi)容不夠了，即使我們的代碼沒有錯誤，也將不能運(yùn)行，但是如果不能運(yùn)行就非法退出的話，我想對于客戶是不能接受的，至少也該來個系統(tǒng)內(nèi)存不足的提示，給客戶一些好的建議，我想客戶肯定會非常滿意的。最重要的是他能夠訪問不同的數(shù)據(jù)庫。可以用任何一種 ODBC 數(shù)據(jù)源，如： SQL Server、 Oracle、 Access、 Excel、文本文件、圖形文件和 無格式的數(shù)據(jù)文件。但是現(xiàn)在微軟的推崇的數(shù)據(jù)訪問技術(shù)是 ADO 技術(shù) ADO（ ActiveX Data Objects） Active 數(shù)據(jù)對象。在經(jīng)過了前面的鋪墊工作以后，這里實(shí)現(xiàn)起來思路就相對來說非常的清晰了。 4． 8 評分表 該表是用來顯示學(xué)生的答題正確于否，以及做的試題是什么，還包括考生的自身信息，可以說是一張非常重要的視圖了，該視圖的 SQL 語句如下： SELECT 題庫主表 .*, 考生答案 .考生答案 , 考生答案 .準(zhǔn)考證號 , IIf([考生答案 ]=[題目答案 ],正確 ,錯誤 ) AS 是否正確 , IIf([考生答案 ]=[題目答案 ],[題目分值 ],0) AS 得分 FROM 題庫主表 INNER JOIN 考生答案 ON 題庫主表 .題目編號 = 考生答案 .題目編號 。表結(jié)構(gòu)如下： 字段名稱 字段類型 備注 ID 自動編號 主關(guān)鍵字 準(zhǔn)考證號 字符 題目編號 字符 考生答案 字符 4． 7 題庫主表 在設(shè)計數(shù)據(jù)庫的時候，我們考慮到系統(tǒng)的可擴(kuò)展性和數(shù)據(jù)減少數(shù)據(jù)庫容量的考慮，經(jīng)常是采取分開幾張表存儲的方式，比如說前面的題庫主表和備選答案的處理就是經(jīng)常采取的方式。而且還要驗(yàn)證該考生是否已經(jīng)交卷了，都是從該表里讀取數(shù)據(jù)的。表的結(jié)構(gòu)如下： 字段名稱 字段類型 備注 ID 自動編號 主關(guān)鍵字 題目編號 字符 題目編碼 字符 A,B,C,D 等等 備選答案 字符 備選答案的內(nèi)容 題目備注 字符 4． 3 套號 存儲套號的信息，自動抽取的時候，就是從這個表里的 ID 來隨機(jī)抽取的，而題目主表里的套號也是來自該表的 ID，表結(jié)構(gòu)如下 : 字段名稱 字段類型 備注 ID 自動編號 主關(guān)鍵字 套號名稱 字符 唯一索引 4． 4 題庫設(shè)置 在前面的功能設(shè)計中，我們知道本系統(tǒng)有兩種 抽題的模式，而系統(tǒng)采取的模式就是存在這張表中的。 4． 1 題庫主表 該表存儲的是題目的主表信息，經(jīng)過分析，我們可以知道，一道選擇題只有一個題目內(nèi)容 (題目描述 )，一個答案，而會有多個的備選答案，所以我們有必要把題目內(nèi)容的存儲和備選答案分開來存儲。 4 、考試評分 使用該功能對考生進(jìn)行評分。 3． 3 考試評分模塊 1 、 考生瀏覽 瀏覽所有的登陸本系統(tǒng)考試的考生，包括該考生的交卷狀態(tài)，做的是哪一套試題。 ③ 考試答案保存 自動保存考生做過的答案 ④ 顯示當(dāng)前的考生答題的位置，也就是做到哪一 道了，總共有多少題。 ② 加載考生已經(jīng)做過的試題的考生答案。 3． 2 考生考試模塊 1 、 考生登陸 每個考生登陸本系統(tǒng)必須得輸入考生的準(zhǔn)考證號，在這里系統(tǒng)也將會驗(yàn)證登陸的 考生是否已經(jīng)交過卷了，如果是已經(jīng)處于已經(jīng)交卷的狀態(tài)，則將不能再次登陸到本系統(tǒng)進(jìn)行考試。另外一種指定一套試題給考生考，也就是全場所有的考生都是使用一套試題。 6 、 備選答案瀏覽 通過選擇題目來瀏覽它對應(yīng)的備選答案。 ③ 備選答案刪除 備選答案錄入錯誤或者是備選答案不在需要的時候，可以使用該 功能進(jìn)行刪除。 5 、備選答案維護(hù) 每道選擇題都有備選答案，該功能就是維護(hù)備選答案的 ① 備選答案增加 針對某到題目內(nèi)容，其實(shí)就是某道題目，增加一個備選題目。 2 、 題目內(nèi)容修改 在錄入的過程中難免有錯誤，該功能就是修改題目內(nèi)容到數(shù)據(jù)庫中去。 3． 1． 4 題庫內(nèi)容維護(hù) 對于一道選擇題來說，是分為題目描述和備選答案兩個部分的，這里的題庫內(nèi)容維護(hù)，只的就是題目描述的維護(hù)，當(dāng)然也包括題目的正確答案輸入和分值的輸入。之所以采取這種套來區(qū)分題庫里面的內(nèi)容，一個原因是為了管理方便，另外一個原因是為了后面的隨機(jī)抽題設(shè)計的，隨機(jī)抽題也是按照套來隨機(jī)抽題的。 第三章 功能設(shè)計 在經(jīng)過 系統(tǒng)的分析和設(shè)計后，我設(shè)計了這么一個簡化版本的考試系統(tǒng)，功能圖如下 : 3． 1 題庫維護(hù)模塊 3． 1． 1 用戶登陸 考生考試模塊 考生登陸 考生答題 考生交卷 題庫維護(hù)模塊 用戶登陸 套號設(shè)置 題庫內(nèi)容維護(hù) 備選答案瀏覽 退出系統(tǒng) 抽題設(shè)置 題庫內(nèi)容瀏覽 備選答案維護(hù) 考試評分模塊 考生瀏覽 考生答題瀏覽 考生成績?yōu)g覽 考試評分模塊 由于題庫設(shè)置相當(dāng)?shù)闹匾囅肴绻l都能進(jìn)入該模塊進(jìn)行題庫操作的話 ,那么題庫將是非常的危險的 .所以有必要對登陸的人員進(jìn)行控制 . 3． 1． 2 退出系統(tǒng) 退出系統(tǒng)。 5 、 我精通多種數(shù)據(jù)庫語言，但我希望工作更輕松一些。 3 、 我精通 C++，但我發(fā)現(xiàn)要用它做許多復(fù)雜的報表是一件令人頭疼的事。 我要建立一個數(shù)據(jù)庫系統(tǒng)，卻不愿因此而去系統(tǒng)地區(qū)學(xué)習(xí)編程。 3 、 為何要選擇 Access Access 功能強(qiáng)大，使用方便，是開發(fā)桌面數(shù)據(jù)庫的最優(yōu)秀的工具之 一。模塊提供了獨(dú)立的動作流以捕獲錯誤，而宏做不到。它可以讓你像堆積木一樣建立一個功能強(qiáng)大的程序，而 無須寫大量的代碼。它是衡量一個優(yōu)秀的數(shù)據(jù)庫的重要標(biāo)準(zhǔn)（有時甚至是唯一的標(biāo)準(zhǔn)）。 Access 2021為我們提供了強(qiáng)大的（同時也是相當(dāng)方便的向?qū)В﹣斫?biāo)準(zhǔn)的 Windows窗體。大量的操作（ 幾乎所有）都要通過窗體完成。你可以在查詢中選擇、更新、插入或刪除資料，也可以用查詢來建立新表。 查詢 為來自一個或多個表的資料提供定制視圖的對象。每一個表都包含有關(guān)某個主體的信息。 2 、 Access的總體結(jié)構(gòu) Access將所有 具 有名字的東西都成為對象（ object），在 Access 2021中，最重要的對象有表，查詢，窗體，報表，宏和模塊。 Access還提供 windows操作系統(tǒng)的高級應(yīng)用程序開發(fā)系統(tǒng)。它能操作其它來源的資料，包括許多流行的 PC數(shù)據(jù)庫程序（如 dBASE， Paradox， Microsoft FoxPro）和服務(wù)器、小型 機(jī) 、 大型機(jī)上的許多 SQL數(shù)據(jù)庫。 1 、 Access 簡介 作為 Microsoft的 office套件產(chǎn)品之一 ,access已經(jīng)賣出了近 900萬份 ,成為世界上最流行的桌面數(shù)據(jù)庫系統(tǒng)。而本次畢業(yè)設(shè) 計使用的數(shù)據(jù)庫Access2021 更是微軟 Office2021 中的一個套件。網(wǎng)絡(luò)型的數(shù)據(jù)庫一般情況下使面向企業(yè)級的用戶，數(shù)據(jù)存儲比較的穩(wěn)定，而且安全，數(shù)據(jù)存儲的容量也非常的巨大。 2． 4． 3 數(shù)據(jù)庫的選擇 考 試系統(tǒng)里有很多的地方需要存取數(shù)據(jù)，為了能夠更好的組織數(shù)據(jù)，并且使編碼更加的簡單，決定使用數(shù)據(jù)庫技術(shù)來組織所有的數(shù)據(jù)，包括題庫數(shù)據(jù)和考生在考試的時候的數(shù)據(jù)。 Visual BASIC的界面由一些對象組成，每個對象有若干個屬性、方法和事件，程序人員的任務(wù)是設(shè)計這些對象的事件處理過程。 Visual BASIC融入了最新的計算機(jī)技 術(shù) Visual BASIC的設(shè)計者在 Visual BASIC中融入了最新的計算機(jī)技術(shù)，使得用 Visual BASIC編程能充分利用了這些最新的技術(shù)，例如在多媒體方面的應(yīng)用、在 Inter 方面的應(yīng)用等。 Visual BASIC 改變了程序的機(jī)制，它沒有傳統(tǒng)意義上的主程序，而由 “ 事件 ” 來驅(qū)動子程序的運(yùn)行。也就是說，屏幕上的用戶界面是用 Visual BASIC 提供的可視化設(shè)計工具直接 “ 畫 ” 出來的，而不是用程序 “ 寫出來的 ” 。 Visual BASIC 向程序設(shè)計人員提供圖形對象（窗體、控件、菜單等）來進(jìn)行應(yīng)用程序的界面設(shè)計，例如程序人員可以根據(jù)用戶的需要輕而易舉地在屏幕上畫出下圖的用戶界面。 2． 4． 2． 1 Visual Basic介紹 我們先來了解一下 Visual Basic,經(jīng)過總結(jié)我覺得 Visual Basic有主要有如下的三個特點(diǎn) : Visual BASIC 提供可視化的編程工具 用傳統(tǒng)的高級語言編程時，程序的各種功 能、用戶界面和顯示的結(jié)果全要由程序語句來實(shí)現(xiàn)，這就增加了編程難度。而這兩個公司的