home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_PRO001.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  1.2 KB  |  63 lines
  1. PRIVATE ljbm,ljxh,choice
  2.  
  3. SELECT A
  4. USE (LOCFILE("DATA_1.DBF","DBF","Where is data_1?"));
  5.     ALIAS a ;
  6.     INDEX DATA_1
  7. SET ORDER TO TAG LJNO OF DATA_1.CDX
  8. SELECT B
  9. USE (LOCFILE("DATA_2.DBF","DBF","Where is data_2?"));
  10.     ALIAS b ;
  11.     INDEX DATA_2
  12. SET ORDER TO TAG RKNO OF DATA_2.CDX
  13.  
  14. DO WHILE .T.
  15.     APPEND BLANK
  16.     REPLACE b.kc_rq WITH DATE(), b.rkno WITH RECNO()
  17.     DO WHILE .T.
  18.         STORE SPACE(20) TO ljbm
  19.         STORE SPACE(20) TO ljxh
  20.         DO G_SCR001.SPR
  21.         SELECT A
  22.         SET EXACT ON
  23.         IF ljbm <> " " .OR. ljxh <> " "
  24.             LOCATE FOR a.lj_bm = ljbm .AND. a.lj_xh = ljxh
  25.             IF .NOT.FOUND()
  26.                 WAIT "░┤╚╬╥Γ╝ⁿ╜¿┴ó┼Σ╝■╫╩┴╧╡╡░╕" WINDOW
  27.                 APPEND BLANK
  28.                 REPLACE a.lj_bm WITH ljbm, a.lj_xh WITH ljxh, a.ljno WITH RECNO()
  29.                 STORE 1 TO choice
  30.                 DO G_SCR003.SPR
  31.                 IF choice = 2
  32.                     EXIT
  33.                 ELSE
  34.                     DELETE
  35.                     PACK
  36.                 ENDIF
  37.             ELSE
  38.                 EXIT
  39.             ENDIF
  40.         ELSE
  41.             WAIT "╟δ╩Σ╚δ▒α┬δ╗≥╨═║┼" WINDOW
  42.         ENDIF
  43.     ENDDO
  44.     SET EXACT OFF
  45.  
  46.     SELECT B
  47.     STORE 1 TO choice
  48.     DO G_SCR002.SPR 
  49.     REPLACE b.kc_cs WITH b.kc_sl, b.ljno WITH a.ljno
  50.     IF choice = 1 .OR. choice = 3
  51.         EXIT
  52.     ENDIF
  53. ENDDO
  54.  
  55. IF choice = 1
  56.     DELETE
  57.     PACK
  58. ENDIF
  59.  
  60. CLOSE ALL
  61. RELEASE WINDOWS scr001, scr002, scr003
  62.  
  63. RETURN