VFP主要语句

SP（货号 C(6)，品名C(8)，进口L，单价N(7, 2)，数量N(2)，开单日期 D，生产单位C(16)，备注 M，商标 G）

一、打开SP. DBF，根据下列要求写出相应的命令序列

USE  SP

1．显示第5个记录。

DISP  RECORD  5

2．显示第3个记录开始的5个记录。

GO  3

DISP  NEXT  5

3．显示第3个记录到第5个记录。

GO  3

DISP  NEXT  3

（或DISP ALL FOR RECNO()>=3 AND RECNO()<=5）

4．显示数量少于5的商品的货号、品名与生产单位。

DISP  ALL  FOR  数量<5 FIELDS 货号，品名，生产单位

5．显示进口商品或95年开单的商品信息。

DISP  ALL  FOR  进口  OR  YEAR（开单日期）=1995

6．显示上海商品信息。

DISP  ALL  FOR  LEFT（生产单位，4）=”上海”

（或DISP  ALL  FOR  生产单位=”上海”）

7．显示单价大于4000的进口商品信息或单价大于5000的国产商品信息。

DISP  ALL  FOR （单价>4000 AND 进口）OR （单价>5000 AND NOT 进口）  

8．列出95年开单的商品的货号、品名、单价与开单日期，其中单价按9折显示。

DISP  ALL  FOR  YEAR（开单日期）=1995  FIELDS  货号，品名，单价*0.9，开单日期

9．列出单价小于2000以及单价大于5000的进口商品信息。

DISP  ALL  FOR  （单价<2000 AND 进口）  OR （ 单价>5000 AND 进口）

10.显示从第3个记录开始的所有国产商品信息。

GO  3

DISP  REST  FOR  NOT  进口

（或DISP  ALL  FOR RECNO()>=3 AND NOT 进口）

11.列出货号的后3位为“120”的全部商品信息。

DISP  ALL  FOR  RIGHT（货号，3）=”120”

12.列出货号第1个字母为“L”或者第2个字母为“V”的全部商品信息。

DISP  ALL  FOR  SUBSTR（货号，1，1）=”L”  OR  SUBSTR（货号，2，1）=”V”

13.列出公司生产的单价大于3000的所有商品信息。

DISP  ALL  FOR  “公司”$生产单位  AND  单价>3000

二、对表SP. DBF按如下要求进行复制，写出相应命令序列

USE  SP

1．复制SP. DBF的结构，并将复制后的SP1. DBF表结构显示出来。

COPY  STRUCTURE  TO  SP1

LIST  STRUCTURE

2．复制一个仅有货号、品名、单价、数量、备注等5个字段的表结构SP2. DBF。

COPY  STRUCTURE  FIELDS  货号，品名，单价，数量，备注 TO  SP2

3．将SP. DBF复制为表SP3. DBF。

COPY  TO  SP3

4．将96年1月1日及以后开单的且单价不小于3000的进口商品复制为表SP4. DBF

COPY  TO  SP4  FOR  开单日期>={^1996/01/01} AND 单价>=3000 AND 进口

三、从SP. DBF复制SP3. DBF，对SP3. DBF按要求写出相应命令序列

COPY  TO  SP3

USE  SP3

1．分别列出SP3. DBF的结构与记录数据。

LIST  STRUCTURE

LIST  

2．将表SP3. DBF的数量字段用数量＊2进行替换。

REPLACE  ALL  数量  WITH  数量＊2

3．在第3个记录之后插入一个空白记录。

GO  3

INSERT  BLANK

4．在第3个记录和第7个记录上分别加上删除标记。

DELETE  ALL  FOR  RECNO()=3  OR  RECNO()=7

5．撤销第3条记录上的删除标记并将第7条记录从表中抹去。

RECALL  FOR  RECNO()=3

PACK

6．将SP. DBF表的全部记录追加到SP3. DBF中去，并查看经追加后的记录。

APPEND  FROM  SP 

LIST 

7．用SCATTER与GATHER命令分别对SP3. DBF表中的第3条记录做如下修改：将单价由3100. 00元改为3500. 00元，在备注字段中填入内容“新产品提价”。

GO  3

SCATTER  TO  a

a(4)=3500.00

a(7)=“新产品提价”

GATHER  FROM  a 

以四至七题使用的数据表SB.DBF的表结构为：

SB（编号 C(5)，名称C(8)，启用日期 D，价格 N(9, 2)，部门C(2)，主要设备 L，备注 M）

四、对SB. DBF分别排序

USE  SB

1．将价格超过10000元的设备按部门升序排序，并要求新文件只包含编号、名称、价格、部门等四个字段。

SORT  TO  SB1  ON  部门  FOR  价格>10000 FIELDS 编号，名称，价格，部门

2．将主要设备按名称降序排序，当名称相同时按启用日期降序排序。

SORT  TO  SB2  ON  名称/D，启用日期/D  FOR  主要设备

五、使用命令为SB. DBF建立一个结构复合索引文件，其中包括三个索引

1．记录以编号降序排列，并且索引标识为普通索引。

INDEX  ON  编号  TAG  BH  DESC

2．记录以名称降序排列，名称相同的按启用日期降序排列，并且索引标识为唯一索引。

INDEX  ON  名称＋DTOS（启用日期） TAG  MCRQ  DESC  UNIQUE

3．记录以部门降序排列，部门相同的按启用日期升序排列，并且索引标识为候选索引。

INDEX  ON  VAL（部门）-VAL（DTOS（启用日期））/1000000  TAG  BMRQ  DESC  CANDIDATE

（或INDEX  ON  VAL（部门）-（DATE()-启用日期）/10000  TAG  BMRQ  DESC  CANDIDATE）

五、分别用顺序查询和索引查询查询1992年启用的设备

顺序：LOCATE  ALL  FOR  YEAR（启用日期）＝1992

索引：INDEX  ON  YEAR（启用日期）  TAG  RQ

      SEEK  1992

七、根据SB. DBF按部门汇总价格

INDEX  ON  部门  TAG  BM

TOTAL  ON  部门  TO  SB2  FIELDS  价格

八题使用的数据表考生.DBF的表结构为：

考生（姓名 C(8)，语文 N(5, 1)， 数学N(5, 1)，外语N(5, 1)，总分N(5, 1)）

八、根据考生. DBF表的数据做如下计算：

1．根据语文、数学、外语的成绩将每个考生的总分字段填入数据。

REPLACE  ALL  总分  WITH  语文＋数学＋外语

3．分别计算出语文、数学、外语的学科平均成绩存入变量X、Y、Z中。

AVERAGE  语文，数学，外语  TO  X，Y，Z

                  -------------------------OVER--------------------------