home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / AP1EDPAG.INC < prev    next >
Encoding:
Text File  |  1988-02-11  |  2.0 KB  |  68 lines
  1. <<* EDITPAGE.INC *>>
  2.  
  3. <<procedure EditLitePage>>
  4. <<*       1         2         3         4         5
  5. 01234567890123456789012345678901234567890123456789012345
  6. EDIT/VIEW:  Edit   Find   Goto   Locate   <Delete>   Turn-page
  7.             Next-record   Prev-record   Select   <Return>
  8. *>>
  9. <<begin>>
  10.     <<if ismultials>>
  11.    @ row,0 SAY "EDIT/VIEW:"
  12.    @ row,12 PROMPT "Edit"
  13.    @ row,19 PROMPT "Find"
  14.    @ row,26 PROMPT "Goto"
  15.    @ row,33 PROMPT "Locate"
  16.    @ row,42 SAY "<Delete>"
  17.    @ row,43 PROMPT "Delete"
  18.    @ row,53 PROMPT "Turn-page"
  19.    @ row+1,12 PROMPT "Next-record"
  20.    @ row+1,26 PROMPT "Prev-record"
  21.    @ row+1,40 PROMPT "Select"
  22.    @ row+1,49 SAY "<Return>"
  23.    @ row+1,50 PROMPT "Return"
  24.    MENU TO menuchoice
  25.    editchoice = SUBSTR( Returnkey+"EFGL"+DelRecord+;
  26.                         PgDn+"NPS"+Returnkey,menuchoice+1,1 )
  27.     <<else>>
  28.    @ row,0 SAY "EDIT/VIEW:"
  29.    @ row,12 PROMPT "Edit"
  30.    @ row,19 PROMPT "Find"
  31.    @ row,26 PROMPT "Goto"
  32.    @ row,33 PROMPT "Locate"
  33.    @ row,42 SAY "<Delete>"
  34.    @ row,43 PROMPT "Delete"
  35.    @ row,52 PROMPT "Turn-page"
  36.    @ row+1,12 PROMPT "Next-record"
  37.    @ row+1,26 PROMPT "Previous-record"
  38.    @ row+1,44 SAY "<Return>"
  39.    @ row+1,45 PROMPT "Return"
  40.    MENU TO menuchoice
  41.    editchoice = SUBSTR( Returnkey+"EFGL"+DelRecord+;
  42.                         PgDn+"NP"+Returnkey,menuchoice+1,1 )
  43.     <<endif>>
  44. <<end EditLitePage>>
  45.  
  46.  
  47. <<#
  48. procedure EditPage
  49.   <<if LiteBar or Bracketed>>
  50.     <<if ismultials>>
  51.    @ row+1,12 SAY "{N}ext-record  {P}rev-record  {S}elect  <Return>"
  52.    @ row,0 SAY;
  53.    "EDIT/VIEW:  {E}dit  {F}ind  {G}oto  {L}ocate  <Del>  <PgDn>  <PgUp> "
  54.      <<else>>
  55.    @ row+1,12 SAY "{N}ext-record  {P}revious-record  <Del>  <Return>"
  56.    @ row,0 SAY "EDIT/VIEW:  {E}dit  {F}ind  {G}oto  {L}ocate  <PgDn>  <PgUp> "
  57.      <<endif>>
  58. <<endif>>
  59.   if ismultials>>
  60.    DO GetKey WITH editchoice,"EFGLNPS"+DelRecord+PgDn+PgUp+Returnkey
  61.   <<else>>
  62.    DO GetKey WITH editchoice,"EFGLNP"+DelRecord+PgDn+PgUp+Returnkey
  63.   <<endif>>
  64. end EditPage
  65. #>>
  66.  
  67. <<* EOF: EDITPAGE.INC *>>
  68.