VFP主要语句

以一至三题使用的数据表SP.DBF的表结构为：
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 V AL（部门）-V AL（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中。

A VERAGE 语文，数学，外语TO X，Y，Z
-------------------------OVER--------------------------。