2013年3月計(jì)算機(jī)等考二級(jí)VB沖刺試題及答案9

　　3.綜合應(yīng)用題

　　(1)請(qǐng)編寫名稱為change_c的程序并執(zhí)行。該程序?qū)崿F(xiàn)下面的功能：將雇員工資表salarys進(jìn)行備份，備份文件名為baksals.dbf。利用“人事部”向“財(cái)務(wù)部”提供的雇員工資調(diào)整表c_salary1的“工資”，對(duì)salarys表的“工資”進(jìn)行調(diào)整(請(qǐng)注意：按“雇員號(hào)”相同進(jìn)行調(diào)整，并且只是部分雇員的工資進(jìn)行了調(diào)整，其他雇員的工資不動(dòng))。最后將salarys表中的記錄存儲(chǔ)到od_new表中(表結(jié)構(gòu)與salarys表完全相同)。

　　(2)設(shè)計(jì)一個(gè)文件名為form2的表單，其中包含“調(diào)整”(名稱Command1)和“退出”(名稱Command2)兩個(gè)命令按鈕。

　　單擊“調(diào)整”命令按鈕時(shí)，調(diào)用change_c命令程序?qū)崿F(xiàn)工資調(diào)整。

　　單擊“退出”命令按鈕時(shí)，關(guān)閉表單。

　　注意：在兩個(gè)命令按鈕中均只有一條命令，不可以有多余命令。

　　【參考答案】

　　(1)具體步驟如下：

　�、� 在“命令”窗口輸入命令：MODIFY COMMAND change_c。

　�、� 進(jìn)入程序編輯器，編寫如下程序段：

　　****change_c.prg文件中的程序段****

　　SET TALK OFF

　　SET SAFETY OFF

　　SELECT * FROM salarys INTO TABLE baksals

　　USE c_salary1

　　DO WHILE NOT EOF()

　　UPDATE salarys SET工資=c_salary1.工資;

　　WHERE salarys雇員號(hào)=c_salary1.雇員號(hào)

　　SKIP

　　ENDDO

　　SELECT * FROM SALARYS INTO TABLE od_new

　　CLOSE ALL

　　SET TALK ON

　　SET SAFETY ON

　　*****************************

　�、� 保存文件，在“命令”窗口輸入命令：DO change_c，運(yùn)行該文件。

　　(2)具體步驟如下：

　�、� 在“命令”窗口輸入命令：CREATE FORM form2。

　�、� 進(jìn)入表單設(shè)計(jì)器，根據(jù)題意，在表單中添加兩個(gè)命令按鈕，并在屬性面板中，分別修改兩個(gè)命令按鈕的Caption屬性值為“調(diào)整”和“退出”，

　�、� 雙擊“調(diào)整”(Command1)命令按鈕，進(jìn)入事件編輯窗口，在CLICK事件中編寫如下代碼：

　　****“調(diào)整”命令按鈕的Click事件代碼****

　　DO change_c

　　************************************

　　④ 以同樣的方法為“退出”命令按鈕編寫Click事件代碼：

　　****“退出”命令按鈕的Click事件代碼****

　　ThisForm.Release

　　*************************************

　�、� 保存表單完成設(shè)計(jì)。

　　【試題解析】

　　本試題(1)小題主要是考查SQL的查詢、定義和更新語句，在更新數(shù)據(jù)表中的記錄時(shí)，可利用DO循環(huán)對(duì)表中的記錄進(jìn)行逐條更新;(2)小題為表單的基本設(shè)計(jì)，在命令按鈕中調(diào)用程序的命令，直接通過DO命令來實(shí)現(xiàn)。