home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / clipper / edit_mai.prg < prev    next >
Encoding:
Text File  |  1992-01-09  |  3.5 KB  |  150 lines
  1. * Programm.:Browse Jahresinhaltsverzeichnis
  2. * Author...:Volker Vogeley
  3. * Datum....:08.01.1992
  4. *
  5. **
  6. ***
  7. ****
  8. ***
  9. **
  10. *
  11. * Rahmenfarbe festlegen
  12. eing=0
  13. DO while .not. lastkey()=27
  14. *********************************************************************
  15. set color to (farbe2)
  16. DO EDIT_MAS
  17. set color to (farbe5)
  18. DO EDIT_ANZ
  19. set color to (farbe3)
  20. *   set wrap off
  21.    SET COLOR TO (Farbe6)
  22.    DO zent with 22,"Blättern mit <PgUP> und <PgDN>"
  23.    @ 23,1 clear to 22,78
  24.    @ 23,2  say "<ESC>=Abbruch "
  25.    @ 23,18 say "<F2>=Edit"
  26.    @ 23,29 say "<F3>=Delete"
  27.    @ 23,42 say "<F4>=Info"
  28.    @ 23,54 say "<F5>=Suchen"
  29. taste = inkey(0)
  30. DO case
  31.  case taste = 18   && Taste PGUP
  32.   if recno()=lastrec()
  33.   goto top
  34.   else
  35.   skip
  36.   endif
  37. case taste = 3    && Taste PGDN
  38.     if bof()
  39.     goto bottom
  40.     else
  41.     skip -1
  42.     endif
  43.  case taste = -1   && F2 Taste
  44.     DO EDIT_LES.prg
  45.     read
  46.  case taste = -2     && F3 Taste für löschen
  47.    save screen to temp
  48.    set color to (Farbe5)
  49.    @ 10,10 to 15,70 double
  50.    set color to (Farbe3)
  51.    @ 11,11 clear to 14,69
  52.    @ 12, 14 say" Soll der Dantsatz wirklich gelöscht werden ? (J/N) "
  53.    taste = inkey(0)
  54.    if taste = 74 .or. taste = 106
  55.    delete
  56.    endif
  57.    restore screen from temp
  58. *
  59. **
  60. ***
  61. ****
  62. *****    FUNKTION:   S U C H E N  nach Datum und Stringinhalt
  63. ****
  64. ***
  65. **
  66. *
  67. CASE taste=-4
  68.    asatz=recno()
  69.    set color to (farbe4)
  70.    save screen to svar
  71.    RAHMEN=chr(201)+chr(205)+chr(187)+chr(186)+chr(188)+chr(205)+;
  72.    chr(200)+chr(186)+"░"
  73.    @ 6,10,18,69 BOX RAHMEN
  74.    set color to (farbe3)
  75.    @ 5,10 say " Opt: Daten Suchen         DBF:INHALT.DBF                  "
  76.    @ 19,10 say "  <ESC> = Beenden                        Ihre Wahl Bitte >  "
  77.    set color to (farbe2)
  78.    dats="                         "
  79.    dat1="                         "
  80.    dat2="                         "
  81.    @ 8,13 say "Autor (Name): "
  82.    @ 8,28 get dats
  83.  *  @ 9,13 say "Autor (Vorname): "
  84.  *  @ 9,32 get dat1
  85.  *  @ 10,13 say "Titel/Beitrag: "
  86.  *  @ 10,32 get dat2
  87.    read
  88.  
  89.    SUCHE=""
  90.    PUBLIC SUCHE
  91.  
  92.    IF empty(DATS)= .F.
  93.     SUCHE=(SUCHE)+CHR(34)+ALLTRIM(DATS)+CHR(34)
  94.    ELSE
  95.    ENDIF
  96.  
  97.    if empty(suche) .or. lastkey()=27
  98.      go asatz
  99.    else
  100.      go top
  101.      @ 15,12 SAY "LOCATE FOR "+(SUCHE)
  102.      locate for NAME=dats
  103.      if FOUND()
  104.       @ 17,12 say "Der Datensatz wurde gefunden !!!!  "
  105.      else
  106.       @ 16,12 say "Der Suchbegriff konnte nicht gefunden werden !"
  107.       @ 17,12 say "Der alte Datensatz wird wieder angezeigt........."
  108.       go asatz
  109.      endif
  110.      taste=" "
  111.      set console off
  112.      @19,69 get taste
  113.      read
  114.      set console on
  115.    endif
  116.    restore screen from svar
  117. CASE TASTE=-3
  118.      SAVE SCREEN TO INFOSCR
  119.      @ 7,9,19,73 BOX BOX3
  120.      @ 6,8 TO 18,72 DOUBLE
  121.      @ 7,9 CLEAR TO 17,71
  122.      @ 6,14 SAY "[■] Information über Inhalt.DBF "
  123.      @ 8,12 SAY "Anzahl der Datensätze/Dateien: "
  124.      @ 8,44 SAY LASTREC()
  125.      @ 10,12 SAY "Aktuelles Verzeichnis :  "+CURDIR()
  126.      @ 12,12 SAY "Datum:              Uhrzeit :  "
  127.      @ 12,20 SAY DATE()
  128.      @ 12,42 SAY TIME()
  129.      @ 16,12 SAY "Freier Speicherplatz:        KByte"
  130.      @ 16,35 SAY LTRIM(STR(ROUND((DISKSPACE()/1024),0)))
  131.      DO Zent WITH 24,"         <ESC>=Beendet die Anzeige der Dateiinformation !       "
  132.      INFO=.F.
  133.      DO WHILE .NOT. INFO
  134.      taste = inkey(0)
  135.       IF taste = 27
  136.         INFO=.T.
  137.       ENDIF
  138.      ENDDO
  139.      RESTORE SCREEN FROM INFOscr
  140.  
  141. ENDCASE
  142. *
  143. ** Programmumgebung für die Rückkehr in das Hauptprogramm
  144. *
  145. enddo
  146. use
  147. set colo to w
  148. return
  149. 
  150.