home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_CHK005.PRG < prev    next >
Encoding:
Text File  |  1993-11-25  |  741 b   |  28 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. SET RELATION TO ljno INTO A 
  16. SET RELATION TO xh INTO D ADDITIVE
  17. BROWSE FIELDS c.xh/8:H = "  ╨≥║┼",d.dj_yh/10:H ="   ╙├╗º ",a.lj_bm/8:H ="  ▒α┬δ ", a.lj_xh/8:H ="  ╨═║┼ ", ;
  18.     a.lj_mc/10:H ="   ├√│╞ ",c.xs_sl/6:H =" ╩²┴┐ ",c.xs_jg/10:H ="   ╝█╕± ",;
  19.     d.dj_rq/10:H =" ╧·╩█╚╒╞┌ ";
  20.     NOEDIT;
  21.     NOAPPEND;
  22.     NODELETE;
  23.     NOMENU;
  24.     TIMEOUT 60;
  25.     TITLE " ┼Σ╝■╧·╩█╟Θ┐÷▓Θ╤» " ;
  26.     PREFERENCE DD
  27. *CLOSE ALL
  28. *RETURN