mainprg.prg

自己的系统

clea all
close all
public user,bz,rec,rec1
*bz='add'
*user="admin"
*_screen.hide
_screen.caption="教学用VFP小型超市管理系统"
set stat bar off
set talk off
set safe off
set delete on
_screen.maxbutton=.f.
_screen.minbutton=.f.
_screen.closable=.f.
_screen.windowstate=2
*_screen.visible=.f.
set sysm to
do form loginform.scx
*do main1.mpr
read events
*quit