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

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

行业应用

开发平台：

VFP

YJKBJS.PRG：源码内容
  1. ******
  2. 1
  3. x=0
  4. y=0
  5. z=0
  6. do whil .t.
  7. x=x+ncs
  8. y=y+bns
  9. z=z+bnyj
  10.  skip
  11. pd=recn()
  12.  if pd=6
  13.  exit
  14.  endif
  15. enddo
  16. x1=x
  17. y1=y
  18. z1=z
  19. x=0
  20. y=0
  21. z=0
  22. 7
  23. do whil .t.
  24. x=x+ncs
  25. y=y+bns
  26. z=z+bnyj
  27. skip
  28. pd=recn()
  29.  if pd=11
  30.    exit
  31.   endif
  32. enddo
  33. 6
  34. repl ncs with x
  35. repl bns with y
  36. repl bnyj with z
  37. x1=x1+x
  38. y1=y1+y
  39. z1=z1+z
  40. x=0
  41. y=0
  42. z=0
  43. 11
  44. do whil .t.
  45. x=x+ncs
  46. y=y+bns
  47. z=z+bnyj
  48. skip
  49. pd=recn()
  50. if pd=13
  51. exit
  52. endif
  53. enddo
  54. 13
  55. x1=x1+x
  56. y1=y1+y
  57. z1=z1+z
  58. repl ncs with x1
  59. repl bns with y1
  60. repl bnyj with z1
  61. repl all nms with ncs+bns-bnyj
  62. *******
  63. retu