home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / dbase / sort.prg < prev    next >
Encoding:
Text File  |  1988-07-20  |  1.5 KB  |  56 lines
  1. * -------------------------------------------------------- *
  2. *                   SORT.PRG                               *
  3. *          Modul zum Sortieren der Adressen                *
  4. * -------------------------------------------------------- *
  5. PRIVAT hauptschleife
  6. hauptschleife = .T.
  7. eingabe = .T.
  8. DO WHILE hauptschleife
  9.   CLEAR
  10.   @  8,20 SAY "[ 1 ]  Sortieren nach Nachnamen"
  11.   @  9,20 SAY "[ 2 ]  Sortieren nach PLZ"
  12.   @ 13,20 SAY "[ 0 ]  E n d e"
  13.   art = 1
  14.   DO Fuss WITH art
  15.   eingabe = .T.
  16.   DO WHILE eingabe
  17.     SET CONSOLE OFF
  18.     taste = 0
  19.     DO WHILE taste = 0
  20.       taste = INKEY()
  21.     ENDDO
  22.     SET CONSOLE ON
  23.     DO CASE
  24.       CASE taste = 49
  25.         USE adressen
  26.         sort on nachname/c, vorname/c to sort
  27.         CLOSE DATABASE
  28.         DELETE FILE adressen.dbf
  29.         RENAME sort.dbf TO adressen.dbf
  30.         DELETE FILE sort.dbf
  31.         eingabe = .F.
  32.       CASE taste = 50
  33.         USE adressen
  34.         sort on plz/c, ort/c to sort
  35.         CLOSE DATABASE
  36.         DELETE FILE adressen.dbf
  37.         RENAME sort.dbf TO adressen.dbf
  38.         eingabe = .F.
  39.       CASE taste = 48
  40.         CLEAR
  41.         eingabe = .F.
  42.         hauptschleife = .F.
  43.       CASE taste = 28
  44.         art = 4
  45.         DO Help WITH art
  46.         eingabe = .F.
  47.       CASE taste = 27
  48.         CLEAR
  49.         hauptschleife = .F.
  50.         eingabe = .F.
  51.     ENDCASE
  52.   ENDDO
  53. ENDDO
  54. * -------------------------------------------------------- *
  55. *                   Ende von SORT.PRG                      *
  56.