在考生文件夹中完成如下综合应用: 对数据库“salarydb”设计一个文件名为“form1”的表单,上面有“调整”和“退出”两个命令按钮。单击“调整”命令按钮时,利用“工资调整”表“c_salary1”的“工资”,对“salarys”表的“工资”进

admin2010-12-13  24

问题 在考生文件夹中完成如下综合应用:
    对数据库“salarydb”设计一个文件名为“form1”的表单,上面有“调整”和“退出”两个命令按钮。单击“调整”命令按钮时,利用“工资调整”表“c_salary1”的“工资”,对“salarys”表的“工资”进行调整。
   请注意:按“雇员号”相同进行调整,并且只是部分雇员的工资进行了调整,其他雇员的工资不动。最后将“salarys”表中的记录存储到“od_new”表中(表结构与“salarys”表完全相同)。
    单击“退出”命令按钮,关闭表单。

选项

答案①在visual FoxPro的命令窗口内输入命令:create form myform,打开表单设计器,单击主菜单【显示】→【数据环境】命令,右击数据环境窗口,选择“添加”命令,选择“c_salary1”表和“salarys”表。 ②单击表单件工具栏上的“命令按钮”控件图标,在表单里添加两个命令按钮,设置其Caption属性分别为“调整”和“退出”。 ③双击“调整”按钮,在其Click事件里输入下列代码: SFT SAFETY OFF SELECT 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 ④双击“退出”按钮,在其Click事件里输入下列代码:Thisform.release。 ⑤保存表单,文件名为“form1”。

解析
转载请注明原文地址:https://kaotiyun.com/show/Oazp777K
0

最新回复(0)