main.prg

来自「人事管理系统VC++ 6.0开发。之中打印部分可能对您有值得参考的地方。其他的部」· PRG 代码 · 共 15 行

*****************************************************************
                    *应用系统主程序
                    *程序名： main.prg
******************************************************************
LOCAL lcSys16,icProgram
lcSys16=SYS(16)
icProgram=SUBSTR(lcSys16,AT(":",lcSys16)-1)
CD LEFT(icProgram,RAT("\",icProgram))
DO setting.prg
DO FORM form\begining
*_screen.left=-10000
*将"白框"移出屏幕
READ EVENTS
DO reset