home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / VIEWGEN.ARC / SAM_EDIT.PRG < prev    next >
Encoding:
Text File  |  1985-11-05  |  1.3 KB  |  60 lines
  1. * Program.: SAM_EDIT.PRG
  2. * Author..: Your Name
  3. * Date....: 11/05/85
  4. * Notice..: Copyright 1985, Your Company, All Rights Reserved
  5. * Version.: dBASE III, version 1.1
  6. * Notes...: EDIT/VIEW program for NAMES.DBF
  7. *
  8. PARAMETER row
  9. DO SAYFORM
  10. DO SayRec
  11. choice = "*"
  12. DO WHILE .T.
  13.    IF .NOT. (choice $ "PS"+DelRecord)
  14.       @ row,0 CLEAR
  15.    ENDIF
  16.    SET COLOR TO &PromptAtr
  17.    @ row+1,0 SAY "            Previous  Skip  <Return>"
  18.    @ row,0 SAY "EDIT/VIEW:  Del  Edit  Find  Goto  Help  Locate "
  19.    DO GetKey WITH choice,"EFGHLPS"+Returnkey+DelRecord
  20.    DO CASE
  21.    CASE choice = Returnkey
  22.       EXIT
  23.    CASE choice = "H"
  24.       DO SAM_HELP
  25.       DO SAYFORM
  26.       DO SayRec
  27.    CASE choice = "F"
  28.       DO DoSEEK WITH row,"Enter Lastname + Firstname :"
  29.    CASE choice = "P"
  30.       SKIP -1
  31.       IF BOF()
  32.          DO SayEOF WITH row
  33.       ELSE
  34.          DO SayRec
  35.       ENDIF
  36.    CASE choice = "S"
  37.       SKIP
  38.       IF EOF()
  39.          DO SayEOF WITH row
  40.       ELSE
  41.          DO SayRec
  42.       ENDIF
  43.    CASE choice = "E"
  44.       DO DoEDIT WITH row
  45.    CASE choice = "L"
  46.       DO DoLOCATE WITH row
  47.    CASE choice = "G"
  48.       DO DoGOTO WITH row
  49.    CASE choice = DelRecord
  50.       IF DELETED()
  51.          RECALL
  52.       ELSE
  53.          DELETE
  54.       ENDIF
  55.       DO StatLine WITH RECNO()
  56.    ENDCASE
  57. ENDDO
  58. RETURN
  59. * EOF: SAM_EDIT.PRG
  60.