VFP 愛用者社區

[Ruey]

錯誤處理代碼

本錯誤程式可將程式發生的錯誤資訊保存到一個表以便程式師對程式進行修改。
在主程序中寫入以下代碼
set default to sys(5)+sys(2003) &&設置軟體所在的目錄
Default_Path=sys(5)+sys(2003)
*---------------------初始化系統變數------------------------
ERR_FILE =Default_Path+"\data\ERR_DBF.DBF" &&程式出錯庫 9
ON ERROR DO ERR_PRG WITH PROGRAM(),LINENO(),ERROR(),MESSAGE(),MESSAGE(1) &&定義錯誤處理程式
SET PROCEDURE TO tools ADDITIVE


過程檔：
檔案名：tools .prg
*-----------------錯誤處理代碼段-----------------
PROCEDURE ERR_PRG
PARAMETERS M_PROGRAM,M_LINEO,M_ERROR,M_MESSAGE,M_1
WORK_=SELE()
SELE 19
IF NOT(FILE(ERR_FILE))
CREATE TABLE(ERR_FILE) (錯誤程式名 C(40),行號 C(5),錯誤資訊 C(40),錯誤內容 C(40),錯誤代碼 C(5),出錯日期 C(8),出錯時間 C(8))
INSERT INTO &ERR_FILE (錯誤程式名,錯誤資訊,出錯日期) valueS ("主程序","創建出錯庫",DTOS(DATE()))
INDE ON 出錯日期 TAG 出錯日期
USE
Set Exclusive Off &&重新定義共用方式打開
ELSE
USE &ERR_FILE SHAR
APPE BLANK
REPL 錯誤資訊 WITH M_MESSAGE,錯誤內容 WITH M_1,出錯日期 WITH DTOS(DATE()),出錯時間 WITH TIME(),錯誤程式名 WITH M_PROGRAM,;
行號 WITH LTRIM(STR(M_LINEO)),錯誤代碼 WITH LTRIM(STR(M_ERROR))
ENDIF
USE IN 19
SELE (WORK_)
=MESSAGEBOX(M_MESSAGE+CHR(13)+CHR(13)+"程式運行錯誤，請與作者聯繫！",16,"系統資訊")
QUIT &&顯示錯誤消息後，退出程式
RETURN

[catjoke]

我的加入了 Sys(0), Logon名字, DateTime() 等資料,
甚至檢查了 ALIAS(), 如果有資料把 CurTable, CurKey 也記錄在內,
以作殺蟲時的參考資料!

做 log 必須加入那台電腦(Sys(0)), 那個用家 (Logon), 何時作的...
以便跟進.

[garfield]

我在最後秀訊息(messagebox)時, 可以讓使用者可以RETRY或忽略

[ICTANG]

SELE (WORK_)
應改為:
IF !EMPTY(WORK_)
SELE (WORK_)
ENDIF