gzdy1.prg

本工资管理系统由foxpro编写,可在VF下运行

set talk off
set stat off
close database
clear
set color to w/gr
@5,12,16,71 box ''
set color to w/bg
@ 4,10,15,69 box ''
set color to 2+/bg
@7,25 say '请装好打印纸,按任意键继续!'
@9,31 say '正在打印,请等待......'

use gz
copy stru to xgw extended
use xgw
clea
     bg1="┌"
     bg2="│"
     bg3="├"
     bg4="└"
 x=recc()
 dimension maxlen(x)
  for i=1 to recc()
   k=int(field_len/2)
    fieldsub=alltrim(field_name)
    lenfd=len(fieldsub)
    if lenfd>field_len
     maxlen(i)=lenfd
     k=int(len(fieldsub)/2)
     bg2=bg2+fieldsub+"│"
    else
      maxlen(i)=field_len
      bg2=bg2+space(field_len-len(fieldsub))+fieldsub+"│"
    endif
    for j=1 to k
     bg1=bg1+'─'
     bg3=bg3+'─'
     bg4=bg4+'─'
    next j
   bg1=bg1+"┬"
   bg3=bg3+"┼"
   bg4=bg4+"┴"
   skip
 next i
   
   bg1=substr(bg1,1,len(bg1)-2)+"┐"
   bg3=substr(bg3,1,len(bg3)-2)+"┤"
   bg4=substr(bg4,1,len(bg4)-2)+"┘"
   
 use gz
 set print to ddtab.txt

p=0
do while .not.eof()
p=p+1
? space(60)+"工  资  花  名  册"
? space(5)+"单位: 安化职业中专"+space(60)+"第"+str(p,2)+"页"
 ?bg1
 ?bg2
 
 nu=0
 do while nu<25.and..not.eof()
    nu=nu+1
    ?bg3
     bg5="│"
     for j=1 to fcount()
       s=type (field(j))
       x=field(j)
       a=&x
       do case
         case s='N'
         bg5=bg5+spac(maxlen(j)-len(alltrim(str(a))))+alltrim(str(a))+"│"
         case s="D"
         bg5=bg5+spac(maxlen(j)-len(dtoc(a)))+dtoc(a)+"│"
         case s="L"
         bg5=bg5+spac(maxlen(j)-2)+iff(a,"是","否")+"│"
         case s="C" or s="M"               
         bg5=bg5+spac(maxlen(j)-len(alltrim(a)))+alltrim(a)+"│"
       endcase
    next j
     ?bg5
     skip
  enddo
  ?bg4
  ? space(60)+str(year(date()),4)+"年"+str(mont(date()),2)+"月"+str(day(date()),2)+"日"
  eject
 enddo  

 ?
 ?"打印完毕!"
wait ''
dele file xgw.dbf
set color to
set talk on
clea
set devi to scre
set print off
close database
return