www.pudn.com > jq_gongzi.ARJ > SZ.PRG

*************************** 
* .\SZ.PRG 
*************************** 
use set 
NEWDW = DW 
NEWMC1 = MC 
skip  
NEWMC2 = MC 
skip  
NEWMC3 = MC 
skip  
NEWMC4 = MC 
set color to gr+/g 
@ 3 , 4 clear to 9 , 60 
@ 4 , 41 say '打印项目' 
@ 5 , 6 say '请输入单位名称:' 
@ 5 , 30 say '工资表1' 
@ 6 , 30 say '工资表2' 
@ 7 , 30 say '工资表3' 
@ 8 , 30 say '工资表4' 
@ 6 , 6 get NEWDW 
@ 5 , 39 get NEWMC1 
@ 6 , 39 get NEWMC2 
@ 7 , 39 get NEWMC3 
@ 8 , 39 get NEWMC4 
read  
go top 
replace DW with NEWDW , MC with NEWMC1 
skip  
replace MC with NEWMC2 
skip  
replace MC with NEWMC3 
skip  
replace MC with NEWMC4 
use  
return