home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tricks / clipper / demo2.prg < prev    next >
Encoding:
Text File  |  1991-12-22  |  2.0 KB  |  66 lines
  1. ************************************************************
  2. *                                                          *
  3. *       Sprache   :  Clipper Summer '87                    *
  4. *                                                          *
  5. *       DEMO2     :  Funktion DBFBACK                      *
  6. *                    Funktion DBFREST                      *
  7. *                    Funktion DSKREADY                     *
  8. *                    Funktion DOSFEHLER                    *
  9. *                                                          *
  10. *       Copyright :  Ingo Berg, Krefeld im Dezember 1991   *
  11. *                                                          *
  12. ************************************************************
  13.  
  14. Do ClipFunc.Prg          && Einbinden der Clipper-Funktionen
  15.  
  16. Clear
  17.  
  18. @  1, 5 Say " Demo der Clipper-Funktionen Datensicherung "
  19. @  1,55 Say " (C) Ingo Berg 1991 "
  20. @  2, 0 Say Replicate( Chr( 205 ), 80 )
  21.  
  22. * ---< Datensicherung >----------------------------------- *
  23.  
  24.   If dbfback(  4, "DEMO", "DISK" )
  25.  
  26.      @  5, 0 Say " Datensicherung in Ordnung ..." +;
  27.                  " weiter mit beliebiger Taste. "
  28.  
  29.   Else
  30.  
  31.      @  5, 0 Say " Datensicherung fehlerhaft ..." +;
  32.                  " weiter mit beliebiger Taste. "
  33.  
  34.   Endif
  35.  
  36.   Inkey(0)
  37.   @  7, 0 Say Replicate( Chr( 196 ), 80 )
  38.  
  39. * ---< Einlesen einer Datensicherung >-------------------- *
  40.  
  41.   If dbfrest(  9, "DISK", "DEMO" )
  42.  
  43.      @ 10, 0 Say " Ggf. Indizes neu aufbauen !!!"
  44.      @ 11, 0 Say " Daten wurden wieder hergestellt" +;
  45.                  " ... weiter mit beliebiger Taste. "
  46.  
  47.   Else
  48.  
  49.      @ 11, 0 Say " Fehler beim Herstellen der Datenbank"  +;
  50.                  " ... weiter mit beliebiger Taste. "
  51.  
  52.   Endif
  53.  
  54.   Inkey(0)
  55.   @ 13, 0 Say Replicate( Chr( 196 ), 80 )
  56.  
  57.   @ 15, 0 Say " Ende der Demo : Datensicherung DBF-Dateien."
  58.   @ 23, 0
  59.  
  60.   Quit
  61.  
  62. ************************************************************
  63. *                   Ende DEMO2.PRG                         *
  64. ************************************************************
  65.  
  66.