【正文】 2． 4． 2 開發(fā)工具的選擇 現(xiàn)在在市場(chǎng)上，流行的 Windows開發(fā)工具主要由兩個(gè)供應(yīng)商提供，一個(gè)是微軟公司，另外一個(gè)是 Borland 公司。因?yàn)?Visual Basic是微軟專門為開發(fā) Windows程序而設(shè)計(jì)的 ,特點(diǎn)是簡(jiǎn)單易用，開發(fā)快速，和 Windows結(jié)合緊密，語(yǔ)言簡(jiǎn)單，試想學(xué)計(jì)算機(jī)的誰(shuí)沒有學(xué)過 Basic語(yǔ)言呢？雖然Delphi功能也很強(qiáng)大，但是考慮到簡(jiǎn)單性，所以我決定使用 Visual Basic。而用 Visual BASIC開發(fā)應(yīng)用程序，包括兩部分工作：一是設(shè)計(jì)用戶界面，二是編寫程序代碼。 Visual BASIC 提供的 “ 工具箱 ” 內(nèi)存放若干個(gè) “ 控件 ” ，程序設(shè)計(jì)者可以自由地從工具箱中取出所需控件，放到窗體中的指定位置，而不必為此編寫程序。 程序采用 “事件驅(qū)動(dòng) “方式 在設(shè)計(jì)好用戶界面后，第二件事是編寫程序。一般來說，每個(gè)子程序要實(shí)現(xiàn)的功能是單一的，子程序的規(guī)模一般不會(huì)太大，也就是說，把原來一個(gè)統(tǒng)一控制的、包羅萬(wàn)象的大程序分解為許多個(gè)獨(dú)立的、小規(guī)模的子程序，分別由各種 “ 事件 ” 來驅(qū)動(dòng)執(zhí)行，于是編程難度大大降低了。 總之， Visual BASIC是面向?qū)ο蟮?、結(jié)構(gòu)化的計(jì)算機(jī)語(yǔ)言。 Visual BASIC是一種很容易學(xué)習(xí)并很快就可以熟練掌握的功能強(qiáng)大的編程語(yǔ)言?，F(xiàn)在市場(chǎng)上主流的數(shù)據(jù)庫(kù)分為網(wǎng)路型的數(shù)據(jù)庫(kù)和桌面型的數(shù)據(jù)庫(kù)。而桌面型的數(shù)據(jù)庫(kù)一般是面向一些中小型的用戶，他們的數(shù)據(jù)量不是非常的龐大，由于一般情況下，不是通過網(wǎng)絡(luò)來存取的，所以速度相對(duì)來說要快一點(diǎn)，而且價(jià)格方面要便宜的多，缺點(diǎn)是數(shù)據(jù)安全性方面稍差。為了減少成本，而且對(duì)于一個(gè)考場(chǎng)的考生來說使用 Access 數(shù)據(jù)庫(kù)已經(jīng)足夠，而且減低了整個(gè)系統(tǒng)的造價(jià)。 Access與許多優(yōu)秀的關(guān)系數(shù)據(jù)庫(kù)一樣，可以讓你很容易地連接相關(guān)的信息而且還對(duì)其他的數(shù)據(jù)庫(kù)系統(tǒng)有所補(bǔ)充。 Access還完全支持 Microsoft的 OLE技術(shù)。 Access與其它數(shù)據(jù)庫(kù)開發(fā)系統(tǒng)之間相當(dāng)顯著的區(qū)別就是：您不用寫一行代碼，就可以在很短的時(shí)間里開發(fā)出一個(gè)功能強(qiáng)大而且相當(dāng)專業(yè)的數(shù)據(jù)庫(kù)應(yīng)用程序，并且這一愉快的過程是完全可視的！如果您能給它加上簡(jiǎn)短的 VBA代碼，那么您的程序決不比專業(yè)程序員潛心開發(fā)的程序差。 表 用戶定義的存儲(chǔ)資料的對(duì)象。表包括存儲(chǔ)不同種類資料的字段（列），而記錄（行）則收集特定主體實(shí)例的所有信息。在 Access中，可以利用圖形化的實(shí)例查詢機(jī)制（ QBE）或通過 SQL語(yǔ)句來建立查詢。 窗體 窗體是主要的人機(jī)接口。窗體通過運(yùn)行宏（ macro）或 Visual Basic for Applicatinns（ VBA）過程，來響應(yīng)大量的事件。 報(bào)表 為格式化、計(jì)算、打印選定資料而設(shè)計(jì)的對(duì)象。 宏 為了響應(yīng)已定義的事件，需要讓 Access去執(zhí)行一個(gè)或多個(gè)操作，而宏就是對(duì)這些操作的結(jié)構(gòu)化的定義對(duì)象。 模塊 包括用 VBA編碼的定制過程的一個(gè)對(duì)象。模塊能直接響應(yīng)窗體或報(bào)表事件，也可以從應(yīng)用程序的任何地方被調(diào)用。如果你具有下面的情況，就應(yīng)該考慮選擇 Access。 2 、 我略懂編程，希望能夠建立一個(gè)專業(yè)的數(shù)據(jù)庫(kù)系統(tǒng)。 4 、 我有大量的資料要處理，卻不會(huì)寫 SQL語(yǔ)句。 從上面的 VB和 Access的介紹后，我們知道如果使用這兩種軟件來開發(fā)是個(gè)比較不錯(cuò)的選擇，所以決定使用這兩個(gè)軟件進(jìn)行本次的開發(fā)和設(shè)計(jì)。 3． 1． 3 套號(hào)設(shè)置 所謂一套試題，其實(shí)就是完整的一份試卷。 也就是說如果有三套，那么每回隨機(jī)抽卷就是在這三套里進(jìn)行抽取，當(dāng)然本系統(tǒng)也有指定一套進(jìn)行抽題的模式的。 1 、 題目?jī)?nèi)容增加 其實(shí)就是往題庫(kù)里增加一道題目。 3 、 題目?jī)?nèi)容刪除 當(dāng)題目錄入錯(cuò)誤的時(shí)候，或者是該題目不再使用的時(shí)候，就使用該功能，但是當(dāng)該題目?jī)?nèi) 容下面已有備選答案設(shè)置的時(shí)候，本系統(tǒng)將不允許刪除該題目?jī)?nèi)容的 . 4 、 題庫(kù)內(nèi)容瀏覽 當(dāng)題目編輯完畢的時(shí)候 ,可以使用該功能對(duì)所有的題目進(jìn)行瀏覽。 ② 備選答案修改 備選答案錄入錯(cuò)誤，使用該功能進(jìn)行修改。但是如果該備選答案對(duì)應(yīng)的試題已經(jīng)在考試的過程中被抽到，將不能刪除該備選答案。 7 、抽題設(shè)置 由于本系統(tǒng)在考試的時(shí)候有兩種抽題模式，一種是由計(jì)算機(jī)從題庫(kù)里隨機(jī)抽取，也就是說在場(chǎng)的考生可能使用的都是不同的試題。如果選擇了使用一套試題的模式，則從題庫(kù)里選擇一套。 2 、 考生答題 考生使用該功能進(jìn)行考試 ① 加載系統(tǒng)抽取的或者是已經(jīng)指定的套數(shù)。這樣可以防止考生在考生的過程中由于不可抗因素退出系統(tǒng)后，還可以繼續(xù)進(jìn)行答題，而不是完全重新開始答題。 3 、 考生交卷 本功能是考生答卷的終點(diǎn)，考生交卷了就保證該考生本次考試結(jié)束了，也就不能再次進(jìn)入進(jìn)行考試了。 2 、考生答題瀏覽 瀏覽該考生抽取的試題的具體內(nèi)容 3 、 考生成績(jī)?yōu)g覽 瀏覽該考生的每道題的對(duì)錯(cuò)，還有得分情況。 第四章 數(shù)據(jù)庫(kù)設(shè)計(jì) 經(jīng)過了上面的分析，我們現(xiàn)在已經(jīng)知道了我們系統(tǒng)的所有具有的功能，也就知道了系統(tǒng)需要存取 些什么數(shù)據(jù)了，接下來我們進(jìn)行數(shù)據(jù)庫(kù)的設(shè)計(jì)。表的結(jié)構(gòu)如下 : 字段名 字段類型 備注 ID 自動(dòng)編號(hào) 主關(guān)鍵字 題目編號(hào) 字符 題目的唯一編號(hào) 題目?jī)?nèi)容 字符 題目套號(hào) 數(shù)字 套的 ID 題目類型 是 /否 是 =多選題 否 =單選題 題目答案 字符 題目分值 數(shù)字 題目備注 字符 4． 2 題目明細(xì) 存儲(chǔ)題目的備選答案，正好是前面題庫(kù)主表的從表。表結(jié)構(gòu)如下 : 字段名稱 字段類型 備注 ID 自動(dòng)編號(hào) 主關(guān)鍵字 考試套號(hào) 數(shù)字 當(dāng)前的套號(hào)，如果是 0,表示，使用隨機(jī)的抽取，如果是其他的表示的是當(dāng)前的套號(hào) 4． 5 考生 每次考生登陸的時(shí)候，系統(tǒng)是會(huì)記錄考生的信息，考生的考試套號(hào)的。該表結(jié)構(gòu)如下 : 字段名稱 字段類型 備注 ID 自動(dòng)編號(hào) 主關(guān)鍵字 準(zhǔn)考證號(hào) 字符 唯一索引 考生姓名 字符 考試套號(hào) 數(shù)字 考生狀態(tài) 字符 未交卷、 已交卷 4． 6 考生答案 為了能夠了解考生的具體答題信息，并且在考生意外退出后能夠重新加載考生的信息，我們需要記錄該考生的答案。所以我們要想得到所有的信息，或者說是具體的信息，我們往往要借助視圖了，題庫(kù) 主表就是采取視圖的方式顯示，該視圖的 SQL 語(yǔ)句如下： SELECT 題庫(kù)主表 .ID, 題庫(kù)主表 .題目編號(hào) , 題庫(kù)主表 .題目?jī)?nèi)容 , 題庫(kù)主表 .題目套號(hào) , IIf([題目類型 ]=False,單選題 ,多選題 ) AS 類型 , 題庫(kù)主表 .題目答案 , 題庫(kù)主表 .題目分值 , 題庫(kù)主表 .題目備注 FROM 題庫(kù)主表 。 第五章 系統(tǒng)實(shí)現(xiàn) 在經(jīng)過了前面的功能設(shè)計(jì)之后，我們進(jìn)入到了我們的系統(tǒng)實(shí)現(xiàn)部分，也就是真正的代碼實(shí)現(xiàn)階段了。下面來分幾個(gè)重要的模塊來說一下設(shè)計(jì)思路和實(shí)現(xiàn)方法，對(duì)于一些很顯示的 我就不在說明了 5． 1 ADO 技術(shù) 在本系統(tǒng)中我們用到了數(shù)據(jù)庫(kù)的技術(shù)，在 VB 中，有很多的方法，可以訪問數(shù)據(jù)庫(kù)，比如比較原始比較底層 的 ODBC,專門為 Access 數(shù)據(jù)庫(kù)設(shè)計(jì)的 DAO,還有專門為了遠(yuǎn)程設(shè)計(jì)的 RDO。 ADO 設(shè)計(jì)為一種極為簡(jiǎn)單的格式，通過 ODBC 的方法同數(shù)據(jù)庫(kù)接口。而且 ADO 訪問數(shù)據(jù)庫(kù)的代碼非常的簡(jiǎn)單，而且很容易讓人理解。如果代碼寫的質(zhì)量高的話，完全可以使用同一種代碼訪問不同的數(shù)據(jù)庫(kù)。不知不覺就會(huì)提高你產(chǎn)品的形象，必定顧客是上帝，我們不可能一點(diǎn)都不顧客戶的感受。 VB 的錯(cuò)誤代碼處理非常的簡(jiǎn)單，簡(jiǎn)單的來說，就是遇見錯(cuò)誤，忽略。我們來看看典型的兩種方式呀 比如有如下的代碼 : dim I as Integer on error goto Proc_Exit 在這里發(fā)生了錯(cuò)誤，則會(huì)直接跳到 Proc_Exit 后面的代碼執(zhí)行，那么 I=I+1 就不執(zhí)行了 I=I+1 Proc_Exit: 另外一段代碼： dim I as Integer on error Resume next 在這 里發(fā)生了錯(cuò)誤，繼續(xù)執(zhí)行 I=I+1 的代碼 I=I+1 兩種錯(cuò)誤處理方法都是有不同的使用的地方的，就看我們?nèi)绾戊`活的掌握了。 5． 3 套號(hào)設(shè)置 套號(hào)設(shè)置是一個(gè)基礎(chǔ)的設(shè)置，要想添加新的一份試卷，首先我們?cè)撌褂迷摴δ軄硖砑右粋€(gè)套的信息，我們?cè)O(shè)計(jì)了如下的界面： 在文本框里輸入套號(hào)名稱后確定就可以在數(shù)據(jù)庫(kù)里添加該套號(hào)了，添加成功后，系統(tǒng)會(huì)自動(dòng)轉(zhuǎn)入下一個(gè)添加狀態(tài)，也就是可以接著再添加套號(hào)。 amp。 , vbInformation End If End If End Sub 在本段代碼里，我就運(yùn)用了錯(cuò)誤處理的代碼。我們捕獲了該錯(cuò)誤，然后對(duì)用戶進(jìn)行提示。而發(fā)生其他的錯(cuò)誤時(shí)候，我們就把錯(cuò)誤給顯示出來，這樣非常的有利于我們來維護(hù)使用我們的系統(tǒng)。所以我設(shè)計(jì)了一個(gè)典型的主表和子表的瀏覽界面如下： 上面的表格就是題目的內(nèi)容部分，下面的表格就是該道試題的備選答案的內(nèi)容。 我們來了解一下這里的代碼實(shí)現(xiàn)了，為了充分發(fā)揮 VB 的 RAD 開發(fā)工具的優(yōu)勢(shì)，我們這里采取了數(shù)據(jù)綁定來顯示數(shù)據(jù)和更新數(shù)據(jù)，整個(gè)代碼就顯的非常的簡(jiǎn)單了： 首先我們?cè)诖绑w加載的時(shí)候，我們要加載界面的顯示內(nèi)容，我們可以在 Form 的 Load事件里進(jìn)行這 些初始化工作的。 Private Sub Form_Load() Call InitSubjectSet Call InitSubject End Sub 39。 初始化組合框里的數(shù)據(jù) Private Sub InitSubjectSet() Dim rst As Recordset Dim i As Integer Set rst = New Recordset = adLockBatchOptimistic = adUseClient = adOpenStatic = pCN = select * from 套號(hào) For i = 1 To rst![套號(hào)名稱 ] ( 1) = rst![ID] Next i If 0 Then = 0 End If Set rst = Nothing End Sub 根據(jù)選中的套號(hào)從數(shù)據(jù)庫(kù)里檢索出數(shù)據(jù)，并且在題目?jī)?nèi)容的表格里進(jìn)行顯示，代碼如下： Private Sub InitSubject() = = select * from 題庫(kù)主表 where 題目套號(hào) = amp。 amp。 39。 lngID, pCN, adOpenStatic, adLockBatchOptimistic Text3 = rst![題目編號(hào) ] If rst![題目類型 ] Then = True Else = True End If Text1 = rst![題目?jī)?nèi)容 ] Text4 = rst![題目分值 ] Text5 = rst![題目答案 ] Text2 = rst![題目備注 ] amp。H80000018 = True Else = vbWhite = False End If Set rst = Nothing 1 End Function 保存代碼如下 Private Sub Command1_Click() Dim rst As Recordset Dim strTemp As String Dim i As Integer On Error GoTo Proc_Exit If Len(Text3) = 0 Then MsgBox 題目編號(hào)不為空 !, vbInformation GoTo Proc_Exit End If If Len(Text1) = 0 Then MsgBox 題目?jī)?nèi)容不為空 !, vbInformation GoTo Proc_Exit End If If Len(Text5) = 0 Then MsgBox 題目答案不為空 !, vbInformation GoTo Proc_Exit End If For i = 1 To Len(Text5) strTemp = Mid(Text5, i, 1) If Not (Asc(strTemp) = 65 And Asc(strTemp) = 90) And Not (Asc(strTemp) = 97 And Asc(strTemp) = 122) Then Ms