main.prg

一个用于中专录取用的小程序

_screen.caption="邓州市招生考试办公室——中招信息处理系统"
******
public syspath
syspath=LEFT(SYS(16),RAT("\",SYS(16)))
use syspath+'data\fszy' in 1 alia zy
use syspath+'lqk\lqk' in 2 alia lq
*****

SET DEFAULT TO &syspath
_screen.autocenter=.t.
_screen.icon=syspath+"tb.ico"
set status bar off
set talk off
******
do zkcd.mpr
on shutdown quit
read events