【正文】 s like a fashion store, Susan muttered, shoving the hangers aside to make space for her own clothes. In the bathroom she opened the mirrorfronted cabi on the wall. It was crammed with bottles and jars. Perfume, shampoo, creams ... Susan slammed the cabi shut and pulled a face in the glass. Meanwhile Gary was trying to make friends with Norman. Hard wor k. Norman proved to be a very serious young man, much given to using long words. Must39。t there. Susan relaxed, smiling at herself. The smile faded fast. She39。re ing with me. As Southampton slid astern, Sea Shepherd nosed into the thumping waters of the English Channel. At that moment the sun squinted through a crack in the cloud. On the horizon the sky39。s shoulder and looked at him cheekily. You may be a pain in the neck sometimes, but I39。 They both knew it. And if she hadn39。 在這里我還要感謝我們宿舍的其它 5 個同學(xué)。實(shí)用軟件工程教程 高等教育出版社 2021 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_發(fā)實(shí)踐之路（ visual basic 版） (BORLAND 資深顧問著名 visual basic 專家李維最新力作 ) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫系統(tǒng)開發(fā)與應(yīng)用 中國水利水電出版社 2021 .1 15 劉藝 visual basic 面向?qū)ο缶幊趟枷? 機(jī)械工業(yè)出版社 2021 basic 程序設(shè)計第二版 譚浩強(qiáng) 清華大學(xué)出版社 2021 17. visual 程序設(shè)計教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計與開發(fā)技術(shù) 求是科技 人民郵電出版社 致 謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。 該系統(tǒng)的不盡如人意的地方和功能上的缺陷，這些我都會進(jìn)一步的改善。 2） 系統(tǒng)界面美觀欠缺：界面單調(diào)，整體布局不太合理，這個問題時由于開發(fā)過程中著重關(guān)注技術(shù)的原因，導(dǎo)致界面不象商業(yè)軟件一樣美觀。 1） 系統(tǒng)總體規(guī)劃欠缺：系統(tǒng)在開發(fā)過程中就感到總體規(guī)劃存在一定問題，如后臺數(shù)據(jù)庫表的冗余，導(dǎo)致對數(shù)據(jù)庫的操作復(fù)雜。運(yùn)行 Word 中的宏以合并試卷 SendKeys %fx DoEvents Call Delay(1) str_File Exit Sub Err: MsgBox End Sub 第五章 開發(fā)總結(jié) 經(jīng)過 1 個多月的學(xué)習(xí)和實(shí)踐，基本上完成了試卷生成系統(tǒng)的整體設(shè)計和開發(fā)，并具備一定的使用價值。 \temp\ amp。 Trim(Str(i)) amp。 Trim(Str(i)) amp。 \temp\temp\ If (str_File) = False Then str_File Else str_File amp。SendKeys %fx End Sub Private Sub Command4_Click() Dim FSO As New FileSystemObject Dim str_File As String On Error GoTo Err str_File = amp。 \temp\ ShellExecute , open, str_File, , , 5 AppActivate prev_A Microsoft Word SendKeys %fv 39。 \temp\, str_File MsgBox 答案導(dǎo)出成功，已保存為 amp。 39。運(yùn)行 Word 中的宏以合并試卷 SendKeys %fx DoEvents Call Delay(1) str_File End Sub ‘保存試卷以及試卷的答案 Private Sub Command2_Click() Dim str_File As String Dim FSO As New FileSystemObject 39。 \temp\ amp。 Trim(Str(i)) amp。 \temp\temp\ If (str_File) = False Then str_File Else str_File amp。 當(dāng)根據(jù)各章選擇好試題后，可以進(jìn)行對試題的保存 取出試題并合并試卷的代碼如下： Private Sub Command1_Click() Dim FSO As New FileSystemObject Dim str_File As String str_File = amp。 圖 圖 編輯試卷功能 點(diǎn)擊菜單編輯試卷，進(jìn)入編輯 試卷窗體，如圖 圖 編輯試卷功能可以編寫試卷，試卷的題目由類別組成，可以對各類別進(jìn)行出題。 DocTemp ChildForms(DocTemp).Tag = DocTemp Else MsgBox You are only allowed 10 documents opened at one time. End If End Sub Private Sub mnuSystem4_Click() If bl_IsLoginAgain = False Then If MsgBox(您確定要退出本系統(tǒng)嗎？ , vbYesNo + vbInformation + vbDefaultButton2, 提示 ) = vbYes Then End End If Cancel = True End If End Sub 用戶管理功能 用戶管理功能指管理使用該系統(tǒng)的人，該系統(tǒng)歸系統(tǒng)管理人員使用的，他們能進(jìn)行問卷的設(shè)置，問卷統(tǒng)計一些工作，這些工作不是參加教師評測的學(xué)生能使用的，所以不同身份登陸的人權(quán)限不同，所以用戶管理顯得較為重要。判斷密碼正確與否 If PassWordIsTrue(, ) Then User = Unload Me Else MsgBox 密碼錯誤，請重新輸入！ , , 密碼錯誤 = Exit Sub End If End Sub 主窗體界面 登陸成功后進(jìn)入主窗體界面，如圖 ： 圖 當(dāng)點(diǎn)擊各菜單項(xiàng)時，會相應(yīng)的進(jìn)去其下拉菜單，選擇下拉菜單后，會調(diào)用相應(yīng)的子菜單。判斷密碼正確與否 Private Sub cmdOK_Click() 39。 字段名稱 數(shù)據(jù)類型 說明 學(xué)號 文本 學(xué)生學(xué)號 姓名 文本 學(xué)生姓名 表 1 學(xué)生信息表 字段名稱 數(shù)據(jù)類型 說明 User_Name 文本 學(xué)生學(xué)號 PassWord 文本 學(xué)生姓名 表 2 用戶表 字段名稱 數(shù)據(jù)類型 說明 Number 文本 習(xí)題題目編號 Chapter 文本 章節(jié) Level 文本 難度系數(shù) Value 文本 分值 Point 文本 考點(diǎn) Content OLE 題目內(nèi)容 Answer OLE 答案 Pic OLE 題圖 QuestionFile 文本 問題文件 AnswerFile 文本 回答文件 PictureFile 文本 圖片文件 表 3 計算題 表（ Results） 字段名稱 數(shù)據(jù)類型 說明 Number 文本 習(xí)題題目編號 Chapter 文本 章節(jié) Level 文本 難度系數(shù) Value 文本 分值 Point 文本 考點(diǎn) Content OLE 題目內(nèi)容 Answer OLE 答案 Pic OLE 題圖 表 4 計算題繼教考題 表 字段名 稱 數(shù)據(jù)類型 說明 Number 文本 習(xí)題題目編號 Chapter 文本 章節(jié) Level 文本 難度系數(shù) Value 文本 分值 Point 文本 考點(diǎn) Content OLE 題目內(nèi)容 Answer OLE 答案 Pic OLE 題圖 表 5 計算題例題 表 字段名稱 數(shù)據(jù)類型 說明 Number 文本 習(xí)題題目編號 Chapter 文本 章節(jié) Level 文本 難度系數(shù) Value 文本 分值 Point 文本 考點(diǎn) Content OLE 題目內(nèi)容 Answer OLE 答案 Pic OLE 題圖 表 6 計算題習(xí)題 表 字段名稱 數(shù)據(jù)類型 說明 Number 文本 習(xí)題題目編號 Chapter 文本 章節(jié) Value 文本 分值 Content OLE 題目內(nèi)容 Answer OLE 答案 QuestionFile 文本 問題文件 AnswerFile 文本 回答文件 表 7 填空題 表 字段名稱 數(shù)據(jù)類型 說明 Number 文本 習(xí)題題目編號 Chapter 文本 章節(jié) Value 文本 分值 Content OLE 題目內(nèi)容 Answer OLE 答案 QuestionFile 文本 問題文件 AnswerFile 文本 回答文件 表 8 問答題 表 字段名稱 數(shù)據(jù)類型 說明 Number 文本 漢譯英 題目編號 Value 文本 單詞個數(shù) Content OLE 題目內(nèi)容 Answer OLE 答案 表 9 問答題漢譯英 系統(tǒng)模塊圖 本應(yīng)用程序由 6個窗體組成，主要的分別是：登陸窗體，軟件信息窗體，主窗體，添加題目窗體，試卷窗體，學(xué)生信息窗體組成。 進(jìn) 行數(shù)據(jù)的分析設(shè)計后，應(yīng)該用 Access 建立 17 張表。含有數(shù)據(jù)透視表的數(shù)據(jù)訪問頁不能與頁面上的其他數(shù)據(jù)源進(jìn)行交互，但它們提供了 Excel 風(fēng)格的透視 ――為不同的視圖圖形化地移動數(shù)據(jù)的不同部分。也可以將電子數(shù)據(jù)表和圖表 Web 組件與顯示在分組和未分組數(shù)據(jù)訪問頁中的數(shù)據(jù)組合在一起。雖然這些頁面不能使用子窗體，但是你可以創(chuàng)建分組的數(shù)據(jù)訪問頁，根據(jù)用戶的輸入有條件地進(jìn)行擴(kuò)展。對于像窗體一樣的頁面，用戶可以從頁面中以圖形方式編輯、增加和刪除記錄。數(shù)據(jù)訪問也就像是 Web 上的 Access 窗體和報表。 Jet SQL 的改 進(jìn)允許你創(chuàng)建和改變兩種類型的數(shù)據(jù)庫對象模型。在 Access 工程中，你可以在表的 設(shè)計 視圖中設(shè)置自動編號字段，也可以在創(chuàng)建表之后修改這些值。在創(chuàng)建表時，你可以設(shè)置自動編號字段的初始值和步長值。 Access 2021 也引入了在 Jet和 SQL 服務(wù)器之間的雙向同步復(fù)制，以前的版本只允許從 SQL Server 到 Jet 的單向同步復(fù)制。在以前的 Jet 版本中，只在行一級偵探?jīng)_突，所以即使用戶改變同 一記錄的不同字段，也會產(chǎn)生同步?jīng)_突。數(shù)據(jù)庫的同步復(fù)制也在幾個方面得到了增強(qiáng)。新的基于文本的字段將