开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 查看源码
ERR_2.PRG
资源名称：jq_report.ARJ　[点击查看]
上传用户：xue7720
上传日期：2013-01-31
资源大小：1240k
文件大小：3k
源码类别：

行业应用

开发平台：

VFP

ERR_2.PRG：源码内容
  1. *┌──────────────────────────────────┐
  2. *│      Program: ERR_2.PRG                                            │
  3. *│     Function: 错误处理子程序二                                     │
  4. *│        Usage: ON ERROR DO ERR_2 WITH PROGRAM(), LINENO),;          │
  5. *│                           ERROR(), MESSAGE(1), MESSAGE()           │
  6. *└──────────────────────────────────┘
  7. PARAMETERS mPROGRAM,mLINE, mERROR,mMESS,mMESS1
  8. SET CURSOR OFF
  9. CLEAR
  10. DEFINE WINDOW WIN_E2 FROM 10,5 TO 18,75 SHADOW COLOR SCHEME 7
  11. ACTIVATE WINDOW WIN_E2
  13. @0,2 SAY " 发生错误的程序名称: "+mPROGRAM
  14. @1,2 SAY " 发生错误的程序行号: "+LTRIM(STR(MLINE))
  15. @2,2 SAY "           错误代码: "+LTRIM(STR(mERROR))
  16. @3,2 SAY "           错误信息: "+mMESS
  17. @4,2 SAY "       出错程序内容: "+mMESS1
  18. *@5,2 say "    如有不明,请向黄朝生查询. Tel: 0771-5627468 "
  19. @6,10 GET act PICTURE "@*HN 继续;重试;返回主程序;退到DOS";
  20.       SIZE 1,10,1 DEFAULT 0 VALID actvalid()
  21. READ CYCLE
  23. FUNCTION actvalid
  24. DO CASE
  25. CASE act = 1
  26.      DEACTIVATE WINDOW WIN_E2
  27. clos data
  28. set colo to w+/1
  29. @ 0,0,23,79 box '北北北北' colo scheme 3
  30. set colo to w+/n
  31. @ 1,1,22,78 box '鞍鞍鞍鞍鞍' colo scheme 1
  32. @ 23,28 say "当前数据的月份:"+str(Ryear,4,0)+"年"+str(Ryf,2,0)+"月" colo 1+/3
  33. @ 24,0 say ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' colo 4/w  
  34. on key label Escape do Rquit
  35. set clock to 23,69
  36.      RETURN
  37. CASE ACT = 2
  38.      DEACTIVATE WINDOW WIN_E2
  39. ***********************
  40. clos data
  41. set colo to w+/1
  42. @ 0,0,23,79 box '北北北北' colo scheme 3
  43. set colo to w+/n
  44. @ 1,1,22,78 box '鞍鞍鞍鞍鞍' colo scheme 1
  45. @ 23,28 say "当前数据的月份:"+str(Ryear,4,0)+"年"+str(Ryf,2,0)+"月" colo 1+/3
  46. @ 24,0 say ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' colo 4/w  
  47. on key label Escape do Rquit
  48. set clock to 23,69
  49.     RETRY
  50. CASE ACT = 3
  51.      DEACTIVATE WINDOW WIN_E2
  52. ***********************
  53. clos data
  54. set colo to w+/1
  55. @ 0,0,23,79 box '北北北北' colo scheme 3
  56. set colo to w+/n
  57. @ 1,1,22,78 box '鞍鞍鞍鞍鞍' colo scheme 1
  58. @ 23,28 say "当前数据的月份:"+str(Ryear,4,0)+"年"+str(Ryf,2,0)+"月" colo 1+/3
  59. @ 24,0 say ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' colo 4/w  
  60. on key label Escape do Rquit
  61. set clock to 23,69
  62.      RETURN TO MASTER
  63. CASE act = 4
  64.      QUIT
  65. ENDCASE
  66. clos data
  67. set colo to w+/1
  68. @ 0,0,23,79 box '北北北北' colo scheme 3
  69. set colo to w+/n
  70. @ 1,1,22,78 box '鞍鞍鞍鞍鞍' colo scheme 1
  71. @ 23,28 say "当前数据的月份:"+str(Ryear,4,0)+"年"+str(Ryf,2,0)+"月" colo 1+/3
  72. @ 24,0 say ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' colo 4/w  
  73. on key label Escape do Rquit
  74. set clock to 23,69
  75. RETURN