zxjs.prg

包括了6个VFP程序设计实例

close data
CLOSE TABLE ALL
sfok=messagebox("请确认是否将晋升工资置换为现工资状态?",4+32)
IF SFOK=7
   RETURN
ENDIF

WAIT "正在执行晋升工资..." WINDOWS NOWAIT
sele 0
use ..\data\jsgz alias jsgz
sele 0
use ..\data\zggz alias zggz
sele jsgz
go top
do while NOT eof()
   store 编号 TO MBH
   STORE 工资档次 TO GZDC
   STORE 职务工资 TO ZWGZ
   STORE 活工资 TO HGZ
   STORE 保留津贴 TO BLJT
   STORE 教护工资 TO JFGZ
   STORE 教护津贴 TO JFJT
   STORE 其他工资 TO QTGZ
   STORE 工资总额 TO GZZE
   SELE ZGGZ
   LOCA FOR 编号=MBH
   IF FOUND()
      REPL 工资档次 WITH GZDC,职务工资 WITH ZWGZ,活工资 WITH HGZ,保留津贴 WITH BLJT,教护工资 WITH JFGZ,教护津贴 WITH JFJT,其他工资 WITH QTGZ,工资总额 WITH GZZE
      ELSE
        MESSAGEBOX("编号为"+MBH+"的人员未找到!")
   ENDIF
   SELE JSGZ
   SKIP
ENDDO
MESSAGEBOX("执行晋升替换完毕!")
CLOSE DATA
RETURN