三、综合应用(1小题,计30分)
在考生文件夹下,对数据库salary_db完成如下综合应用:
设计一个名称为form2的表单,在表单上设计一个"选项组"(又称选项按钮组,名称为Optiongroup1)及两个命令按钮"生成"(名称为Command1)和"退出"(名称为Command2); 其中选项按钮组有"雇员工资表"(名称为Option1)、"部门表"(名称为Option2)和"部门工资汇总表"(名称为Option3)三个选项按钮。 然后为表单建立数据环境, 并向数据环境添加dept表(名称为Cursor1)和salarys表(名称为Cursor2)。
各选项按钮功能如下:
(1) 当用户选择"雇员工资表"选项按钮后,再按"生成"命令按钮, 查询显示在简单应用中创建的sview视图中的所有信息并把结果存入表gz1.dbf中。
(2) 当用户选择"部门表"选项按钮后,再按"生成"命令按钮,查询显示dept表中每个部门的部门号和部门名称并把结果存入表bm1.dbf中。
(3) 当用户选择"部门工资汇总表"选项按钮后,再按"生成"命令按钮,则按部门汇总, 将该公司的部门号、部门名、工资、补贴、奖励、失业保险和医疗统筹的支出汇总合计结果存入表hz1.dbf中。请注意:字段名必须与原字段名一致。
(4) 按"退出"按钮,退出表单。
注意:以上各项功能必须调试、运行通过。
解答:
建立表单,表单保存文件名为“form2.scx”,添加选项按钮组Optiongroup1,单击该选项按钮组,在出现的快捷菜单中单击“生成”,打开“选项按钮组生成器”,按要求更改各选项按钮的标题,添加两个命令按钮,单击选项按钮组,在出现的快捷菜单中单击“属性”,打开属性窗口,将其标题分别更改为“生成”和“退出”,如下左图所示。
在表单空白处,单击鼠标右键,在快捷菜单中单击“数据环境”,添加两表到数据环境中,修改别名如上右图:
设置“生成”命令按钮的CLICK事件代码如下:
a=thisform. Optiongroup1.value
Do case
Case a=1
Select *from sview into table gz1.dbf
Case a=2
Select *from salary_db!dept into table bm1.dbf
Case a=3
Inde on 部门号 to temp
Total on 部门号 to hz1 fields部门号,部门名,工资,补贴,奖励,失业保险,医疗统筹
endcase
设置“退出”按钮的CLICK事件代码事下为:thisform.release
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |