main.prg

这是我给某个单位上编制的

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


 SET TALK OFF
 IF  .NOT. FILE('main.scx')
    CCURRENTPROCEDURE = SYS(16,1)
    NPATHSTART = AT(':',CCURRENTPROCEDURE) - 1
    NLENOFPATH = RAT('\',CCURRENTPROCEDURE) - (NPATHSTART)
    SET DEFAULT TO (SUBSTR(CCURRENTPROCEDURE,NPATHSTART,NLENOFPATH))
 ENDIF 
 COLDERROR = ON('ERROR')
 ON ERROR DO SolutionErrHandle
 DO FORM main
 READ EVENTS 
  ON ERROR &COLDERROR

PROCEDURE SolutionErrHandle
 LOCAL LNCHOICE
 DO CASE 
 CASE ERROR() = 3
    = MESSAGEBOX('Error: ' + MESSAGE() + CHR(13) +  ;
   'A form cannot simultaneously be open in design mode and running.',48)
 CASE ERROR() = 1718
    = MESSAGEBOX('Error: ' + MESSAGE() + CHR(13) +  ;
   'One of the necessary files is marked as read-only.' +  ;
   CHR(13) +  ;
   'Please make sure you have read and write access to the file.',48)
    RETRY  
 CASE ERROR() = 1881
    CLOSE DATABASES ALL
    DO FORM main
 OTHERWISE 
    LNCHOICE =  ;
         MESSAGEBOX('Error: ' + ALLTRIM(STR(ERROR())) + CHR(13) + MESSAGE(),49)
    IF LNCHOICE = 2
        ON ERROR &COLDERROR
       CLEAR EVENTS 
       CLOSE ALL
       RELEASE ALL
       CLEAR ALL
    ENDIF 
 ENDCASE 
ENDPROC
*------
PROCEDURE MAINHWND
&&----无事件！
ENDPROC
PROCEDURE _WHTOHWND
&&----无事件！
ENDPROC
PROCEDURE _WONTOP
&&----无事件！
ENDPROC
PROCEDURE GetFileVersion
&&----无事件！
ENDPROC