(1)请编写名称为change_ c的程序并执行。该程序实现下面的功能:将雇员工资表salarys进行备份,备份文件名为baksals.dbf。利用“人事部”向“财务部”提供的雇员工资调整表c_salary1的“工资”,对 salarys表的“工资”进行调整(请注意:按“雇员号”相同进行调整,并且只是部分雇员的工资进行了调整,其他雇员的工资不动)。最后将salarys表中的记录存储到od _ new表中(表结构与salarys表完全相同)。
(2)设计一个文件名为form2的表单,其中包含“调整”(名称Command1)和“退出”(名称Command2)两个命令按钮。
单击“调整”命令按钮时,调用change_ c命令程序实现工资调整。
单击“退出”命令按钮时,关闭表单。
注意:在两个命令按钮中均只有一条命令,不可以有多余命令。
参考答案:
(1)在命令窗口输入命令:MODIFY COMMAND change_ c,打开程序编辑器,编写如下程序段:
****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 雇员号=c_salary1.雇员号
SKIP
ENDDO
SELECT*FROM SALARYS INTO TABLE od_ new
CLOSE ALL
SET TALK ON
SET SAFETY ON
********************************
保存文件,在命令窗口输入命令:DO change _c,运行该文件。
(2)在命令窗口输入命令:CREATE FORM form2,打开表单设计器,根据题意,通过“表单控件”工具栏,在表单中添加两个命令按钮,在属性面板中,分别修改两个命令按钮的Caption属性值为“调整”,和“退出”,如图3-72所示。
双击“调整”(Command1)命令按钮,进入事件编辑窗口,在Click事件中编写如下代码:
****命令按钮Command1(调整)的Click事件代码****
DO change_ c
***************************************
以同样的方法为“退出”命令按钮编写Click事件代码:
****命令按钮Command2(退出)的Click事件代码****
Thisform.Release
**************************************
保存表单完成设计。
解析:
本大题1小题主要是考查SQL的查询、定义和更新语句,在更新数据表中的记录时,可利用 DO循环对表中的记录进行逐条更新;2小题为表单的基本设计,在命令按钮中调用程序的命令,直接通过 DO命令来实现。