题目及解析

一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）

在考生文件夹下完成如下操作:

1. 新建一个名为"供应"的项目文件。

2. 将数据库"供应零件"加入到新建的"供应"项目文件中。

3. 通过"零件号"字段为"零件"表和"供应"表建立永久联系("零件"是父表,"供应"是子表)。

4. 为"供应"表的数量字段设置有效性规则: 数量必须大于0并且小于9999；错误提示信息是"数量超范围"。(注意：公式必须为数量>0.and.数量<9999)

考查知识点：

项目文件的建立，添加。数据库表的永久关系的建立，有效性规则的设立。

解题思路：

1.选择"文件"菜单中的"新建"，在类型选择框中选择"项目"，单击新建文件按钮，输入项目名："供应"。

2.在项目管理器中选择"数据"节点下的"数据库"，单击"添加"按钮并选择"供应零件"数据库

3.首先要为两个表建立索引，并且父表必须为主索引或候选索引。具体方法是：在项目管理器中选择"供应零件"数据库，单击"修改"按钮，打开数据库设计器，在数据库设计器中选中"零件"表，单击数据库菜单中的修改，在表设计器中的索引选项卡中建立索引，索引名为"零件号"，索引表达式为"零件号"，索引类型为主索引，保存修改。用同样的方法为"供应"表建立索引，索引名为"零件号"，索引表达式为"零件号"，索引类型为"普通索引"。建立永久联系的方法是：在数据库设计器中单击"零件"表中的索引"零件号"，按住鼠标左键拖动到"供应"表中的相应索引上即可。

4.打开"供应"表的表设计器，先在列表框中选中"数量"字段，然后在字段有效性规则区域中的规则文本框中输入：数量>0.and.数量<9999（也可以用表达式构造器生成），在信息文本框中输入："数量超范围"（双引号不可少）

二、简单应用（2小题，每题20分，计40分）

在考生文件夹下完成如下简单应用:

1. 用SQL语句完成下列操作：列出所有与"红"颜色零件相关的信息(供应商

号，工程号和数量)，并将检索结果按数量降序排序存放于表sup_temp中。

2. 建立一个名为m_quick的快捷菜单，菜单中有两个菜单项"查询"和

"修改"。然后在表单myform中的RightClick事件中调用快捷菜单m_quick。

考查知识点：

SQL查询语句，查询去向，子查询等。快捷菜单的建立，在表单中调用快捷菜单。

解题思路：

1.在"零件"表中得到所有颜色为"红"的零件号，然后在"供应"表中获得与此零件号相关的零件信息

select 供应商号,工程号,数量from 供应;

where 零件号iN (select 零件号from 零件where 颜色="红");

into table sup_temp order by 数量desc

2.首先建立菜单，并生成相应的mpr文件，然后在表单中调用。具体方法是：在"文件"菜单中选择"新建"，在"新建"对话框中选择"菜单"，单击"新建文件"按钮，选择"快捷菜单"，在菜单设计器中输入两个菜单项"查询"和"修改"，单击"菜单"菜单中的"生成"，按提示保存为m_quick，并生成菜单程序文件（MPR）。打开表单myform，双击表单设计器打开代码窗口，在对象中选择form1，在过程中选择RightClick，输入代码：do m_quick.mpr，保存

表单。

三、综合应用（1小题，计30分）

设计名为mysupply的表单（表单的控件名和文件名均为mysupply）。表单的形式如下图

表单标题为"零件供应情况"，表格控件为Grid1，命令按钮"查询"为Command1、"退出"为Command2，标签控件label1和文本框控件text1（程序运行时用于输入工程号）。

运行表单时，在文本框中输入工程号，单击"查询"命令按钮后，表格控件（名称grid1）中显示相应工程所使用的零件的零件名、颜色和重量（通过设置有关"数据"属性实现），并将结果按"零件名"升序排序存储到pp.dbf文件。

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

完成表单设计后运行表单，并查询工程号为"J4"的相应信息。

考查知识点：

表单的建立，控件的使用，SQL查询命令等。

解题思路：

1.选择"文件"菜单中"新建"命令，在文件类型选择框中选择"表单"，单击"新建文件"按钮。

2.在表单设计器中设置表单的Name属性为"mysupply"，Caption属性为"零件供应情况"，从控件工具栏中分别选择一个表格、一个标签、一个文本框和两个命令按钮放置到表单上，分别设置标签label1的Caption 属性为"工程号"，命令按钮Command1的Caption属性为"查询"，Command2的Caption属性为"退出"，表格的Name属性为"grid1"，RecordSourceType属性为"0－表"。

3.在Command1按钮的Click事件中输入：

select 零件名,颜色,重量 from 零件 inner join 供应;

on 零件.零件号=供应.零件号 where 工程号=alltrim(thisform.text1.value);

order by 零件.零件名 into table pp.dbf

thisform.grid1.recordsource="pp"

4.在Command2按钮的Click事件中输入：Thisform.release。

5.保存表单并运行，在文本框中输入J4，并单击"查询"命令按钮。