home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / pbase.zip / EDITFORM.PRG next >
Text File  |  1985-10-03  |  2KB  |  100 lines
  1. * EDITFORM.PRG (10-03.a)
  2. * usage: editform <table-name>
  3. *   cursor and form definition must be preset
  4.  
  5. FORM HEADING '[ Add/Search ]'
  6. FORM SHOW TEXT
  7. FORM SHOW FIELD ALL
  8. DOWHILE true
  9.   SHOW MESSAGE 'Enter data: F2 - OPTIONS'
  10.   FORM READ FIELD ALL
  11.   DOCASE
  12. *   <F2 - options>
  13.     CASE KEYPRESS()=316
  14.       DOMENU
  15.     MENUTITLE '[ Add/Search Options ]'
  16.     MENUOPTION 'Search'
  17.     MENUOPTION 'Add'
  18.     MENUOPTION 'Quit'
  19.     MENUCHOICE choice
  20.     ENDMENU
  21.     DOCASE
  22. *     <search>
  23.       CASE choice=1
  24.     FORM SELECT FROM &1
  25.     DROP FORM
  26.     FORM HEADING '[ NEXT, UPDATE, DELETE, ADD ]'
  27.     FORM SHOW TEXT
  28.     FORM SHOW FIELD ALL
  29.     SHOW MESSAGE 'Modify data: F2 - OPTIONS'
  30.     ASSIGN 1 TO _editfet
  31.     DOWHILE true
  32.       IF _editfet=1
  33.         FETCH
  34.         IF ISEOF()
  35.           CREATE WINDOW 1 3 45 1 30 112 1 '[ End of Fetch ]'
  36.           USE WINDOW 1
  37.           PAUSE
  38.           DROP WINDOW 1
  39.           EXIT
  40.           ENDIF
  41.         FORM SHOW FIELD ALL
  42.         ENDIF
  43.       FORM READ FIELD ALL
  44.       DOCASE
  45. *        <F2>
  46.         CASE KEYPRESS()=316
  47.           DOMENU
  48.         MENUTITLE '[ Search Options ]'
  49.         MENUOPTION 'Next'
  50.         MENUOPTION 'Update'
  51.         MENUOPTION 'Delete'
  52.         MENUOPTION 'Add'
  53.         MENUOPTION 'Return to Search '
  54.         MENUCHOICE choice
  55.         ENDMENU
  56.           DOCASE
  57. *            <next>
  58.         CASE choice=1
  59. *        <update>
  60.         CASE choice=2
  61.           FORM UPDATE &1
  62.           EXIT
  63. *        <delete>
  64.         CASE choice=3
  65.           FORM DELETE FROM &1
  66.           EXIT
  67. *        <add>
  68.         CASE choice=4
  69.           FORM INSERT INTO &1
  70.           EXIT
  71. *        <search again>
  72.         CASE choice=5
  73.           EXIT
  74.         OTHERWISE
  75.           ASSIGN 0 TO _editfet
  76.         ENDCASE
  77.           OTHERWISE
  78.         SOUND
  79.           ENDCASE
  80.         ENDWHILE
  81.       FORM CLEAR FIELD ALL
  82.       DROP FORM
  83.       FORM HEADING '[ ADD, SEARCH ]'
  84.       FORM SHOW TEXT
  85.       FORM SHOW FIELD ALL
  86. *     <add>
  87.       CASE choice=2
  88.     FORM INSERT INTO &1
  89.     FORM CLEAR FIELD ALL
  90. *     <return to caller>
  91.       CASE choice=3
  92.     CLEAR MESSAGE
  93.     DROP VARIABLE LIKE '_???????'
  94.     EXIT
  95.       ENDCASE
  96.     OTHERWISE
  97.       SOUND
  98.     ENDCASE
  99.   ENDWHILE
  100.