vfp源码-学生管理系统

_screen.windowstate=2 _screen.closable=.f. _screen.caption="学生宿舍管理系统" set sysmenu off set talk off set dele on do form 登陆框 read events do main_menu.mpr read events set talk on set sysmenu on set dele off quit if select("xsxx")=0 use xsxx endif sele xsxx brow