home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / BACK_RES.PRG < prev    next >
Encoding:
Text File  |  1993-05-18  |  4.0 KB  |  127 lines
  1. *****************************************************************************************
  2. *  PROGRAMMA:                     BACK_RES.PRG
  3. *                                 BACKUP & RESTORE PROGRAM
  4. *  GEWIJZIGD:                     041393
  5. *  DOOR     :                    Borland International Inc.
  6. *****************************************************************************************
  7.  
  8. * Main procedure
  9. PROCEDURE Back_res
  10.    CLOSE DATABASES
  11.    PUBLIC mpath
  12.    STORE "" TO choice, answer
  13.    * Define popup
  14.    DO M_popdef
  15.    SET COLOR TO &c_normal
  16.    CLEAR
  17.    SET COLOR TO &c_pop.
  18.    ACTIVATE POPUP backmenu
  19. RETURN TO ZAKEN
  20. *============================ end of main procedure =====================================
  21.  
  22. * UTILITY PROCEDURES
  23.  
  24. PROCEDURE Bbackup
  25.    * Back up database and index files to floppy disk(s)
  26.    ACTIVATE WINDOW backup
  27.       @ 0,0  SAY "-------------- RESERVEKOPIE MAKEN ------------"
  28.       @ 1,2  SAY "   Plaats een geformatteerde diskette in A:   "
  29.       WAIT       "Druk vervolgens op een toets om te beginnen..."
  30.       RUN BACKUP &mpath.*.DBF A:
  31.       RUN BACKUP &mpath.*.DBT A: /A
  32.       RUN BACKUP &mpath.*.MDX A: /A
  33.       ?? CHR(7)
  34.       CLEAR
  35.       ?      "**************  KOPIEREN VOLTOOID ************"
  36.       WAIT
  37.    DEACTIVATE WINDOW backup
  38.    SET COLOR TO &c_normal.
  39.    CLEAR
  40.    SET COLOR TO &c_pop.
  41. RETURN
  42.  
  43. PROCEDURE Back
  44.    * Execute case depending on user's choice
  45.    DO CASE
  46.       CASE BAR() =  2 
  47.      DO Sure
  48.      IF choice = "J"
  49.         DO Bbackup
  50.      ENDIF
  51.       CASE BAR() =  3 
  52.      DO Sure
  53.      IF choice = "J"
  54.         DO Rrestore
  55.      ENDIF
  56.       CASE BAR() =  4 
  57.      RETURN TO Zaken
  58.    ENDCASE
  59. RETURN
  60.  
  61. PROCEDURE M_popdef
  62.    * Defines the main popup menu
  63.    DEFINE POPUP backmenu FROM 7,20 TO 12,59 ;
  64.      MESSAGE "Typ de beginletter van de optie of selecteer en druk op <Return>"
  65.    DEFINE BAR  1 OF backmenu PROMPT "== MENU RESERVEKOPIE/TERUGZETTEN ==" SKIP
  66.    DEFINE BAR  2 OF backmenu PROMPT " Reservekopie van gegevens op diskette"
  67.    DEFINE BAR  3 OF backmenu PROMPT " Gegevens van diskette terugzetten"
  68.    DEFINE BAR  4 OF backmenu PROMPT " Stoppen en naar hoofdmenu"
  69.    ON SELECTION POPUP backmenu DO Back
  70.    DEFINE WINDOW backup FROM 14,15 TO 20,65 COLOR &c_pop.
  71. RETURN
  72.  
  73. PROCEDURE Rrestore
  74.    * Restore database and index files from floppy disk(s)
  75.    ACTIVATE WINDOW backup
  76.       @ 0,0  SAY "------------- GEGEVENS TERUGZETTEN -------------"
  77.       @ 1,0  SAY "Plaats aangegeven reservediskette in station A:"
  78.       WAIT "  Druk vervolgens op een toets om te beginnen..."
  79.       ! RESTORE A: &mpath.*.DBF
  80.       ! RESTORE A: &mpath.*.DBT
  81.       ! RESTORE A: &mpath.*.MDX 
  82.       ?? CHR(7)
  83.       CLEAR
  84.       ?      "*********** TERUGZETTEN VOLTOOID ***********"
  85.       WAIT
  86.    DEACTIVATE WINDOW backup
  87.    SET COLOR TO &c_normal.
  88.    CLEAR
  89.    SET COLOR TO &c_pop.
  90. RETURN
  91.  
  92. PROCEDURE Sure
  93.    * Display confirming message
  94.    SET COLOR TO &c_normal.
  95.    CLEAR
  96.    choice = "N"
  97.    ACTIVATE WINDOW backup
  98.       @ 0, 0  SAY "---------------- WAARSCHUWING ----------------------"
  99.       @ 1, 0  SAY " Weet u zeker dat u wilt terugzetten of een"
  100.       @ 2, 0  SAY " reservekopie wilt maken? "
  101.       @ 3,0   SAy " [ J: Doorgaan  N: Annuleren ]"
  102.       @ 3,32  SAY "KEUZE:" GET choice PICTURE "Y"                    
  103.       ?? CHR(7)
  104.       READ
  105.       IF choice = "N"
  106.          SET COLOR TO &c_pop.
  107.      DEACTIVATE WINDOW backup
  108.      RETURN
  109.       ENDIF
  110.       * Get DOS path for BACKUP or RESTORE programs
  111.       IF UPPER(choice) = "J"
  112.      ?? CHR(7)
  113.      mpath = "C:\dBASE\VOORBLD\" + SPACE(10)
  114.      CLEAR
  115.      @ 0, 0  SAY "--------- PAD NAAR VOORBEELDBESTANDEN ---------"
  116.      @ 1, 0  SAY " Typ stationsletter en volledig DOS-pad"
  117.      @ 2, 0  SAY " (station/pad waar uw databases zich bevinden)"
  118.      @ 3, 2  GET mpath VALID "" <> TRIM(mpath) ;
  119.         MESSAGE "Typ stationsletter en volledig pad"
  120.      READ
  121.      mpath = TRIM(mpath)
  122.       ENDIF
  123.    DEACTIVATE WINDOW backup
  124. RETURN
  125.  
  126. ******************************  END OF BACK_RES.PRG  ************************************
  127.