home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dgenius.zip / INSTALDG.PRG < prev    next >
Text File  |  1987-02-02  |  3KB  |  122 lines
  1. * System....: dGENIUS
  2. * Program...: INSTALDG.prg
  3. * Purpose...: Menu for Database File and Reports Generator
  4. * Requires..: dGENIUS.prg,STRUX.dbf,SKELETON.dbf,SAVEREST.bin
  5. * Author....: Brian Corll
  6. * Dates.....: 1/13/87
  7. * Notice....: copyright 1987 the Author
  8. * Version...: 1.0 (x1)
  9. * Runs under dBASE III Plus version 1.0,PC-DOS version 3.1
  10. * Notes.....: This is the main menu program.
  11.  
  12.  
  13. clear
  14. set defa to c
  15. set path to c:\dbase
  16. clear all
  17. set stat off
  18. set echo off
  19. set talk off
  20. set scor off
  21. set bell on
  22. set conf on
  23. set safe off
  24. set esca on
  25. Public dbfname,newfield,mname,mfield,get_box,mtype,num_fields,no_flds,;
  26. field1,field2,field3,field4,nogo
  27. ax=.t.
  28. dgopt=space(1)
  29. do while ax
  30.    clear
  31.    set defa to c
  32.    set path to c:\dbase
  33.    set colo to gr+/n,w/b+
  34.    @ 5,10 say "dGENIUS"
  35.    set colo to b+/n
  36.    @ 5,19 say repl(chr(14),5)
  37.    set colo to gr+/n,w/b+
  38.    @ 6,8 to 14,54 double
  39.    @ 7,10 say "Select an option:"
  40.    @ 8,10 say "1. Database Maker"
  41.    set colo to b+/n
  42.    @ 9,10 say "2. Report Generator"
  43.    set colo to g+/n
  44.    @ 10,10 say "3. Find/Edit/Delete Records in Any Database"
  45.    set colo to rb+/n
  46.    @ 11,10 say "4. Add/Revise Records in Any Database"
  47.    set colo to bg+/n
  48.    @ 12,10 say "5. Exit to dBASE III Assistant"
  49.    set colo to w+/n
  50.    @ 13,10 say "6. Create a dBASE Program"
  51.    set colo to r+/n
  52.    @ 14,10 say "7. Return to Master Menu"
  53.    set colo to gr+/n,w/b+
  54.    @ 15,10 get dgopt picture "9"
  55.    @ 15,12 say "<<Enter Selection"
  56.    @ 23,0 to 23,79
  57.    @ 24,0 say "dGENIUS         Version 1.0             January  1987"
  58.    read
  59.  
  60.    do case
  61.       case dgopt="1"
  62.       set colo to r+/n
  63.       @ 8,56 say "Loading Program..."
  64.       set proc to dgeni001
  65.       do get_title
  66.       do fields with dbfname
  67.       do structure
  68.       do exit with dbfname
  69.       clos proc
  70.       case dgopt="2"
  71.       set colo to r+/n
  72.       @ 9,56 say "Loading Program...."
  73.       set proc to dgeni003
  74.       do getdefa
  75.       do actions with mname,mfield,get_box,mtype,num_fields,field1,field2,field3,field4
  76.       if nogo
  77.       clos proc
  78.       loop
  79.       else
  80.       endif
  81.       do booleans with mname,newfield,mfield,get_box,mtype,no_flds,field1,field2,field3,field4
  82.       clos proc
  83.       case dgopt="3"
  84.       set colo to r+/n
  85.       @ 10,56 say "Loading Program...."
  86.       set proc to dgeni002
  87.       do finder
  88.       clos proc
  89.       case dgopt="4"
  90.       set colo to r+/n
  91.       @ 11,56 say "Loading Program..."
  92.       set proc to dgeni002
  93.       do appender
  94.       clos proc
  95.       case dgopt="5"
  96.       clear
  97.       set defa to a
  98.       set path to
  99.       assist
  100.       case dgopt="6"
  101.       clear
  102.       aok=space(1)
  103.       @ 1,0 say "Are you sure you want to leave the dGENIUS program? (Y or N)" get aok pict "!"
  104.       read
  105.       if aok="Y"
  106.       set defa to a
  107.       set path to
  108.       set stat on
  109.       set scor on
  110.       cancel
  111.       endif
  112.       if aok="N"
  113.       loop
  114.       endif
  115.       case dgopt="7"
  116.       quit
  117.       otherwise
  118.       dgopt=space(1)
  119.       loop
  120.    endcase
  121. enddo
  122.