企业管理

开发平台：

VFP

BCMXB.PRG：源码内容

							 SET PATH TO C:
 IF FILE('bcmxb.dbf')
      ?? CHR(7)
      SET COLOR TO N
      @ 5, 8 CLEAR TO 10, 35
      SET COLOR TO W+/B
      @ 4, 5 CLEAR TO 9, 33
      @ 4, 5 TO 9, 32 DOUBLE
      @ 6, 9 SAY '补充明细表已经存在!'
      @ 7, 9 SAY '覆盖它吗?(Y/N)'
      pd = 'Y'
      @ 7, 25 GET pd PICTURE 'x'
      READ
      SET PATH TO cw
      IF pd<>'Y' .AND. pd<>'y'
           SET COLOR TO W+/N
           @ 4, 5, 10, 38 BOX '鞍鞍鞍鞍鞍鞍'
           RETU
      ENDI
 ENDI
 SET PATH TO cw   
 SET COLOR TO N
 @ 5, 8 CLEAR TO 10, 35
 SET COLOR TO W+/B
 @ 4, 5 CLEAR TO 9, 33
 @ 4, 5 TO 9, 32 DOUBLE
 @ 6, 9 SAY '正在生成补充明细表!'
 @ 7, 13 SAY '请稍候......'
 RUN copy cwbcmxb.dbf>nul
 SELE 1
 USE bcmxb
 SELE 2
 USE mxk
 SELE 3
 USE bcmxbgs
 DO gs
 SELE 3
 USE bcmxbjs
 DO jsgs
 IF cd1=1
      SELE 1
      GOTO 4
      DO WHILE RECNO()<10
           REPL bys2 WITH ljs2
           SKIP
      ENDD
 ENDI
 CLOS DATABASES
 SET COLOR TO W+/N
 @ 4, 5, 10, 38 BOX '鞍鞍鞍鞍鞍鞍'
 RETU
*

						