设计一个名为form_book的表单,表单的控件名为forml,文件名为form_book,表单的标题为“图书情况统计”。表单中有一个组合框(名称为Combo1)、一个文本框(名称为Text1)和两个命令按钮“统计”和“退出”(名称分别为Command1和Command2)。 运行表单时,组合框中有3个条目“清华”、“北航”、“科学”(只有3个出版社名称,不能输入新的)可供选择,在组合框中选择出版社名称后,如果单击“统计”命令按钮,则文本框显示出book表中该出版社图书的总数。 单击“退出”按钮则关闭表单。 注意:完成表单设计后要运行表单的所有功能。
第1题:
设计名为my的表单。表单标题为“学习情况浏览”。表单中有1个选项组控件(名为myop)、2个命令按钮“成绩查询”和“关闭”。其中,选项组控件有两个按钮“升序”和“降序”。根据选择的选项组控件,将选修了“数据结构”的学生的“学号”和“成绩”分别存入new1. dbf和new2.dhf文件中。

解析:本大题考查宁表单设计,在设计控件属性时,不要将控件的标题和名称属性弄混淆了;程序部分可利用DO CASE的分支语句,每个分支语句包含一个相应的SQL查询语句,根据选项组中单选项的内容,查找相应的数据记录存入新表中。
第2题:
设计名为formbook的表单(控件名为 form1,文件名为 formbook)。表单的标题设为“图书情况统计”。表单中有1个组合框(名称为Combo1)、1个文本框(名称为Text1)和2个命令按钮“统计” (名称为 Command1)和“退出” (名称为Command2)。
运行表单时,组合框中有3个条目“清华”、“北航”、“科学” (只有3个出版社名称,不能输入新的)可供选择,在组合框中选择出版社名称后,如果单击“统计”命令按钮,则文本框显示出“图书”表中该出版社图书的总数。
单击“退出”按钮关闭表单。
图3-87
双击命令按钮Command1在Click 事件中编写如下代码。
******命令按钮Command1(统计)的Click 事件*****
SELECT count(*)FROM book WHERE 出版社=Thisform.combo1.value;
INTO array Temp
Thisform.Text1.Value=temp(1)
***********************************************
同样在Command2的Click 事件中输入代码:Thisform. Telease。
保存表单文件为formbook. scx到考生文件下。运行表单结果如图3-88所示。
图3-88
图3-87
双击命令按钮Command1,在Click 事件中编写如下代码。
******命令按钮Command1(统计)的Click 事件*****
SELECT count(*)FROM book WHERE 出版社=Thisform.combo1.value;
INTO array Temp
Thisform.Text1.Value=temp(1)
***********************************************
同样在Command2的Click 事件中输入代码:Thisform. Telease。
保存表单文件为formbook. scx到考生文件下。运行表单,结果如图3-88所示。
图3-88 解析:本大题主要考查的是表单中组合框的设置,该控件用来显示数据的重要属性是 RowsourceType和RowSource,在程序设计中,利用SQL语句在数据表中查找与选中条目相符的字段值进行统计,属于简单查询。 第3题:
设计一个名为“bd2”的表单,表单的标题为“零件装配情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时,单击“查询”命令按钮后,要求表格中显示产品编号“0003”所使用的零件的零件名称、规格和数量。单击“关闭”按钮关闭表单。
【考点指引】本大题主要考查表单的建立和表格控件的使用,重点是表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,将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”,保存在考生文件夹下,然后运行表单。
第4题:
打开考试文件夹,完成以下操作:
①打开学生数据库SDB,设计一个名为sform的表单,表单文件名为SDISPLAY,表单的标题为“学生课程教师基本信息浏览”。表单上有一个包含三个选项卡的“页框”控件和一个“退出”按钮;为表单建立数据环境,添加STUDENT表,CLASS表和TEACH表。
②表单的高度为280,宽度450,表单显示时自动在窗口居中。
③三个选项卡的标签是“学生表”、“班级表”和“教师表”,每项以表格形式显示3个表的信息。
④单击“退出”按钮关闭表单。
第5题:
在考生文件夹下设计名为supper的表单(表单名和文件名均为supper),表单的标题为“零件供应情况”。表单中有1个表格控件和2个命令按钮查询和退出。
运行表单时单击查询命令按钮后,表格控件中显示“供应”表工程号为“A1”所使用的零件的“零件名”、“颜色”、和“重量”。并将结果放到表jie中。
单击“退出”按钮关闭表单。
双击命令按钮“查询”编写该控件的Click事件程序代码如下:
******命令按钮Command1(查询)的Click事件代码*****
SELECT零件名颜色重量;
FROM零件供应;
WHERE 供应.零件号=零件.零件号AND工程号='Al';
DdTO TABLE jie
Thisform.Gridl.RecordSourceType=1
Thisform.Gridl.RecordSource="jie"
*********************************************************
以同样的方法为“退出”命令按钮编写Click事件代码:Thisform.Release。
保存表单完成设计查看表单运行结果如图3-136所示。

双击命令按钮“查询”,编写该控件的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的简单联接查询。