?? main.prg
字號(hào):
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* 文件名: 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
*------*
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -