計算機二級Access窗體功能：補充事件代碼設(shè)計

1、一、在窗體中還有“修改”和“保存”兩個命令按鈕，名稱分別為“CmdEdit”和“ CmdSav”，其中“保存”命令按鈕在初始狀態(tài)為不可用，當單擊“修改”按 鈕后，“保存”按鈕變?yōu)榭捎?，同時在窗體的左側(cè)顯示出相應(yīng)的信息和可修改的 信息。如果在“口令”文本框中輸入的內(nèi)容與在“確認口令”文本框中輸入的內(nèi) 容不相符，當單擊“保存”按鈕后，屏幕上應(yīng)彈出如下圖所示的提示框。現(xiàn)已編 寫了部分VBA弋碼，請按照VBA弋碼中的指示將代碼補充完整?！窘忸}步驟】步驟1在設(shè)計視圖中右鍵單擊命令按鈕“保存”選擇【事件生成器】，在空 行內(nèi)輸入代碼：* *Add *MsgBox* *Add步驟2:關(guān)閉界面，單擊工具欄中“請

2、重新輸入口令!*”，vbOKquit“保存”按鈕，關(guān)閉設(shè)計視圖。二、在窗體中有一個“顯示全部記錄”命令按鈕（名稱為bList ），單擊該按鈕后， 應(yīng)實現(xiàn)將“ tStudent ”表中的全部記錄顯示出來的功能?，F(xiàn)已編寫了部分VBA弋碼，請按照VBA弋碼中的指示將代碼補充完整。要求：修改后運行該窗體，并查看修改結(jié)果。注意：不允許修改窗體對象“ fQuery ”和“fStudent ”中未涉及的控件和屬 性；不允許修改表對象“ tStudent ”。對于VBA弋碼，只允許在“*”與“ * ”之間的一空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它 位置已存在的語句?！窘忸}步驟】步驟1右鍵單擊“顯示全部

3、記錄”命令按鈕選擇【事件生成器】。步驟2:在空行內(nèi)輸入代碼：*請在下面雙引號內(nèi)添入適當?shù)腟ELEC語句*BBB.Form .R ecordSource= "select * from tStude nt"*步驟3:關(guān)閉界面。步驟4：單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖。步驟5:雙擊窗體“ fQuery ” ,單擊“顯示全部記錄”按鈕，查看該窗體運行 結(jié)果。三、補充事件代碼，實現(xiàn)功能：單擊“退出”按鈕（名為“ bt2 ”），關(guān)閉窗體。 注意：不允許修改數(shù)據(jù)庫中的表對象“ tEmp”；不允許修改查詢對象“ qEmp 中未涉及的內(nèi)容；不允許修改窗體對象“ fEmp'中未

4、涉及的控件和屬性；已給事件過程，只允許在“ *Add*”與“*Add*”之間的空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句?！窘忸}步驟】步驟1右鍵單擊命令按鈕“ bt2 ”選擇【事件生成器】。在空行內(nèi)輸入代碼:*Add*DoCmd.Close*Add*步驟2:關(guān)閉界面。步驟3:單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖四、按照以下窗體功能，補充事件代碼設(shè)計。在窗體的四個文本框內(nèi)輸入合法的職工信息后， 單擊“追加”按鈕（名為bt1）， 程序首先判斷職工編號是否重復(fù)，如果不重復(fù)則向表對象“tEmp”中添加職工紀 錄，否則出現(xiàn)提示；當單擊窗體上的“退出”按鈕（名為 bt2 ）時，關(guān)閉當

5、前窗 體。注意：不允許修改表對象“ tEmp”中未涉及的結(jié)構(gòu)和數(shù)據(jù)；不允許修改窗體 對象“ fEmp”中未涉及的控件和屬性；代碼設(shè)計只允許在“ *Add* ”與 “ *Add* ”之間的空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它 位置已存在的語句?！静僮鞑襟E】步驟1:右鍵單擊命令按鈕“追加”選擇【事件生成器】，在空行輸入代碼:*Add1*If Not ADOrs.EOF The n*Add1*步驟2:關(guān)閉界面步驟3:右鍵單擊命令按鈕“退出”選擇【事件生成器】，在空行輸入代碼:* *Add2*DoCmd.Close* *Add2*步驟4：關(guān)閉界面。單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖 五、

6、單擊“刷新”按鈕（名為“ bt1”），在事件過程中補充語句，動態(tài)設(shè)置窗體 記錄源為查詢對象“qEmp,實現(xiàn)窗體數(shù)據(jù)按性別條件動態(tài)顯示退休職工的信息； 單擊“退出”按鈕（名為“ bt2 ”），調(diào)用設(shè)計好的宏“ mEm'p來關(guān)閉窗體。注意：不允許修改數(shù)據(jù)庫中的表對象“ tEmp”和宏對象“ mEmfp;不允許修 改查詢對象“ qEmp中未涉及的屬性和內(nèi)容；不允許修改窗體對象“ fEmp”中未 涉及的控件和屬性；已給事件過程，只允許在“ * ”與“* ”之間的空行 內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句?！窘忸}步驟】步驟1:右鍵單擊命令按鈕“刷新”選擇【事件生成器】，在空

7、行內(nèi)輸入代碼：*Form.RecordSource*="qEmp"步驟2:關(guān)閉界面步驟3:右鍵單擊命令按鈕“退出”選擇【屬性】，在“事件”選項卡下“單 擊”行右側(cè)下拉列表中選中“ mEm”，關(guān)閉屬性界面。步驟4：單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖。六、在窗體中有一個“退出”命令按鈕（名稱為bQuit），單擊該按鈕后，應(yīng)關(guān)閉 “fStudent ”窗體?，F(xiàn)已編寫了部分VBA弋碼，請按照VBA弋碼中的指示將代碼補 充完整。要求：修改后運行該窗體，并查看修改結(jié)果。注意：不允許修改窗體對象“ fGrade ”和“fStudent ”中未涉及的控件和屬 性；不允許修改表對象“ t

8、Student ”和“ tGrade ”。于 vbA 只允許在“ *” 與“ * ”之間的空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句。（5）【解題步驟】步驟1右鍵單擊命令按鈕“退出”選擇【事件生成器】。輸入代碼：*請在下面填入一行語句*DoCmd.Close*步驟2:關(guān)閉屬性界面。步驟3:單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖 步驟4:運行該窗體，查看運行結(jié)果。七、補充窗體“ fTest ”上“test1 ”按鈕（名為“ bt1 ”）的單擊事件代碼，實現(xiàn) 以下功能：打開窗體，在文本框“ tText ”中輸入一段文字，然后單擊窗體“ fTest ”上 “test1 ”按鈕（名

9、為“ bt1”），補充代碼設(shè)置窗體上標簽“ bTitle ”的標題為文 本框“ tText ”輸入內(nèi)容與文本串“等級考試測試”的連接并消除連接串的前導(dǎo) 和尾隨空白字符。注意：不允許修改窗體對象“ fTest ”中未涉及的控件和屬性；只允許在 “*Add1*”與“ *Add1* ”之間的空行內(nèi)補充語句、完成設(shè)計?！窘忸}步驟】步驟1:選中“窗體”對象，右鍵單擊“ fTest ”選擇【設(shè)計視圖】。 步驟2：右鍵單擊“ test1 ”選擇【事件生成器】，空行內(nèi)輸入代碼：*Add1*bTitle.C aptio n=Trim(me!tText+"等級考試測試"）*Add1*八、在“f

10、Emp'窗體上單擊“輸出”命令按鈕（名為“ btnP”），實現(xiàn)以下功能： 計算Fibonacci數(shù)列第19項的值，將結(jié)果顯示在窗體上名為“tData ”的文本框內(nèi) 并輸出到外部文件保存；單擊“打開表”命令按鈕（名為“ btnQ”），調(diào)用宏對象mEmp以打開數(shù)據(jù)表“ tEmp'Fib on acci 數(shù)歹 U:珂二1n=l時-丹11噸n>=3調(diào)試完畢，必須單擊“輸出”命令按鈕生成外部文件，才能得分。試根據(jù)上述功能要求，對已給的命令按鈕事件過程進行補充和完善。注意：不允許修改數(shù)據(jù)庫中的宏對象“ mEm'p;不允許修改窗體對象“ fEmp” 和報表對象“ rEmp

11、9;中未涉及的控件和屬性；不允許修改表對象“ tEmp”中未涉 及的字段和屬性；已給事件過程，只允許在“*Add*”與“ *Add1 *Add*”之間的空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句?！窘忸}步驟】步驟1右鍵單擊命令按鈕“輸出”選擇【事件生成器】，在空行相應(yīng)位置輸 入如下代碼：*Add1*Dim f(19) As In teger * *Add1 * * *Add2 * f(i)=f(i-1)+f(i-2) * *Add2 * *Add3*tData=f(19)*Add3*步驟2:關(guān)閉界面。步驟3:單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖。步驟4:雙擊“fEmp”窗

12、體，將其在窗體視圖下打開，然后單擊窗體上的“輸 出”命令按鈕，生成外部文件，最后關(guān)閉窗體。九、試根據(jù)以下窗體功能要求，對已給的命令按鈕事件過程進行補充和完善。在“fEm0'窗體上單擊“輸出”命令按鈕（名為“ btnP”），彈出一輸入對話框，其 提示文本為“請輸入大于0的整數(shù)值”。輸入1時，相關(guān)代碼關(guān)閉窗體（或程序）；輸入2時，相關(guān)代碼實現(xiàn)預(yù)覽輸出報表對象“ rEm0'輸入=3時，相關(guān)代碼調(diào)用宏對象“ mEm'p以打開數(shù)據(jù)表“ tEmp”。注意：不允許修改數(shù)據(jù)庫中的宏對象“ mEm'p;不允許修改窗體對象“ fEmp” 和報表對象“ rEmp'中未涉及的控

13、件和屬性；不允許修改表對象“ tEmp”中未涉 及的字段和屬性；已給事件過程，只允許在“*Add*”與“ *Add* ”之間的空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其 它位置已存在的語句。【解題步驟】步驟1:右鍵單擊命令按鈕“輸出”選擇【事件生成器】，空行內(nèi)輸入代碼：* *Add1 *k=ln putBox（"請輸入大于0的整數(shù)"）* *Add2*DoCmd.Ope nReport "rEmp",acViewPreview* *Add2*步驟2:單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖十、在窗體中還有“修改”和“保存”兩個命令按鈕，名稱分別為“CmdE

14、dit”和“ CmdSav”，其中“保存”命令按鈕在初始狀態(tài)為不可用，當單擊“修改”按 鈕后，“保存”按鈕變?yōu)榭捎谩，F(xiàn)已編寫了部分 VBA弋碼，請按照上述功能要求將 VBA弋碼補充完整。要求：修改后運行該窗體，并查看修改結(jié)果。注意：不允許修改窗體對象“ fEdit ”和“fEuser ”中未涉及的控件和屬性； 不允許修改表對象“ tAddr ”和“ tUser ”。已給事件過程，只允許在“*Add*”與“ *Add* ”之間的空行內(nèi)補充一行語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句?！窘忸}步驟】步驟1右鍵單擊命令按鈕“修改”選擇【事件生成器】，在空格行輸入：* *Add *CmdSa

15、ve.E nabled=True* *Add *步驟2:關(guān)閉界面。步驟3:單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖。步驟4:雙擊窗體“ fEdit ”，單擊“修改”按鈕，查看運行結(jié)果。補充窗體“ fTest ”上“ test1 ”按鈕（名為“ bt1 ”）的單擊事件代碼，實 現(xiàn)以下功能：打開窗體，在文本框“ tText ”中輸入一段文字，然后單擊窗體“ fTest ”上 “test1 ”按鈕（名為“bt1 ”），程序?qū)崿F(xiàn)將文本框內(nèi)容作為窗體上的標簽 “bTitle ” 的標題顯示。注意：不允許修改窗體對象“ fTest ”中未涉及的控件和屬性；只允許在“* *Add *”與“ *Add*之間的空

16、行內(nèi)補充語句、完成設(shè)計【解題步驟】步驟1:選中“窗體”對象，右鍵單擊“ fTest ”選擇【設(shè)計視圖】。 步驟2：右鍵單擊“ test1 ”按鈕選擇【事件生成器】，在空行內(nèi)輸入:*Add*bTitle.Cap tion=tText* *Add *步驟3:關(guān)閉界面。十二、試根據(jù)以下窗體功能要求，對已給的命令按鈕事件過程進行補充和完善。在“fEmp”窗體上單擊“輸出”命令按鈕（名為“ btnP”），彈出一輸入對話 框，其提示文本為“請輸入大于0的整數(shù)值”。輸入1時，相關(guān)代碼關(guān)閉窗體（或程序）；輸入2時，相關(guān)代碼實現(xiàn)預(yù)覽輸出報表對象“ rEmP'輸入=3時，相關(guān)代碼調(diào)用宏對象“ mEm

17、9;p以打開數(shù)據(jù)表“ tEmp”。注意：不允許修改數(shù)據(jù)庫中的宏對象“ mEm'p;不允許修改窗體對象“ fEmp” 和報表對象“ rEmp'中未涉及的控件和屬性；不允許修改表對象“ tEmp”中未涉 及的字段和屬性；已給事件過程，只允許在“*Add* ”與“*Add*”之間的空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句。【解題步驟】步驟1：右鍵單擊命令按鈕“輸出”選擇【事件生成器】，在空行內(nèi)輸入代碼： * *Add1 *Case ls>=3* *Add1 * *Add2 *DoCmd.Ope nReport "rEmp",acView

18、Preview* *Add2 *“保存”按鈕，關(guān)閉設(shè)計視圖。 補充事件代碼設(shè)計。單擊“計算”按鈕（名為bt），事件過程使用AD（數(shù)據(jù)步驟2:關(guān)閉界面。步驟3:單擊工具欄中十三、按照以下窗體功能，窗體功能：打開窗體、 庫技術(shù)計算出表對象“tEmp”中黨員職工的平均年齡，然后將結(jié)果顯示在窗體的 文本框“ tAge”內(nèi)并寫入外部文件中。注意：不允許修改數(shù)據(jù)庫中表對象“ tEmp'未涉及的字段和數(shù)據(jù)；不允許修 改窗體對象“ fEmp”中未涉及的控件和屬性。代碼設(shè)計只允許在“ *Add*”與“ *Add*”之間的空行內(nèi)填補一行語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句。 程序必須 運行

19、并生成外部文件（out.dat ）后才能得分?！窘忸}步驟】步驟1:選中“窗體”對象，右鍵單擊“ fEmp”選擇【設(shè)計視圖】。步驟2：右鍵單擊命令按鈕“計算”選擇【事件生成器】，在空行內(nèi)輸入代碼： * *Add1 *If rs.Eof The n* *Add1 * *Add2 *tAge=sage* *Add2 *步驟3:關(guān)閉界面，單擊工具欄中“保存”按鈕。步驟4:單擊菜單欄【視圖】|【窗體視圖】，單擊“計算”命令按鈕，生成 外部文件。十四、在窗體中還有“修改”和“保存”兩個命令按鈕，名稱分別為“CmdEdit”和“ CmdSave，其中“保存”命令按鈕在初始狀態(tài)為不可用，當單擊“修改”按 鈕后

20、，應(yīng)使“保存”按鈕變?yōu)榭捎谩，F(xiàn)已編寫了部分 VBA弋碼，請按照VBA弋碼中 的指示將代碼補充完整。要求：修改后運行該窗體，并查看修改結(jié)果。注意：不允許修改窗體對象“ fEdit ”和“fEuser ”中未涉及的控件和屬性； 不允許修改表對象“ tAddr ”和“ tUser ”。于 vbA 口允許在“ *” 與“ *” 之間的空行內(nèi)補充語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句?！窘忸}步驟】步驟1:在設(shè)計視圖中右鍵單擊命令按鈕“修改”選擇【事件生成器】，在空 行內(nèi)輸入代碼：請在下面添加一條語句*CmdSave.E nabled= True*步驟2:關(guān)閉界面步驟3:單擊菜單欄【視圖】|

21、【窗體視圖】，單擊“修改”命令按鈕，查看 運行結(jié)果。十五、在窗體對象“ fEmp”上有“刷新”和“退出”兩個命令按鈕，名稱分別為“bt1 ”和“bt2 ”。單擊“刷新”按鈕，窗體記錄源改為查詢對象“ qEmP;單擊“退出”按鈕，關(guān)閉窗體?，F(xiàn)已編寫了部分 VBA弋碼，請按VBA弋碼中的指示將代 碼補充完整。注意：不允許修改數(shù)據(jù)庫中的表對象“ tEmp”；不允許修改查詢對象“ qEmp 中未涉及的內(nèi)容；不允許修改窗體對象“ fEmp”中未涉及的控件和屬性。程序代碼只允許在“*Add*”與“*林*Add* ”之間的空行內(nèi)補充一行語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句?！窘忸}步驟】步驟1

22、:右鍵單擊命令按鈕“刷新”選擇【事件生成器】，在空行內(nèi)輸入代碼：*Add1*Form.RecordSource="qEmp"*Add1*步驟2:關(guān)閉界面。步驟3:右鍵單擊命令按鈕“退出”選擇【事件生成器】，在空行內(nèi)輸入代碼* *Add2*DoCmd.Close* *Add2*步驟4：關(guān)閉界面。單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖。十六、在窗體中有一個“退出”命令按鈕，名稱為“CmdQuit”，其功能為關(guān)閉“fStud 窗體。請按照VBA弋碼中的指示將實現(xiàn)此功能的代碼填入指定的位置中。注意：不允許修改窗體對象“ fStud ”中未涉及的控件和屬性；不允許修改 表對象“ tS

23、tud ”。程序代碼只允許在“*Add* ”與“*Add* ”之間的空行內(nèi)補 充一行語句、完成設(shè)計，不允許增刪和修改其它位置已存在的語句?！窘忸}步驟】步驟1:右鍵單擊“退出”命令按鈕選擇【事件生成器】，在空行內(nèi)輸入代碼：*Add*DoCmd.Close*Add*步驟2:關(guān)閉界面。步驟3:單擊工具欄中“保存”按鈕，關(guān)閉設(shè)計視圖。十七、補充窗體“ fTest ”上“ test1 ”按鈕（名為“ bt1 ”）的單擊事件代碼，實 現(xiàn)以下功能：打開窗體，在文本框“ tText ”中輸入一段文字，然后單擊窗體“ fTest ”上 的“test1 ”按鈕（名為“bt1 ”），程序?qū)⑽谋究蛑械膬?nèi)容作為窗體中標簽 “bTitle ” 的標題顯示。注意：不能修改窗體對象“ fTest ”中未涉及的控件和屬性；只允許在 “*Add* ”與“ *Add* ”之間的空行內(nèi)補充語句、完成設(shè)計。 【解題步驟】步驟1選中“窗體”對象，右鍵單擊“ fTest ”選擇【設(shè)計視圖】。 步驟2：右鍵單擊“ testl ”按鈕選擇【事件生成器】，在空行輸入代碼:*Add*bTit