home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a055 / 2.ddi / ADV.DOC < prev    next >
Encoding:
Text File  |  1994-05-08  |  1.7 KB  |  70 lines
  1. PARA DBF_NAME,CONDITION
  2. SET TALK OFF
  3. SET SAFE OFF
  4. SET ESCA OFF
  5. SET EXAC ON 
  6. RUN_TYPE1='┤≤╙┌╡╚╙┌'
  7. RUN_TYPE2='┤≤╙┌'
  8. RUN_TYPE3='╡╚╙┌'
  9. RUN_TYPE4='╨í╙┌'
  10. RUN_TYPE5='╨í╙┌╡╚╙┌'
  11. REALTYPE1='>='
  12. REALTYPE2='>'
  13. REALTYPE3='='
  14. REALTYPE4='<'
  15. REALTYPE5='<='
  16. REL_TYPE1='═¼╩▒┬·╫π'
  17. REL_TYPE2='┬·╫π╞Σ╓╨╓«╥╗'
  18. SELE 10
  19. USE &DBF_NAME
  20. GO TOP
  21. ALL_REC=RECCOUNT()
  22. PAGE_CTC=4
  23. SET COLOR TO W+/W+
  24. @ 1, 0 CLEA TO 24, 79
  25. SET COLOR TO W+/R
  26. @ 2,10 SAY '         ╟δ ╤í ╘± ╦∙ ╨Φ ▓┘ ╫≈ ╡─ ╠⌡ ╝■ ╫╓ ╢╬        '
  27. SET COLOR TO W+/B
  28. @ 4, 0 CLEA TO 15,79
  29. DO WHILE PAGE_CTC<16
  30.    IF PAGE_CTC=4
  31.       @ PAGE_CTC, 0 SAY '⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖'
  32.    ELSE
  33.       IF PAGE_CTC=15
  34.          @ PAGE_CTC, 0 SAY '⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐'
  35.       ELSE
  36.          @ PAGE_CTC, 0 SAY '⌐º'
  37.          @ PAGE_CTC,78 SAY '⌐º'
  38.       ENDIF
  39.    ENDIF
  40.    PAGE_CTC=PAGE_CTC+1
  41. ENDDO
  42. COND_CTC=0
  43. PAGE_CTC=-1
  44. DO WHILE .T.
  45.    @ 5, 5 CLEA TO 14,77
  46.    GO PAGE_CTC*40+1
  47.    CURR_ROW = 5
  48.    CURR_COL = 10
  49.    DO WHILE .NOT.EOF().AND.RECNO()<=ALL_REC.AND.RECNO()<=(PAGE_CTC+1)*40
  50.       @ CURR_ROW,CURR_COL SAY FIELD_MEAN
  51.       IF CURR_COL=55
  52.      CURR_COL=10 
  53.      CURR_ROW=CURR_ROW+1
  54.       ELSE
  55.      CURR_COL=CURR_COL+15
  56.       ENDIF
  57.       SKIP
  58.    ENDDO
  59.    GO PAGE_CTC*40+1
  60.    CURR_REC=RECNO()
  61.    CURR_ROW = 5
  62.    CURR_COL = 10
  63.    SET COLOR TO W+/R
  64.    @ 24, 0 SAY SPACE(79)
  65.    @ 24, 0 SAY '   íⁿ í² í√ í· ╔╧╧┬╫≤╙╥╥╞╢»╣Γ┤°, Return ╤í╘±,Esc ═╦│÷  '
  66.    ??CHR(7)
  67.    DO WHILE .T.
  68.       SET COLOR TO W+/R
  69.       @ CURR_ROW,CURR_COL SAY FIELD_MEAN
  70.       @ 16,40 SAY '╫╓╢╬└α╨═ :'+FIELD_TYPE+'╫╓╢╬│ñ╢╚ : '+STR(FIELD_LEN,3)+'╨í╩²╬╗╩²