【文章內(nèi)容簡介】 該表記錄了人工輸入的試題信息，包括：題型、科目、章節(jié) 、知識點、難度系數(shù)、分值、題目、答案、選項 選項 選項 選項 選項 5。主鍵為：16 試題編號，數(shù)據(jù)類型為：整形，使用“標識”功能。當有新記錄加入時系統(tǒng)會將試題編號加 1 并賦予新記錄，保證所有記錄的試題編號值不會重復。 字段名稱 數(shù)據(jù)類型 字段大小 允許空 試題編號 Int 4 否 題型 Char 50 否 科目 Char 50 否 章節(jié) Char 50 否 知識點 Nvarchar 1000 否 難度系數(shù) Char 10 否 分值 Numeric 9 否 題目 Nvarchar 2020 否 答案 Nvarchar 2020 否 選擇 1 Char 200 是 選擇 2 Char 200 是 選擇 3 Char 200 是 選擇 4 Char 200 是 選擇 5 Char 200 是 表 試題信息表 概念結(jié)構(gòu)設計 （ 1）本系統(tǒng)的總實體 E－ R 圖 ，如圖 所示 本系統(tǒng)總實體 ER 圖是對整個系統(tǒng)程序所用到的主體，包含系統(tǒng)用戶、試卷信息、人工組卷、自動組卷、成套試卷幾個主體間的關系，體現(xiàn)本系統(tǒng)的基本邏輯結(jié)構(gòu)。 17 用 戶試 題 信 息自 動 組 卷 信 息成 套 試 卷 信 息人 工 組 卷 信 息使 用組 卷圖 系 統(tǒng)總實體 ER 圖 （ 2）各實體的主要屬性圖 用戶實體的主要屬性如圖 所示，包含用戶名，用戶密碼，用戶身份等。 系 統(tǒng) 用 戶用 戶 名用 戶 密 碼用 戶 身 份 圖 用戶實體屬性圖 人工組卷信息 人工組卷信息主要屬性如圖 所示，包含試題編號、題型、科目、章節(jié)、知識點、難度系數(shù)、分值、題目、答案、選項 選項 選項 選項 選項5 等。 18 人 工 組 卷試 題 編 號題 型科 目章 節(jié)知 識 點難 度 系 數(shù)分 值題 目答 案選 項 1選 項 2選 項 3選 項 4選 項 5圖 人工組卷信息實體屬性圖 成套試卷信息 成套試卷信息主要屬性如圖 所示，包含記錄 編號、學校、年級、科目、試卷標題、試卷內(nèi)容等。 成 套 試 卷學 校年 級 科 目試 卷 標 題試 卷 內(nèi) 容記 錄 編 號圖 成套試卷信息實體屬性圖 自動組卷信息 自動組卷信息主要屬性如圖 所示，包含記錄編號、學校、年級、科目、題型、題數(shù)、難度、知識點等。 19 自 動 組 卷年 級科 目 題 型題 數(shù)難 度知 識 點記 錄 編 號學 校圖 自動組卷信息實體屬性圖 試題信息 試題信息主要屬性如圖 所示，包含試題編號、題型、科目、章節(jié)、知識點、難度系數(shù)、分值、題目、答案、選項 選項 選項 選項 選項 5等。 試 題 信 息試 題 編 號題 型科 目章 節(jié)知 識 點難 度 系 數(shù)分 值題 目答 案選 項 1選 項 2選 項 3選 項 4選 項 5圖 試題信息實體屬性圖 20 5 系統(tǒng)詳細設計 登錄窗體模塊 登錄窗體是一個系統(tǒng)必不可少的界面之一，其主要功能在于驗證系統(tǒng)用戶的合法性，使合法用戶能夠順利的使用系統(tǒng)，而將非法用戶拒之門外。設計好的“登錄窗體”運行效果圖如圖 所示。 圖 系統(tǒng)登錄窗體 本模塊中實現(xiàn)“登錄”功能時所執(zhí)行的部分代碼如下所示： = select * from 用戶表 where 用戶名 =39。 amp。 Trim(TxtName) amp。 39。 If 1 Then MsgBox 用戶名錯誤，請重新輸入！ , vbCritical, 系統(tǒng)提示 Exit Sub ElseIf Trim(!用戶密碼 ) Trim(TxtPwd) Then MsgBox 密碼錯誤，請重新輸入！ , vbCritical, 系統(tǒng)提示 TxtPwd = Exit Sub ElseIf Trim(!用戶身份 ) Trim(CmbSF) Then MsgBox 用戶身份錯誤，請重新選擇！ , vbCritical, 系統(tǒng)提示 21 Exit Sub End If MsgBox 歡迎使用本系統(tǒng)！ , vbInformation, 系統(tǒng)提示 Unload Me 系統(tǒng)主窗體模塊 系統(tǒng)主窗體是整個系統(tǒng)的核心，在這里，幾乎將系統(tǒng)所有的功能 都囊括其中。本系統(tǒng)主窗體采用 MDI（多文檔窗口窗體）界面設計，可以在當中很方便的打開，或者關閉各種系統(tǒng)子功能窗體，而在操作系統(tǒng)任務欄中卻只存在系統(tǒng)主窗體一個任務圖標。 另外，本系統(tǒng)主窗體還采用了幾個 VB 的內(nèi)置函數(shù)，很容易的就實現(xiàn)了當中子窗體的各種排列功能，如層疊排列，水平平鋪，垂直排列等等，使系統(tǒng)界面更友好，使用更方便。設計好的“程序主界面窗體”如圖 所示。 圖 系統(tǒng)主窗體 22 部分實現(xiàn)代碼如下 : Private Sub mmuTileH_Click() vbTileVertical 39。水平平鋪子窗體 End Sub Private Sub mmuTileV_Click() vbTileHorizontal 39。垂直平鋪子窗體 End Sub Private Sub mmuXSXXBB_Click() End Sub 試題信息錄入模塊 此模塊可以輸入試題的相關信息，比如題型、科目、章節(jié)、難度系數(shù)、知識點、題目、答案等等，此處錄入的試題信息是整個系統(tǒng)的核心基礎，為后面所述的題庫數(shù)據(jù)管理、 自動組卷和人工組卷等模塊提供數(shù)據(jù)依據(jù)。其運行時的效果圖如圖 所示。 圖 試題信息錄入模塊 23 本模塊中實現(xiàn)試題信息錄入時所執(zhí)行的部分代碼如下所示： If 0 Then MsgBox 相同的試題題目已經(jīng)存在，數(shù)據(jù)錄入失敗，請重新輸入相關的數(shù)據(jù)！ , vbCritical, 系統(tǒng)提示 Exit Sub End If With .AddNew .Fields!科目 = Trim(CmbKM) .Fields!章節(jié) = Trim(TxtZJ) .Fields!難度系數(shù) = CInt(Trim(CmbNDXS)) .Fields!知識點 = Trim(TxtZSD) .Fields!分值 = CCur(Trim(TxtFZ)) .Fields!題目 = Trim(TxtTM) If Opt(0).Value = True Then .Fields!題型 = 單項選擇題 .Fields!選項 1 = Trim(TxtA) .Fields!選項 2 = Trim(TxtB) .Fields!選項 3 = Trim(TxtC) .Fields!選項 4 = Trim(TxtD) .Fields!答案 = Trim(CmbDA) End If If Opt(1).Value = True Then .Fields!題型 = 多項選擇題 .Fields!選項 1 = Trim(TxtA) .Fields!選項 2 = Trim(TxtB) .Fields!選項 3 = Trim(TxtC) .Fields!選項 4 = Trim(TxtD) .Fields!選項 5 = Trim(TxtE) 24 .Fields!答案 = Trim(CmbDA) End If If Opt(2).Value = True Then .Fields!題型 = 判斷題 .Fields!答案 = Trim(TxtDA) End If If Opt(3).Value = True Then .Fields!題型 = 解答題 .Fields!答案 = Trim(TxtDA) End If If Opt(4).Value = True Then .Fields!題型 = 作文題 .Fields!答案 = Trim(TxtDA) End If If Opt(5).Value = True Then .Fields!題型 = 翻譯題 .Fields!答案 = Trim(TxtDA) End If If Opt(6).Value = True Then .Fields!題型 = 論述題 .Fields!答案 = Trim(TxtDA) End If .Update End With MsgBox 試題信息錄入成功！ , vbInformation, 系統(tǒng)提示 題庫數(shù)據(jù)管理模塊 此模塊實現(xiàn)了對前述模塊錄入的數(shù)據(jù)管理功能，包括對記錄的修改，刪除，25 打印等功能，另外，此模塊還提供了對相關數(shù)據(jù)的多條件模糊檢索功能，只需要選擇相關的檢索條件，輸入檢索內(nèi)容，就可以檢索到相關的數(shù)據(jù)記錄。其運行效果圖如圖 所示。 圖 題庫管理窗體 本模塊中實現(xiàn)試題信息多條件查詢時所執(zhí)行的關鍵代碼如下所示： If = 0 Then MsgBox 請選擇查詢條件！ , vbCritical, 系統(tǒng)提示 Exit Sub End If If Trim(TxtCXNR) = Then MsgBox 請輸入查詢內(nèi)容！ , vbCritical, 系統(tǒng)提示 TxtCXNR = Exit Sub 26 End If Select Case Case 1 = select * from 試題信息 where 題型 like 39。% amp。 Trim(TxtCXNR) amp。 %39。 Case 2 = select * from 試題信息 where 科目 like 39。% amp。 Trim(TxtCXNR) amp。 %39。 Case 3 = select * from 試題信息 where 章節(jié) like 39。% amp。 Trim(TxtCXNR) amp。 %39。 Case 4 = select * from 試題信息 where 知識點 like 39。% amp。 Trim(TxtCXNR) amp。 %39。 Case 5 = select * from 試題信息 where 題目 like 39。% amp。 Trim(TxtCXNR) amp。 %39。 End Select If 1 Then MsgBox 查詢結(jié)束，無相關信息記錄！ , vbExclamation, 系統(tǒng)提示 AllClear TxtTiShi = 查詢結(jié)束，無相關信息記錄 Else ShowData End If 試題查詢排序模塊 此模塊實現(xiàn)了對前述模塊錄入的試題信息查詢和排序功能，在查詢子模塊，27 可以對試題信息實現(xiàn)多條件模糊查詢功能，只需要選擇要查詢的條件，系統(tǒng)會自動對查詢內(nèi)容進行分組初始化，方便用戶選擇對應的查詢內(nèi)容 ；在排序模塊，可以根據(jù)選定的題型，按照難度系數(shù)升序和降序排序，方便用戶對相關的試題信息分組查看。其運行效果圖如圖 所示。 圖 試題查詢排序窗體 在本模塊中實現(xiàn)試題排序時所執(zhí)行的部分代碼如下所示： If = 0 Then MsgBox 請選擇要排序的題型！ , vbCritical, 系統(tǒng)提示 Exit Sub End If If Opt(0).Value = True Then = select * from 試題信息 where 題型 =39。 amp。 Trim(CmbTX) amp。 39。 order by 難度系數(shù) End If If Opt(1).Value = True Then 28 = select * from 試題信息 where 題型 =39。 amp。 Trim(CmbTX) amp。 39。 order by 難度系數(shù) desc End If If 1 Then MsgBox 排序結(jié)束，無相關信息記錄！ , vbExclamation, 系統(tǒng)提示 Else MsgBox 排序結(jié)束！ , vbInformation, 系統(tǒng)提示 End If 自動組卷模塊 本模塊是整個系統(tǒng)的核心功能，實現(xiàn)了對試題信息的自動組卷功能，在此模塊當中，用戶只需要輸入相關的組卷信息（學校、年級、科目、題型、題數(shù)、難度系數(shù)，知識點等等），點擊“開始組卷”按鈕后，系統(tǒng)即可自動根據(jù)用戶選擇的條件組合成一套相關的試卷。其運行效果圖如圖 所示，其組卷后的效果圖如圖 所示。 圖 自動組卷窗體 29 圖 自動組卷效果圖 本模塊中實現(xiàn)自動組卷功能的關鍵代碼如下所示： = select * from 自動組卷信息 where 學校 =39。 amp。 Trim(ZDZJXX) a