rspx.prg

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

CLOSE DATA
IF USED("RSXX")
   SELE RSXX
   ELSE
     SELE 0
     USE ..\DATA\RSXX ALIAS RSXX
ENDIF
IF USED("ZGGZ")
   SELE ZGGZ
   ELSE
     SELE 0
     USE ..\DATA\ZGGZ ALIAS ZGGZ
ENDIF
IF USED("JSGZ")
   SELE JSGZ
   ELSE
     SELE 0
     USE ..\DATA\JSGZ ALIAS JSGZ
ENDIF
IF USED("工作单位")
   SELE 工作单位
   ELSE
     SELE 0
     USE ..\DATA\工作单位 ALIAS 工作单位
ENDIF
IF USED("部门")
   SELE 部门
   ELSE
     SELE 0
     USE ..\DATA\部门 ALIAS 部门
ENDIF
IF USED("科室")
   SELE 科室
   ELSE
     SELE 0
     USE ..\DATA\科室 ALIAS 科室
ENDIF
SELE RSXX
DO WHILE NOT EOF()
   STORE 工作单位 TO GZDW
   STORE 部门 TO BM
   STORE 科室 TO KS
   SELE 工作单位
   LOCA FOR 代码内容=GZDW
   IF FOUND()
      STORE ALLTRIM(代码值) TO DWDM
      ELSE
        STORE "99" TO DWDM
   ENDIF
   SELE 部门
   LOCA FOR 代码内容=BM
   IF FOUND()
      STORE ALLTRIM(代码值) TO BMDM
      ELSE
        STORE "99" TO BMDM
   ENDIF
   SELE 科室
   LOCA FOR 代码内容=KS
   IF FOUND()
      STORE ALLTRIM(代码值) TO KSDM
      ELSE
        STORE "99" TO KSDM
   ENDIF
   SELE RSXX
   IF ALLT(职级编号)="" 
      STORE "99" TO ZJDM
      ELSE
        STORE ALLTRIM(职级编号) TO ZJDM
   ENDIF
   IF ALLT(级别编号)="" 
      STORE "99" TO JBDM
      ELSE
        STORE ALLTRIM(级别编号) TO JBDM
   ENDIF
   REPL 排序号 WITH DWDM+BMDM+KSDM+ZJDM+JBDM
   SKIP
ENDDO
*SELE RSXX
*GO TOP
*DO WHILE NOT EOF()
*   STORE 人员编码 TO MBM
*   IF MBM="" 
*      SKIP
*      LOOP
*   ENDIF
*   STORE 排序号	TO MPXH
*   STORE 编号 TO MBH
*   SELE ZGGZ
*   LOCA FOR 人员编码=MBM
*   IF FOUND()
*	  STORE 编号 TO GZBH
*      REPL 编号 WITH MBH
*      REPL 排序号 WITH MPXH
*      ELSE
*        SELE RSXX
*        SKIP
*        LOOP
*   ENDIF
*   SELE JSGZ
*   LOCA FOR 编号=GZBH
*   IF FOUND()
*      REPL 编号 WITH MBH
*      REPL 排序号 WITH MPXH
*   ENDIF
*   SELE RSXX
*   SKIP
*ENDDO

USE IN RSXX
USE IN 科室
USE IN 部门
USE IN 工作单位
MESSAGEBOX("排序完毕!")
RETURN