VFP习题答案(第二版)

《Visual Foxpro 程序设计与应用教程（第二版）》

部分习题参考答案

（蒋望东整理，如您发现有遗漏及错误，或您有补充，请告知****************，谢谢！）

第2章

第53页5题答案

(1) x-int(x)

(2) y%4= 0 and y%100!=0 or y%400= 0

或 mod(y,4)=0 and mod(y,100)!=0 or mod(y,400)=0

(3) x%3=2 and x%5=3

(4) sin(pi()/6)+sqrt((x+y)/(x-y))

(5) date() – {^1997-06-30}

第53页6题答案

（1） mod(员工编号，2)=1 and 婚否=.F.

（2） left(联系电话，4)=’0731’ and 性别=’男’

（3） year(date()) – year(工作日期)>15 or 工资级别>10

（4） left(姓名，2)=”张” and 部门名称=’人事处’

（5） between(工作日期 ,{^2005-10-01},{^2008-01-01} ) and工资级别<3

或

工作日期>{^2005-10-01} and工作日期<{^2008-01-01} and工资级别<3

第3章

第85页第2题

1、go 2

list next 3

2、list for 性别=’男’

3、list for性别=’女’ and 部门=”技术”

4、list for 出生日期< {^1975-01-01}

或

list for year(出生日期)< 1975

5、list all fields 编号,部门,姓名,职称

6、go 3

list rest for 性别=”女”

7、list for right(编号，1)=”8” and 婚否=.T.

8、list for substr(编号,2,1)=”3”

9、browse fields 姓名,部门,出生日期,职称 for 性别=”男”

10、（见P72 例3.22）

browse fields编号,姓名,性别,职称partition 30 redit

第85页第3题

1、copy to zgqk1

2、use zgqk

copy structure to zgqk2

use zgqk2

list structure

3、Use zgqk

copy to zgqk3 for year(出生日期)<1975

4. use zgqk

copy to zgqk4 fields 姓名,部门,出生日期,简历5. use zgqk

copy to zgqk.txt sdf

use zgqk2

append from zgqk.txt sdf

第85页第4题

1、go 2

append blank

replace 编号 with “05060”……..

2、delete record 2

delete record 5

或 go 2

delete

go 5

delete

或 delete for recno()=2 or recno()=5

3、go 2

recall

pack

或 recall record 2

pack

或 recall for recno()=2

pack

4、use zgqk1

dimention aa(10)

scatter to aa memo

aa(5)={^1985-07-01}

aa(9)=”该职工评为先进个人”

gather from aa memo

5、use zgqk1

zap

append from zgqk

第85页第5题

使用SQL语句修改：（参考教材P126）

⑴ alter table BF2 alter column 部门 char(8)

⑵ alter table BF2 rename column编号 to 职工编号

alter table BF2 alter column 职工编号 char(6) ⑶ alter table BF2 add column 职务 char(8)

select 职工编号,部门,姓名,性别,出生日期,婚否,职务,工作日期,职称,简历,照片 from BF2into table BF_temp delete file BF2.dbf

rename BF_temp.dbf TO BF2.dbf

⑷ alter table BF2 drop column 职称

或者使用Visual Foxpro表扩展结构修改语句修改：

先将表文件 BF2.dbf 的扩展结构拷贝为BF2_struc.dbf

use BF2.dbf

COPY STRUCTURE EXTENDED TO BF2_struc.dbf

BF2_struc.dbf 的结构如下：

BF2_struc.dbf 的内容如下所示：(此处以员工表.dbf 的为例)

⑴ use BF2_struc.dbf

replace field_len with 8 for field_name =”部门”

CREATE BF_temp FROM BF2_struc

use BF_temp.dbf

Append from BF2.dbf

DELETE FILE BF2.dbf

rename BF_temp.dbf TO BF2.dbf

close all

⑵ use BF2_struc.dbf

replace field_name with ”职工编号” for field_name =”编号”

replace field_len with 6 for field_name =”职工编号”

CREATE BF_temp FROM BF2_struc

use BF_temp.dbf