【正文】 作步驟如下：（1）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。(2) 單擊“視圖”菜單下的“宏名”命令，在宏設(shè)計窗口中增加了“宏名”一列。(3) 在設(shè)計窗口中創(chuàng)建如圖8圖810所示的宏操作（rename，copyobject）。(4) 單擊工具欄中的保存按鈕，在“另存為”對話框中輸入名字為“編輯”，單擊“確定”按鈕保存該宏組。 圖89 宏組設(shè)計二 圖810 宏組設(shè)計 3． 操作步驟如下：（1）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。(2) 單擊“視圖”菜單下的“宏名”命令，在宏設(shè)計窗口中增加了“宏名”一列。(3) 在設(shè)計窗口中創(chuàng)建如圖811所示的宏操作，宏操作save和 close都不用設(shè)置宏參數(shù)。 (4) 單擊工具欄中的保存按鈕，在“另存為”對話框中輸入名字為“文件”，單擊“確定”按鈕保存該宏組。圖811 宏組設(shè)計 條件宏1． 操作步驟如下：（1）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，選中宏“806學生資料瀏覽”，再單擊“設(shè)計”按鈕。（2）在宏設(shè)計窗口中增加如圖812所示宏操作，條件為“[Forms]![806學生資料瀏覽]![出生日期]19911231”，宏操作為“MsgBox”，保存宏。圖812 宏操作設(shè)計（3）把窗體切換到窗體視圖下，單擊按鈕可以看到效果。2． 操作步驟如下：（1）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。（2）單擊“視圖”菜單下的“條件”命令，在宏設(shè)計窗口中增加了“條件”列，創(chuàng)建宏操作如圖813所示，條件列內(nèi)容為“Weekday(Date()，2)=7”。保存為宏名“實訓(xùn)8．3．2”。圖813 條件宏操作設(shè)計（3）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口中選擇“窗體”對象，雙擊右邊窗格中的“803學生成績查詢界面”窗體，把打開的窗體切換到設(shè)計視圖下。（4）雙擊“查詢”按鈕，打開控件屬性對話框。單擊“事件”標簽，在“單擊”事件后選擇宏“實訓(xùn)8．3．2”。關(guān)閉屬性對話框。（5）把窗體切換到窗體視圖下，單擊按鈕可以看到效果。3． 操作步驟如下：（1）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。（2）單擊“視圖”菜單下的“條件”命令，在宏設(shè)計窗口中增加了“條件”列，創(chuàng)建宏操作如圖814所示，操作參數(shù)如表81所示。保存為宏名“實訓(xùn)8．3．3”。圖814 條件宏操作設(shè)計表81 操作參數(shù)條件宏命令操作參數(shù)GoToControl控件名稱：姓名FindRecord查找內(nèi)容：=[Forms]![實訓(xùn)8．3．3]![name]FindNextIsNull(DLookUp([姓名]，學生，[姓名]=[Forms]![實訓(xùn)8．3．3]![name]))MsgBox消息：此人不存在（3）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口中選擇“窗體”對象，雙擊右邊窗格中的“實訓(xùn)8．3．3”窗體，把打開的窗體切換到設(shè)計視圖下。（4）雙擊“查詢”按鈕，打開控件屬性對話框。單擊“事件”標簽，在“單擊”事件后選擇宏“實訓(xùn)8．3．3”。關(guān)閉屬性對話框。（5）把窗體切換到窗體視圖下，輸入要查找的姓名，單擊查詢按鈕則可以看到效果。1． 操作步驟如下：（1）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口的“對象”列表中選擇“宏”，并單擊工具條上的“新建”按鈕，打開了空白的宏設(shè)計窗口。（2）單擊“視圖”菜單下的“條件”命令，在宏設(shè)計窗口中增加了“條件”列，創(chuàng)建宏操作如圖815所示，操作參數(shù)如表82所示，保存為宏名“實訓(xùn)8．4．1”。圖815 條件宏操作設(shè)計表82操作參數(shù)條件宏命令操作參數(shù)[Forms]![學生登陸]![name] Is Null Or [Forms]![學生登陸]![password] Is NullMsgBox消息：用戶名和密碼不能為空發(fā)嘟嘟聲：是類型：警告[Forms]![學生登陸]![name]student Or [Forms]![學生登陸錄]![password]1234MsgBox消息：用戶名或密碼不正確！請重輸發(fā)嘟嘟聲：是類型：警告...SetValue項目： [Forms]![學生登陸]![name]表達式：...SetValue項目： [Forms]![學生登陸]![password]表達式：...GoToControl控件名稱：[name]...StopMacro[Forms]![學生登陸]![name]=student And [Forms]![學生登陸]![password]=1234Close...OpenForm窗體名稱：802學生成績查詢...MsgBox消息：登陸成功，歡迎您（3）打開“教學管理信息系統(tǒng)”數(shù)據(jù)庫，在數(shù)據(jù)庫窗口中選擇“窗體”對象，雙擊右邊窗格中的“學生登錄”窗體，把打開的窗體切換到設(shè)計視圖下。（4）雙擊“登錄”按鈕，打開控件屬性對話框。單擊“事件”標簽，在“單擊”事件后選擇宏“實訓(xùn)8．4．1”。關(guān)閉屬性對話框。（5）單擊“教學管理信息系統(tǒng)”數(shù)據(jù)庫中的宏對象，對 “實訓(xùn)8．4．1” 宏進行復(fù)制，重命名為“AutoKeys”，并在宏設(shè)計窗口中打開它。（6）單擊視圖菜單下的宏名命令，在第一行的宏名列下輸入“^d”。保存宏即可。2． 操作步驟如下：（1）開數(shù)據(jù)庫“教學管理信息系統(tǒng)”數(shù)據(jù)庫，單擊“宏”對象，再選擇“新建”按鈕，進入宏編輯窗口。 （2）進行如圖816，圖817所示的宏操作。 圖816 菜單宏操作設(shè)計一 圖817 菜單宏操作設(shè)計二（3）按CTRL+S組合鍵，保存宏為“實訓(xùn)8．4．2”。 （4）打開數(shù)據(jù)庫中的“806學生資料瀏覽”窗體。切換到設(shè)計視圖下，打開窗體屬性對話框。在“其它”標簽中“菜單欄”屬性項的文本框內(nèi)輸入宏名“實訓(xùn)8．4．2”。保存“806學生資料瀏覽”窗體，返回“數(shù)據(jù)庫”窗口。 （5）在“數(shù)據(jù)庫”窗口，打開“806學生資料瀏覽”，設(shè)置的菜單也隨之打開，選擇其中的菜單選項，可以打開對應(yīng)在子菜單。效果如圖818所示。圖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．符號常量。 2．隱含型變量、顯式變量。 3．乘法、除法、加法、減法。 4．a(chǎn)mp。、+。 5．賦值語句。 6．Sub。 7．兩。 8．子過程。 9．順序、選擇、循環(huán)。 10．ADO。 11．140。 12．2。 13．35 25 12，d=b:b=c:c=d。 14．5，互換兩數(shù)。 15．k=k\10，Is6。 三、上機實訓(xùn)實訓(xùn)9．1 模塊程序設(shè)計和VBA控制語句1．操作步驟如下： （1）打開數(shù)據(jù)庫，選擇“模塊”對象。 （2）單擊工具欄上的“新建”按鈕。出現(xiàn)本書第九章圖94所示的“Microsoft Visual Basic”窗口。圖94 “Microsoft Visual Basic”窗口 （3）在代碼窗口中輸入下列代碼：Sub Area（） Dim s As Double, r As Single Const PI = r = Val（InputBox（請輸入圓的半徑）） If r = 0 Then 你輸入的半徑是：, r s = PI * r * r 圓的面積是：, s End If End Sub （4）保存并運行。2．操作步驟如下：（1）前兩步同上一題（2）在代碼窗口中輸入下列代碼：Sub Welle（） Dim Name As String Name=InputBox（請您輸入名字） MsgBox（您輸入的名字是： amp。 Name amp。 歡迎您?。? End Sub （3）保存并運行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。 amp。 logid amp。 39。 and 密碼=39。 amp。 pwd amp。 39。Set jl = getjl(str)If ThenMsgBox (沒有這個用戶，請重新輸入！) = = Exit SubElseMsgBox (歡迎使用教學管理系統(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）保存并運行4．操作步驟如下：（1）前兩步同第一題（2）在代碼窗口中輸入下列代碼：Sub MarkNum（） Dim Mark As Integer Mark = Val（InputBox（請輸入學生成績）） 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）保存并運行5．略請參考本章的實例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。 total） End Sub實訓(xùn)9．2答案：略請完善本實訓(xùn)各題的操作步驟。第十章 數(shù)據(jù)庫系統(tǒng)開發(fā)實例 一、選擇題 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)用程序標題 4．Shift 5．建立關(guān)聯(lián)三、實訓(xùn)答案：略