企业管理

开发平台：

VFP

CSHRZ.PRG：源码内容

							 USE pzk
 SUM ALL FOR jhd='+' ye TO a1
 SUM ALL FOR jhd='-' ye TO a2
 IF a1<>a2
      ?? CHR(7)
      SET COLOR TO G+/B
      @ 6, 30 CLEAR TO 7, 60
      @ 6, 35 SAY '借贷不平衡,不能记帐!'
      @ 7, 35 SAY '按任意键继续 ... ...'
      i = INKEY(0)
      USE
      RETU
 ELSE
      SET COLOR TO
      @ 5, 8 CLEAR TO 11, 37
      SET COLOR TO W+/B
      @ 4, 5 CLEAR TO 10, 35
      x1 = 4
      x2 = 10
      y1 = 5
      y2 = 33
      x = 'N'
      ?? CHR(7)
      DO box-1
      @ 5, 11 SAY '初始化入帐后,即不能修'
      @ 6, 7 SAY '改初化数据.请确认输入的数'
      @ 7, 7 SAY '据是否完整、正确?可用模拟'
      @ 8, 7 SAY '记帐核对报表.'
      @ 9, 9 SAY '真的入帐吗?(Y/N)' GET x
      READ
      IF x='Y' .OR. x='y'
           USE
           RUN copy pzk.dbf mxk.dbf >nul
           USE pzk
           DELE ALL
           PACK
           USE csh
           REPL rzbz WITH 1 ALL
           esc = 27
      ELSE
           RETU
      ENDI
 ENDI
 RETU
*

						