home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST909.PRG < prev    next >
Encoding:
Text File  |  1989-11-26  |  4.9 KB  |  123 lines
  1. *******************
  2.  
  3. PROCEDURE Stats
  4.  
  5.    PARAMETERS _p2, _l2, _v2
  6.  
  7.    IF TYPE("scrleft_1") = "U"    && None of the public variabls have
  8.       RETURN                     && been initialized so do not pro-
  9.    ENDIF                         && ceede
  10.  
  11.    PRIVATE _poprow, _popcol, _ocolor, _retto, _dummy, _sel
  12.  
  13.    _retto = STR(SELECT())
  14.    _temp = ""
  15.    _poprow = ROW()
  16.    _popcol = COL()
  17.    _ocolor = SETCOLOR()
  18.    SETCOLOR(IF((ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))), "W/B", ""))
  19.  
  20.    IF TYPE("scrcursor") = "U"
  21.       scrcursor = .T.
  22.    ENDIF
  23.    SET CURSOR OFF
  24.  
  25.    PUSHSCREEN()
  26.    @ 0,0 CLEAR
  27.    TEXT
  28. &scrleft_1. / &scrleft_2      
  29.                                                              System Statistics
  30. ════════════════════════════════════╦═════════════════════════════════════════
  31.   Help Status                       ║             Disk / File Status....
  32.    Page Eject                       ╠═════════════════════════════════════════
  33.  Page Numbers                       ║  Available Diskspace
  34.  Message Line                       ║        Selected Area                   
  35.    Delimiters                       ║     Working Database
  36.       Confirm                       ║           ***
  37.          Bell                       ║     Number of Fields
  38.  Deleted Rcds                       ║    Number of Records
  39. Screen Inten.                       ║ Key of Primary Index
  40.      Password                       ║ Date of Last Updated
  41. Program Drive                       ║       Size of Header
  42.    Data Drive                       ║   Byte Size / Record
  43.     Typeahead                       ║        Filter Set At
  44.   Left Margin                       ║     File Relation is
  45.    Top Margin                       ║   Value for Selected
  46.  Screen Level                       ║        Record Number
  47. Window Coord.                       ║                
  48. ════════════════════════════════════╩═════════════════════════════════════════
  49. Press ESC key to Return / ENTER for detail
  50. ENDTEXT
  51.  
  52.    DO WHILE .T.
  53.       SETCOLOR(IF (ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono)), "P/W", SETCOLOR()))
  54.       @  4,14 SAY IF(scrhelp, "Help is On", "Help is OFF")
  55.       @  5,14 SAY IF(screject, "Extra Page Eject", "No Page Eject")
  56.       @  6,14 SAY IF(scrpage, "Print Page Numbers", "No Page Numbers")
  57.       @  7,14 SAY IF(scrmess = 0, "No Message Line", "Message on line " + LTRIM(TRANSFORM(scrmess, "99")))
  58.       @  8,14 SAY IF(scrdelim, "Are set", "Are not set")
  59.       @  9,14 SAY IF(scrconfirm, "Is set", "Is not set")
  60.       @ 10,14 SAY IF(scrbell, "Will Ring", "Will NOT ring")
  61.       @ 11,14 SAY IF(scrdelete, "Show Deleted Records", "Don't show Deletions")
  62.       @ 12,14 SAY IF(scrinten, "Is ON", "Is OFF")
  63.       @ 13,14 SAY IF(scrtimes = 0, "No Password", "Try " + LTRIM(TRANSFORM(scrtimes, "99")) + " times")
  64.       @ 14,14 SAY scrprog
  65.       @ 15,14 SAY scrdata
  66.       @ 16,14 SAY IF(scrtype, "Engaged", "Disengaged")
  67.       @ 17,14 SAY scrlm1
  68.       @ 18,14 SAY scrtm1
  69.       @ 19,14 SAY IF(TYPE("scr_level") = "U", 0, scr_level)
  70.       @ 20,14 SAY IF(TYPE("allwindows") = "U", "Undefined", allwindows[scr_level])
  71.       SETCOLOR(IF( (ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))), "B/W", SETCOLOR() ))
  72.       @  6,59 SAY DISKSPACE(0) PICT "999,999,999,999 bytes"
  73.       @  7,59 SAY SELECT()  PICT "@B"
  74.       @  8,59 SAY FILL_OUT(IF(EMPTY(THE_DBF()), "None in Use", THE_DBF()), 15)
  75.       @ 10,59 SAY FCOUNT()  PICT "@B"
  76.       @ 11,59 SAY LASTREC() PICT "@B"
  77.       @ 12,59 SAY FILL_OUT(IF(EMPTY(INDEXKEY(0)), "None Available", SUBSTR(UPPER(INDEXKEY(0)), 1, 15)), 20)
  78.       @ 13,59 SAY FILL_OUT(IF(EMPTY(LUPDATE()), "Not in Use", DTOC(LUPDATE())), 12)
  79.       @ 14,59 SAY HEADER()  PICT "@B"
  80.       @ 15,59 SAY RECSIZE() PICT "@B"
  81.       @ 16,59 SAY FILL_OUT(IF(EMPTY(DBFILTER()), "None Set", SUBSTR(UPPER(DBFILTER()), 1, 19)), 20)
  82.       @ 17,59 SAY FILL_OUT(IF(EMPTY(DBRELATION(1)), "None Set", SUBSTR(UPPER(DBRELATION()), 1,19)), 20)
  83.       @ 18,59 SAY FILL_OUT(IF(EMPTY(DBRSELECT(1)), "None Set", SUBSTR(UPPER(DBRSELECT()), 1, 19)), 20)
  84.       @ 19,59 SAY TRANSFORM(RECNO(), "@B999999999999999999")
  85.       @ 3,0 SAY ""
  86.       _dummy = INKEY(0)
  87.       IF _dummy = 27
  88.          EXIT
  89.       ELSEIF CHR(_dummy) = "+"
  90.          _sel = SELECT()
  91.          _sel = IF(_sel = 250, 1, _sel+1)
  92.          SELECT (_sel)
  93.  
  94.       ELSEIF CHR(_dummy) = "-"
  95.          _sel = SELECT()
  96.          _sel = IF(_sel = 1, 250, _sel-1)
  97.          SELECT (_sel)
  98.  
  99.       ELSEIF _dummy = 24  && Down arrow
  100.          SKIP
  101.          IF EOF()
  102.             GO TOP
  103.          ENDIF
  104.  
  105.       ELSEIF _dummy = 5  && Up arrow
  106.          SKIP - 1
  107.          IF BOF()
  108.             GO BOTTOM
  109.          ENDIF
  110.  
  111.       ELSEIF _dummy = 13    && Show the Structure of the database
  112.          DISPSTRU()
  113.       ENDIF
  114.    ENDDO
  115.  
  116.    SELECT &_retto.
  117.    SETCOLOR(_ocolor)
  118.    SET CURSOR (scrcursor)
  119.    POPSCREEN()
  120.    @ _poprow, _popcol SAY ""
  121.    
  122. * End of File
  123.