home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_CHK007.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  974 b   |  41 lines
  1. SELECT A
  2. USE (LOCFILE("DATA_1.DBF","DBF","Where is data_1?"));
  3.     ALIAS a ;
  4.     INDEX DATA_1
  5. SET ORDER TO TAG LJNO OF DATA_1.CDX
  6. SELECT D
  7. USE (LOCFILE("DATA_4.DBF","DBF","Where is data_4?"));
  8.     ALIAS d ;
  9.     INDEX DATA_4
  10. SET ORDER TO TAG XH OF DATA_4.CDX
  11. SELECT C
  12. USE (LOCFILE("DATA_3.DBF","DBF","Where is data_3?"));
  13.     ALIAS c ;
  14.  
  15. SELECT A
  16. LOCATE FOR AT(GLOOK,&GFOR) > 0
  17. IF EOF()
  18.     WAIT "╬▐┤╦╧ε─┌╚▌" WINDOW
  19. ELSE
  20.     SELECT C
  21.     LOCATE FOR c.ljno = a.ljno
  22.     IF .NOT.EOF()
  23.         SET RELATION TO ljno INTO A
  24.         SET RELATION TO xh INTO D
  25.         BROWSE FIELDS c.xh/8:H = "  ╨≥║┼",d.dj_yh/10:H ="   ╙├╗º ",a.lj_bm/8:H ="  ▒α┬δ ", a.lj_xh/8:H ="  ╨═║┼ ", ;
  26.             a.lj_mc/10:H ="   ├√│╞ ",c.xs_sl/6:H =" ╩²┴┐ ",c.xs_jg/10:H ="   ╝█╕± ",;
  27.             d.dj_rq/10:H =" ╧·╩█╚╒╞┌ ";
  28.             FOR AT(GLOOK,&GFOR) > 0;
  29.             NOEDIT;
  30.             NOAPPEND;
  31.             NODELETE;
  32.             NOMENU;
  33.             TIMEOUT 60;
  34.             TITLE " ┼Σ╝■╧·╩█╟Θ┐÷▓Θ╤» " ;
  35.             PREFERENCE DD
  36.     ELSE
  37.         WAIT "╬▐┤╦╧ε─┌╚▌" WINDOW
  38.     ENDIF    
  39. ENDIF
  40. CLOSE ALL
  41. RETURN