Question

急求VFP程序题目答案~

已知有数据表XX. DBF，数据表中有若干条记录。其参数：
XX（编号 C（4），部门 C（6），姓名 C（6），性别 C（2），工作时间 D，职称 C（6），在编否L，实发工资 N（7，2），简历 M ）
请写出完成下列操作的命令序列：（假定表XX.DBF已经打开）
1、显示表中女讲师的编号、部门、姓名、工作时间、职称、实发工资；
2、显示最后10条记录；
3、按“工作时间”降序对表XX. DBF建立结构复合索引文件(索引标识为GZ)；
4、给在编的男教师增加50元的实发工资；
5、快速查找所有职称为副教授的记录；
6、将XX.DBF复制一个副本，文件名为FB.DBF；
7、统计表中具有“工程师”和“讲师”职称的人数，并将结果存放到变量RS中；
8、按部门汇总各部门”实发工资”总额，并将结果存放到GZHZ.DBF表中；
9、显示第4条记录，不显示记录号；
10、显示第2—5条记录的前4个字段的内容；
11、将XX.DBF的结构复制到JG.DBF中去；
12、用SQL-SELECT语句查询在编人员的编号，姓名，实发工资。
13、由“XX.DBF”复制一个文本文件“BB.TXT”，采用SDF格式，并显示之。

Answer 1

1、Select 编号、部门、姓名、工作时间、职称、实发工资 From XX Where 性别 = '女'
2、
3、Index ON 工作时间 Tag Gz Desc
4、Update XX Set 实发工资 = 实发工资 + 50 Where 性别 = '男'
5、Select * From xx Where 职称 = '副教授'
6、Select * From xx Into Table FB
7、Count For 职称 = '工程师' OR 职称 = '讲师' To Rs
8、Select 部门,Sum(实发工资) AS 工资总额 From xx Group By 部门 Into Table GZHZ
9、Display Record 4 off
10、GOTO 2
Display Fields 编号,部门,姓名,性别 Next 4
11、COPY STRUCTURE EXTENDED TO JG
12、Select 编号，姓名，实发工资 FROM XX Where 在编否 = .T.
13、Copy ALL TO BB.TXT TYPE SDF

Answer 2

1. list 编号,部门,姓名,工作时间,职称,补发工资 for 性别=”女” and 职称=”讲师”
2. go bottom
Skip -9
List rest
3. index on 工作时间 tag gz desc
4. replace 实发工资 with实发工资+50 for 性别=”男” and 在编否=.t.
5. list for 职称=”副教授”
6. copy to FB
7. count to RS for 职称=”工程师” or 职称=”讲师”
8. index on 部门 to abc
Total on 部门 to GZHZ fields 实发工资
9. disp recno 4 off
10. go 2
List next 3编号,部门,姓名,性别
11.copy stru to JG
12. Select 编号,姓名,实发工资 FROM XX Where 在编否= .T.
13.copy to BB.txt sdf
Type BB.txt