main.prg

来自「一个用VFP编写的图书管理软件」· PRG 代码 · 共 16 行

SET TALK off
SET MESSAGE ON
SET EXCL on
set  CENT ON
set safety off
set dele on
RELEASE WINDOW 常用
deactivate window "项目管理器"
ZOOM WINDOW SCREEN MAX 
MODIFY WINDOW SCREEN TITLE " 图书管理系统v1.0 "
mypath=lower(allt(left(sys(16),rat("\",sys(16)))))
set defa to (mypath)
set path to forms,datas
OPEN DATABASE tsgl
do main.mpr
read even