main.prg

来自「这是自己为了学习vfp所开发的学生管理系统 !希望大家指正!以求共勉」· PRG 代码 · 共 14 行

clear screen
=setpath()
on shutdown clear events
do form 系统封面
read events
on shutdown clear events
function setpath()
local lcsys16,lcprogram
lcsys16=sys(16)
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))
set path to 学生档案
endfunc