home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tricks / clipper / demo1.prg < prev    next >
Encoding:
Text File  |  1991-12-22  |  4.1 KB  |  125 lines
  1. ************************************************************
  2. *                                                          *
  3. *       Sprache   :  Clipper Summer '87                    *
  4. *                                                          *
  5. *       DEMO1     :  Funktion CHECKDBF                     *
  6. *                                                          *
  7. *       Copyright :  Ingo Berg, Krefeld im Dezember 1991   *
  8. *                                                          *
  9. ************************************************************
  10.  
  11. Do ClipFunc.prg           && Einbinden der Funktion Checkdbf
  12.  
  13. Clear
  14.  
  15. @  1,10 Say " Demo der Clipper-Funktion CHECKDBF  "
  16. @  1,50 Say " (C) Ingo Berg 1991 "
  17. @  2, 0 Say Replicate( Chr( 205 ), 80 )
  18.  
  19. If File( "DEMO.MEM" )
  20.    Erase DEMO.MEM                 && Für wiederholte DEMO
  21.                                   && muß zunächst DEMO.MEM
  22.                                   && gelöscht werden.
  23. Endif
  24.  
  25. * ---< Teil 1 >------------------------------------------- *
  26.  
  27.   @  4, 0 Clear To 24,80
  28.  
  29.   @  4, 2 Say " < Teil 1 : Prüfung auf externe Änderung >  "
  30.   @  6, 5 Say " Syntax: CHECKDBF( 'DEMO', 'L' )            "
  31.  
  32.   If CHECKDBF( "DEMO" , "L" )
  33.  
  34.      * ---< Ergebnis siehe Teil 2 >--- *
  35.  
  36.   Else
  37.  
  38.      @  8, 5 Say " Prüfung durch CHECKDBF war False ...    "
  39.      @  9, 5 Say " >>> Datenbank extern geändert oder"   + ;
  40.                  " DEMO.MEM nicht vorhanden.               "
  41.      @ 11, 0 Say Replicate( Chr( 196 ), 80 )
  42.      @ 13, 5 Say " Folgender Programmeinsatz ist denkbar : "
  43.      @ 14, 5 Say " - Programmzugriff verweigern ...        "
  44.      @ 14,40 Say " < Syntax : Quit >     "
  45.      @ 15, 5 Say " - Reindex aufrufen ...                  "
  46.      @ 15,40 Say " < Syntax : Index On ... > "
  47.  
  48.   Endif
  49.  
  50.   @ 24,  0 Say "Weiter mit beliebiger Taste ..."
  51.   Inkey(0)
  52.  
  53. * ---< Teil 2 >------------------------------------------- *
  54.  
  55.   @  4, 0 Clear To 24,80
  56.  
  57.   @  4, 2 Say " < Teil 2 : Prüfung auf externe Änderung >  "
  58.   @  6, 5 Say " Syntax: CHECKDBF( 'DEMO', 'L' )            "
  59.  
  60.   CHECKDBF( "DEMO" , "S" )        && Erzeugung DEMO.MEM für
  61.                                   && Demonstration
  62.  
  63.   If CHECKDBF( "DEMO", "L" )
  64.  
  65.      Use DEMO
  66.      @  8, 5 Say " Die Prüfung durch CHECKDBF war True," + ;
  67.                  " d.h. Datenzugriff ist möglich "
  68.      Append Blank
  69.  
  70.      Use                          && DBF unbedingt schließen
  71.  
  72.      @ 10, 5 Say " Es wurde ein neuer Satz in DEMO erzeugt."
  73.      @ 11, 5 Say " Hierdurch wurde auch DOS-Info geändert. "
  74.  
  75.   Else
  76.  
  77.      * ---< Ergebnis siehe Teil 1 >--- *
  78.  
  79.   Endif
  80.  
  81.   @ 24,  0 Say "Weiter mit beliebiger Taste ..."
  82.   Inkey(0)
  83.  
  84. * ---< Teil 3 >------------------------------------------- *
  85.  
  86.   @  4, 0 Clear To 24,80
  87.  
  88.   @  4, 2 Say " < Teil 3 : Erzeugung Memory-Datei >        "
  89.   @  6, 5 Say " Vor jedem Programm-Ende müssen die DOS-" + ;
  90.               "Informationen von DEMO.DBF                  "
  91.   @  7, 5 Say  " mit folgender Syntax gesichert werden:    "
  92.   @  9, 5 Say " Syntax: CHECKDBF( 'DEMO', 'S' )            "
  93.  
  94.   If CHECKDBF( "DEMO", "S" )
  95.      @ 11, 5 Say " Wegschreiben der DOS-Info erfolgreich : "
  96.      @ 13, 0 Say Replicate( Chr( 196 ), 80 )
  97.      @ 13, 2 Say " < Aktuelles Directory : > "
  98.      @ 14, 0
  99.      RUN DIR *.MEM
  100.   Else
  101.      @ 13, 5 Say " Fehler beim Wegschreiben der"         + ;
  102.                   " DOS-Info : prüfe Plattenkapazität ...  "
  103.   Endif
  104.  
  105.   @ 24,  0 Say "Weiter mit beliebiger Taste ..."
  106.   Inkey(0)
  107.  
  108. * ---< Ende >--------------------------------------------- *
  109.  
  110.   @  4, 0 Clear To 24,80
  111.  
  112.   CHECKDBF( "DEMO" , "S" )     && Einsatz siehe Teil 1
  113.  
  114.   @  6, 7 Say " Hiermit wäre die Demonstration der"      + ;
  115.               " Funktion CHECKDBF abgeschlossen ...        "
  116.   @ 10, 7 Say " Ein Tipp noch am Ende ...                  "
  117.   @ 12, 7 Say " Versuchen Sie einmal ein DOS-TYPE auf die  "
  118.   @ 12,50 Say " DEMO.MEM ... "
  119.  
  120.   @ 23, 0
  121.   Quit
  122.  
  123. ************************************************************
  124. *                  Ende DEMO1.PRG                          *
  125. ************************************************************