home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dba0187.zip / EDITDEL.SC < prev    next >
Text File  |  1986-12-05  |  1KB  |  55 lines

  1.  
  2. ; ----------------------------------------- EditDel.SC
  3. ; ------------------------ Edit/Delete data in a table.
  4. ;-------------------- Pre-sort into alphabetical order.
  5. STYLE REVERSE,BLINK
  6. @ 12,10 CLEAR EOL
  7. ?? "Pre-Sorting to simplify editing..."
  8. SORT "CustList" ON "Last Name" "First Name" "M.I."
  9. BEEP
  10. ;--------------------- Set up loop for editing.
  11. CLEAR
  12. StillAtIt = TRUE
  13. WHILE StillAtIt
  14.       CLEARALL
  15.       CLEAR
  16.       STYLE ATTRIBUTE 30
  17.       @ 12,10
  18.       ?? "Enter last name to look up "
  19.       @ 14,10
  20.       ?? "Or just press Enter to exit: "
  21.       ACCEPT "A20" TO LookUp
  22.  
  23.       ;---------- If no entry, exit.
  24.       IF ISBLANK(LookUp) THEN
  25.          @ 24,1 CLEAR EOL
  26.          ?? "Returning to menu..."
  27.          QUITLOOP
  28.       ENDIF
  29.  
  30.       @ 24,1
  31.       ?? "Setting pointer to " + Lookup
  32.       ;----- Perform a "find" query.
  33.       MENU {Ask} {CustList}
  34.       [Last Name] = "Like " + LookUp
  35.       [#] = "Find"
  36.       DO_IT!
  37.  
  38.       ;----- If no match, warn user.
  39.       IF (NRECORDS("Answer") = 0) THEN
  40.           BEEP
  41.           @ 24,1 CLEAR EOL
  42.           ?? "There is nobody named "+LookUp
  43.           SLEEP 5000
  44.           LOOP
  45.       ENDIF
  46.  
  47.       ;-- Allow full editing from cursor position.
  48.       EDITKEY
  49.       WAIT TABLE
  50.            MESSAGE "Press F2 when done"
  51.            UNTIL "F2"
  52.            ;-- Save changes.
  53.            DO_IT!
  54. ENDWHILE
  55.