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

*************************** 
* .\SCL.PRG 
*************************** 
save screen to PM 
PD1 = field(READZD) 
set color to w/g 
@ 6 , 30 , 8 , 53 box '           ' 
set color to gr+/bg 
PD = 'N' 
@ 7 , 31 say '真的删除该列吗(Y/N)?' get PD 
read  
if PD='Y' or PD='y' 
  FILE1 = GZBWJ+'.dbf' 
  use  
  if file('gzb-k.dbf') 
    erase gzb-k.dbf 
  endif  
  copy file &file1 to gzb-k.dbf  
  use &gzbwj 
  if file('gzbk.dbf') 
    erase gzbk.dbf 
  endif  
  copy to gzbk.dbf structure extended 
  use gzbk 
  locate all for PD1$FIELD_NAME and len(trim(PD1))=len(trim(FIELD_NAME)) 
  if FIELD_NAME='应发工资' or FIELD_NAME='实发工资' or FIELD_NAME='帐号' 
    ?? chr(7) 
  else  
    delete  
    pack  
  endif  
  set color to gr+/bg 
  X1 = 8 
  X2 = 10 
  Y1 = 28 
  Y2 = 48 
  do box-1 
  @ 9 , 30 say '正在处理数据......' 
  delete all for FIELD_NAME=' ' 
  pack  
  use  
  FILE = GZBWJ+'.dbf' 
  if file(FILE) 
    eras &file 
  endif  
  crea &gzbwj from gzbk 
  use &gzbwj 
  append from gzb-k.dbf 
  use  
  use &gzbwj 
  select 2 
  use  
  select 1 
  if file('gzjg.dbf') 
    erase gzjg.dbf 
  endif  
  copy to gzjg.dbf structure extended 
  select 2 
  use gzjg 
  select 1 
  ZDS = fcount() 
  PD = 1 
  YFGZ = 0 
  SFGZ = 0 
  do while PD<=ZDS 
    if field(PD)='应发工资' 
      YFGZ = PD 
    endif  
    if field(PD)='实发工资' 
      SFGZ = PD 
    endif  
    PD = PD+1 
  enddo  
  if YFGZ=0 
    @ 10 , 30 say '“应发工资”项目没找到！' 
    I = inkey(0) 
    return  
  endif  
  if SFGZ=0 
    @ 11 , 30 say '“实发工资”项目没找到！' 
    I = inkey(0) 
    return  
  endif  
  go top 
  do while  not eof() 
    PD = 5 
    JSQ = 0 
    do while PD7 
      PD1 = 7 
    else  
      PD1 = YFGZ-1 
      P = 0 
    endif  
    ZD1 = 3 
    ZD2 = PD1 
    do while JSQ<=PD1 
      RFIELD = field(JSQ) 
      @ 2 , 20+LC say field(JSQ) 
      @ 4+bs,20+lc say &Rfield   
      JSQ = JSQ+1 
      LC = LC+12 
    enddo  
    @ 4+BS , 0 say 编号 
    @ 4+BS , 6 say 姓名 
    if  not eof() 
      skip  
      BS = BS+1 
    else  
      exit  
    endif  
    if BS=19 
      exit  
    endif  
  enddo  
  READZD = ZD1 
  READLC = 0 
  go top 
  set color to n/w 
  BS = 0 
  LC = 0 
  JSQ = 3 
  if YFGZ>7 
    PD1 = 7 
  else  
    PD1 = YFGZ-1 
  endif  
  do while JSQ<=PD1 
    RFIELD = field(JSQ) 
    @ 4+bs,20+lc say &Rfield   
    JSQ = JSQ+1 
    LC = LC+12 
  enddo  
  @ 4+BS , 0 say 编号 
  @ 4+BS , 6 say 姓名 
  PD = 0 
  ZY = 0 
  set color to gr+/bg 
  RFIELD = field(READZD) 
  @ 4+bs,20+readlc say &Rfield 
else  
  restore screen from PM 
endif  
return