在考生文件夹下完成下列操作:
(1)建立一个表单名和文件名均为myform的表单,如下图所示。表单的标题为“教师情况”,表单中有两个命令按钮(Command1和Command2),两个复选框(Check1和Check2)和两个单选按钮(Option1和Option2)。Command1和Command2的标题分别是“生成表”和“退出”,Check1和Check2的标题分别是“系名”和“工资”,Option1和Option2的标题分别是“按职工号升序”和“按职工号降序”。
(2)为“生成表”命令按钮编写Click事件代码,其功能是根据表单运行时复选框指定的字段和单选钮指定的排序方式生成新的自由表。如果两个复选框都被选中,生成的自由表命名为two.dbf,two.dbf的字段包括职工号、姓名、系名、工资和课程号;如果只有“系名”复选框被选中,生成的自由表命名为one_x.dbf,one_x.dbf的字段包括职工号、姓名、系名和课程号;如果只有“工资”复选框被选中,生成的自由表命名为one_xx.dbf,one_xx.dbf的字段包括职工号、姓名、工资和课程号。
(3)运行表单,并分别执行如下操作:
①选中两个复选框和“按职工号升序”单选钮,单击“生成表”命令按钮;
②只选中“系名”复选框和“按职工号降序”单选钮,单击“生成表”命令按钮;
③只选中“工资”复选框和“按职工号降序”单选钮,单击“生成表”命令按钮。
参考答案:
步骤1:单击工具栏中的“新建”按钮,新建一个表单文件,通过表单控件工具栏向表单中添加两个复选框、一个选项组和两个命令按钮,并将“教师表”和“学院表”添加到表单的数据环境中。
步骤2:设置表单的Name属性为myform,Caption属性为“教师情况”;设置两个命令按钮的Caption属性分别为“生成表”和“退出”;设置两个复选框的Caption属性分别为“系名”和“工资”;两个单选按钮的Caption属性分别为“按职工号升序”和“按职工号降序”。
步骤3:双击“生成表”按钮,为“生成表”命令按钮编写Click事件代码。
*****“生成表”按钮的Click事件代码*****
a=ThisForm.Check1.Value
b=ThisForm.Check2.Value
c=ThisForm.Optiongroup1.Option1.Value
d=ThisForm.Optiongroup1.Option2.Value
if a=1 and b=1
If c=1
select职工号,姓名,系名,工资,课程号from教师表,
学院表;
where教师表.系号=学院表.系号;
order by职工号;
into table two.dbf
else
if d=1
select职工号,姓名,系名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
order by职工号desc;
into table two.dbf
endif
endif
endif
If a=1 and b=0
if c=1
select职工号,姓名,系名,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
order by职工号;
into table one_x.dbf
else
if d=1
select职工号,姓名,系名,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
order by职工号desc;
into table one_x.dbf
endif
endif
endif
if a=0 and b=1
if c=1
select职工号,姓名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
order by职工号;
into table one_xx.dbf
else
if d=1
select职工号,姓名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
order by职工号desc;
into table one_xx.dbf
endif
endif
endif
*********************
步骤4:保存表单名为myform,按题目要求运行表单并执行相关操作。