*本程序用來重新創建或刷新表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