企业管理

开发平台：

VFP

KM-2.PRG：源码内容

							 pd = '         '
 SELE 2
 pd1 = kmdm
 jyq = kmmc
 jsq = SUBSTR(pd1, 1, 5)
 DO WHILE .T.
      SET COLOR TO BG+/B
      @ 0, 0 CLEAR TO 3, 28
      @ 1, 1 SAY '请输入'+jsq+'号明细科目号码:'
      @ 2, 7 SAY '' GET pd PICTURE '999999999'
      READ
      DO qp
      SELE 2
      LOCA ALL FOR pd$kmdm
      IF  .NOT. EOF()
           LOOP
      ENDI
      pd = TRIM(pd)
      pd = LTRIM(pd)
      xx = pd
      IF 7<>LEN(pd) .AND. 9<>LEN(pd) .OR. pd1<>SUBSTR(pd, 1, 3)
           SET COLOR TO BG+/RB
           @ 0, 0 CLEAR TO 3, 28
           @ 1, 3 SAY '编号不正确,应是7或9个数字'
           @ 2, 5 SAY ' 按任意键继续......'
           a1 = INKEY(0)
           DO qp
           LOOP
      ENDI
      SELE 2
      LOCA ALL FOR pd$kmdm
      IF  .NOT. EOF()
           SET COLOR TO BG+/RB
           @ 0, 0 CLEAR TO 3, 28
           @ 1, 1 SAY '此码科目库原已建立,请输入'
           @ 2, 1 SAY '新的号码,按任意键继续......'
           pd = INKEY(0)
           DO qp
           LOOP
      ELSE
           EXIT
      ENDI
 ENDD
 APPE BLANK
 GOTO BOTTOM
 REPL kmdm WITH pd
 REPL rq WITH rq1
 DO WHILE .T.
      mc = '                    '
      SET COLOR TO RB+/B
      @ 0, 0 CLEAR TO 3, 28
      @ 1, 3 SAY '请输入明细科目名称:'
      @ 2, 2 SAY '' GET mc
      READ
      pd = 'F'
      @ 3, 1 SAY '确认了吗?  Y=是,其他=否!' GET pd
      READ
      DO qp
      IF pd='Y' .OR. pd='y'
           SELE 2
           REPL kmmc WITH mc
           SELE 1
           REPL mxkm WITH mc
           REPL zzkm WITH jyq
           EXIT
      ENDI
 ENDD
 RETU
*

						