钓鱼比赛成绩统计.docVIP

Main.Prg _screen.borderstyle=0 _screen.windowstate=2 _screen.Closable=.T. _screen.ControlBox=.F. _screen.MinButton=.F. _screen.MaxButton=.F. _screen.Visible = .t. close all set talk off set delete off set exact off set confirm off set safety off set sysmenu on set sysmenu to set status bar off set century on set date to ymd set mark to - lcPath=LEFT(SYS(16,0),RAT( \ ,SYS(16,0))) SET DEFAULT TO (lcPath) SET PATH TO PROGS,FORMS,DATAS dimension M_Fz[100] dimension M_Team[4,14] TotalState=1 Restore from Mem\MatchItemName addi if Used(Player) select Player else select 1 use Dat