设计一个文件名和表单名均为form_item 的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题设为“使用零件情况统计”。表单中有1个组合框(Combo1)、1个文本框(Text1)和2个命令按钮“统计”(Command1)和“退出”(Command2)。
运行表单时,组合框中有3个条目“s1”、“s2”、“s3”(只有3个,不能输入新的,RowSourceType的属性为“数组”,Style的属性为“下拉列表框”)可供选择,单击“统计”命令按钮以后,则文本框显示出该项目所用零件的金额(某种零件的金额=单价*数量)。
单击“退出”按钮关闭表单。
参考答案:
单击“文件”菜单中的“新建”命令,在类型选择框中选择“表单”,单击“新建文件”按钮,打开表单设计器。
在属性窗口中设置表单formA 的 Name 属性为 form_ item,Caption 属性为“使用零件情况统计”。从表单控件工具栏中选择一个组合框、两个按钮和一个文本框放置在表单上。在属性面板中设置组合框的 RowSourceType 属性为“A-值”,RowSource 属性为“sA,sB,sC”,Style 属性为“B-下拉列表框”。设置按钮CommandA 的 Caption 属性为“统计”,CommandB 的 Caption 属性为“退出”,结果如图C-A0B所示。
[*]
图C-A0B
双击命令按钮CommandA,在Click 事件中编写如下代码。
******命令按钮CommandA(统计)的Click 事件******
SELECT SUM(零件信息.单价*使用零件.数量);
FROM 零件信息INNER JOIN 使用零件;
INNER JOIN 项目信息;
ON 使用零件.项目号=项目信息.项目号;
ON 零件信息.零件号=使用零件.零件号;
WHERE 使用零件.项目号=ALLTRIM(Thisform.COMBOA.VALUE);
GROUP BY 项目信息.项目号;
INTO ARRAY TEMP
Thisform.TEXTA.VALUE=TEMP
************************************************
同样在CommandB的Click 事件中编写代码:Thisform. Release。
保存表单文件为form_ item到考生文件下。运行表单,结果如图C-A0C所示。
[*]
图C-A0C
解析: 本大题主要考查的是表单中组合框的设置,该控件用来显示数据的重要属性是 RowSourceType属性和RowSource 属性,在程序设计中,利用 SQL 语句在数据表中查找与选中条目相符的字段值进行统计,属于简单查询,可将查询结果保存到一个数组中,然后通过文本框的 Value 属性将结果在文本框中显示。