main.prg

课程设计.rar

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 tushu
do form hy
read even