设计一个表单名和文件名均为form_item的表单,其中,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题设为“使用零件情况统计”。表单中有一个组合框(Combo1)、一个文本框(Text1)、两个命令按钮“统计”(Command1)和“退出”(Command2)。
运行表单时,组合框中有3个条目“s1”、“s2”和“s3”(只有3个,不能输入新的,RowSom.ceType的属性为“数组”,Style的属性为“下拉列表框”)可供选择,单击“统计”命令按钮后,则文本框显示出该项目所使用零件的金额合计(某种零件的金额=单价*数量)。
单击“退出”按钮关闭表单。
注意:完成表单设计后要运行表单的所有功能。
参考答案:①选择[文件]→[新建]命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将Caption属性值修改为“使用零件情况统计”;Name属性值修改为“form_item”;表单中添加一个组合框控件Combo1,一个文本框控件Text1和两个命令按钮控件Command1、Command2。
②在表单属性窗口中将command1、Command2的Caption属性值修改为“统计”、“退出”;Combe1的RowSource属性设置为a,Style属性设置为2。
③双击“Combe1”命令按钮,在form_item.Init中输入代码.设置组合框的数据源:
public a(3)
a(1)="s1";
a(2)="s2";
a(3)="s3";
④双击“查询”命令按钮,在Click事件中输入代码:
x=ALLT(THISFORM.Combo1.Value)
SELECT SUM(使用零件.数量*零件信息.单价)AS je;
FROM使用零件,零件信息;
WHERE使用零件.零件号=零件信息.零件号;
AND使用零件.项目号=x;
GROUP BY使用零件.项目号;
INTO ARRAY b
THISFORM.Tex1.1.Value=b
⑤双击“退出”命令按钮,在Click事件中输入代码:
THISFROM.Release
⑥选择[表单]→[执行表单]命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“form_item”,保存在考生文件夹下,然后运行表单。
解析: 本题考查的是:表单的操作和应用,SQL语句的用法。