home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b060 / 1.ddi / G_CHK004.QPR < prev    next >
Encoding:
Text File  |  1993-11-08  |  682 b   |  24 lines
  1. SELECT DATA_3.XH, DATA_4.DJ_YH, DATA_1.LJ_BM, DATA_1.LJ_XH, DATA_1.LJ_MC,;
  2.   DATA_3.XS_SL, DATA_3.XS_JG, DATA_4.DJ_RQ;
  3.  FROM DATA_1, DATA_3, DATA_4;
  4.  WHERE DATA_1.LJNO = DATA_3.LJNO;
  5.    AND DATA_4.XH = DATA_3.XH;
  6.  ORDER BY DATA_3.XH;
  7.  INTO CURSOR CHK003
  8.  
  9. LOCATE FOR dj_rq = GLOOK
  10.     IF EOF()
  11.         WAIT "╬▐┤╦╧ε─┌╚▌" WINDOW
  12.     ELSE
  13.         BROWSE FIELDS xh/8:H = "╨≥║┼",dj_yh/10:H =" ╙├╗º ",lj_bm/8:H =" ▒α┬δ ", lj_xh/8:H =" ╨═║┼ ", ;
  14.             lj_mc/10:H =" ├√│╞ ",xs_sl/6:H =" ╩²┴┐ ",xs_jg/10:H =" ╝█╕± ",;
  15.             dj_rq/10:H =" ╧·╩█╚╒╞┌ ";
  16.             FOR dj_rq = GLOOK;
  17.             NOEDIT;
  18.             NOAPPEND;
  19.             NODELETE;
  20.             NOMENU;
  21.             TIMEOUT 60;
  22.             TITLE " ┼Σ╝■╧·╩█╟Θ┐÷▓Θ╤» ";
  23.             PREFERENCE CHK003
  24.     ENDIF