问答题 在考生文件夹下完成下列操作: (1)建立一个表单名和文件名均为my form的表单,如下图所示。表单的标题为“教师情况”,表单中有两个命令按钮(Command1和Command2),两个复选框(Check1和Check2)和两个单选按钮(Option1和Option2)。Command1和Command2的标题分别是“生成表”和“退出”,Check1和Check2的标题分别是“系名”和“工资”,Option1和Option2的标题分别是“按职工号升序’’和“按职工号降序”。
【正确答案】步骤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 ifa=landb=l ifc=l select职工号。姓名,系名,工资,课程号from教师表, 学院表; Where教师表.系号=学院表.系号; orderby职工号; intotablevtwo.dbf else ifd=1 sdect职工号,姓名,系名,工资,课程号from教 师表,学院表; where教师表.系号=学院表.系号; orderby职工号desc; 曲inwn1ldCtwo.dbf endif endif endif ifa=landb=0 ifc=l select职工号,姓名,系名,课程号from教师表,掣 院表; whem教师表.系号=学院表.系号; orderby职工号; intotableone_x.dbf else ifd=l select职工号,姓名,系名,课程号from教师表, 学院表; where教师表.系号=学院表.系号; orderby职工号desc; intotableone.x.dbf endif endif endif ifa=Oandb=1 ife=1 ∞leet职工号,姓名,工资,课程号from教师表,掣 院表; where教师表.系号=学院表.系号; orderby职工号; intotaldeolle_xx.dbf else ifd=1 select职工号,姓名,工资,课程号from教师表, 学院表: where教师表.系号=学院表.系号; orderby职工号desc; intotableonexx.dbf endif endif cndif ********************** 步骤4:保存表单名为myform,按题目要求运行表单并执行相关操作。
【答案解析】