www.pudn.com > jq_caiwu.ARJ > 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 
*