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

admin2013-11-12  28

问题 在考生文件夹下完成下列操作:
    (1)建立一个表单名和文件名均为myform的表单,如下图所示。表单的标题为“教师情况”,表单中有两个命令按钮(Commandl和(Command2)、两个复选框(Checkl和Check2)和两个单选按钮(Optionl和Option2)。Commandl和Command2的标题分别是“生成表”和“退出”,Checkl和Check2的标题分别是“系名”和“工资”,Optionl和Option2的标题分别是“按职工号升序”和“按职工号降序”。

    (2)为“生成表”命令按钮编写Click事件代码,代码功能为根据表单运行时复选框指定的字段和单选按钮指定的排序方式生成新的自由表。如果两个复选框都被选中,生成的自由表命名为tw0.dbf,字段包括职工号、姓名、系名、工资和课程号;如果只有“系名”复选框被选中,生成的自由表命名为one_x.dbf,字段包括职工号、姓名、系名和课程号;如果只有“工资”复选框被选中,生成的自由表命名为one_xx.dbf,字段包括职工号、姓名、工资和课程号。
    (3)运行表单,并分别执行如下操作:
    ①选中两个复选框和“按职工号升序”单选钮,单击“生成表”命令按钮;
    ②只选中“系名”复选框和“按职工号降序”单选钮,单击“生成表”命令按钮;
    ③只选中“工资”复选框和“按职工号降序”单选钮,单击“生成表”命令按钮。

选项

答案步骤1:单击工具栏中的“新建”按钮,新建一个表单文件,通过表单控件工具栏向表单中添加两个复选框、一个选项组和两个命令按钮,并将“教师表”和“学院表”添加到表单的数据环境中。 步骤2:设置表单的Name属性为myform,Caption属性为“教师情况”;设置两个命令按钮的Caption属性分别为“生成表”和“退出”;设置两个复选框的Caption属性分别为“系名”和“工资”;两个单选按钮的Caption属性分别为“按职工号升序”和“按职工号降序”。 步骤3:双击“生成表”按钮,为“生成表”命令按钮编写Click事件代码: *****“生成表”按钳的Click事件代码***** a=ThisForm.Cheekl.Value b=ThisForm.Check2.Value e=ThisForm.Optiongroup1.Optionl.Value d=ThisForm.Optiongroup1.Option2.Value if a=1 and b=1 if e=1 select职工号,姓名,系名,工资,课程号from教师表,学院表; where教师表.系号=学院表.系号; order by职工号; into table two.dbf else if d=1 select职工号,姓名,系名,工资,课程号from敦师表,学院表; where教师表.系号=学院表.系号; order by职工号(tese; into table two.dbf endif endif endif if a=1 and h=0 if e=1 select职工号,姓名,系名,课程号from教师表,学院表; where教师表.系号=学院表.系号; order by职工号; into table one_x.dbf else if d=1 select职工号,姓名,系名,课程号from教师表,学院表; where 教师表.系号=学院表.系号; 0rder by职工号desc; into table one_x.dbf endif endif endif if a=0 and b=1 if c=1 seleet职工号,姓名,工资,课程号from教师表,学院表; where教师表.系号=学院表.系号; ordei by职工号; into table one_xx.dbf else if d=1 select职工号,姓名,工资,课程号from教师表,学院表; where教师表.系号=学院表.系号: order by职工号desc; into table one_xx.dbf endit endit endit ******************************************************* 步骤4:保存表单名为myform,按题目要求运行表单并执行相关操作。

解析
转载请注明原文地址:https://jikaoti.com/ti/j1T0FFFM
0

最新回复(0)