www.pudn.com > jq_caiwu.ARJ > 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 
*