“sale”数据库中含有两个数据库表：“购买信息”和“会员信息”。对“sale”数据库设计一个表单“bd2”。表单的标题为“会员购买统计”。表单左侧有标题为“请选择会员”标签和用于选择“会员编号”的组合框以及“查询”和“关闭”两个命令按钮。表单中还有一个表格控件。表单运行时，用户在组合框中选择“会员编号”，单击“查询”按钮，在表单上的表格控件显示查询该会员的“会员编号”、“姓名”“年度”和所购买的商品的“购买金额”。单击“关闭”按钮，关闭表单。

正确答案：
【考点指引】本大题主要考查表单的建立和表格控件的使用，重点是表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为“零件装配情况”，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1、Command2，单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件。
②分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，Command2的Caption属性值修改为“关闭”，如图76-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。

③选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝〞”，将“RecordSourceType”属性值修改为“1”。
④双击“查询”命令按钮，在Click事件中输入代码：
SELECT产品．*INTO CURSOR tmp FROM产品，零件WHERE产品．零件编号=零件．零件编号AND零件．零件编号=〝000005〞
ThisForm．Grid1．ReeordSourceType=1
ThisForm．Grid1．RecordSource=〝tmp〞
ThisForm．Grid1．ReFresh
⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

正确答案：单击“文件”菜单中的“新建”在类型选择框中选择“表单”单击“新建文件”按钮打开表单设计器。 在属性窗口中设置表单的Caption 属性为“会员购买统计”从“表单控件”工具栏中选择1个组合框 1个标签1个表格控件2个命令按钮放置在表单上。在属性面板中分别设置两个命令按钮的Caption 属性分别为“查询”和“关闭”设置标签的Caption 属性值为“请选择会员”组合框的RowSourceType 属性为“1-值”RowSource 属性为“C1C2C3C4C5C6C7”Style 属性为“2-下拉列表框”。结果如图3-95所示。 图3-95 双击命令按钮“查询”编写该控件的Click 事件程序代码如下： ******命令按钮Command1(查询)的Click 事件代码***** SELECT 会员信息.会员号姓名SUM(数量*单价)AS 总金额； FROM 会员信息购买信息； WHERE 会员信息.会员号=购买信息.会员号； AND 会员信息.会员号=Thisform. Combo1. value； GROUP BY 会员信息.会员号； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ********************************************************* 以同样的方法为“关闭”命令按钮编写Click 事件代码：Thisform. Release。 保存表单文件为myf. scx 到考生文件夹下。运行表单结果如图3-96所示。 图3-96
单击“文件”菜单中的“新建”，在类型选择框中选择“表单”，单击“新建文件”按钮，打开表单设计器。 在属性窗口中设置表单的Caption 属性为“会员购买统计”，从“表单控件”工具栏中选择1个组合框， 1个标签，1个表格控件，2个命令按钮放置在表单上。在属性面板中分别设置两个命令按钮的Caption 属性分别为“查询”和“关闭”，设置标签的Caption 属性值为“请选择会员”，组合框的RowSourceType 属性为“1-值”，RowSource 属性为“C1，C2，C3，C4，C5，C6，C7”，Style. 属性为“2-下拉列表框”。结果如图3-95所示。 图3-95 双击命令按钮“查询”，编写该控件的Click 事件，程序代码如下： ******命令按钮Command1(查询)的Click 事件代码***** SELECT 会员信息.会员号，姓名，SUM(数量*单价)AS 总金额； FROM 会员信息，购买信息； WHERE 会员信息.会员号=购买信息.会员号； AND 会员信息.会员号=Thisform. Combo1. value； GROUP BY 会员信息.会员号； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ********************************************************* 以同样的方法为“关闭”命令按钮编写Click 事件代码：Thisform. Release。 保存表单文件为myf. scx 到考生文件夹下。运行表单，结果如图3-96所示。 图3-96 解析：本大题主要考查的是表单中组合框的设置，该控件用来显示数据的重要属性是 RowsourceType和 RowSource，程序部分属于SQL 的简单联接查询，在显示查询结果时，首先可用一个临时表保存查询结果，然后将表格控件中来显示数据的属性值设置为该临时表，用来显示查询结果。

正确答案：
【操作步骤】
①在Visual FoxPr0的命令窗口内输入命令：CREATE FORM MYFORM，打开表单设计器。
②单击主菜单【显示】→“数据环境”命令，右击数据环境窗口，选择“添加”命令，在打开的对话框内选择“购买”表和“会员”表。
③单击表单控件工具栏上的“标签”控件图标，向表单添加一个“标签”控件，修改其Caption属性为“会员购买统计”。
④单击表单控件工具栏上的“组合框按钮”控件图标，向表单添加一个组合框控件。将组合框的RowSourceType设置为“6一字段”，将RowSource设置为“会员．会员号”。
⑤单击表单控件工具栏上的“命令按钮”控件图标，向表单添加两个命令按钮。
⑥选中第一个命令按钮，在属性对话框中将其Caption属性改为“查询”。双击该命令按钮，在Click事件中输入如下代码：
This Form．Grid1．RecordSource=“SELECT会员．会员号，会员．姓名，SUM(购买．单价*购买．数量)as总金额FROM会员INNER JOIN购买0N会员．会员号=购买．会员号where会员．会员号=allt(thisform．comb01．displayValue)into cursor temp”
⑦选中第二个命令按钮，在属性对话框中将其Caption属性改为“退出”。双击该命令按钮，在Click事件中输入如下代码：
thisform．release
⑧单击工具栏上的“保存”图标，以“myform”为文件名保存表单。

正确答案：在命令窗口中输入命令：CREATE FORM myf打开表单设计器窗口。 从“表格控件”工具栏中单击表格控件添加两个表格到新建的表单中右击表单选择“数据环境”快捷菜单命令在数据环境中添加数据表“购买信息”和“会员信息”系统自动建立好两表的关联。返回表单设计器中右键单击表格Gridl在弹出的快捷菜单中选择“生成器”弹出表格生成器对话框在“1.表格项”中选择数据表“会员信息”将表中所有字段添加到“选定字段”中如图3-28所示。 以同样的方法设置第二个表格的生成器然后再选择“4.关系”选项卡把“父表中的关键字段”设置为“会员信息.会员号”把“子表中的相关索引”设置为“会员号”如图3-29所示。 从表单控件工具栏中向表单添加1个命令按钮修改命令按钮的Caption属性值为“关闭”在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单结果如图3-30所示保存表单设计到考生文件夹下。
在命令窗口中输入命令：CREATE FORM. myf，打开表单设计器窗口。 从“表格控件”工具栏中单击表格控件，添加两个表格到新建的表单中，右击表单，选择“数据环境”快捷菜单命令，在数据环境中添加数据表“购买信息”和“会员信息”，系统自动建立好两表的关联。返回表单设计器中，右键单击表格Gridl，在弹出的快捷菜单中选择“生成器”，弹出表格生成器对话框，在“1.表格项”中选择数据表“会员信息”，将表中所有字段添加到“选定字段”中，如图3-28所示。 以同样的方法设置第二个表格的生成器，然后再选择“4.关系”选项卡，把“父表中的关键字段”设置为“会员信息.会员号”，把“子表中的相关索引”设置为“会员号”，如图3-29所示。 从表单控件工具栏中向表单添加1个命令按钮，修改命令按钮的Caption属性值为“关闭”，在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单，结果如图3-30所示，保存表单设计到考生文件夹下。 解析：本大题考查的主要是通过表格控件实现父子表记录的联动显示，首先需要添加用于显示的数据表到表单的数据环境中，然后在两个表格的“生成器”对话中，进行相应的设置，实现表格中记录联动的功能。

正确答案：

【考点指引】本大题考查的是表单的设计及表格控件和组合框的使用，主要注意表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将“Caption”属性值修改为“商品销售汇总”。单击表单控件工具栏上的“标签”控件图标，为表单添加～个标签Label1，单击表单控件工具栏上的“组合框”控件图标，为表单添加一个组合框Com-bol，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2，单击表单控件工具栏上的“表格”控件图标，添加一个表格控件Grid1。
②选择标签Label1，在标签属性窗口中将Caption属性值修改为“请选择商品”，分别选择命令按钮，将Command1的Caption属性值修改为“查询”，将Command2的Caption属性值修改为“关闭”，如图90-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。

③选择表格控件“Grid1”，在表格控件属性窗口中将“ReeordSource”属性值修改为“""”，将“RecordSourceType”属性值修改为“1”。
④选择组合框，在组合框属性窗口中双击“Init Event”，打开Init事件代码编辑窗口，输入以下过程代码：
SELECT*INTO ARRAY aa FROM商品信息
FOR i=1 TO ALEN(aa)／2
ThisForm．Comb01．Addltem(aa(i，1))
NEXT
⑤双击“查询”命令按钮，打开Click事件代码编辑窗口，输入以下过程代码：
SELECT商品信息．商品编号，商品名称，年度，数量，
金额INTO CURSOR tmp FROM商品信息，销售汇总
WHERE商品信息．商品编号=销售汇总．商品编号
AND商品信息．商品编号=ThisForm．Comb01．dis-
playvalue
ThisForm．Grid1．RecordSourceType=1
ThisForm．Grid1．RecordSource="trap"
ThisForm．Grid1．Refresh
⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名 “bd3”，保存在考生文件夹下，然后运行表单。