企业管理

开发平台：
VFP

ZZKM-1.PRG：源码内容
							 PRIV bs, sl1, ml1, jls
 LOCA ALL FOR pd$kmdm .AND. LEN(LTRIM(TRIM(pd)))=LEN(LTRIM(TRIM(kmdm)))
 IF EOF()
      RETU
 ENDI
 GOTO s
 sl1 = RECNO()
 sl1 = sl1+1
 pd = LTRIM(TRIM(pd))
 COUN ALL FOR kmdm=pd TO jls
 ml1 = sl1+jls-1
 SET COLOR TO N/W
 @ 0, 0 CLEAR TO 3, 26
 GOTO sl1
 bs = 1
 pd = INT((ml1-sl1)/4)
 IF INT((ml1-sl1)/4)=(ml1-sl1)/4
      ys = pd
 ELSE
      ys = pd+1
 ENDI
 DO WHILE bs<=4
      @ bs-1, 2 SAY kmmc
      SKIP
      pd = RECNO()
      IF pd=ml1
           EXIT
      ENDI
      bs = bs+1
 ENDD
 GOTO sl1
 bs = 1
 yc = 1
 SET COLOR TO W/BG
 @ 3, 27 SAY SPACE(15)
 SET COLOR TO G+/G
 @ bs-1, 2 SAY kmmc
 @ 3, 30 SAY kmdm
 DO WHILE .T.
      pd = INKEY(0)
      DO CASE
           CASE pd=5
                pd = RECNO()
                IF pd=sl1 .OR. bs=1
                     ?? CHR(7)
                ELSE
                     SET COLOR TO N/W
                     @ bs-1, 2 SAY kmmc
                     SET COLOR TO G+/G
                     SKIP -1
                     bs = bs-1
                     @ bs-1, 2 SAY kmmc
                     @ 3, 30 SAY kmdm
                ENDI
           CASE pd=24
                pd = RECNO()
                IF pd=ml1-1 .OR. bs=4
                     ?? CHR(7)
                ELSE
                     SET COLOR TO N/W
                     @ bs-1, 2 SAY kmmc
                     SET COLOR TO G+/G
                     SKIP
                     bs = bs+1
                     @ bs-1, 2 SAY kmmc
                     @ 3, 30 SAY kmdm
                ENDI
           CASE pd=18
                IF yc=1
                     ?? CHR(7)
                ELSE
                     SET COLOR TO N/W
                     @ 0, 0 CLEAR TO 3, 26
                     bs = 1
                     yc = yc-1
                     GOTO sl1+(yc)*4-4
                     pd1 = RECNO()
                     DO WHILE bs<=4
                          @ bs-1, 2 SAY kmmc
                          SKIP
                          pd = RECNO()
                          IF pd=ml1
                               EXIT
                          ENDI
                          bs = bs+1
                     ENDD
                     GOTO pd1
                     bs = 1
                     SET COLOR TO G+/G
                     @ bs-1, 2 SAY kmmc
                     @ 3, 30 SAY kmdm
                ENDI
           CASE pd=3
                IF yc=ys
                     ?? CHR(7)
                ELSE
                     SET COLOR TO N/W
                     @ 0, 0 CLEAR TO 3, 26
                     bs = 1
                     yc = yc+1
                     GOTO sl1+(yc)*4-4
                     pd1 = RECNO()
                     DO WHILE bs<=4
                          @ bs-1, 2 SAY kmmc
                          SKIP
                          pd = RECNO()
                          IF pd=ml1
                               EXIT
                          ENDI
                          bs = bs+1
                     ENDD
                     bs = 1
                     GOTO pd1
                     SET COLOR TO G+/G
                     @ bs-1, 2 SAY kmmc
                     @ 3, 30 SAY kmdm
                ENDI
           CASE pd=13
                IF pd=23
                     mc = kmmc
                     x = jhd
                     pd = kmdm
                     pd1 = LTRIM(TRIM(pd))
                     pd1 = SUBSTR(pd1, 1, 3)
                     SELE 1
                     REPL mxkm WITH mc
                     REPL kmdm WITH pd
                     REPL jhd WITH x
                     SELE 2
                     LOCA ALL FOR pd1$kmdm .AND. LEN(LTRIM(TRIM(pd1)))=LEN(LTRIM(TRIM(kmdm)))
                     mc = kmmc
                     pd = slbz
                     SELE 1
                     REPL zzkm WITH mc
                     REPL slbz WITH pd
                     x = 13
                ENDI
                pd = kmdm
                EXIT
           CASE pd=27
                x = 27
                SET COLOR TO
                EXIT
      ENDC
 ENDD
 RETU
*

						