home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / rllib / demo.prg < prev    next >
Encoding:
Text File  |  1993-07-28  |  5.4 KB  |  192 lines
  1. CLEA
  2. SET SCOR OFF
  3. SET DATE GERMAN
  4. TEXT
  5.      ┌──────────────────────────────────────────────────────────────┐
  6.      │Diese Demo zeigt Ihnen die Verwendung der einzelnen Funktionen│
  7.      │innerhalb der RL.LIB mit erläuternden Texten.                 │
  8.      └──────────────────────────────────────────────────────────────┘
  9.   ┌────────────────────────────────────────────────────────────────────┐
  10.   │1. PASSWORT()      && Komplette Passwortverwaltung                  │
  11.   │2. RL_BACK()       && Komplette BACKUP-Routine                      │
  12.   │3. RL_REST()       && Komplette RESTORE-Routine                     │
  13.   │4. TEXTEDIT()      && Komplette Textbearbeitungsfunktion (MEMOEDIT) │
  14.   │5. KALENDER()      && Kalender-Routine                              │
  15.   │6. SCHATTEN()      && Schatten erzeugen                             │
  16.   │7. RAHMEN()        && Bereich löschen und doppelten Rahmen ziehen   │
  17.   │8. CREAD()         && Cursor anschalten, READ, Cursor ausschalten   │
  18.   └────────────────────────────────────────────────────────────────────┘
  19.             ┌──────────────────────────────────────┐
  20.             │Bitte drücken Sie eine beliebige Taste│
  21.             └──────────────────────────────────────┘
  22. ENDTEXT
  23. SET CURSOR OFF
  24. INKEY(60)
  25.  
  26. * Bildschirm mit Zeichen ▒ füllen
  27. FOR T = 0 TO 24
  28.    @ T,0 SAY REPL("▒",80)
  29. NEXT T
  30.  
  31. * Einige Variablen als PUBLIC deklarieren
  32. PUBL bildschirm
  33.  
  34. * Die PUBLIC-Variablen belegen
  35. bildschirm = 0
  36.  
  37. SAVE SCREEN TO bildschirm
  38.  
  39. schatten(5,20,11,72)
  40. rahmen(4,19,10,71)
  41. @ 5,20 say "Hier wird ein bereits vergebenes Paßwort überprüft."
  42. @ 6,20 say "Wurde ein richtiges User-Paßwort eingegeben wird"
  43. @ 7,20 say "die Abfrage-Routine beendet."
  44. @ 8,20 say "Mögliche Eingaben sind hier 0000,1111 usw. oder das"
  45. @ 9,20 say "Masterpaßwort SuperUser."
  46.  
  47. schatten(14,15,16,63)
  48. rahmen(13,14,15,62)
  49. @ 14,15 say "Bitte gültiges User-Paßwort eingeben"
  50. do while .t.
  51.    passwort(" ","1","W","N",14,52)
  52.    if passwort<>pass
  53.       loop
  54.    endif
  55.    exit
  56. enddo
  57.  
  58. RESTORE SCREEN FROM bildschirm
  59.  
  60. schatten(5,20,9,72)
  61. rahmen(4,19,8,71)
  62. @ 5,20 say "Das eingegebene Paßwort ist gültig für den User "+_USERNR
  63. @ 6,20 say "mit dem User-Namen "+_USERNAME
  64. @ 7,20 say "Bitte eine beliebige Taste drücken."
  65.  
  66. INKEY(60)
  67.  
  68. schatten(5,20,11,72)
  69. rahmen(4,19,10,71)
  70. @ 5,20 say "Hier kann ein bereits vorhandenes Paßwort geändert"
  71. @ 6,20 say "werden. Dazu ist ein gültiges Paßwort oder das"
  72. @ 7,20 say "Masterpaßwort einzugeben. Die Routine erlaubt nun"
  73. @ 8,20 say "den Zugriff auf die gewählte User-Nummer und das"
  74. @ 9,20 say "Ändern des Paßwortes."
  75.  
  76. schatten(14,15,16,63)
  77. rahmen(13,14,15,62)
  78. @ 14,15 say "Bitte gültiges User-Paßwort eingeben"
  79. passwort(" ","2","N","BG",14,52)
  80.  
  81. RESTORE SCREEN FROM bildschirm
  82.  
  83. SET COLOR TO
  84.  
  85. schatten(5,20,9,72)
  86. rahmen(4,19,8,71)
  87. @ 5,20 say "Paßwort geändert. Nicht vergessen die Farbwerte"
  88. @ 6,20 say "nach Ausführung der Routine zurückzusetzen."
  89. @ 7,20 say "Bitte eine beliebige Taste drücken."
  90.  
  91. INKEY(60)
  92.  
  93. schatten(5,20,10,72)
  94. rahmen(4,19,9,71)
  95. @ 5,20 say "Nun wird ein Backup der Datei DEMO.EXE erzeugt. Das"
  96. @ 6,20 say "Backup ist immer nur auf Laufwerk A: möglich. Dabei"
  97. @ 7,20 say "ist die Diskettenkapazität unerheblich."
  98. @ 8,20 say "Bitte eine beliebige Taste drücken."
  99.  
  100. INKEY(60)
  101.  
  102. PFAD="\"+CURDIR()+"\"
  103.  
  104. SET COLOR TO B/W
  105. RL_BACK(PFAD,"DEMO.EXE")
  106. SET COLOR TO
  107.  
  108. RESTORE SCREEN FROM bildschirm
  109.  
  110. schatten(5,20,10,72)
  111. rahmen(4,19,9,71)
  112. @ 5,20 say "Nun wird das Backup der Datei DEMO.EXE wieder auf"
  113. @ 6,20 say "das aktuelle Laufwerk zurückgespielt. Es kann aber"
  114. @ 7,20 say "auch ein anderes Ziellaufwerk gewählt werden."
  115. @ 8,20 say "Bitte eine beliebige Taste drücken."
  116.  
  117. INKEY(60)
  118.  
  119. PFAD="\"+CURDIR()+"\"
  120.  
  121. SET COLOR TO B/W
  122. RL_REST(PFAD)
  123. SET COLOR TO
  124.  
  125. RESTORE SCREEN FROM bildschirm
  126.  
  127. schatten(5,20,10,72)
  128. rahmen(4,19,9,71)
  129. @ 5,20 say "Die Routine TEXTEDIT ermöglicht ein Bearbeiten von"
  130. @ 6,20 say "Texten auf Basis der Clipper-internen MEMOEDIT-"
  131. @ 7,20 say "funktion. Aufruf durch TEXTEDIT('TEXTNAME')"
  132. @ 8,20 say "Bitte eine beliebige Taste drücken."
  133.  
  134. INKEY(60)
  135.  
  136. SET CURSOR ON
  137. SET COLOR TO B/W
  138. TEXTEDIT("DEMO")
  139. SET COLOR TO
  140. SET CURSOR OFF
  141.  
  142. RESTORE SCREEN FROM bildschirm
  143.  
  144. schatten(5,20,10,72)
  145. rahmen(4,19,9,71)
  146. @ 5,20 say "Die Routine KALENDER blättert einen Monatskalender"
  147. @ 6,20 say "in der rechten oberen Bildschirmecke auf. Die Rou-"
  148. @ 7,20 say "tine kann auf eine Funktionstaste gelegt werden."
  149. @ 8,20 say "Bitte eine beliebige Taste drücken."
  150.  
  151. INKEY(60)
  152.  
  153. SET COLOR TO W+/G
  154. KALENDER()
  155. SET COLOR TO
  156.  
  157. RESTORE SCREEN FROM bildschirm
  158.  
  159. schatten(5,20,9,72)
  160. rahmen(4,19,8,71)
  161. @ 5,20 say "Kalender beendet. Nicht vergessen die Farbwerte"
  162. @ 6,20 say "nach Ausführung der Routine zurückzusetzen."
  163. @ 7,20 say "Bitte eine beliebige Taste drücken."
  164.  
  165. INKEY(60)
  166.  
  167. schatten(5,20,10,72)
  168. rahmen(4,19,9,71)
  169. @ 5,20 say "Die Routinen SCHATTTEN und RAHMEN sind bereits in"
  170. @ 6,20 say "dieser Demo mehrfach gezeigt worden. Mit CREAD()"
  171. @ 7,20 say "dürften ebenfalls keine Probleme entstehen."
  172. @ 8,20 say "Bitte eine beliebige Taste drücken."
  173.  
  174. INKEY(60)
  175.  
  176. SET COLOR TO W+/R
  177. schatten(5,20,10,72)
  178. rahmen(4,19,9,71)
  179. @ 5,20 say "Viel Spaß bei der Anwendung dieser Routinen. Für"
  180. @ 6,20 say "Rückfragen wenden Sie sich als autorisierter User"
  181. @ 7,20 say "an die angegebene Telefonnummer."
  182. @ 8,20 say "Bitte eine beliebige Taste drücken."
  183. SET COLOR TO
  184.  
  185. INKEY(60)
  186.  
  187. SET CURSOR ON
  188.  
  189. CLEA
  190.  
  191. QUIT
  192.