【正文】 amp。 Trim(!選項(xiàng) 1) amp。 分 )( ) amp。 amp。 Trim(DBT) amp。 個(gè)小題，共 amp。 Trim(TX) amp。 Trim(TX) amp。k = k + 1 Next End Select End If TxtNR = TxtNR amp。 vbCrLf amp。 Trim(!分值 ) amp。 Trim(k) amp。 分 TxtNR = Trim(TxtNR) amp。 論述題，本大題共 amp。 vbCrLf amp。 分 ) amp。 amp。 Trim(DBT) amp。 amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 Trim(!分值 ) amp。 Trim(k) amp。 TxtNR = Trim(TxtNR) amp。 amp。 vbCrLf amp。 vbCrLf amp。 Trim(!題目 ) amp。 vbCrLf amp。 Trim(FZ) amp。k = k + 1 Next Case 解答題 DBT = DBT amp。 Trim(!分值 ) amp。 Trim(k) amp。 TxtNR = Trim(TxtNR) amp。 amp。 vbCrLf amp。 D、 amp。 B、 amp。 vbCrLf amp。 Trim(!題目 ) amp。 vbCrLf amp。 Trim(FZ) amp。k = k + 1 Next Case 多項(xiàng)選擇題 DBT = DBT amp。 D、 amp。 B、 amp。 vbCrLf amp。 Trim(!題目 ) amp。 vbCrLf amp。 Trim(FZ) amp。 的試題信息記錄！ , vbExclamation, 系統(tǒng)提示 Else Select Case Trim(TX) Case 單項(xiàng)選擇題 DBT = DBT amp。 %39。 39。 39。 31 End If Else 39。 and 知識點(diǎn) like 39。 and 科目 =39。此處是為了糾正 VB 當(dāng)中的弊端，沒有綁定數(shù)據(jù)列表控件的 數(shù)據(jù)控件記錄集記錄數(shù)量永遠(yuǎn)都是 1，人為的移動到最后一條記錄就可以顯示正常了 If TS Then StrSQL = select * from 試題信息 where 題型 =39。% amp。 and 難度系數(shù) =2 End If If Trim(ND) = 中 Then StrSQL = StrSQL amp。 Trim(ZDZJKM) amp。 Trim(TX) amp。 Trim(ZDZJKM) amp。 Trim(ZDZJNJ) amp。 Trim(ZDZJXX) amp。 order by 難度系數(shù) desc End If If 1 Then MsgBox 排序結(jié)束，無相關(guān)信息記錄！ , vbExclamation, 系統(tǒng)提示 Else MsgBox 排序結(jié)束！ , vbInformation, 系統(tǒng)提示 End If 自動組卷模塊 本模塊是整個(gè)系統(tǒng)的核心功能，實(shí)現(xiàn)了對試題信息的自動組卷功能，在此模塊當(dāng)中，用戶只需要輸入相關(guān)的組卷信息（學(xué)校、年級、科目、題型、題數(shù)、難度系數(shù)，知識點(diǎn)等等），點(diǎn)擊“開始組卷”按鈕后，系統(tǒng)即可自動根據(jù)用戶選擇的條件組合成一套相關(guān)的試卷。 order by 難度系數(shù) End If If Opt(1).Value = True Then 28 = select * from 試題信息 where 題型 =39。 圖 試題查詢排序窗體 在本模塊中實(shí)現(xiàn)試題排序時(shí)所執(zhí)行的部分代碼如下所示： If = 0 Then MsgBox 請選擇要排序的題型！ , vbCritical, 系統(tǒng)提示 Exit Sub End If If Opt(0).Value = True Then = select * from 試題信息 where 題型 =39。 Trim(TxtCXNR) amp。 Trim(TxtCXNR) amp。 Trim(TxtCXNR) amp。 Trim(TxtCXNR) amp。 Trim(TxtCXNR) amp。 圖 試題信息錄入模塊 23 本模塊中實(shí)現(xiàn)試題信息錄入時(shí)所執(zhí)行的部分代碼如下所示： If 0 Then MsgBox 相同的試題題目已經(jīng)存在，數(shù)據(jù)錄入失敗，請重新輸入相關(guān)的數(shù)據(jù)！ , vbCritical, 系統(tǒng)提示 Exit Sub End If With .AddNew .Fields!科目 = Trim(CmbKM) .Fields!章節(jié) = Trim(TxtZJ) .Fields!難度系數(shù) = CInt(Trim(CmbNDXS)) .Fields!知識點(diǎn) = Trim(TxtZSD) .Fields!分值 = CCur(Trim(TxtFZ)) .Fields!題目 = Trim(TxtTM) If Opt(0).Value = True Then .Fields!題型 = 單項(xiàng)選擇題 .Fields!選項(xiàng) 1 = Trim(TxtA) .Fields!選項(xiàng) 2 = Trim(TxtB) .Fields!選項(xiàng) 3 = Trim(TxtC) .Fields!選項(xiàng) 4 = Trim(TxtD) .Fields!答案 = Trim(CmbDA) End If If Opt(1).Value = True Then .Fields!題型 = 多項(xiàng)選擇題 .Fields!選項(xiàng) 1 = Trim(TxtA) .Fields!選項(xiàng) 2 = Trim(TxtB) .Fields!選項(xiàng) 3 = Trim(TxtC) .Fields!選項(xiàng) 4 = Trim(TxtD) .Fields!選項(xiàng) 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ù)管理模塊 此模塊實(shí)現(xiàn)了對前述模塊錄入的數(shù)據(jù)管理功能，包括對記錄的修改，刪除，25 打印等功能，另外，此模塊還提供了對相關(guān)數(shù)據(jù)的多條件模糊檢索功能，只需要選擇相關(guān)的檢索條件，輸入檢索內(nèi)容，就可以檢索到相關(guān)的數(shù)據(jù)記錄。 圖 系統(tǒng)主窗體 22 部分實(shí)現(xiàn)代碼如下 : Private Sub mmuTileH_Click() vbTileVertical 39。 If 1 Then MsgBox 用戶名錯(cuò)誤，請重新輸入！ , vbCritical, 系統(tǒng)提示 Exit Sub ElseIf Trim(!用戶密碼 ) Trim(TxtPwd) Then MsgBox 密碼錯(cuò)誤，請重新輸入！ , vbCritical, 系統(tǒng)提示 TxtPwd = Exit Sub ElseIf Trim(!用戶身份 ) Trim(CmbSF) Then MsgBox 用戶身份錯(cuò)誤，請重新選擇！ , vbCritical, 系統(tǒng)提示 21 Exit Sub End If MsgBox 歡迎使用本系統(tǒng)！ , vbInformation, 系統(tǒng)提示 Unload Me 系統(tǒng)主窗體模塊 系統(tǒng)主窗體是整個(gè)系統(tǒng)的核心，在這里，幾乎將系統(tǒng)所有的功能 都囊括其中。 圖 系統(tǒng)登錄窗體 本模塊中實(shí)現(xiàn)“登錄”功能時(shí)所執(zhí)行的部分代碼如下所示： = select * from 用戶表 where 用戶名 =39。 成 套 試 卷學(xué) 校年 級 科 目試 卷 標(biāo) 題試 卷 內(nèi) 容記 錄 編 號圖 成套試卷信息實(shí)體屬性圖 自動組卷信息 自動組卷信息主要屬性如圖 所示，包含記錄編號、學(xué)校、年級、科目、題型、題數(shù)、難度、知識點(diǎn)等。 字段名稱 數(shù)據(jù)類型 字段大小 允許空 試題編號 Int 4 否 題型 Char 50 否 科目 Char 50 否 章節(jié) Char 50 否 知識點(diǎn) 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)設(shè)計(jì) （ 1）本系統(tǒng)的總實(shí)體 E－ R 圖 ，如圖 所示 本系統(tǒng)總實(shí)體 ER 圖是對整個(gè)系統(tǒng)程序所用到的主體，包含系統(tǒng)用戶、試卷信息、人工組卷、自動組卷、成套試卷幾個(gè)主體間的關(guān)系，體現(xiàn)本系統(tǒng)的基本邏輯結(jié)構(gòu)。當(dāng)有新記錄加入時(shí)系統(tǒng)會將試題編號加 1 并賦予新記錄，保證所有記錄的自動組卷信息記錄不會重復(fù)。 15 字段名稱 數(shù)據(jù)類型 字段大小 允許空 記錄編號 Int 4 否 學(xué)校 Char 20 是 年級 Char 10 是 科目 Char 50 是 試卷標(biāo)題 Varchar 8000 否 試卷內(nèi)容 Varchar 8000 否 表 成套試卷表 表名：用戶表；說明：保存使用本系統(tǒng)的用戶信息；主鍵：用戶名 該表記錄了使用本系統(tǒng)的用戶 信息，包括：用戶名、用戶密碼、用戶身份。當(dāng)有新記錄加入時(shí)系統(tǒng)會將試題編號加 1 并賦予新記錄，保證所有記錄的試題編號值不會重復(fù)。所以我們必須進(jìn)行數(shù)據(jù)庫需求分析，進(jìn)行數(shù)據(jù)庫需求分析的主要目標(biāo)就是為了確定基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程等。 數(shù)據(jù)庫數(shù)據(jù)由 DBMS（數(shù)據(jù)庫管理系統(tǒng)）處理， DBMS 則由開發(fā)人員 和用戶通過應(yīng)用程序直接或間接地使用。所以在通俗的意義上，數(shù)據(jù)庫不妨理解為存儲數(shù)據(jù)的基地。主窗口使用了類似于 Word 的多文檔窗口。 圖 系統(tǒng)用例圖 12 4 系統(tǒng)總體設(shè)計(jì) 開發(fā)設(shè) 計(jì)思想 系統(tǒng)應(yīng)符合試題及試卷信息管理的規(guī)定，滿足試題和試卷信息日常管理的工作需要，并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等要求。數(shù)據(jù)的提取也是以人為本的立場考慮，只要輸入文字和點(diǎn)擊按鈕即可實(shí)現(xiàn)提取功能。 （ 2）試題庫管理方面設(shè)有對試題難度系數(shù)管理 ；對單個(gè)試題的管理；對批量試題的管理。 綜上所述，本系統(tǒng)的設(shè)計(jì)與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。 所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的。此活動的主要目標(biāo)是進(jìn)一步明確系統(tǒng)的目標(biāo)、規(guī)模與功能，對系統(tǒng)開發(fā)背景、必要性和意義進(jìn)行調(diào)查分析并根據(jù)需要和可能提出擬開發(fā)系統(tǒng)的初步方案與計(jì)劃。 Sybase 則較專注于 SQL Server 在 UNIX 操作系統(tǒng)上的應(yīng)用。雖然很多數(shù)據(jù)庫都對 SQL 語句進(jìn)行了再開發(fā)和擴(kuò)展，但是包括 Select， Insert， Update， Delete， Create 以及 Drop 在內(nèi)的標(biāo)準(zhǔn)的 SQL 命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。SQL 語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。 Visual Basic 提供了一些接口來實(shí)現(xiàn)網(wǎng)絡(luò)以及數(shù)據(jù)庫的連接。 ⑵ 事件驅(qū)動的編程機(jī)制 在事件驅(qū)動的應(yīng)用程序中，代碼不是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。 Visual Basic 是基于 BASIC 的可視化程序設(shè)計(jì)語言 ，它 既繼承了 BASIC 語言的簡單易懂的特點(diǎn)，又采用了面向?qū)ο?、事件?qū)動的編程機(jī)制，提供了一種所見即所得的可視化程序設(shè)計(jì)方法