在考生文件夹下完成下列操作: (1)建立一个表单名和文件名均为myform的表单,如下图所示。表单的标题为“教师情况”,表单中有两个命令按钮(Command1和(;ommand2),两个复选框(Check1和Check2)和两个单选按钮(Optio

admin2017-07-28  31

问题 在考生文件夹下完成下列操作:
    (1)建立一个表单名和文件名均为myform的表单,如下图所示。表单的标题为“教师情况”,表单中有两个命令按钮(Command1和(;ommand2),两个复选框(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:通过属性窗口设置表单及各控件的相关属性,如图3.110所示。 [*] 步骤3:为“生成表”命令按钮编写Click事件代码。 ****“生成表”按钮的Click事件代码**** &&对a进行赋值,数据来源为复选框Check1值 a=ThisForm.Check1.Value &&对b进行赋值,数据来源为复选框Check2值 b=ThisForm.Check2.Value &&对c进行赋值,数据来源为单选按钮Option1值 c=ThisForm.OptiOngroup1.Option1.Value &&对d进行赋值,数据来源为单选按钮Option2值 d=ThisForm.Optiongroup1.Option2.Value &&如果两个复选框都被选中 if a=1 and b=1 &&如果按钮1被选中 if c=1 &&选择查询字段并指定字段来源 select职工号,姓名,系名,工资,课程号from教师表,学院表; &&设置查询条件 where教师表.系号=学院表.系号; &&查询结果按职工号升序排列 order by职工号; &&将查询结果存储到two.dbf中 into table two.dbf else &&如果按钮2被选中 if d=1 &&选择查询字段并指定字段来源 select职工号,姓名,系名,工资,课程号from教师表,学院表; &&设置查询条件 where教师表.系号=学院表.系号; &&查询结果按职工号降序排列 order by职工号desc; &&将查询结果存储到two.dbf中 into table two.clbf endif endif endif &&如果复选框1被选中,2未被选中 if a=1 and b=0 &&如果按钮1被选中 if c=1 &&选择查询字段并指定字段来源 select职工号,姓名,系名,课程号from教师表,学院表; &&设置查询条件 where教师表.系号=学院表.系号; &&查询结果按职工号升序排列 order by职工号; &&将查询结果存储到one_x.dbf中 into table one_x.dbf &&如果按钮2被选中 else if d=1 &&选择查询字段并指定字段来源 select职工号,姓名,系名,课程号from教师表,学院表; &&设置查询条件 where教师表.系号=学院表.系号; &&查询结果按职工号降序排列 order by职工号desc; &&将查询结果存储到one_x.dbf中 into table one_x.dbf endif endif endif &&如果复选框2被选中,1未被选中 if a=0 and b=1 &&如果按钮1被选中 if c=1 &&选择查询字段并指定字段来源 select职工号,姓名,工资,课程号from教师表,学院表; &&设置查询条件 where教师表.系号=学院表.系号; &&查询结果按职工号升序排列 order by职工号; &&将查询结果存储到one xz.dbf中 into table one xx.dbf &&如果按钮2被选中 else if d=1 &&选择查询字段并指定字段来源 select职工号,姓名,工资,课程号from教师表,学院表; &&设置查询条件 where教师表.系号=学院表.系号; &&查询结果按职工号降序排列 order by职工号desc; &&将查询结果存储到one xx.dbf中 into table one xx.dbf endif endif endif *********************** 步骤4:保存表单名为“myform”,按题目要求运行表单并执行相关操作。

解析
转载请注明原文地址:https://kaotiyun.com/show/BPBp777K
0

最新回复(0)