home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbsales.zip / DBSALES.LBR / GAMAIN.PRO < prev    next >
Text File  |  1986-01-14  |  4KB  |  171 lines
  1. * GAMAIN.PRO Master file and menu in prospecting database
  2. *
  3. *
  4. *
  5. *
  6. *
  7. CLEAR
  8. SET BELL OFF
  9. SET ESCAPE OFF
  10. SET DELETED ON
  11. *
  12. * password system and all public memvars from GAMEM.PRO
  13. * password logon database named GALOG.PRO
  14. * gampass is password memvar
  15. * gacolor is color set up
  16. * gasysa is drive for program, memory and logon  files and default drive
  17. * gasysb is drive for database and index files
  18. * gaboot is dBASE boot drive (used for DOS access)
  19. * gadata memvars refer to cosmetic field names
  20. *
  21. TEXT
  22. (C)Copyright, Glenn Abelson/Sales 1985
  23. P.O. Box 1031
  24. Rockville Ctr. NY 11571
  25. 516 766 7782
  26. ENDTEXT
  27. PUBLIC gampass, gamcolor, gasysa, gasysb, mname, gadata1,;
  28. gadata2, gadata3, gadata4
  29. RESTORE FROM GAMEM.PRO
  30. *
  31. * These stores set up uses and dos to proper drives
  32. * must come after RESTORE
  33. *
  34. PUBLIC gafile, gause, gado, gakey, gacompany, gaindex, ganame,;
  35. gause1, gaprospects
  36. SET CONSOLE OFF
  37. STORE 'PROSPECTS ' TO gafile
  38. STORE 'USE 'TO gause
  39. STORE 'DO ' to gado
  40. STORE 'KEY, 'TO gakey
  41. STORE 'COMPANY, 'TO gacompany
  42. STORE 'INDEX ' TO gaindex
  43. STORE 'NAME ' TO ganame
  44. STORE '&gause&gasysb&gafile&gaindex&gasysb&gakey&gasysb;
  45. &gacompany&gasysb&ganame' to gause1
  46. STORE '&gado&gasysb&gafile' to gaprospects
  47. SET CONSOLE ON
  48. SET DEFAULT TO &gasysa
  49. USE GALOG.PRO
  50. DO WHILE .T.
  51. ?
  52. ACCEPT 'User name ... ' to mname
  53. *
  54. * Find the name in the logon database
  55. *
  56. SET CONSOLE OFF
  57. LOCATE FOR USER = "&mname"
  58. SET CONSOLE ON
  59. IF EOF()
  60. ? 'Hi, either you are not a valid user,'
  61. ? 'you forgot to use GASETUP.PRO'
  62. ?'or you did not enter your name exactly'
  63. ?'as it appears in the file.'
  64. ?
  65. ?' Please try again'
  66. LOOP
  67. *
  68. * Loop if user name doesn't match
  69. *
  70. ENDIF
  71. CLOSE DATABASE 
  72. ACCEPT 'Password...' to mpass
  73. If substr(gampass,3,10) <> mpass
  74. ? chr(7)
  75. ? 'Sorry, wrong password'
  76. CANCEL
  77. ENDDO
  78. ENDIF
  79. *
  80. * MAIN MENU PORTION OF PROGRAM
  81. *
  82. SELECT 1
  83. &gause1
  84. DO WHILE .T.
  85. CLEAR
  86. TEXT
  87.     ******************************************************************ì
  88.     
  89.  
  90.     THE SALES PROSPECTOR --
  91.  
  92.                        1.  Let's add some names
  93.  
  94.                        2.  Find a specific name or company
  95.  
  96.                        3.  Edit and Change (Dialing for dollars)
  97.  
  98.                        4.  Ugh, Maintanence
  99.  
  100.                        5.  DOS access, please
  101.  
  102.                        6.  SAVE AND CONTINUE
  103.  
  104.                        7.  Quit -- to dbase or DOS
  105.  
  106.     *****************************************************************
  107. ENDTEXT
  108. *
  109. * Print date and time along row 2 of menu
  110. * Convert 24 hour clock to AM, PM clock
  111. *
  112. PUBLIC mtime, mmin, mampm
  113. SET CONSOLE OFF
  114. STORE SUBSTR(TIME(),1,2) TO mtime
  115. IF mtime <= '12'
  116. STORE SUBSTR(time(),3,3) to mmin
  117. STORE ' ' to mampm
  118. ELSE
  119. STORE ' PM' to mampm
  120. STORE VAL(mtime) - 12 to mtime
  121. STORE SUBSTR (time(),3,3) to mmin
  122. SET CONSOLE ON
  123. ENDIF
  124. *
  125. * Print date and time information
  126. *
  127. @ 2,5 SAY CMONTH(DATE())
  128. @ 2,17 SAY DAY(DATE())
  129. @ 2,22 SAY YEAR(DATE())
  130. @ 2,30 SAY CDOW(DATE())
  131. @ 2,50 SAY mtime picture '@B'
  132. @ 2,52 SAY mmin
  133. @ 2,55 SAY mampm
  134. *
  135. *  Enter Main DO CASE section
  136. *
  137. @ 20,0 say 'Press any key when ready, &mname '
  138. SET CONSOLE OFF
  139. WAIT TO SALES
  140. SET CONSOLE ON
  141. DO CASE SALES
  142.    CASE SALES = '1'
  143.         DO GAADD.PRO
  144.    CASE SALES = '2'
  145.         DO GAFIND.PRO
  146.    CASE SALES = '3'
  147.         DO GAEDIT.PRO
  148.    CASE SALES = '4'
  149.         DO GAUPDATE.PRO
  150.    CASE SALES = '5'
  151.         ? ' Type EXIT to return to dBASE'
  152.         STORE 'COMMAND' TO gados
  153.         !&gaboot&gados
  154.         CLEAR
  155.    CASE SALES = '6'
  156.         ?' SAVING FILE'
  157.         CLOSE DATABASES
  158.         SELECT 1
  159.         &gause1
  160.    CASE SALES = '7'
  161.         ? 'To exit to DOS press return'
  162.         ? 'To exit to DBASE press any key except return'
  163.         WAIT TO OUT
  164.         IF OUT < "!"
  165.            QUIT
  166.         ENDIF
  167.            SET ESCAPE ON
  168.            CANCEL
  169. ENDCASE
  170. ENDDO
  171.