main.prg

企业人事管理系统[源码],比较完整

*****************************************************************
                    *应用系统主程序
                    *程序名： 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