main.prg

非常不错的仓库管理源代码

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MAIN.PRG(主文件) <-- 本文件由 郭宝林 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 CLEAR ALL
 CLOSE DATABASES 
 CLOSE INDEXES 
 DELETE File data\*.idx
 CLEAR 
 LCSYS16 = SYS(16)
 LCPROGRAM = SUBSTR(LCSYS16,AT(':',LCSYS16) - 1)
 CD LEFT(LCPROGRAM,RAT('\',LCPROGRAM))
 SET PATH TO PRG, FORM, bmp,report ,menu,libary
 SET CLASSLIB TO whjxc
 SET PROCEDURE TO utilite.prg
 ON SHUTDOWN do _shutdown
 SET CENTURY ON
 SET RESOURCE OFF
 SET TALK OFF
 SET SAFETY OFF
 SET ESCAPE OFF
 SET NEAR ON
 SET DECIMALS TO 2
 SET DATE TO ymd
 SET MARK TO '.'
 SET DELETED ON
 SET MULTILOCKS ON
 SET REPROCESS TO 5 SECONDS 
 SET EXCLUSIVE OFF
 DECLARE INTEGER CreateDirectory IN win32api AS mkpath STRING , STRING 
 PUBLIC MAIN , M.MYCOMP , M.MYFONT , M.LEN1 , M.LEN2 , M.WID1 , M.WID2 , M.MO_A9 ,  ;
      M.BWBDM , M.REGSITER , M_LOGIN
 PUBLIC M.SCREENWIDTH , M.SCREENHEIGHT , CHANGEHEIGHT , CHANGEWIDTH
 PUBLIC JUDGE_M0 , JUDGE_M1 , TITLET0 , TITLER0 , TITLES0 , TITLEW0 , TITLEV0 , TITLEH0 ,  ;
      TITLED0
 PUBLIC PUB000 , PUB001 , PUB002 , PUB003 , PUB0041 , PUB004 , PUB005 , ERRORNUM
 DIMENSION MO_A9( 1 , 1 )
 M.REGSITER = .F.
 JUDGE_M0 = .F.
 M.MYCOMP = ''
 CHANGEHEIGHT = 1
 CHANGEWIDTH = 1
 IF SYSMETRIC(1) > 640
    CHANGEHEIGHT = SYSMETRIC(2) / 480
    CHANGEWIDTH = SYSMETRIC(1) / 640
 ENDIF 
 ON KEY LABEL rightmouse keyb '{ESC}'
 ON KEY LABEL ALT+F ACTIVATE MENU whmenu PAD 文件F
 RESTORE FROM TITLE ADDITIVE
 TITLEH0 = '000'
 DO FORM logo WITH .T.
 PUB001 = ' '
 IF TITLET0 = 1
    PUB005 = SYS(5) + SYS(2003)
    PUB005 = IIF(RIGHT(PUB005,1) = '\',PUB005 + 'DBF00\',PUB005 + '\DBF00\')
 ELSE 
    PUB005 = ALLTRIM(UPPER(TITLER0))
    PUB005 = IIF(RIGHT(PUB005,1) = '\',PUB005,PUB005 + '\')
 ENDIF 
 PUBLIC RIGHT002 , RIGHT003 , RIGHT004 , RIGHT005 , RIGHT006 , RIGHT008 , RIGHT009
 PUBLIC ARR_P01( 10 )
 ARR_P01( 1 ) = '零'
 ARR_P01( 2 ) = '壹'
 ARR_P01( 3 ) = '贰'
 ARR_P01( 4 ) = '叁'
 ARR_P01( 5 ) = '肆'
 ARR_P01( 6 ) = '伍'
 ARR_P01( 7 ) = '陆'
 ARR_P01( 8 ) = '柒'
 ARR_P01( 9 ) = '捌'
 ARR_P01( 10 ) = '玖'
* SET HELP TO whqgzj.hlp
 SET TOPIC TO 
 IF TITLET0 = 5 .OR. TITLET0 = 6
    DO FORM mainCk
 ELSE 
    DO FORM main
 ENDIF 
 READ EVENTS 
*