main.prg

人事管理系统VC++ 6.0开发。之中打印部分可能对您有值得参考的地方。其他的部分还不是很完善

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