【答案解析】步骤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,按题目要求运行表单并执行相关操作。
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
答案考生文件夹