home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / check / chkmain.prg < prev    next >
Encoding:
Text File  |  1987-05-24  |  1.4 KB  |  64 lines
  1. * CHKMAIN.PRG
  2. SET TALK OFF
  3. SET ECHO OFF
  4. ! FLIPWLD NUMS ON
  5. ! FLIPWLD CAPS ON
  6. ON ESCAPE RETURN
  7. SET FUNCTION 2 TO ""
  8. SET FUNCTION 3 TO ""
  9. SET FUNCTION 4 TO ""
  10. SET FUNCTION 5 TO ""
  11. SET FUNCTION 6 TO ""
  12. SET FUNCTION 7 TO ""
  13. SET FUNCTION 8 TO ""
  14. SET FUNCTION 9 TO ""
  15. SET FUNCTION 10 TO ""
  16. SET MARGIN TO 5  && ADJUST PRINTER MARGIN
  17. SET PROCEDURE TO SCREENS
  18. SET STATUS OFF
  19. SET BELL OFF
  20. SET CONFIRM ON
  21. STORE 5 TO MSELECT
  22. CLEAR
  23.  
  24. DO WHILE .T.
  25.    DO MENUDRAW
  26.    @ 3,20 SAY " Main Menu - Checking Account     "
  27.    @ 6,5  SAY " 1) Check Register Reports        "
  28.    @ 8,5 SAY " 2) Check Register Maintenance    "
  29.    @ 10,5 SAY " 3) Add New Transactions         "
  30.    @ 12,5 SAY " 4) Exit to Dbase III             "
  31.    @ 14,5 SAY " 5) Exit to System                "
  32.    @ 20,8 SAY " Enter Selection (1 to 4 and <CR> ) "  GET MSELECT PICTURE "9" RANGE 1,5
  33.    READ
  34.    IF MSELECT = 5  && QUIT TO SYSTEM
  35.       QUIT
  36.    ENDIF
  37.  
  38.    IF MSELECT = 4  && QUIT TO DBIII
  39.       CLOSE DATABASES
  40.       SET TALK ON
  41.       SET STATUS ON
  42.       SET ECHO ON
  43.       DO RESET
  44.       CLEAR
  45.       CANCEL
  46.    ENDIF
  47.  
  48.    IF MSELECT = 1
  49.       DO CHKREG
  50.       MSELECT = 5     && DEFAULT VALUE ON REENTRY
  51.    ENDIF
  52.  
  53.    IF MSELECT = 2
  54.       DO CHKEDIT
  55.       MSELECT = 5    && DEFAULT VALUE ON REENTRY
  56.    ENDIF
  57.  
  58.    IF MSELECT = 3
  59.       DO CHKADD
  60.       MSELECT = 5   && DEFAULT VALUE ON REENTRY
  61.    ENDIF
  62.    CLEAR
  63. ENDDO
  64.