main.prg

tsxs.app图书管理系统 tsxs.app图书管理系统 tsxs.app图书管理系统

*******main.prg********

*******进行程序初始化
set talk off
set dele on
set safe off
_screen.caption="图书销售管理系统1.0版"                   &&显示程序标题
_screen.windowstate=2                                 &&启动时窗口最大化

oldpath=sys(5)+sys(2003)       &&获取当前默认路径
newpath=sys(16)                &&获取程序全路径名
newpath=getpath(newpath)       &&得到程序所在的路径
set default to (newpath)        &&设置新的默认路径

open data data\tsxs
sele 0
use data\tblbookinfo
sele 0
use data\tblbooksale
sele 0
use data\tbluser
sele 0
use data\tblpublisher
set order to pubno
sele 0
use data\tblbooksort
set order to sortno
sele 0
use data\tmpsale
sele tblbookinfo
set relation to pubno into tblpublisher
set relation to sortno into tblbooksort addi

****启动主菜单，执行登录表单，进入事件循环
do mymenu.mpr
do form frmlogin
read event
close data

*****获取去掉文件名的路径*******
function getpath
para  mpath
rm=rat('\',mpath)
lm=at('\',mpath)
if(rm=lm)              &&“c:\”的情形
	result=substr(mpath,1,lm)
else
	result=substr(mpath,1,rm-1)
endif
return result
endfunc