①建立一个如图2—34所示的表单名和文件名均为myform的表单。表单的标题是“教师情况”,表单中有两个命令按钮(Command1和Command2),两个复选框(Check1和Check2)和两个单选钮(Option1和Option2)。Command1

admin2016-12-05  20

问题 ①建立一个如图2—34所示的表单名和文件名均为myform的表单。表单的标题是“教师情况”,表单中有两个命令按钮(Command1和Command2),两个复选框(Check1和Check2)和两个单选钮(Option1和Option2)。Command1和Command2的标题分别是“生成表”和“退出”,Check1和Check2的标题分别是“系名”和“工资”,Option1和Option2的标题分别是“按职工号升序”和“按职工号降序”。

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

选项

答案【操作步骤】 步骤1:在命令窗口执行命令:CREATE FORM myform,打开表单设计器新建表单。从“表单控件”工具栏中依次向表单添加一个选项按钮组、两个复选框和两个命令按钮控件。 步骤2:在“属性”面板的下拉框中选择表单对象,在“全部”选项卡中修改对象属件值,见表3—36。 [*] 步骤3:双击命令按钮,编写各个命令按钮的Click事件代码。各按钮代码如下: *****“生成表”按钮的Click事件代码***** 1 IF ThisForm.CheCk1.Valme=1 And ThisForm.CheCk2.Valme=1 2 IF ThisForm.Optiongroup1.Value=1 3 SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON教师表.系号=学院表.系号 ORDER BY 职工号 INTO TABLE two 4 ELSE 5 SELECT 职工号,姓名,系名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号=学院表.系号ORDER BY 职工号 DESC INTO TABLE two 6 ENDIF 7 ELSE 8 IF ThiSForm.CheCk1.Value=1 9 IF ThisForm.Optiongroup1.Value=1 10 SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号=学院表.系号 ORDER BY 职工号 INTO TABLE one_X 11 ELSE 12 SELECT 职工号,姓名,系名,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号=学院表.系号ORDER BY 职工号 DESC INTO TABLE one_x 13 ENDIF 14 ELSE 15 IF ThisForm.Check2.Value=1 16 IF ThisForm.Optiongroup1.Value=1 17 SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN学院表 ON 教师表.系号=学院表.系号ORDER BY 职工号 INTO TABLE one_XX 18 ELSE 19 SELECT 职工号,姓名,工资,课程号 FROM 教师表 INNER JOIN 学院表 ON 教师表.系号=学院表.系号ORDER BY 职工号 DESC INTO TABLE one_xx 20 ENDIF 21 ENDIF 22 ENDIF 23 ENDIF *****“退出”按钮的click事件代码,***** THISFORM.RELEASE 步骤4:单击“常用”工具栏中的“运行”按钮查看结果,按照题目要求生成3个数据表文件,将表单文件保存到考生文件夹下。

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

最新回复(0)