main.bak

这是自己为了学习vfp所开发的学生管理系统 !希望大家指正!以求共勉

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