设计名为“mysupply”的表单。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”和“退出”。 运行表单时，单击“查询”命令按钮后，表格控件中显示工程号“J1”所使用的零件的零件名、颜色和重量。单击“退出”按钮关闭表单。

正确答案：在命令窗口中输入命令：CREATE FORMmy打开表单设计器新建表单。 从表单控件工具栏中向表单添加2个命令按钮(Command1和Command2)和1个选项按钮组 (Optiongroup1)。根据题意在属性面板中修改表单的Caption属性值为“学习情况浏览”修改命令按钮Command1的Caption属性值为“成绩查询”修改命令按钮Command2的Caption属性值为“关闭”修改选项按钮组(Optiongroup1)的Name属性值为“myop”然后右击选项按钮组选择“编辑”快捷菜单命令在此状态下(编辑状态下控件四周出现蓝色框线)分别修改两个单选项的Caption属性值为“升序”和“降序”。 双击“成绩查询”命令按钮编写Click事件代码内容如下： ******命令按钮Command1(成绩查询)的Click事件代码***** DO CASE CASE Thisform.myop.Value=1 SELECT 学号成绩； FROM 课程选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY 成绩； INTO TABLE new1 CASE Thisform.myop.Value=2 SELECT 学号成绩； FROM 课程选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY成绩DESC； INTO TABLE new2 ENDCASE ********************************************************* 同样在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单结果如图3-139所示保存表单设计到考生文件夹下。
在命令窗口中输入命令：CREATE FORMmy，打开表单设计器，新建表单。 从表单控件工具栏中，向表单添加2个命令按钮(Command1和Command2)和1个选项按钮组 (Optiongroup1)。根据题意，在属性面板中，修改表单的Caption属性值为“学习情况浏览”，修改命令按钮Command1的Caption属性值为“成绩查询”，修改命令按钮Command2的Caption属性值为“关闭”，修改选项按钮组(Optiongroup1)的Name属性值为“myop”，然后右击选项按钮组，选择“编辑”快捷菜单命令，在此状态下(编辑状态下，控件四周出现蓝色框线)，分别修改两个单选项的Caption属性值为“升序”和“降序”。 双击“成绩查询”命令按钮，编写Click事件代码，内容如下： ******命令按钮Command1(成绩查询)的Click事件代码***** DO CASE CASE Thisform.myop.Value=1 SELECT 学号，成绩； FROM 课程，选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY 成绩； INTO TABLE new1 CASE Thisform.myop.Value=2 SELECT 学号，成绩； FROM 课程，选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY成绩DESC； INTO TABLE new2 ENDCASE ********************************************************* 同样在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单，结果如图3-139所示，保存表单设计到考生文件夹下。 解析：本大题考查宁表单设计，在设计控件属性时，不要将控件的标题和名称属性弄混淆了；程序部分可利用DO CASE的分支语句，每个分支语句包含一个相应的SQL查询语句，根据选项组中单选项的内容，查找相应的数据记录存入新表中。

正确答案：

【考点指引】本大题考查的是表单的设计及表格控件和组合框的使用，主要注意表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将“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”，保存在考生文件夹下，然后运行表单。

正确答案：

【考点指引】本大题考查的是表单的设计及表格控件的使用，注意表格控件数据源的设置。
【操作步骤】
①选择【文件】→【打开】命令打开数据库“产品”。
②选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加一个命令按钮Command1；单击表单控件工具栏上的“表格”控件图标，再添加两个表格控件“Grid1”和“Grid2”。
③选择命令按钮，在按钮属性窗口中将命令按钮Command1的Name属性值修改为“emdClose”，将Caption属性值修改为“关闭”。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
④在表单设计器中，用鼠标右键单击表单空白处，在弹出的快捷菜单中选择“数据环境”命令，打开表单的数据环境，选择数据库“产品”，将数据表文件“产品”和“零件”添加
到数据环境中，如图110-1所示。

⑤选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“零件”，将“RecordSource-Type”属性值修改为“0”，将“ReadOnly”属性值修改为“．T．”；选择表格控件“Grid2”，在表格控件属性窗口中将“ReeordSource”属性值修改为“""”，将“RecordSourceType”属性值修改为“1”。
⑥在表单设计器中，选择“Grid1”，在属性窗口中双击“AfterRowColChange Event”，弹出事件过程代码编辑窗口，输入以下代码：
SELECT产品．*INTO CURSOR tmp FROM产品
WHERE产品{零件编号=ThisForm．Grid1．columns(1)．
textl．value
ThisForm．Grid2．RecordSourceType=1
ThisForm．Grid2．RecordSource="tmp"
ThisForm．Grid2．Refresh
⑦选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd3”，保存在考生文件夹下，然后运行表单。

正确答案：在命令窗口中输入命令：CREATE FORM supper打开表单设计器通过“常用工具栏”向表单添加 1个表格和2个命令按钮。 选中表单在属性面板中修改Name的属性值为supper将Caption的属性值改为“零件供应情况”然后在属性面板顶端的下拉框中选择Command1修改该命令按钮控件的Caption属性值为“查询”以同样的方法将第二个命令按钮设置Caption属性值改为“退出”如图2-135所示。 双击命令按钮“查询”编写该控件的Click事件程序代码如下： ******命令按钮Command1(查询)的Click事件代码***** SELECT零件名颜色重量； FROM零件供应； WHERE 供应.零件号=零件.零件号AND工程号='Al'; DdTO TABLE jie Thisform.Gridl.RecordSourceType=1 Thisform.Gridl.RecordSource="jie" ********************************************************* 以同样的方法为“退出”命令按钮编写Click事件代码：Thisform.Release。 保存表单完成设计查看表单运行结果如图3-136所示。
在命令窗口中输入命令：CREATE FORM. supper，打开表单设计器，通过“常用工具栏”向表单添加 1个表格和2个命令按钮。 选中表单，在属性面板中修改Name的属性值为supper，将Caption的属性值改为“零件供应情况”，然后在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption属性值为“查询”，以同样的方法将第二个命令按钮设置Caption属性值改为“退出”，如图2-135所示。 双击命令按钮“查询”，编写该控件的Click事件，程序代码如下： ******命令按钮Command1(查询)的Click事件代码***** SELECT零件名，颜色，重量； FROM零件，供应； WHERE 供应.零件号=零件.零件号AND工程号='Al'; DdTO TABLE jie Thisform.Gridl.RecordSourceType=1 Thisform.Gridl.RecordSource="jie" ********************************************************* 以同样的方法为“退出”命令按钮编写Click事件代码：Thisform.Release。 保存表单完成设计，查看表单运行结果，如图3-136所示。 解析：本大题考查的是表单设计，在设计控件属性中，不要将控件的标题和名称属性弄混淆，名称属性是该控件的一个内部名称，而标题属性是用来显示的一个标签名称。程序部分属于SQL的简单联接查询。

正确答案：

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

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