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

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

企业管理

开发平台：

VFP

GS.PRG：源码内容
  1.  ON KEY
  2.  SELE 1
  3.  GOTO BOTTOM
  4.  endrecn = RECNO()
  5.  endzd = FCOUNT()
  6.  GOTO TOP
  7.  SELE 2
  8.  SELE 3
  9.  DO WHILE  .NOT. EOF()
  10.       @ 8, 6 SAY 'finding... '+kmh
  11.       kmh1 = ALLTRIM(kmh)
  12.       rlen = LEN(kmh1)
  13.       rzy1 = rzy
  14.       rh = h
  15.       rl = l
  16.       rysf = ysf
  17.       fx1 = fx
  18.       rbj = bj
  19.       SELE 2
  20.       x = 0
  21.       SET FILTER TO kmh1$kmdm
  22.       LOCA ALL FOR kmh1=SUBSTR(kmdm, 1, rlen) .AND. zy=rzy1
  23.       DO WHILE  .NOT. EOF()
  24.            IF fx1<>'IN()'
  25.                 x=x+&fx1
  26.            ENDI
  27.            CONT
  28.       ENDD
  29.       SELE 1
  30.       IF rh>endrecn .OR. rl>endzd
  31.            IF rh>endrecn
  32.                 ?? CHR(7)
  33.                 WAIT WINDOW '行'+STR(rh, 2, 0)+'公式超长!'
  34.            ENDI
  35.            IF rl>endzd
  36.                 ?? CHR(7)
  37.                 WAIT WINDOW '行'+STR(rh, 2, 0)+'公式超宽!'
  38.            ENDI
  39.       ELSE
  40.            GOTO rh
  41.            zd = FIELD(rl)
  42.            IF fx1='IN()'
  43.                 x=&zd
  44.                 x1 = '请输入'
  45.                 x2 = ALLTRIM(rbj)
  46.                 x3 = LEN(x1+x2)
  47.                 ?? CHR(7)
  48.                 DEFI WINDOW win FROM 4, 2 TO 8, 26+x3 SHADOW TITLE '手工输入报表数据'
  49.                 ACTI WINDOW win
  50.                 @ 1, 1 SAY x1+x2 GET x
  51.                 READ
  52.                 DEAC WINDOW win
  53.            ENDI
  54.            DO CASE
  55.                 CASE rysf='='
  56.                      repl &zd with x
  57.                 CASE rysf='+'
  58.                      repl &zd with &zd+x
  59.                 CASE rysf='-'
  60.                      repl &zd with &zd-x
  61.                 CASE rysf='*'
  62.                      repl &zd with &zd*x
  63.                 CASE rysf='/'
  64.                      IF x<>0
  65.                           repl &zd with &zd/x
  66.                      ELSE
  67.                           ?? CHR(7)
  68.                           WAIT WINDOW '行'+STR(rh, 1, 2)+'除法运算出错!'
  69.                      ENDI
  70.            ENDC
  71.       ENDI
  72.       SELE 3
  73.       SKIP
  74.  ENDD
  75.  ON KEY LABEL ESCape do Rquit
  76.  RETU
  77. *