home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / employee / newmenu.cl_ / newmenu.cl
Encoding:
Text File  |  1994-08-18  |  940 b   |  44 lines
  1. // NEWMENU.PRG
  2. // Employee Information menu routine module
  3. // November, 1993
  4.  
  5. FUNCTION Menu()
  6.    LOCAL MainMenu, wMenuHandle, TheChoice, OldMsg
  7.  
  8.    MainMenu   := {}
  9.      AAdd(MainMenu, {" Data Entry "})
  10.    AAdd(MainMenu, {110, " Employee Entry        "})
  11.    AAdd(MainMenu, {120, " Supervisor Code Entry "})
  12.    AAdd(MainMenu, {130, " Department Code Entry "})
  13.  
  14.      wMenuHandle := CRTAddMenu(MainMenu)
  15.  
  16.    MainMenu   := {}
  17.    AAdd(MainMenu, {" Exit "})
  18.    AAdd(MainMenu, {210, " Exit "})
  19.  
  20.      CRTAddMenu(MainMenu)
  21.  
  22.      CRTSetCaption('Employee Information')
  23.    OldMsg    := Msg('Select a menu option')
  24.       
  25.    TheChoice := 0
  26.    DO WHILE TheChoice != 210
  27.         TheChoice := InKey(0)
  28.          DO CASE
  29.          CASE TheChoice = 110
  30.             Entry110()
  31.          CASE TheChoice = 120
  32.             Entry120()
  33.          CASE TheChoice = 130
  34.             Entry130()
  35.       ENDCASE
  36.          CLS
  37.    ENDDO
  38.  
  39.    Msg(OldMsg)
  40.    CRTDeleteMenu(wMenuHandle)
  41.  
  42.      RETURN TRUE
  43.  
  44.