*****************************************************************
*应用系统主程序
*程序名： main.prg
******************************************************************
LOCAL lcSys16,icProgram
lcSys16=SYS(16)
icProgram=SUBSTR(lcSys16,AT(":",lcSys16)-1)
CD LEFT(icProgram,RAT("\",icProgram))
*SET CLASSLIB TO 自建类库
*DEZCTIVATE WINDOW "PROJECT MANAGER"
DO renshi\setting.prg
*open database personal_management.dbc
DO FORM form\beginning
_screen.left=-10000
*将"白框"移出屏幕
READ EVENTS
DO renshi\reset
