【正文】 可以用來(lái)訪問(wèn)多種數(shù)據(jù)庫(kù)管理系統(tǒng)的數(shù)據(jù)。為了在數(shù)據(jù)庫(kù)中使用 ADO 技術(shù)，必須首先創(chuàng)建數(shù)據(jù)源。(1)打開(kāi)數(shù)據(jù)源管理器在 Windows XP 操作系統(tǒng)中，選擇“ 開(kāi)始”→“ 控制版面”→“管理工具”→“ODBC 數(shù)據(jù)源(32 位)” 選項(xiàng)，即可打開(kāi) “Microsoft ODBC 數(shù)據(jù)源”對(duì)話框。(2)建立 ODBC DSN 數(shù)據(jù)源在“Microsoft ODBC 管理器”對(duì)話框中，選定“ 用戶 DSN”選項(xiàng)卡，然后單擊“添加”按鈕，出現(xiàn)“ 創(chuàng)建新數(shù)據(jù)源向?qū)?duì)話框 ”，因?yàn)槭褂玫氖?Microsoft Access 數(shù)據(jù)庫(kù)，則在驅(qū)動(dòng)程序列表中選擇了“Microsoft Access Driver(*.mdb)”選項(xiàng)，然后單擊“ 完成”按鈕。這時(shí)出現(xiàn)“ODBC Microsoft Access”安裝對(duì)話框。在這個(gè)對(duì)話框中，指定了考試.mdb 這個(gè) Access 數(shù)據(jù)庫(kù)。在“數(shù)據(jù)源名 ”中輸入數(shù)據(jù)庫(kù)源的名稱(chēng) “ExamSystem”，然后單擊“ 選擇”按鈕，在彈出“選擇數(shù)據(jù)庫(kù) ”對(duì)話框中選擇考試系統(tǒng)數(shù)據(jù)庫(kù)文件所在的文件夾，然后選定“”文件，并單擊“ 確定” 按鈕，返回到 “ODBC Microsoft Access 安裝” 對(duì)話框，單擊確定，再連續(xù)單擊“ 確定” 按鈕退出 ODBC 管理器，這樣就完成了數(shù)據(jù)源的創(chuàng)建。 服務(wù)端主程序的建立 統(tǒng)一功能模塊與主程序界面(1)設(shè)置窗體屬性●窗體的大小使用的修改窗體大小的方法是使用“屬性” 窗口。首先確定已經(jīng)選擇了當(dāng)前的窗體（可以通過(guò)屬性窗口上方的對(duì)象列表查看當(dāng)前的操作對(duì)象） 。修改“Height”和“Width” 屬性。在這里設(shè)置的值為：Height=6150 ，Width=8505 ，作用是為了是窗體在不同的分辨率下都能保持一樣的大小。●窗體的顯示特性服務(wù)器程序具有考試監(jiān)視器的功能，所以它的窗體內(nèi)容相對(duì)固定，基本上不需要調(diào)整窗體的大小，所以就把窗體設(shè)置為不能修改大小。首先在長(zhǎng)體屬性窗口中，設(shè)置當(dāng)前的操作對(duì)象為“frmMain”。接下來(lái)在屬性窗口中把“BorderStyle”屬性修改為 “3－Fixed Dialog”， “Caption”屬性修改為“管理計(jì)算機(jī)自動(dòng)化考試系統(tǒng)—服務(wù)器” ， “StarUpRosition”屬性修改為“1 —所有者中心”，其它屬性沒(méi)有修改。2022 級(jí)信息與計(jì)算科學(xué)專(zhuān)業(yè)畢業(yè)論文21●設(shè)置功能按鈕作為程序主窗體，它應(yīng)該包括應(yīng)用程序中用于的全部功能。所以，在設(shè)計(jì)程序的窗口時(shí)，應(yīng)該把所有功能都包括進(jìn)去了。運(yùn)行的窗體，如圖 所示。圖 14　服務(wù)端管理界面設(shè)計(jì)過(guò)程如下：●繪制 Frame上面窗體中左側(cè)功能按鈕外面的一圈就是 Frame，F(xiàn)rame 是一種 Container，它可以用于盛放其它的控件，還可以對(duì)控件進(jìn)行分組。首先單擊開(kāi)發(fā)環(huán)境左側(cè)的控件工具的 Frame 工具，再在窗體上按住鼠標(biāo)左鍵，然后拖出一個(gè)矩形框，最后釋放鼠標(biāo)即可。同時(shí)重復(fù)同樣的過(guò)程 2 次，即可創(chuàng)建 3 個(gè) Frame 控件。接下來(lái)就修改控件的屬性，對(duì)于這 3 個(gè)控件。他們的功能只是用作顯示，并不響應(yīng)鼠標(biāo)或鍵盤(pán)的事件，所以并沒(méi)有修改它的名稱(chēng)“ 名稱(chēng)” 屬性。只是將它們的“Caption”屬性設(shè)置為相應(yīng)文字?！穹胖霉δ馨粹o在 Frame 控件里面放置了其它的控件。首先選擇控件工具箱的命令按鈕工具，在第一個(gè) Frame 中拖動(dòng)，形成一個(gè)按鈕，按照同樣的方法，在第一個(gè) Frame 中放置 3 個(gè)按鈕，第二 Frame 中放置 3 個(gè)按鈕，第三個(gè) Frame 中放置 4 個(gè)按鈕控件。.設(shè)置功能按鈕的屬性接下來(lái)，為這些按鈕設(shè)置了屬性。按照?qǐng)D 依次修改設(shè)置按鈕的“Caption”屬性。 信息顯示的完成計(jì)算機(jī)等級(jí)考試系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)22(1)繪制 PictureBoxPictureBox 也是一種容器。它不僅可以用于顯示圖片（這也是它最初的功能） ，也可以象 Frame 一樣作為其它控件的容器。在此考試系統(tǒng)界面中，將右上方的“狀態(tài)顯示區(qū)” 和右下方的 “鎖定提示區(qū)”，分別設(shè)置兩個(gè) PictureBox 的目的是不同的。前者用于顯示日期、時(shí)間、考試人數(shù)的內(nèi)容屬于同一個(gè)整體；而后者則是由于鎖定狀態(tài)的信息提示和密碼輸入框不僅屬于同一個(gè)整體，而且在操作時(shí)要整體進(jìn)行動(dòng)作，所以在這個(gè)區(qū)域中的控件放置到一個(gè) PictureBox 中能使得程序的編寫(xiě)更加簡(jiǎn)單。首先在控件工具箱單擊按鈕 PictureBox 控件按鈕，然后在窗體上按下鼠標(biāo)左鍵并拖動(dòng)，形成一個(gè)矩形，然后釋放鼠標(biāo)，就可以創(chuàng)建一個(gè) PictureBox。(2)設(shè)置 PictureBox 的屬性由于這里創(chuàng)建的兩個(gè) PictureBox 要在程序代碼中使用，為了使控件在程序代碼的書(shū)寫(xiě)中更容易識(shí)別，使用了標(biāo)準(zhǔn)的對(duì)象命名方法為這兩個(gè) PictureBox 設(shè)置“ 名稱(chēng)”屬性。將顯示系統(tǒng)狀態(tài)信息的 PictureBox 的“名稱(chēng)” 屬性設(shè)置為“picInfo”.首先用鼠標(biāo)選中PictureBox 控件，接著在“屬性” 窗口中選擇“名稱(chēng)”屬性，然后清除原來(lái)的“Picture1”，輸入新的名稱(chēng)”picInfo”?，F(xiàn)在的 PictureBox 是具有凹陷效果的，在考試系統(tǒng)中，這兩個(gè)使用平面效果更為合適。所以設(shè)置了 PictureBox 的“Border Style”(邊框樣式)屬性，只要單擊選中PictureBox 控件，在屬性窗口中選擇“Border Style”(邊框樣式)屬性，單擊“Border Style”項(xiàng)目右側(cè)的下拉按鈕，選擇其中的”0None” 。(3)繪制 PicInfo 中的控件首先選擇控件工具箱中的 Label 控件，在 PictureBox 中拖動(dòng)，繪制出一個(gè) Label 控件；接下來(lái)按照同樣的方法在繪制 6 個(gè)；然后選擇控件工具箱的 Timer 控件，在PicInfo 容器中任意拖動(dòng)，釋放鼠標(biāo)后，就會(huì)在拖動(dòng)的位置上出現(xiàn)一個(gè)時(shí)鐘樣子的控件。接下來(lái)設(shè)置這些 Label 控件的 “Caption”屬性，將其中的 4 個(gè) Label 控件分別設(shè)置為“當(dāng)前考試信息： ”、 “日期：”、 “時(shí)間：” 、 “正在參加考試的人數(shù)： ”。由于這些 Label 控件在編寫(xiě)程序代碼時(shí)并不會(huì)使用，所有沒(méi)有設(shè)置它們的“名稱(chēng)” 屬性。然后又設(shè)置了Timer 控件的屬性：首先選中 Timer 控件，在“屬性” 窗口中設(shè)置它的屬性，將“ 名稱(chēng)”屬性設(shè)置為“tmrMain” ， “Enabled”屬性設(shè)置為 “True”， “Interval”屬性設(shè)置為“300” 。Timer 控件的作用就是當(dāng)產(chǎn)生一定的時(shí)間間隔（由 Interval 屬性決定，單位時(shí) ms） ，并到達(dá)規(guī)定的時(shí)間后，就會(huì)執(zhí)行 Timer 事件中的語(yǔ)句。剩下的 3 個(gè)控件，分別設(shè)置它們的“名稱(chēng)”屬性分別為“l(fā)blData”、 “l(fā)blTime”、 “l(fā)blNum”。把“l(fā)blData”控件移動(dòng)到“ 日期：”的 Lable 控件右側(cè)。按照同樣的辦法，把 “l(fā)blTime”放置在“時(shí)間：” 控件右側(cè)，把2022 級(jí)信息與計(jì)算科學(xué)專(zhuān)業(yè)畢業(yè)論文23“l(fā)blNum”放置在“ 正在參加考試人數(shù)：”控件右側(cè)。 系統(tǒng)鎖定功能系統(tǒng)鎖定功能時(shí)用于在不使用管理系統(tǒng)的時(shí)候，將功能鎖定。鎖定后的管理系統(tǒng)將無(wú)法完成任何功能，包括退出系統(tǒng)。(1)使用 PictureBox 實(shí)現(xiàn)鎖定功能●繪制 PictureBox 控件方法與前面設(shè)置 picInfo 類(lèi)同?！窭L制 picLockSys 中的控件用同樣的方法，在 picLockSys 容器右下方中，繪制 2 個(gè) Label 控件、1 個(gè) TextBox控件和 1 個(gè) CommandButton 控件，界面如圖 所示。圖 15　考試鎖定界面在 Label 控件和 CommandButton 的 Caption 屬性中輸入如圖 所示文字， 且把文本框中的“ 名稱(chēng)” 屬性設(shè)置為 “txtUnlock”，并刪除 Text 屬性中的文字，接下來(lái)將文本框的“PasswordChar”屬性設(shè)置為 “*”。(2)編寫(xiě)解鎖功能的代碼解鎖實(shí)際上時(shí)鎖定的逆操作，在鎖定系統(tǒng)時(shí)，關(guān)閉了全部功能按鈕的點(diǎn)擊功能，并且使系統(tǒng)無(wú)法關(guān)閉；解鎖時(shí)，首先要恢復(fù)按鈕的點(diǎn)擊功能，然后使系統(tǒng)可以關(guān)閉就可以了。(3)完成鎖定功能與主程序的掛接●把鎖定功能整合到程序中在主窗體界面編輯窗口主雙擊“鎖定考試系統(tǒng)“ 按鈕，在編輯窗口中，輸入相應(yīng)代碼。這樣，窗體的掛接基本上完成了。再雙擊“工程管理器 ”窗口中的 “DeclareVir”，再出現(xiàn)的代碼編輯窗口的開(kāi)口加入一行：Global IsLocked As Boolean接下來(lái)回到主窗體的窗體編輯窗口，雙擊窗體空白出，在 Form_Load()過(guò)程中添加計(jì)算機(jī)等級(jí)考試系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)24一行：IsLocked = False在代碼編輯窗口中上方的兩個(gè)下拉列表框中分別選擇“Form”和“Unload”并輸入相應(yīng)代碼。●系統(tǒng)密碼的修改系統(tǒng)密碼函數(shù)用于修改管理員密碼新建一個(gè)窗體命名為“frmChgPasswd”，并放置相關(guān)控件，如圖 所示修改。圖 16　修改管理員密碼界面編寫(xiě)代碼，雙擊修改密碼窗體中的“確定” 按鈕，輸入所需代碼?；氐酱绑w編輯狀態(tài)，雙擊“解鎖” 按鈕。在編輯窗口中輸入下面的所需代碼。在主窗體編輯窗口中，雙擊“修改管理員密碼” 按鈕，進(jìn)入代碼編輯窗口。在代碼編輯窗口中輸入下面代碼：Private Sub cmdChgPasswd_Click() vbModal End Sub 實(shí)現(xiàn)考試和題庫(kù)管理 實(shí)現(xiàn)考試管理模塊考試管理用于管理考試的科目和題庫(kù)的題目。如圖 所示。設(shè)置方式：新建一個(gè)窗體，在控件工具箱的 ListBox 控件，然后在窗體拖動(dòng)，形成一個(gè) lishBox 控件，命名為 lstSbj。在 lishBox 控件上方設(shè)置 4 個(gè) Label 控件，下方設(shè)置7 個(gè) label 控件，7 個(gè) TextBox 控件，7 個(gè) CommandButton 控件，如圖 所示。2022 級(jí)信息與計(jì)算科學(xué)專(zhuān)業(yè)畢業(yè)論文25圖 17　考試管理界面●科目管理窗口的設(shè)計(jì)在詳細(xì)新顯示區(qū)完成的功能是顯示在科目列表中選定科目的詳細(xì)信息，也就是要求在 ListBox 中要響應(yīng) Click 事件。在 ListBox 的 Click 事件中，除了要完成詳細(xì)信息的顯示，還完成了按鈕“ 有效 (Enanbled)”屬性的設(shè)置?！駝h除科目功能首先判斷考試可以是否有效，如果已經(jīng)處于“無(wú)效” 狀態(tài)，再判斷維護(hù)參照完整性的，已注冊(cè)但沒(méi)有完成考試的考生的人數(shù)是否滿足小于等于 0，如果小于等于 0，才可以刪除?！裨O(shè)置科目的狀態(tài)考試科目有兩種狀態(tài)：“ 有效 ”和“無(wú)效”，考試科目管理窗體上采用了 2 個(gè)功能按鈕“啟用科目”和“ 禁用科目”?！裨黾涌颇啃畔⒃黾涌颇啃畔?、修改科目信息用于增加和修改考試的科目信息，如圖 所示。在增加考試科目對(duì)話框中，涉及到科目編號(hào)的問(wèn)題，這個(gè)科目編號(hào)是由兩個(gè) 3 位的隨機(jī)數(shù)字符串構(gòu)成，兩個(gè)字符串中用“—” 分割。從窗體設(shè)計(jì)上，考試科目號(hào)使用了兩個(gè) TextBox 控件，中間用“—” 分割，每個(gè) TextBox 存放 3 個(gè)字符。使用“生成科目號(hào)”按鈕可以自動(dòng)生成這兩個(gè) 3 位數(shù)字符串。代碼見(jiàn)附錄 1。圖 18　增加考試科目界面計(jì)算機(jī)等級(jí)考試系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)26 實(shí)現(xiàn)題庫(kù)的管理題庫(kù)管理功能用于管理某一個(gè)考試科目中的題目信息。在考試系統(tǒng)中，題庫(kù)管理使用了統(tǒng)一的界面，如圖 所示。題目中還使用了 Rich Text 格式的文本，不僅可以設(shè)置字體、字號(hào)及顏色，而且還能插入圖片，并且題目也可以使用 Word 等高級(jí)的編輯器進(jìn)行編輯，只需要簡(jiǎn)單的復(fù)制粘貼即可。圖 19　題庫(kù)管理界面(1)題庫(kù)窗口的設(shè)計(jì)新建一窗體，然后在上面添加各控件如圖 。●Rich Text 文本編輯功能Rich Text 是多格式文本的編輯。它可以類(lèi)似 Word 的編輯方法和現(xiàn)實(shí)效果。(2)字體顏色的修改通過(guò) SelColor 屬性設(shè)置來(lái)完成，但是需要添加 CommonDialog 控件，通過(guò)這個(gè)控件的 Color 屬性，可以調(diào)出選擇顏色對(duì)話框。然后就選擇一個(gè)合適的顏色?！癫迦雸D片實(shí)現(xiàn)插入圖片仍然使用了 CommonDialog 控件，這次調(diào)用了 ShowOpen 方法。選定的文件名將被存入 CommonDialog 控件的 FileName 屬性中。(3)集成增加和修改功能在窗體界面中，增加和修改的功能都已經(jīng)集成到同一個(gè)界面中了。在窗體級(jí)定義了一個(gè)變量，用于存放題目是否被修改。題目?jī)?nèi)容輸入、類(lèi)型選擇、答案輸入，都相應(yīng)默認(rèn)事件，且如果題目被修改，這個(gè)變量的值將被設(shè)置為 True。此外， “上一題 ”、 “下一題”、 “增加題目” 、 “關(guān)閉”等按鈕都要檢測(cè)當(dāng)前題目是否需要保存。如果需要保存，則彈出的對(duì)話框詢(xún)問(wèn)用戶是否保存題目。●雙擊“下一題”按鈕，進(jìn)入代碼編輯窗口，輸入下面的代碼： Private Sub cmdNext_Click() If IsChange Then CheckSave CurrentQ = CurrentQ + IIf(CurrentQ TotalQ，1，0) = (CurrentQ 1) = (CurrentQ TotalQ)2022 級(jí)信息與計(jì)算科學(xué)專(zhuān)業(yè)畢業(yè)論文27 CheckEmptyEnd Sub●返回，雙擊“上一題”按鈕，在代碼編輯窗口中輸入下面代碼：Private Sub cmdPrev_Click() If