main.prg

来自「是人事管理系统,有执行文件的」· PRG 代码 · 共 19 行

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