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

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

企业管理

开发平台：

VFP

ERR_2.PRG：源码内容
  1.  PARA mprogram, mline, merror, mmess, mmess1
  2.  CLEA
  3.  DEFI WINDOW win_e2 FROM 10, 5 TO 18, 75 SHADOW COLOR SCHEME 7
  4.  ACTI WINDOW win_e2
  5.  @ 0, 2 SAY ' 发生错误的程序名称: '+mprogram
  6.  @ 1, 2 SAY ' 发生错误的程序行号: '+LTRIM(STR(mline))
  7.  @ 2, 2 SAY '           错误代码: '+LTRIM(STR(merror))
  8.  @ 3, 2 SAY '           错误信息: '+mmess1
  9.  @ 4, 2 SAY '       出错程序内容: '+mmess
  10.  @ 5, 2 SAY '    如有不明,请向黄朝生查询. Tel: 0771-5627468 '
  11.  @ 6, 10 GET act DEFAULT 0 SIZE 1, 10, 1 PICTURE '@*HN 继续;重试;返回主程序;退到DOS' VALID actvalid()
  12.  READ CYCLE
  13. *
  14. PROC actvalid
  15.  DO CASE
  16.       CASE act=1
  17.            DEAC WINDOW win_e2
  18.            CLOS DATABASES
  19.            SET COLOR TO W+/B
  20.            @ 0, 0, 23, 79 BOX '北北北北'
  21.            SET COLOR TO W+/N
  22.            @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
  23.            @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
  24.            @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
  25.            ON KEY LABEL Escape do Rquit
  26.            SET CLOCK TO 23, 69
  27.            RETU
  28.       CASE act=2
  29.            DEAC WINDOW win_e2
  30.            CLOS DATABASES
  31.            SET COLOR TO W+/B
  32.            @ 0, 0, 23, 79 BOX '北北北北'
  33.            SET COLOR TO W+/N
  34.            @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
  35.            @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
  36.            @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
  37.            ON KEY LABEL Escape do Rquit
  38.            SET CLOCK TO 23, 69
  39.            RETR
  40.       CASE act=3
  41.            DEAC WINDOW win_e2
  42.            CLOS DATABASES
  43.            SET COLOR TO W+/B
  44.            @ 0, 0, 23, 79 BOX '北北北北'
  45.            SET COLOR TO W+/N
  46.            @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
  47.            @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
  48.            @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
  49.            ON KEY LABEL Escape do Rquit
  50.            SET CLOCK TO 23, 69
  51.            RETU TO MASTER
  52.       CASE act=4
  53.            QUIT
  54.  ENDC
  55.  CLOS DATABASES
  56.  SET COLOR TO W+/B
  57.  @ 0, 0, 23, 79 BOX '北北北北'
  58.  SET COLOR TO W+/N
  59.  @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
  60.  @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
  61.  @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
  62.  ON KEY LABEL Escape do Rquit
  63.  SET CLOCK TO 23, 69
  64.  RETU
  65. *