home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9203 / paradox / eingabe.sc next >
Encoding:
Text File  |  1992-03-08  |  2.5 KB  |  90 lines
  1. ; Eingabe »Namen«
  2.  
  3. ClearAll
  4. View "namen"
  5. FormKey
  6. EditKey
  7. while (TRUE)
  8.    wait Record
  9.      Prompt "Sie editieren Record Nummer: " + strval(recNo()) +
  10.              " von " + strval (nrecords(table())),
  11.              "Drücken Sie [F10] für das Menü"
  12.  
  13.    until "F2", "Esc","F10","Down","Up","PgDn", "PgUp"
  14.    if isBlank([key]) then
  15.      [Key] = subStr ([Name],1,20)+subStr ([Vorname],1,10)
  16.      nummer = RecNo()
  17.      key = [Key]
  18.      locate key
  19.      if retval then
  20.        moveto record nummer
  21.        [Key] = substr ([key],1,25) + strval (round(100*rand(),0))
  22.      endIf
  23.    EndIf
  24.  
  25.    SWITCH
  26.      case retval = "Down":
  27.             Down
  28.      case retval = "Up":
  29.             Up
  30.      case retval = "PgDn":
  31.             PgDn
  32.      case retval = "PgUp":
  33.             PgUp
  34.      case retval= "F2" :
  35.             do_it!
  36.             QuitLoop
  37.      case retval = "Esc":
  38.             CancelEdit QuitLoop
  39.      case retval = "F10":
  40.         SHOWMENU
  41.            "Abbruch": "Eingabe abbrechen",
  42.            "Ok": "Eingabe abschließen",
  43.             "Suchen": "Nach Namen suchen",
  44.            "Neu": "Leeren Datensatz anfügen",
  45.            "Del": "Aktuellen Datensatz löschen"
  46.          to wahl
  47.          switch
  48.             case wahl = "Abbruch":
  49.                 CancelEdit
  50.                 QuitLoop
  51.             case wahl = "Ok":
  52.                  do_it!
  53.                  QuitLoop
  54.             case wahl = "Neu":
  55.                 Down
  56.                 PgDn
  57.             case wahl = "Del":
  58.                 Del
  59.             case wahl = "Suchen":
  60.                    @0,0 ?? "Geben Sie den Namen ein: "
  61.                   clear EOL
  62.                   Accept "A30"
  63.             ;          picture "
  64.                   to namen
  65.                   clear EOL
  66.                   moveto [name]
  67.                   locate pattern namen + ".."
  68.                   if not retval then
  69.                      Message "keine Übereinstimmung gefunden"
  70.                      sleep 1000
  71.                   endIf
  72.                   while retval
  73.                     Prompt "Nächster mit Ctrl N]",
  74.                            "Abbruch mit [Esc]"
  75.                     wait record
  76.                     until "Esc", chr (14)
  77.                     down
  78.                     locate next pattern namen + ".."
  79.                     if not retval then Message "Keinen weiteren Eintrag gefunden"
  80.                         sleep 1000
  81.                     endIf
  82.                   endwhile
  83.                   if isBlank ([]) then del endIf
  84.                   prompt
  85.          endswitch
  86.  
  87.  
  88.    ENDSWITCH
  89. EndWhile
  90.