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

*************************** 
* .\JHSJDWJ.PRG 
*************************** 
use set 
RDW = DW 
set talk off 
set printer on 
set device to printer 
set printer to 'gzb.txt' 
use &gzbwj 
@ 0 , 0 say RDW 
@ 1 , 0 say ' 姓名          帐号         实发工资 ' 
@ 2 , 0 say '-------------------------------------' 
do while  not eof() 
  @ prow()+1 , 0 say 姓名+'   '+帐号+'   '+str(实发工资,10,2) 
  @ prow()+1 , 0 say '-------------------------------------' 
  skip  
enddo  
set printer off 
set device to screen 
@ 13 , 50 say '已将数据输出到"gzb.txt"文件!' 
I = inkey(5) 
return