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