第 1 页:单选 |
第 5 页:操作题 |
第 6 页:参考答案 |
四、综合应用题
【操作步骤】
步骤1:单击工具栏中的“新建”按钮,新建一个表单文件,
通过表单控件工具栏向表单中添加两个复选框、一个选项组和两个命令按钮,并将“教师表”和“学院表”添加到表单的数据环境中。
步骤2:设置表单的Name属性为my fo I’m,Caption属性为“教师情况”;设置两个命令按钮的Caption属性分别为“生成表”和“退出”;设置两个复选框的Caption属性分别为“系名”和“工资”;两个单选按钮的Caption属性分别为“按职工号升序”和“按职工号降序”。
步骤3:双击“生成表”按钮,为“生成表”命令按钮编写
Click事件代码:
********“生成表”按钮的Click事件代码********
a=This Form.Check1.Value
b=This Form.Check2.Value
e=This Form.
Optiongroup1.Optionl.Value
d=This Form.Optiongroup1.Option2.Valueif a=1 and b=1 if C=1 select职工号,姓名,系名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
order by职工号: into table two.dbfelse
if d=1
select职工号,姓名,系名,工资,课程号from教师表,学院表;
where教师表.系号=学院表.系号;
order by职工号desc;
into table two.dbfendif
endifendifif a=1 and b=0
if e=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.dbfendif
endifendifif a=0 and b=1
if e=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.dbfendif
endifendif *********************
步骤4:保存表单名为my form,按题目要求运行表单并执行相关操作。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |