【正文】 第十章 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例 一、選擇題 1．C 2．D 3．A 4．D 5．B 6．A 7．B 8．A 9．D 10．D 二、填空題 1．系統(tǒng)分析，系統(tǒng)設(shè)計 2．做什么 3．應(yīng)用程序標(biāo)題 4．Shift 5．建立關(guān)聯(lián)三、實(shí)訓(xùn)答案：略。Set jl = getjl(str)If ThenMsgBox (沒有這個用戶，請重新輸入！) = = Exit SubElseMsgBox (歡迎使用教學(xué)管理系統(tǒng)！)check = TrueEnd IfEnd IfSet jl = NothingSet conn = NothingEnd Sub（4）“取消”按鈕代碼Private Sub Command9_Click()On Error GoTo Err_取消_Click Exit_取消_Click: Exit SubErr_取消_Click: MsgBox Resume Exit_取消_ClickEnd Sub（5）保存并運(yùn)行4．操作步驟如下：（1）前兩步同第一題（2）在代碼窗口中輸入下列代碼：Sub MarkNum（） Dim Mark As Integer Mark = Val（InputBox（請輸入學(xué)生成績）） Select Case Mark Case Is = 85 MsgBox（優(yōu)秀） Case Is = 75 MsgBox （良好） Case Is = 60 MsgBox（及格） Case Else MsgBox（不及格） End Select End Sub（3）保存并運(yùn)行5．略請參考本章的實(shí)例9196．操作步驟如下：（1）前兩步同第一題（2）在代碼窗口中輸入下列代碼：Sub Sum（） Dim total As Integer, i As Integer total = 0 i = 1 Do While i = 100 total = total + i i = i + 1 Loop MsgBox（1+2+3+…+100= amp。 pwd amp。 and 密碼=39。 logid amp。 歡迎您！） End Sub （3）保存并運(yùn)行3．操作步驟如下：（1）建立數(shù)據(jù)庫及表，表如下圖所示：（2）設(shè)計“用戶登錄”界面如下圖：（3）“登錄”按鈕代碼Private Sub Command8_Click()Rem On Error GoTo err_ok_clickDim str As StringDim jl As New logid = Trim()pwd = Trim()If IsNull(logid) ThenMsgBox (請輸入操作員編號)ElseIf IsNull(pwd) ThenMsgBox (請輸入密碼)Elsestr = select * from 操作員信息表 where 操作員編號=39。2．操作步驟如下：（1）前兩步同上一題（2）在代碼窗口中輸入下列代碼：Sub Welle（） Dim Name As String Name=InputBox（請您輸入名字） MsgBox（您輸入的名字是： amp。出現(xiàn)本書第九章圖94所示的“Microsoft Visual Basic”窗口。 三、上機(jī)實(shí)訓(xùn)實(shí)訓(xùn)9．1 模塊程序設(shè)計和VBA控制語句1．操作步驟如下： （1）打開數(shù)據(jù)庫，選擇“模塊”對象。 14．5，互換兩數(shù)。 12．2。 10．ADO。 8．子過程。 6．Sub。、+。 3．乘法、除法、加法、減法。圖818 菜單效果圖第九章 模塊和VBA程序設(shè)計一、選擇題 1．C 2．D 3．A 4．A 5．D 6．C 7．C 8．D 9．B 10．C 11．C 12．A 13．A 14．C 15．B 16．B 17．C 18．C 19．A 20．B 二、填空題 1．符號常量。 （5）在“數(shù)據(jù)庫”窗口，打開“806學(xué)生資料瀏覽”，設(shè)置的菜單也隨之打開，選擇其中的菜單選項(xiàng)，可以打開對應(yīng)在子菜單。在“其它”標(biāo)簽中“菜單欄”屬性項(xiàng)的文本框內(nèi)輸入宏名“實(shí)訓(xùn)8．4．2”。 （4）打開數(shù)據(jù)庫中的“806學(xué)生資料瀏覽”窗體。 （2）進(jìn)行如圖816，圖817所示的宏操作。保存宏即可。（5）單擊“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫中的宏對象，對 “實(shí)訓(xùn)8．4．1” 宏進(jìn)行復(fù)制，重命名為“AutoKeys”，并在宏設(shè)計窗口中打開它。單擊“事件”標(biāo)簽，在“單擊”事件后選擇宏“實(shí)訓(xùn)8．4．1”。圖815 條件宏操作設(shè)計表82操作參數(shù)條件宏命令操作參數(shù)[Forms]![學(xué)生登陸]![name] Is Null Or [Forms]![學(xué)生登陸]![password] Is NullMsgBox消息：用戶名和密碼不能為空發(fā)嘟嘟聲：是類型：警告[Forms]![學(xué)生登陸]![name]student Or [Forms]![學(xué)生登陸錄]![password]1234MsgBox消息：用戶名或密碼不正確！請重輸發(fā)嘟嘟聲：是類型：警告...SetValue項(xiàng)目： [Forms]![學(xué)生登陸]![name]表達(dá)式：...SetValue項(xiàng)目： [Forms]![學(xué)生登陸]![password]表達(dá)式：...GoToControl控件名稱：[name]...StopMacro[Forms]![學(xué)生登陸]![name]=student And [Forms]![學(xué)生登陸]![password]=1234Close...OpenForm窗體名稱：802學(xué)生成績查詢...MsgBox消息：登陸成功，歡迎您（3）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口中選擇“窗體”對象，雙擊右邊窗格中的“學(xué)生登錄”窗體，把打開的窗體切換到設(shè)計視圖下。1． 操作步驟如下：（1）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。關(guān)閉屬性對話框。（4）雙擊“查詢”按鈕，打開控件屬性對話框。保存為宏名“實(shí)訓(xùn)8．3．3”。3． 操作步驟如下：（1）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。關(guān)閉屬性對話框。（4）雙擊“查詢”按鈕，打開控件屬性對話框。保存為宏名“實(shí)訓(xùn)8．3．2”。2． 操作步驟如下：（1）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。（2）在宏設(shè)計窗口中增加如圖812所示宏操作，條件為“[Forms]![806學(xué)生資料瀏覽]![出生日期]19911231”，宏操作為“MsgBox”，保存宏。 (4) 單擊工具欄中的保存按鈕，在“另存為”對話框中輸入名字為“文件”，單擊“確定”按鈕保存該宏組。(2) 單擊“視圖”菜單下的“宏名”命令，在宏設(shè)計窗口中增加了“宏名”一列。(4) 單擊工具欄中的保存按鈕，在“另存為”對話框中輸入名字為“編輯”，單擊“確定”按鈕保存該宏組。(2) 單擊“視圖”菜單下的“宏名”命令，在宏設(shè)計窗口中增加了“宏名”一列。（9）把窗體切換到窗體視圖下，單擊按鈕可以看到效果。單擊“事件”標(biāo)簽，在“單擊”事件后選擇宏“實(shí)訓(xùn)8．2．”。關(guān)閉屬性對話框。雙擊第一個命令按鈕，打開控件屬性對話框。保存窗體為“實(shí)訓(xùn)8．2．1”。圖87 宏組設(shè)計（5）返回到數(shù)據(jù)庫窗口，在數(shù)據(jù)庫窗口中選擇“窗體”對象，雙擊右邊窗格中的“在設(shè)計視圖中創(chuàng)建窗體”選項(xiàng)，打開 “設(shè)計視圖”窗體。(3) 在設(shè)計窗口中創(chuàng)建如圖87所示的宏操作，打開的表和查詢可以自己隨意指定。 宏組1． 操作步驟如下：（1）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。關(guān)閉屬性對話框。（3）雙擊“查詢”按鈕，打開控件屬性對話框。保存為宏名“實(shí)訓(xùn)8．1．3”。圖85 宏操作設(shè)計3． 操作步驟如下：（1）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。（3）單擊工具欄中的保存按鈕，在另存為對話框中輸入名字為“AutoExec”，單擊“確定”保存條件操作宏。 圖81 窗體設(shè)計窗果圖 圖82 宏操作設(shè)計一 圖83 宏操作設(shè)計二 圖84 宏操作設(shè)計三 2． 操作步驟如下：（1）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。關(guān)閉屬性對話框。（7）雙擊第三個命令按鈕，打開控件屬性對話框。單擊“事件”標(biāo)簽，在“單擊”事件后選擇宏“實(shí)訓(xùn)811打開查詢”。關(guān)閉屬性對話框。雙擊第一個命令按鈕，打開控件屬性對話框。再次打開宏設(shè)計窗口，設(shè)計宏操作如圖84所示，保存宏名為“實(shí)訓(xùn)811打開查詢”。（4）宏操作設(shè)計如圖82所示，保存宏名為“實(shí)訓(xùn)811打開表”。保存窗體為“實(shí)訓(xùn)811”?；蛟凇靶陆ù绑w”對話框中選擇“設(shè)計視圖”選項(xiàng)后單擊“確定”按鈕，打開 “設(shè)計視圖”窗體。（2）單擊“格式”菜單→“主題”命令，打開“主題”對話框，在“請選擇主題”列表框中選擇“彩條”主題，單擊“確定”按鈕，效果如圖77所示。如圖76所示。（2）在工具欄上單擊滾動文字按鈕，把光標(biāo)移動標(biāo)題文字的下面，單擊插入位置，并相應(yīng)設(shè)置該控件的大小，輸入文字“歡迎選修課程！”，如圖75所示。選擇標(biāo)題文本，在工具欄中設(shè)置字體格式為“隸書，48號，藍(lán)色”；并相應(yīng)調(diào)整設(shè)計區(qū)的布局，效果如圖74所示。2. 簡要操作步驟如下：（1）在數(shù)據(jù)庫的“頁”對象的窗口中，選擇“課程信息”， 單擊按鈕，打開“課程信息”數(shù)據(jù)訪問頁設(shè)計視圖。圖72 “數(shù)據(jù)頁向?qū)?”對話框（5）單擊“下一步”按鈕，打開“數(shù)據(jù)頁向?qū)?”對話框，設(shè)置數(shù)據(jù)訪問頁標(biāo)題為“課程師信息”, 如圖73所示。本例中選擇“課程編號”為排序字段，升序排序。圖71 “數(shù)據(jù)頁向?qū)?”對話框（3）單擊“下一步”按鈕，打開“數(shù)據(jù)頁向?qū)?”對話框，在此不設(shè)置分組。第七章 數(shù)據(jù)訪問頁一、選擇題1．D 2．A 3．B 4．B 5．B 6．C 7．C 8．A 9．C 10．D二、填空題1．對象2．頁視圖、設(shè)計視圖3．標(biāo)簽4．IE瀏覽器5．滾動文字三、上機(jī)實(shí)訓(xùn)實(shí)訓(xùn)7．1　數(shù)據(jù)訪問頁的創(chuàng)建和編輯1. 簡要操作步驟如下：（1）打開“教學(xué)管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口中選擇“頁”對象，單擊按鈕，打開“新建數(shù)據(jù)訪問頁”對話框，在對話框的列表中選擇“數(shù)據(jù)頁向?qū)А保辉凇罢堖x擇該對象數(shù)據(jù)的來源表或查詢”下拉列表框中，選擇“課程”表。（2）選擇“報表”，在工具欄設(shè)置“自動套用格式”，設(shè)置“隨意。最后以“學(xué)生成績平均分報表”命名保存。單擊“確定”后，再點(diǎn)擊“下一步”。如圖62所示。接著點(diǎn)擊“下一步”按鈕。雙擊“使用向?qū)?chuàng)建報表”選項(xiàng)，或者單擊“新建”按鈕，在出現(xiàn)的“新建報表”對話框中選擇“報表向?qū)А边x項(xiàng)，單擊“確定”按鈕。按CTRL+S保存窗體為“”。(5) 雙擊“頁2”標(biāo)簽，修改其“標(biāo)題”屬性為“學(xué)生成績”， 從“字段列表”中把教材上效果圖543(2)上對應(yīng)的字段全都拖到“學(xué)生成績”頁中。通過工具箱手動添加顯示年齡的標(biāo)簽和文本框。雙擊“頁1”標(biāo)簽，修改其“標(biāo)題”屬性為“學(xué)生信息”。在右邊的列表框中選擇