* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MAIN.PRG(主文件) <-- 本文件由 UnFoxAll 創(chuàng)建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET ESCAPE ON
 SET SYSMENU TO
 SET TALK OFF
 SET ECHO OFF
 SET STEP OFF
 SET SAFETY OFF
 SET EXCLUSIVE OFF
 SET DATE TO ANSI
 SET CENTURY ON
 SET HOURS TO 24
 SET MULTILOCKS ON
 SET DELETED ON
 LCTEMP = SYS(2023)
 LNTEMP = LEN(LCTEMP)
 LCDEFA = SET('DEFAULT')
 LCDEFAULTNOW = JUSTPATH(SYS(16))
 IF RIGHT(LCDEFAULTNOW,1) <> '\'
    LCDEFAULTNOW = LCDEFAULTNOW + '\'
 ENDIF 
 LLCALLAPP = IIF(TYPE('LCCALLAPP') = 'C',LCCALLAPP == 'CALLAPP',.F.)
 IF  .NOT. LLCALLAPP
    ON SHUTDOWN DO ONSHUTD
    ON ESCAPE DO ONESCAPE
    ON ERROR DO ONERROR WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO(1)
    ON READERROR DO ONERROR WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO(1)
    ON KEY LABEL F12 DO ONESCAPEF12
    _SCREEN.WINDOWSTATE = 2
    _SCREEN.CAPTION = '查找數(shù)據(jù)'
    _SCREEN.ICON = 'SEARCH.ICO'
 ENDIF 
 CLOSE DATABASES ALL
 CLOSE TABLE ALL
 PUBLIC USERNAME , SHORTNAME , FULLNAME , ADDR
 SELECT 0
  USEDBFCOMPANY()
 M.SHORTNAME = COMPANY.NAME
 M.FULLNAME = COMPANY.FULLNAME
 M.ADDR = COMPANY.ADDR
 USE 
 USERNAME = ''
 DO FORM MAINFORM NAME FORMMAINFORM LINKED 
 SET SYSMENU TO DEFAULT
 CLOSE DATABASES ALL
 CLOSE TABLE ALL
 IF LLCALLAPP
    RETURN 
 ELSE 
    ON SHUTDOWN 
    QUIT 
 ENDIF 

PROCEDURE ONERROR
 PARAMETER MERROR , MESS , MESS1 , MPROG , MLINENO
 DO CASE 
 CASE MERROR = 0
    WAIT WINDOW TIMEOUT 6  ;
         '錯(cuò) 誤 號(hào)：' + ALLTRIM(STR(MERROR)) + '  出錯(cuò)信息：' + MESS +  ;
   '  數(shù)據(jù)超出指定范圍，需要重新輸入。'
    RETURN 
 CASE MERROR = 1707
    WAIT WINDOW TIMEOUT 6  ;
         '錯(cuò) 誤 號(hào)：' + ALLTRIM(STR(MERROR)) + '  出錯(cuò)信息：' + MESS + '  忽略索引。'
    RETRY  
 ENDCASE 
 ERRMSG =  ;
      MESSAGEBOX('錯(cuò) 誤 號(hào)：' + LTRIM(STR(MERROR)) + CHR(13) + '出錯(cuò)信息：' + MESS + CHR(13) +  ;
'出錯(cuò)代碼：' +  ;
MESS1 +  ;
CHR(13) +  ;
'出錯(cuò)程序：' +  ;
MPROG +  ;
CHR(13) +  ;
'出錯(cuò)行號(hào)：' +  ;
LTRIM(STR(MLINENO)) +  ;
CHR(13) +  ;
'是否要終止？' +  ;
CHR(13) +  ;
'(建議終止本程序并與程序設(shè)計(jì)或數(shù)據(jù)管理人員聯(lián)系)    ',50,'出錯(cuò)信息')
 DO CASE 
 CASE ERRMSG = 4
    SET DEBUG ON
    SET ECHO ON
    RETRY  
 CASE ERRMSG = 5
    SET DEBUG ON
    SET ECHO ON
    RETURN 
 CASE ERRMSG = 3
    DO ONSHUTD
 ENDCASE 
 RETURN 
ENDPROC
*------
PROCEDURE ONSHUTD
 IF MESSAGEBOX('是否要退出本系統(tǒng)?    ',33,'退出') = 1
    CLEAR WINDOW
    CLOSE ALTERNATE 
    CLOSE DATABASES ALL
    CLOSE FORM
    CLOSE INDEXES 
    CLOSE TABLE ALL
    CLEAR READ ALL
    CLEAR EVENTS 
    SET SYSMENU TO DEFAULT
    ON SHUTDOWN 
    QUIT 
 ENDIF 
ENDPROC
*------
PROCEDURE ONESCAPE
 = MESSAGEBOX('ESCAPE鍵中止！    ',52,'中止')
 DO ONSHUTD
 RETURN 
ENDPROC
*------
PROCEDURE ONESCAPEF12
 = MESSAGEBOX('F12 鍵中止！    ',52,'中止')
 DO ONSHUTD
 RETURN 
ENDPROC
*------*