計算機等級考試二級VFP上機試題及解題思路(25)

　　三、綜合應(yīng)用(1小題，計30分)

　　在考生文件夾下，對"商品銷售"數(shù)據(jù)庫完成如下綜合應(yīng)用：

　　1.請編寫名稱為change_c 的命令程序并執(zhí)行，該程序?qū)崿F(xiàn)下面的功能：將"商品表"進行備份，備份文件名為"SPBAK.dbf";將"商品表"中"商品號"前兩位編號為"10"的商品的"單價"修改為出廠單價提高10%;使用"單價調(diào)整表"對商品表的部分商品出廠單價進行修改(按"商品號"相同)。

　　2.設(shè)計一個名稱為form2的表單，上面有"調(diào)整"(名稱Command1)和"退出"(名稱Command2)兩個命令按鈕。

　　單擊"調(diào)整"命令按鈕時，調(diào)用change_c命令程序?qū)崿F(xiàn)商品單價調(diào)整;

　　單擊"退出"命令按鈕時，關(guān)閉表單。

　　注意：以上兩個命令按鈕均只含一條語句，不可以有多余的語句。

　　本題主要考核點：

　　程序的建立方法、記錄的更新、循環(huán)結(jié)構(gòu)、表單的建立方法、控件的基本知識等知識點

　　解題思路：

　　第一步：在Visual ForxPro主窗口中按下組合鍵Ctrl+N，彈出"新建"對話框，在文件類型中選擇"程序"，點擊"新建文件"，彈出代碼編輯器窗口

　　第二步：在代碼編輯器窗口，輸入以下代碼：

　　SET TALK OFF

　　SET SAFETY OFF

　　&&備份商品表

　　SELECT * FROM 商品表 INTO TABLE SPBAK.DBF

　　&&修改商品的單價

　　UPDATE 商品表 SET 單價=出廠單價*1.1 WHERE LEFT(商品號,2)="10"

　　USE 單價調(diào)整表

　　DO WHILE NOT EOF()

　　UPDATE 商品表 SET 出廠單價=單價調(diào)整表.出廠單價;

　　WHERE 商品號=單價調(diào)整表.商品號

　　SKIP

　　ENDDO

　　CLOSE ALL

　　SET TALK ON

　　SET SAFETY ON

　　第三步：以文件名change_c.prg保存程序文件在考生文件夾下。并執(zhí)行

　　第四步：在Visual FoxPro的主窗口按下組合鍵Ctrl+N，彈出"新建"對話框，在文件類型中選擇"表單"，點擊"新建文件"按鈕

　　第五步：在打開的表單編輯器窗口中放上兩個標(biāo)題分別為"調(diào)整"和"退出"的命令按鈕，并為標(biāo)題為"調(diào)整"的命令按鈕添加如下Click的事件代碼：DO CHANGE_C.PRG;為標(biāo)題為"退出"的命令按鈕添加如下Click事件代碼：THISFORM.RELEASE.

　　第六步：以文件名form2.scx保存表單，并保存在考生文件夾下。