www.pudn.com > jq_caiwu.ARJ > CSHMNJZ.PRG

 CLOS DATABASES 
 @ 22, 30 SAY '模拟记帐,请稍候......' 
 SET COLOR TO R+/B 
 @ 2, 13 SAY '现在是模拟记帐,请按"Y"键!' 
 @ 3, 26 SAY '↓' 
 RUN copy pzk.dbf cshk.dbf>nul 
 DO cshrz 
 DO pzrz 
 @ 22, 30 SAY '正在生成报表,请稍候......  ' 
 RUN copy \cw\fzb.dbf >nul 
 DO fzb 
 RUN copy \cw\syb.dbf >nul 
 DO syb 
 RUN copy \cw\bcmxb.dbf >nul 
 DO bcmxb 
 RUN copy \cw\yjkb.dbf >nul 
 DO yjkb 
 RUN copy \cw\zzsb.dbf >nul 
 DO zzsb 
 DO zcd 
 DO jqbb 
 CLOS DATABASES 
 ERAS fzb.dbf 
 ERAS syb.dbf 
 ERAS bcmxb.dbf 
 ERAS yjkb.dbf 
 ERAS zzsb.dbf 
 USE csh 
 REPL rzbz WITH 0 
 RUN copy cshk.dbf pzk.dbf >nul 
 RETU 
*