createmedal.prg

来自「一个精彩的奥运会成绩统计系统」· PRG 代码 · 共 39 行

*本程序用来重新创建或刷新表medal.dbf和total.dbf的队名
close tables
use medal in a
use total in b
zap in a
zap in b
close tabl
use medal in a
use playteam in c
use total in d
create view team as select 队名 from playteam dist
use team in b
sele b
count to num
go top in b&&此处不可改为添加在上面，见程序总结。
do while num>0
	num=num-1
	sele a
	append blank
	replace 队名 with b.队名
	sele d
	append blank
	replace 队名 with b.队名
	skip  in b
enddo
drop view team
close tables
*以下产生金牌，银牌，铜牌数量，并填充进medal.dbf
use medal in a
use final in b
use playteam in c
sele a
go top 
do while .t.
create view v1 as sele *from playteam where 队名=a.队名
use v1 in d
create view find as sele *from final where