home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / SSBMENU.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  5.6 KB  |  229 lines
  1. <<* SSBMENU.INC *>>
  2.  
  3. <<procedure GenSBMENUBody>>
  4. <<integer count,ndxmax>>
  5. <<begin>>
  6. ON ERROR DO SYSERROR
  7. IF UseStatus
  8. <<pushmargin( 1 )>>
  9. * ---SET environment.
  10. SET TALK OFF
  11. SET STATUS OFF
  12. SET HELP OFF
  13. SET BELL OFF
  14. SET SAFETY OFF
  15. SET ESCAPE OFF  
  16. SET SCOREBOARD OFF
  17. <<popmargin>>
  18. ENDIF
  19. * ---SET CURSOR OFF
  20. ?? SYS(2002)
  21. *
  22. * ---HOTKEYS
  23. * ON KEY=315 DO SYS_HELP 
  24. PRIVATE;
  25.    PgDn,PgUp,Returnkey,DelRecord,;
  26.    ScreenAtr,StatusAtr,WindowAtr,PromptAtr,HiliteAtr,;
  27.    DBFname,DBFtemp,dbfarea,dbfpagemax,NdxOrder,isedited,;
  28.    PromptBar,PromptRow,mainchoice,menuchoice,choice
  29. STORE .F. TO;
  30.    PgDn,PgUp,Returnkey,DelRecord,;
  31.    ScreenAtr,StatusAtr,WindowAtr,PromptAtr,HiliteAtr,;
  32.    DBFname,DBFtemp,dbfarea,dbfpagemax,NdxOrder,isedited,;
  33.    PromptBar,PromptRow,mainchoice,menuchoice,choice
  34.  
  35. <<#
  36.   forall databases
  37.     if ndxtotal > ndxmax
  38.       ndxmax := ndxtotal
  39.     endif
  40.   endfor
  41.   for count := 1 to ndxmax
  42.     genln( 'PRIVATE NDXnam',count,',NDXkey',count )
  43.   endfor
  44.     for count := 1 to ndxmax
  45.       genln( 'STORE .F. TO NDXnam',count,',NDXkey',count )
  46.     endfor
  47. #>>
  48. <<if ismultipage>>
  49. PRIVATE LastRec,recnum,oldrecnum,pageno,PageMax,expr,notes,IsValid
  50. <<else>>
  51. PRIVATE LastRec,recnum,oldrecnum,expr,notes,IsValid
  52. <<endif>>
  53.   <<if ismultipage>>
  54. STORE .F. TO LastRec,recnum,oldrecnum,pageno,PageMax,expr,notes,IsValid
  55.   <<else>>
  56. STORE .F. TO LastRec,recnum,oldrecnum,expr,notes,IsValid
  57.   <<endif>>
  58. <<#
  59.   select all    <<*Let memvars become visible*>>
  60.   select fields on (fldtyp $ 'CDLN') and (fldals = 'M') and fldget
  61.   if fldtotal > 0
  62.     genln( '* ---Declare user-defined memory variables.' )
  63.     GenFldList( 'PRIVATE;' )
  64.       GenMemStore( 'C','STORE " " TO;' )
  65.       GenMemStore( 'N','STORE 0.00 TO;' )
  66.       GenMemStore( 'L','STORE .F. TO;' )
  67.       GenMemStore( 'D','STORE CTOD("  /  /  ") TO;' )
  68.   endif
  69.   select all
  70.   select fields on (fldtyp $ 'CDLN') and (fldals <> 'M') and fldget
  71.   if fldtotal <= 128
  72.     genln( '* ---Declare field memory variables.' )
  73.     GenFldList( 'PRIVATE;' )
  74.       GenFldStore( 'C','STORE " " TO;' )
  75.       GenFldStore( 'N','STORE 0.00 TO;' )
  76.       GenFldStore( 'L','STORE .F. TO;' )
  77.       GenFldStore( 'D','STORE CTOD("  /  /  ") TO;' )
  78.   endif
  79. #>>
  80. *
  81. * ---Open PROCEDURE file.
  82. SET PROCEDURE TO {fileprefix}P
  83. *
  84. * ---Define operation of status
  85. PRIVATE;
  86.    FuncStatu1,FuncStatu2,FuncStatu3,FuncStatu4,;
  87.    FuncStatu5,FuncStatu6,FuncStatu7,FuncStatu8,;
  88.    STORE .F. TO;
  89.    FuncStatu1,FuncStatu2,FuncStatu3,FuncStatu4,;
  90.    FuncStatu5,FuncStatu6,FuncStatu7,FuncStatu8,;
  91. PRIVATE Menuhdg
  92. STORE "" TO Menuhdg
  93. * --- Function itme status
  94.    FuncStatu1 = {.}{FuncStatus1}{.}
  95.    FuncStatu2 = {.}{FuncStatus2}{.}
  96.    FuncStatu3 = {.}{FuncStatus3}{.}
  97.    FuncStatu4 = {.}{FuncStatus4}{.}
  98.    FuncStatu5 = {.}{FuncStatus5}{.}
  99.    FuncStatu6 = {.}{FuncStatus6}{.}
  100.    FuncStatu7 = {.}{FuncStatus7}{.}
  101.    FuncStatu8 = {.}{FuncStatus8}{.}
  102. * --- Function itme Lable
  103.    FuncLable1 = {'}{FuncLable1}{'}
  104.    FuncLable2 = {'}{FuncLable2}{'}
  105.    FuncLable3 = {'}{FuncLable3}{'}
  106.    FuncLable4 = {'}{FuncLable4}{'}
  107.    FuncLable5 = {'}{FuncLable5}{'}
  108.    FuncLable6 = {'}{FuncLable6}{'}
  109.    FuncLable7 = {'}{FuncLable7}{'}
  110.    FuncLable8 = {'}{FuncLable8}{'}
  111.    Menuhdg = {"}{MenuLinehdg}{"}
  112.  
  113. PRIVATE Menucho,Optprc
  114. Menucho = ""
  115. dbfarea = "1"
  116. DO {fileprefix}O
  117. * ---Choose optation Menu
  118. SET COLOR TO N/W ,W/N
  119. @ 21, 0 CLEAR TO 21,79
  120. @ 21,25 SAY '  ╥╡  ╬±  ┤ª  └φ  ╣ª  ─▄  ▒φ  '
  121. SET COLOR TO N/GB ,W/N
  122. @ 22, 0 CLEAR TO 23,79
  123. SET COLOR TO W/B ,W+/R
  124. IF FuncStatu1
  125.    IF LEN( FuncLable1 ) > 0
  126.       @ 23, 1 PROMPT '1' + FuncLable1
  127.    ELSE
  128.       @ 23, 1 PROMPT '1.╩Σ  ╚δ '
  129.    ENDIF
  130.    Menucho = Menucho + "A"
  131. ENDIF
  132. IF FuncStatu2
  133.    IF LEN( FuncLable2 ) > 0
  134.       @ 23,11 PROMPT '2' + FuncLable2
  135.    ELSE
  136.       @ 23,11 PROMPT '2.╨▐  ╕─ '
  137.    ENDIF
  138.    Menucho = Menucho + "B"
  139. ENDIF
  140. IF FuncStatu3
  141.    IF LEN( FuncLable3 ) > 0
  142.       @ 23,21 PROMPT '3' + FuncLable3
  143.    ELSE
  144.       @ 23,21 PROMPT '3.▓Θ  ╤» '
  145.    ENDIF
  146.    Menucho = Menucho + "C"
  147. ENDIF
  148. IF FuncStatu4
  149.    IF LEN( FuncLable4 ) > 0
  150.       @ 23,31 PROMPT '4' + FuncLable4
  151.    ELSE
  152.       @ 23,31 PROMPT '4.═│  ╝╞ '
  153.    ENDIF
  154.    Menucho = Menucho + "D"
  155. ENDIF
  156. IF FuncStatu5
  157.    IF LEN( FuncLable5 ) > 0
  158.       @ 23,41 PROMPT '5' + FuncLable5
  159.    ELSE
  160.       @ 23,41 PROMPT '5.┤≥  ╙í '
  161.    ENDIF
  162.    Menucho = Menucho + "E"
  163. ENDIF
  164. IF FuncStatu6
  165.    IF LEN( FuncLable6 ) > 0
  166.       @ 23,51 PROMPT '6' + FuncLable6
  167.    ELSE
  168.       @ 23,51 PROMPT '6.╫╘╢¿╥σ1'
  169.    ENDIF
  170.    Menucho = Menucho + "F"
  171. ENDIF
  172. IF FuncStatu7
  173.    IF LEN( FuncLable7 ) > 0
  174.       @ 23,61 PROMPT '7' + FuncLable7
  175.    ELSE
  176.       @ 23,61 PROMPT '7.╫╘╢¿╥σ2'
  177.    ENDIF
  178.    Menucho = Menucho + "G"
  179. ENDIF
  180. IF FuncStatu8
  181.    IF LEN( FuncLable8 ) > 0
  182.       @ 23,71 PROMPT '8' + FuncLable8
  183.    ELSE
  184.       @ 23,71 PROMPT '8.╫╘╢¿╥σ3'
  185.    ENDIF
  186.    Menucho = Menucho + "H"
  187. ENDIF
  188. MENU TO Opt_Chi
  189. Optprc = SUBSTR( Menucho,OPt_chi,1 )
  190. DO CASE
  191.    CASE Optprc = "A"
  192.       DO {fileprefix}1
  193.    CASE Optprc = "B"
  194.       DO {fileprefix}2
  195.    CASE Optprc = "C"
  196.       DO {fileprefix}3
  197.    CASE Optprc = "D"
  198.       DO FINDSUB00 WITH "S"
  199.    CASE Optprc = "E"
  200.       DO {fileprefix}5
  201.    CASE Optprc = "F"
  202.       DO {fileprefix}6
  203.    CASE Optprc = "G"
  204.       DO {fileprefix}7
  205.    CASE Optprc = "H"
  206.       DO {fileprefix}8
  207. ENDCASE
  208. IF UseStatus
  209.    * ---Closing operations.
  210.    <<GenColor( 1,'SCREEN' )>>
  211.    CLEAR
  212.    CLEAR MEMORY
  213.    CLOSE DATABASE
  214.    CLOSE INDEX
  215.    CLOSE PROCEDURE
  216.    SET SCOREBOARD ON
  217.    SET ESCAPE ON
  218.    SET SAFETY ON
  219.    ?? SYS(2002,1)
  220.    SET MENUS ON
  221.    SET BELL ON
  222.    SET HELP ON
  223.    SET STATUS ON
  224.    SET TALK ON
  225. ENDIF
  226. <<end>>
  227.  
  228. <<* EOF: SSBMENU.INC *>>
  229.