home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / dbase / suchen.prg < prev   
Encoding:
Text File  |  1988-07-20  |  2.1 KB  |  85 lines
  1. * -------------------------------------------------------- *
  2. *                    SUCHEN.PRG                            *
  3. *            Modul zum Suchen und Ändern                   *
  4. * -------------------------------------------------------- *
  5. SET EXACT OFF
  6. PRIVATE suchen, name, weiter, art
  7. USE adressen
  8. STORE SPACE(20) TO name
  9. suchen = .T.
  10. weiter = .T.
  11. eingabe = .T.
  12. DO WHILE suchen
  13.   CLEAR
  14.   @ 2,10 SAY "Suchen, ändern und löschen..."
  15.   DO WHILE weiter
  16.     art = 3
  17.     DO Fuss WITH art
  18.     SET CONSOLE OFF
  19.     taste = 0
  20.     DO WHILE taste = 0
  21.       @ 24,79 SAY ""
  22.       taste = INKEY()
  23.     ENDDO
  24.     SET CONSOLE ON
  25.     @ 22,40 SAY SPACE(39)
  26.     DO CASE
  27.       CASE taste = 27       &&ESC TASTE
  28.         weiter = .F.
  29.         suchen = .F.
  30.       CASE taste = 28       && F1 TASTE
  31.         art = 3
  32.         DO Help with art
  33.         taste = 0
  34.       CASE taste = -1       && F2 TASTE
  35.         DELETE
  36.         PACK
  37.         EXIT
  38.         suchen = .t.
  39.       CASE taste = -2       && F3 TASTE
  40.         CLEAR GETS       && Read befehle aufheben
  41.         @ 22,40 SAY "Nachname :" GET name
  42.         READ
  43.         @ 22,40 SAY SPACE(39)
  44.         LOCATE FOR UPPER("&name") $ UPPER(nachname)
  45.         IF EOF()
  46.           @ 22,40 SAY "Name nicht gefunden"
  47.           GO TOP
  48.           DO Anzeigen
  49.           weiter = .T.
  50.         ELSE
  51.           DO Anzeigen
  52.         ENDIF
  53.         CLEAR GETS
  54.       CASE taste = -5       && F6 TASTE
  55.         IF BOF()
  56.           APPEND BLANK
  57.         ENDIF
  58.         IF EOF()        &&Dateiende abfangen
  59.           SKIP -1
  60.         ENDIF
  61.         DO Anzeigen
  62.         READ
  63.       CASE taste = -8       && F9 TASTE
  64.         IF BOF()
  65.           GO TOP         &&Dateianfang abfangen
  66.         ELSE
  67.           SKIP -1
  68.         ENDIF
  69.         DO Anzeigen
  70.       CASE taste = -9       && F10 TASTE
  71.         IF .NOT. EOF()
  72.           SKIP +1
  73.         ELSE
  74.           GO BOTTOM      &&Dateiende abfangen
  75.         ENDIF
  76.         DO Anzeigen
  77.     ENDCASE
  78.   ENDDO
  79. ENDDO
  80. CLEAR ALL
  81. CLOSE DATABASE
  82. RETURN
  83. * -------------------------------------------------------- *
  84. *                  Ende von SUCHEN.PRG                     *
  85.