main.bak

排课管理系统

public  capp_currentuser
public  capp_currentpsd
public  lapp_Logon
capp_currentuser=""
capp_currentpsd=""
lapp_Logon=.F.
do  form  forms\gongqingmin\登录.scx
read  events
if  lapp_Logon
    applicationg.visible
    application.caption="排课管理系统"
 SET  SYSMENU TO_MWINDOW
   do menu\gongqingmin\排课菜单.mpr
   read  events
   endif
 quit