四、综合应用题

　　[操作步骤]

　　步骤1：单击工具栏中的“新建”按钮，新建-个表单文件，通过表单控件工具栏向表单中添加两个复选框、-个选项组和两个命令按钮，并将“教师表”和“学院表”添加到表单的数据环境中。

　　步骤2：设置表单的Name属性为m#orm，Caption属性为“教师情况”;设置两个命令按钮的Caption属性分别为。生成表”和“退出”;设置两个复选框的Caption属性分别为。系名”和“工资”;两个单选按钮的Caption属性分别为“按职工号升序”和“按职工号降序”。

　　步骤3：双击“生成表”按钮，为“生成表”命令按钮编写

　　Click"事件代码。

　　*****“生成表”按钮的Click事件代码*****

　　a=ThisForm.Checkl.Value

　　b=ThisForm.Cheek2.Value

　　C=ThisFafm.Olptiongroupp1.Option1.Value

　　d=TlaisForm.0ptiongroup1.option2.Value

　　if a=l and b=l

　　if c=l

　　select职工号。姓名，系名，工资，课程号from教师表，

　　学院表;

　　Where教师表.系号=学院表.系号;

　　order by职工号;

　　into tablevtwo.dbf

　　else

　　if d=1

　　sdect职工号，姓名，系名，工资，课程号from教

　　师表，学院表;

　　where教师表.系号=学院表.系号;

　　order by职工号desc;

　　曲inw n1ldC two.dbf

　　endif

　　endif

　　endif

　　if a=l andb=0

　　ifc=l

　　select职工号，姓名，系名，课程号from教师表，掣

　　院表;

　　whem教师表.系号=学院表.系号;

　　order by职工号;

　　into table one_x.dbf

　　else

　　ifd=l

　　select职工号，姓名，系名，课程号from教师表，

　　学院表;

　　where教师表.系号=学院表.系号;

　　order by职工号desc;

　　into table one.x.dbf

　　endif

　　endif

　　endif

　　if a=O and b=1

　　ife=1

　　∞leet职工号，姓名，工资，课程号from教师表，掣

　　院表;

　　where教师表.系号=学院表.系号;

　　order by职工号;

　　into talde olle_xx.dbf

　　else

　　if d=1

　　select职工号，姓名，工资，课程号from教师表，

　　学院表：

　　where教师表.系号=学院表.系号;

　　order by职工号desc;

　　into table one xx.dbf

　　endif

　　endif

　　cndif

　　**********************

　　步骤4：保存表单名为myform，按题目要求运行表单并执行相关操作。

　　相关推荐：

　　各地2016年全国计算机等级考试报名时间汇总

　　各地2016年计算机等级考试准考证打印时间汇总

　　各地2016年全国计算机等级考试费用汇总