计算机等级考试：二级VFP机试第41套

四十一套

一、基本操作题(共4个小题，1、2题7分，3、4题8分)

在考生目录中完成以下操作:

1。从数据库stock中删除stock_fk表(不是删除)。

2。将空闲表stock_name添加到数据库中。

3。为表stock_sl建立一个主索引，索引名和索引表达式为“股票代码”。

4。为stock_name表的股票代码字段设置有效性规则。这些“规则”是:

left(股票代码，1)=“6”，错误信息为“股票代码第一位必须是6”。

本问题主要评估点:

数据库表的逻辑删除、向数据库添加自由表、设计数据库表中字段的有效性、建立表索引等知识点。

解决这个问题的思路:

问题1:打开考生文件夹下的“股票”数据库，在“股票”数据库设计器中选择“股票_fk”表，在主菜单中点击“数据库”下的“删除”，在弹出的对话框中点击“删除(R)”按钮，然后点击“是(Y)”

问题2:打开数据库菜单，选择“添加表(A)”。在弹出的“打开”对话框中，选择考生文件夹下的Stock_name表，然后点击“确定”将stock_name表添加到“股票”数据库中。

问题3:在数据库设计器中选择stock_sl表，在主菜单中选择“修改(Y)”，弹出表设计器，选择表设计器的“指数”页签，在指数列中填写“股票代码”，在指数类型列中选择“一级指数”，在指数表达式列中填写“股票代码”，点击“确定”

问题4:在“股票_名称”的表格设计器中，选择“股票代码”字段，在“字段有效性”的“规则”文本框中输入:left(股票代码，1)=“6”，在“信息”文本框中输入“股票代码的第一位必须是6”(双引号不是

二。简单应用(2道小题，每题20分，40分)

在考生目录中完成以下简单申请:

1。用SQL语句完成以下操作:列出所有盈利的股票(现价大于买入价)。

称重、现价、进价、持有量，将搜索结果按持有量降序存储在表中。

in stock _ temp。

2。使用一对多报表向导创建报表。要求:父表是stock_name，子表是

stock_sl，从父表中选择字段:“股票简称”；从子表中选择所有字段；二

表格通过“股票代码”链接；按股票代码升序排序；报告的标题是:“股票持有情况

有情况”；生成的报告文件名为stock_report。

本问题主要评估点:

SQL查询语句的使用、查询目的地、报表向导的使用等知识点。

解决这个问题的思路:

问题1:此题主要考核点是SQL查询语句的使用和查询目的地。

选择股票名称。股票简称，Stock_sl。当前价格，Stock_sl。买价，；

Stock_sl。持有的数量；

现货！stock_name内联接股票！stock _ sl

ON Stock_name。股票代码= Stock_sl。股票代码；

其中Stock_sl。现价> Stock_sl。买价；

按库存排序_sl。持有量desc；

到表stock_temp.dbf中

问题2:此题主要考核点是使用报表向导制作报表。

要启动报表向导，您可以从“文件”菜单中选择“新建”,或者单击工具栏上的“新建”按钮打开“新建”对话框。选择报告作为文件类型，然后单击向导按钮。或者从“工具”菜单中选择“向导”，选择“报表”，或者直接单击工具栏上的“报表向导”图标按钮，然后按照向导的指示进行操作。
三。综合应用(1题，30分)

设计一个名为mystock的表单(控件名和文件名都是mystock)。表格的标题是:

“股票持有”。表单中有两个文本框(文本1和文本2)和两个命令按钮“查询”。

(名为Command1)和“退出”(名为Command2)。

运行表单时，在text1中输入一支股票的汉语拼音，然后点击“查询”。

持有的股份数量将显示在文本2中。

单击“退出”按钮关闭表单。

本问题主要评估点:

表单创建、控件属性修改、表单退出、SQL查询等知识点。

解决这个问题的思路:

第一步:在Visual FoxPro主窗口中按Ctrl+N，弹出“新建”对话框。在文件类型中选择“表单”，点击“新建文件”按钮打开表单设计器。或者直接在命令窗口输入crea form mystock。

第二步:单击工具栏按钮“窗体控件工具栏”，在弹出的“窗体控件”对话框中选择“命令按钮”控件，在窗体设计器中拖动鼠标，在窗体上得到一个“命令按钮”控件command1。使用类似的方法添加一个“命令按钮”控件command2、两个“文本框”控件text1和Text

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

对象属性的属性值

Form1 Name mystock

标题股票持有量

命令1标题查询

Command2标题退出。

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

SELECT Stock_sl。持有数量；

现货！stock_name内联接股票！stock _ sl

ON Stock_name。股票代码= Stock_sl。股票代码；

其中股票名称。汉语拼音= all trim(this form . text 1 . value)；

进入数组TEMP

此表单。TEXT2.VALUE=TEMP

***命令按钮command2的Click事件代码如下***

thisform.release