【文章內(nèi)容簡介】 調(diào)用此模塊，要求用戶先進行登陸。 登陸功能模塊如圖 所示。 試卷管理系統(tǒng) 系統(tǒng)管理 試卷生成管理 數(shù)據(jù)庫管理 系統(tǒng)幫助 用戶管理 密碼管理 自動生成試卷 手動生成試卷 抽取現(xiàn)有試卷 數(shù)據(jù)庫還原 數(shù)據(jù)庫備份 系統(tǒng)關(guān)于 系統(tǒng)幫助 10 圖 登陸模塊功能圖 (2) 試卷生成 管理 模塊 試卷生成管理模塊 主要包括 如下子模塊 ： ? 抽取現(xiàn)有試卷模塊：顯示預(yù)覽試卷，保存答案，刪除試卷功能。 ? 手動生成試卷模塊：顯示加入試卷，保存試卷功能。 ? 自動生成模塊：顯示生成試卷，預(yù)覽試卷，預(yù)覽答案，保存試卷功能。 詳細的試卷生成管理功能模塊如圖 所示 。 圖 試卷生成管理模塊功能圖 試卷生成管理 抽取現(xiàn)有試卷 手動生成試卷 自動生成試卷 預(yù)覽試卷 保存答案 刪除試卷 加入試卷 保存試卷 生成試卷 預(yù)覽答案 預(yù)覽試卷 預(yù)覽答案 系統(tǒng)用戶信息 管理員 教務(wù)管理員 教師 修改管理員密碼 添加刪除修改其他用戶 審核添加修改其他用戶 管理自身帳戶 查詢試題打印試題 管理自身賬號 11 (3) 數(shù)據(jù)庫 管理 模塊 主要包括 數(shù)據(jù)庫還原和數(shù)據(jù)庫備份。數(shù)據(jù)庫管理模塊結(jié)構(gòu)如圖 所示。 圖 數(shù)據(jù)庫管理模塊功能圖 (4) 系統(tǒng)幫助模 塊 主要包括 系統(tǒng)幫助和系統(tǒng)關(guān)于。系統(tǒng)幫助模塊結(jié)構(gòu)如圖 所示。 圖 系統(tǒng)幫助模塊功能圖 數(shù)據(jù)表設(shè)計 根據(jù)系統(tǒng)功能設(shè)計，把數(shù)據(jù)庫命名： STGL，在 SQL Server 2020 數(shù)據(jù)庫創(chuàng)建 了 題型表、難度程度表、出卷人表、用戶信息表等。各數(shù)據(jù)表的具體情況如表 1 至表 9 所示。 表 41 用戶信息表 (usermanagement) 字段中文名 字段英文名 字段類型 字段長度 姓名 NameID char 20 密碼 PWD char 20 用戶類型 QX int 2 系統(tǒng)幫助 系統(tǒng)關(guān)于 幫助 數(shù)據(jù)庫管理 數(shù)據(jù)庫還原 數(shù)據(jù)庫備份 12 表 42 題型表 (TX) 字段中文名 字段英文名 字段類型 字段長度 題型 Type char 10 名稱 TypeName char 10 表 43 難度程度表 (NYD) 字段中文名 字段英文名 字段類型 字段長度 編號 BH int 4 難易度 ND char 4 表 44 選擇題表 (selects) 字段中文名 字段英文名 字段類型 字段長度 題號 BH char 10 題型 Type char 10 題目 Topic char 100 選項 A A char 100 選項 B B char 100 選項 C C char 100 選項 D D char 100 正確答案 Answer char 1 難易度 ND char 4 出自章節(jié) ZJ char 2 表 45 填空題表 (adds) 字段中文名 字段英文名 字段類型 字段長度 題號 BH char 10 題型 Type char 10 題目 TM char 100 空 1 K1 char 50 空 2 K2 char 50 空 3 K3 char 50 難易度 ND char 4 出自章節(jié) ZJ char 2 表 46 簡答題表 (ask) 字段中文名 字段英文名 字段類型 字段長度 題號 BH char 10 題型 Type char 10 13 題目 TM char 100 答案 Answer char 200 難易度 ND char 4 出自章節(jié) ZJ char 2 表 47 閱讀程序題表 (YDCX) 字段中文名 字段英文名 字段類型 字段長度 題號 BH int 10 題型 Type int 10 題目 TM char 100 答案 Answer char 200 難易度 ND char 4 出自章節(jié) ZJ char 2 表 48 出卷人表 (SJ) 字段中文名 字段英文名 字段類型 字段長度 試卷代號 SJDH datetime 8 出卷老師 CJLS char 20 難易度 ND char 4 表 49 已存試卷表 (SJT) 字段中文名 字段英文名 字段類型 字段長度 編號 BH int 4 試卷代號 SJDH datetime 8 題號 ZD char 10 試卷類型 Type char 10 分數(shù) FZ char 10 自動組卷 與 手動組卷 自動組卷是時系統(tǒng)根據(jù)用戶要求，隨機選取試題，組成一份完整的試卷。本系統(tǒng)使用的是回溯探取法隨機選題。其主要過程如下： （ 1）用戶輸入選題要求，如各題型數(shù)量，題型分值和題型難度，并設(shè)置試卷總分數(shù)。 （ 2）初始化隨機數(shù)生成器。 （ 3）系統(tǒng)根據(jù)題型數(shù)量和題型難度要求在各題型表中隨機抽取試題，將抽取到的試題的“編號”、“試題類型”、“分值”等信息存入臨時表 LSSJ 中，并對其進行排序和比較，如有重復(fù)則返回繼續(xù)搜索，防止試題被重復(fù)選取，一直到抽取試題數(shù)等于用戶設(shè)置的各 題型的試題數(shù)量 [8]。 （ 4）系統(tǒng)自動判斷用戶設(shè)置的試卷總分值與試題總分值是否相等，是則生成試卷，并將試題信息“編號”、“分值”、“難度”等信息存入數(shù)據(jù)庫表 SJT 中，且生成“試卷代號”、“試卷創(chuàng)建者”、并判斷“試卷難度”，存入數(shù)據(jù)庫表 SJ 中。否則試卷生 14 成失敗，并清空臨時表 SJ 中所有信息。 （ 5）設(shè)置試卷模板。 （ 6）預(yù)覽試卷，系統(tǒng)根據(jù)數(shù)據(jù)庫表 SJT 中信息搜索題庫試題內(nèi)容，并按設(shè)置好的試卷模板導(dǎo)入 Word 中，生成一份完整的試卷，并以 *.doc 文件的形式保存。 自動生成試卷的流程如圖 所示。 圖 自動生成試卷流程圖 由于自動生成的試卷，對于試卷知識覆蓋面的問題不好控制，為了解決這各問題，所以本軟件增加了另一種組卷方式，也就是手動生成試卷。此組卷方式的優(yōu)點在于，系統(tǒng)將各題型的試題具體的分到了此科考試的具體章節(jié)和知識點。用戶可以根據(jù)具體章節(jié)和知識點瀏覽此知識點下的各試題，并可以選擇加入試卷，組成一份知識覆蓋面廣的試卷。其主要組卷過程如下： （ 1）用戶選擇試題題型，題型分值，試題數(shù)量和知識點，并設(shè)置試卷總分值，系統(tǒng)根據(jù)用戶選擇的題型和知識點顯示所有試題 。 （ 2）用戶選擇試題，試題的“編號”、“難度”、“題型”等信息存入臨時表 LSST中，如果重復(fù)選題，則系統(tǒng)提示“您已選擇此試題！”，否則系統(tǒng)提示“試題添加成功！”。 （ 3）生成試卷，系統(tǒng)判斷用戶設(shè)置分數(shù)是否與試題總分數(shù)相等，是則生成一份完整的試卷，并將試題的“編號”、“難度”、“分值”、“類型”等信息存入數(shù)據(jù)庫表SJT 中。且生成“試卷代號、”試卷創(chuàng)建者“，并判斷”試卷難度“，存入數(shù)據(jù)庫表 SJ中。否則試卷生成失敗，提示用戶“您生成的試卷分值與設(shè)置的試卷分值不等，試卷生Y Y N 輸入試卷信息 試卷總分 100 分？ 試卷生成失敗 預(yù)覽試卷 保存試卷 保存答案 自動選擇試題 程序開始 程序結(jié)束 15 成失敗！”。 （ 4）設(shè)置試卷模板。 （ 5）預(yù)覽試卷，系統(tǒng)根據(jù)數(shù)據(jù)庫表 SJT 中信息搜索題庫試題內(nèi)容，并按設(shè)置好的試卷模板導(dǎo)入 Word 中，生成一份完整的試卷，并以 *.doc 文件的形式保存。 圖 手動生成試卷流程圖 抽取現(xiàn)有試卷 為了讓用戶能很方便的管理已生成的試卷，本系統(tǒng)增加了抽取現(xiàn)有試卷這個功能模塊。用戶能通過這個模塊能很方便的對現(xiàn)有試卷進行刪除和預(yù)覽，同時也能預(yù)覽用戶所選擇的試卷的答案。其主要過程如下 ： （ 1） 用戶進入抽取現(xiàn)有試卷界面，系統(tǒng)自動搜索數(shù)據(jù)庫表 SJ 中信息，顯示現(xiàn) 有試卷的“代號”，“試卷創(chuàng)建者”，“試卷難度 ” 。 （ 2） 用戶選擇一份已有試卷，系統(tǒng)自動從數(shù)據(jù)庫表 SJT 中搜索該試卷試題的“編號 ” ， “分值 ” ， “難度 ” 。 （ 3） 預(yù)覽試卷，系統(tǒng)根據(jù)數(shù)據(jù)庫表 SJT 中信息搜索題庫試題內(nèi)容，并按設(shè)置好的試卷模板導(dǎo)入 Word 中，生成一份完整的試卷，并以 *.doc 文件的形式打開 。 （ 4） 保存答案，系統(tǒng)根據(jù)數(shù)據(jù)庫表 SJT 中信息搜索題庫試題答案，并按試卷模板Y N 添加試題 生成試卷失敗 試卷總分 100 分？ 預(yù)覽試卷 保存試卷 輸入試卷信息 程序開始 程序結(jié)束 16 以 *.doc 文件的形式打開。 （ 5）刪除試卷，系統(tǒng)刪除試卷在數(shù)據(jù)庫表 SJT 中的信息，系統(tǒng)顯示“刪除試卷成功”。 抽取現(xiàn)有試卷算法的 具體流程可用圖 直觀說明。 圖 抽取現(xiàn)有試卷流程圖 N Y N Y 保存答案 程序開始 預(yù)覽試卷 輸出答案 輸出試卷 確認刪除試卷 執(zhí)行刪除 程序退出 選擇現(xiàn)有試卷 17 第五章 關(guān)鍵技術(shù)與系統(tǒng)實現(xiàn) 本系統(tǒng)是一個試卷生成管理系統(tǒng)，重點在于組卷，所以主要是對關(guān)于試卷生成的實現(xiàn)的說明。本系統(tǒng)包括抽取現(xiàn)有試卷，自動生成試卷和手動生成試卷三大功能。 登錄模塊 登錄界面是用戶最先看到的系統(tǒng)的界面，所以直觀上給用戶的感覺很重要，所以做一個好的界面，提高軟件的親和力。本管理系統(tǒng)登錄界面如圖 51 所示。 登陸功能實現(xiàn)的核心代碼如下。 圖 管理系統(tǒng)登錄界面 Private Sub cmdOK_Click() 39。39。進入 ..確定 On Error GoTo Err Dim txtSql As String UserName = If Trim() = Then 39。39。判斷用戶名是否為空 MsgBox 請輸入帳號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim() = Then 39。判斷密碼是否為空 MsgBox 請輸入密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。39。判斷是否有這個用戶 txtSql = select * from 用戶信息表 where 用戶名稱 = 39。 amp。 amp。 39。 If Then txtSql, CN, adOpenStatic, adLockOptimistic If = True Then 39。39。如果沒有這個用戶 18 MsgBox 沒有這個帳號，請重新輸入帳號 !, vbOKOnly + vbExclamation, 警告 = = 如果輸入的用戶名和密碼正確，將對用戶的權(quán)限進行判斷，如果是管理員就進入到管理員模式；如果是教務(wù)管理員就進入到教務(wù)管理員模式；如果是教師就進入到教師模式；如果用戶沒有權(quán)限，則會警告。具體代碼如下： If Trim((1)) = Trim() Then 39。39。判斷權(quán)限 UserPrivs = If Trim((2)) = 管理員 Then 39。39。管理員權(quán)限 IsUserMode = 1 ElseIf Trim((2)) = 教務(wù)管理員 Then 39。39。教務(wù)管理員權(quán)限 IsUserMode = 2 ElseIf Trim((2)) = 教師 Then 39。39。教師權(quán)限 IsUserMode = 3 Else 39。39。無權(quán) IsUserMode = 0 MsgBox 你沒有權(quán)限 !, vbExclamation, 警告