计算机等级考试二级VFP上机试题及解题思路(34)

　　三、综合应用(1小题，计30分)

　　设计一个文件名和表单名均为form_item的表单，所有控件的属性必须在表

　　单设计器的属性窗口中设置。表单的标题设为"使用零件情况统计"。表单中有一

　　个组合框(combo1)、一个文本框(text1)和两个命令按钮"统计"(command1)和"退出"(command2)。

　　运行表单时，组合框中有三个条目"s1"、"s2"、"s3"(只有三个，不能输入新的，RowSourceType的属性为"数组"，Style的属性为"下拉列表框")可供选择，

　　单击"统计"命令按钮以后，则文本框显示出该项目所用零件的金额(某种零件的金额=单价*数量)。

　　单击"退出"按钮关闭表单。

　　本题主要考核点

　　控件的属性的修改、SQL语句运用、表单的退出等知识点

　　本题解题思路：

　　第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"表单"，点击"新建文件"按钮,系统将打开表单设计器;或直接在命令窗口中输入 crea form form_item。

　　第二步：点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"对话框中，选中"组合框"控件，在表单设计器中拖动鼠标，这样在表单上得到一个"组合框"控件combo1，用类似的方法为表单再加入一个"文本框"控件text1和两个"命令按钮"控件command1和command2;

　　相关控件的属性值如下表所示：

　　***************表单form_item的Load事件代码如下***************

　　public ss(3)

　　ss(1)="s1"

　　ss(2)="s2"

　　ss(3)="s3"

　　*********命令按钮command1(统计)的Click事件代码如下***********

　　SELECT SUM(零件信息.单价*使用零件.数量);

　　FROM 零件信息 INNER JOIN 使用零件;

　　INNER JOIN 项目信息 ;

　　ON 使用零件.项目号 = 项目信息.项目号 ;

　　ON 零件信息.零件号 = 使用零件.零件号;

　　WHERE 使用零件.项目号 =ALLTRIM(THISFORM.combo1.VALUE);

　　GROUP BY 项目信息.项目号;

　　INTO ARRAY TEMP

　　THISFORM.TEXT1.VALUE=TEMP

　　**********命令按钮command2(退出)的Click事件代码如下**********

　　thisform.release