Question

VF的编程 在一张学生档案xsda其中包括成绩，字段，编写程序统计并输出cj大于500分的学生人数

请不要乱答

Answer 1

1. 在已打开的表中有“姓名”字段，此外又定义了一个内存变量“姓名”。要把内存

变量“姓名”的值赋给当前记录的“姓名”字段，应使用什么命令？

姓名=m.姓名

2. 设txl.dbf有10条记录，在命令窗口执行下列命令后，表的当前记录是什么？

USE txl

　　　　　GO 5

　　　　　LIST NEXT 3

　　　　　SKIP –2

第6条记录。

3. 在不同工作区之间切换用什么命令？如何访问别的工作区中的表？

可以用 SELECT 〈工作区号〉｜〈别名〉｜0 命令来在不同的工作区之间切换。

在当前工作区中可以访问其他工作区中的表的数据，但要在非当前表的字段名前加上别

名和连接符，引用格式为：别名.字段名或别名->字段名

4. 什么叫关联？如何建立关联？

所谓关联，就是当前表记录指针的移动，能引起别的表按某种条件相应地移动记录指针。建立关联后，称当前表为主文件，与主文件建立关联的表为子文件。

建立一对一的关联可以用命令：SET RELATION TO ［〈关联表达式1〉］ INTO 〈工作区号1〉｜〈别名1〉

建立一对多的关联可以用命令：SET SKIP TO ［〈别名1〉［，〈别名2〉…］

5. 就学生表，写出实现下列操作的命令：

(1) 显示第5号记录；

go 5

display

(2) 显示第5号至第10号之间的全部记录；

go 5

list next 6

(3) 连续列出1980年以后出生的学生的姓名与出生年月；

list for year(出生日期)>=1980 fields 姓名,出生年月

(4) 显示在1985年1月1日至1983年12月31日之间出生的学生记录；

list for 出生年月>={12/31/1983} and 出生年月<={01/01/1985}

(5) 在表的顶部增加一个新记录；

go top

insert before

(6) 修改最后一个记录；

go bottom

edit

(7) 将16岁以下的少数民族学生入学成绩提高20分；

replace 入学成绩 with 入学成绩+20 for year(date())-year(出生年月)<=16 and 少数民族=.t.

(8) 将学生表原样复制为xsda.dbf，并物理删除xsda.dbf中记录号为偶数的记录；

copy to xsda.dbf

delete for int(recn()/2)=recn()/2

(9) 显示入学成绩前5名的记录；

index on 入学成绩

list next 5

(10)统计1985年出生学生的人数，并把它存入变量number中；

count for year(出生年月)=1985 to number

(11)分别求男、女学生的平均年龄；

average for 性别=’男’

average for 性别=’女’

(12)查找并显示出第一位少数民族学生；

locate for 少数民族=.t.

display

(13) 建立一个结构复合索引文件，其中包括两个索引：记录以学号降序排列；记录

按出生年月升序排列；

index on 学号 tag a desc

index on 出生年月 tag b

(14) 查询年龄最小和最大的学生；

calculate min(出生年月) to a

display for 出生年月=a

calculate max(出生年月)=b

display for 出生年月=b

(15) 按性别对入学成绩进行汇总。

index on 性别 tag c

total on 性别 fields 入学成绩 to xbhz

6. 按图1.5建立选课表，然后通过“学号”索引建立学生表与选课表之间的关联，分

别在一对一和一对多关联下显示学号、姓名、课程号和成绩，分析输出结果的差异。

你看看，要编太麻烦了。你就按他，应该很简单。

Answer 2

use xsda
count to rs for cj>500
?'数据表xsda中成绩大于500分的人数为：',rs

Answer 3

sele * from xsda where cj>500 into curs tab1
x=_total
brow
wait wind '成绩在500分以上的共计'+allt(str(x))+'人'