计算机等级考试二级VFP上机试题及解题思路(10)

　　三、综合应用(1小题，计30分)

　　在考生文件夹下有股票管理数据库stock_4，数据库中有stock_mm表和stock_cc表，stock_mm的表结构是股票代码C(6)、买卖标记L(.T.表示买进，.F.表示卖出)，单价N(7.2)、本次数量N(6)。stock_cc的表结构是股票代码C(6)，持仓数量N(8)。 stock_mm表中一只股票对应多个记录，stock_cc表中一只股票对应一个记录(stock_cc表开始时记录个数为0)。

　　请编写并运行符合下列要求的程序：

　　设计一个名为menu_lin的菜单，菜单中有两个菜单项"计算"和"退出"。

　　程序运行时，单击"计算"菜单项应完成下列操作：

　　(1)根据stock_mm统计每只股票的持仓数量，并将结果存放到stock_cc表。计算方法：买卖标记为.T.(表示买进)，将本次数量加到相应股票的持仓数量;买卖标记为.F.(表示卖出)，将本次数量从相应股票的持仓数量中减去。

　　(注意：stock_cc表中的记录按股票代码从小到大顺序存放)。

　　(2)将stock_cc表中持仓数量最少的股票信息存储到自由表stock_x中(与

　　stock_cc表结构相同)。

　　单击"退出"菜单项，程序终止运行。

　　本题主要考核点：

　　菜单的建立、结构化查询语言(SQL)中的联接查询、查询的排序、临时表的概念、查询结果的去向等知识点。

　　本题解题思路:

　　第一步：利用菜单设计器定义两个菜单项，在菜单名称为"计算"的菜单项的结果列中选择"过程"，并通过单击"编辑"按钮打开一个窗口来添加"计算"菜单项要执行的命令。在菜单名称为"退出"的菜单项的结果列中选择"命令"，并在后面的"选项"列中输入以下退出菜单的命令：SET SYSMENU TO DEFAULT

　　第二步：在单击"计算"菜单项后面的"编辑"按钮所打开的窗口中添加如下的过程代码：

　　SET TALK OFF &&在程序中常常要关闭命令结果的显示

　　OPEN DATABASE STOCK_4 &&打开数据库文件STOCK_4

　　SELECT 股票代码,SUM(本次数量) AS 持仓数量 FROM STOCK_MM;

　　WHERE 买卖标记 GROUP BY 股票代码;

　　INTO CURSOR CurTable1

　　&&

　　SELECT 股票代码,SUM(本次数量) AS 持仓数量 FROM STOCK_MM;

　　WHERE NOT 买卖标记 GROUP BY 股票代码;

　　INTO CURSOR CurTable2

　　SELECT CurTable1.股票代码,(CurTable1.持仓数量-CurTable2.持仓数量) AS 持仓数量;

　　FROM CurTable1,CurTable2 ;

　　WHERE CurTable1.股票代码=CurTable2.股票代码;

　　ORDER BY CurTable1.股票代码;

　　INTO ARRAY AfieldsValue

　　&&由于每种股票的买进的数量的和与卖出的数量的和在两个不同的临时表CurTable1和

　　&&CurTable2中。因此要想得到两者之间的差，需要进行联接查询，可以通过"股票代码"来

　　&&做为联接的条件，置于WHERE的后面;可以用ORDER BY 子句来确定查询的排序依据，

　　&&这里以股票代码的升序进行排序：ORDER BY 股票代码;可以利用INTO ARRAY 数组名子句

　　&&将SELECT语句的查询结果放在一个数组中，以备后面的程序利用

　　DELETE FROM STOCK_CC

　　&&删除STOCK_CC表中以前的记录

　　&&DELETE SQL语句可以将满足指定条件的记录加上删除标记

　　&&DELETE FROM [DatabaseName!]TableName

　　&&[WHERE FilterCondition1 [AND | OR FilterCondition2 ...]]

　　INSERT INTO STOCK_CC FROM ARRAY AfieldsValue

　　&&将所得到每支股票的代码和持仓数量的数组插入到表STOCK_CC中

　　&&INSERT SQL语句可以向指定的表追加一条新的记录

　　&&INSERT 可以直接将一个数组中的值做为记录值追加到表中，

　　&&利用FROM ARRAY 数组变量名来实现

　　CLOSE ALL

　　USE STOCK_CC

　　PACK

　　&&物理删除加上删除标记的记录

　　USE

　　SELECT * TOP 1 FROM STOCK_CC ORDER BY 持仓数量 INTO TABLE STOCK_X

　　&&SELECT语句中可以通过TOP来限制返回结果集中行数 TOP n[PERCENT] n指定返回的行数。&&如果未指定 PERCENT，n 就是返回的行数。如果指定了 PERCENT，n 就是返回的结果集行的&&百分比;INTO TABLE 表名 可以将结果集生成一个表

　　SET TALK ON

　　第三步：保存所编辑的菜单为menu_lin.mnx，并生成菜单menu_lin.mpr,运行。