企业管理

开发平台：

VFP

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 cwfzb.dbf >nul
 DO fzb
 RUN copy cwsyb.dbf >nul
 DO syb
 RUN copy cwbcmxb.dbf >nul
 DO bcmxb
 RUN copy cwyjkb.dbf >nul
 DO yjkb
 RUN copy cwzzsb.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
*

						