设计文件名为myform1的表单。表单的标题设为“部门人数统计”。表单中有1个组合框、2个文本框和2个“命令”按钮,“命令”按钮的标题分别为“统计”和“退出”。
运行表单时,组合框中有部门信息“部门号”可供选择,在做出选择以后,单击“统计”命令按钮,则第一个文本框显示出部门名称,第二个文本框中显示出“员工”表中该部门的人数。单击“退出”按钮关闭表单。
参考答案:
步骤1:单击工具栏[新建]按钮,打开[新建]对话框,在[文件类型]区中选择“表单”,单击[新建文件]按钮,进入表单设计器。单击表单,在[属性]窗口将“Caption”设置为“部门人数统计”。单击[表单控件]窗口的组合框控件,单击表单,将组合框控件放入表单合适位置。在[属性]窗口将“RowSourceType”。设置为“6一字段”.“SourceType”设置为“部门信息.部门号”。单击[表单控件]窗口的文本框控件,单击表单,将文本框放入表单合适位置。按同样的方法再添加一个文本框和两个命令按钮。单击第一个命令按钮,在[属性]窗口中将“Caption”设置为“统计”。单击另一个命令按钮.在[属性]窗口将“Caption”设置为“退出”。
步骤2:右击表单,选择“数据环境”项,在弹出的[打开]对话框中选择“部门管理.dbc”.单击[确定]按钮。在[添加表或视图]对话框中.选中表“部门信息”,单击[添加]按钮.单击表“员工”,单击[添加]按钮,最后单击[关闭]按钮。
步骤3:右击[统计]按钮选择“代码”,在Click事件中输入:
SELECT部门名称FROM部门信息;
WHERE部门号=ALLT(THISFORM.combo1.DISPLAYVLUE)INTO ARRAY temp
THISFORM.text1.VALUE=temp(1,1)
SELECT COUNT(工号)FROM员工WHEER=ALLT(THISFORM.combo1.DISPLAYVALUE);
INTO ARRAY temp2
THISFORM.text2.VALUE=temp2(1,1)
右击[退出]按钮选择“代码”,在其Click事件中输入:
Thisform.Release。
步骤4:单击工具栏的[保存]按钮,将文件名保存为“myform”。
解析:
设计表单,包括在表单中统计表中数据,以及组合框等表单控件使用,重点是使用SQL语言进行查询和组合框属性的设置.