home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / dos_txl / beispiel / aktuell.txl < prev    next >
Encoding:
Text File  |  1991-03-22  |  5.9 KB  |  250 lines
  1. 1 gehezu 35 
  2. 2 merke
  3. 3 const 1 1 
  4. 4 const 2 2 
  5. 5 const 3 3 
  6. 6 const 4 4 
  7. 7 const 5 5 
  8. 8 const 31 31 * Menue - Rahmen und Auswahlbalken 
  9. 9 const 30 30 * Menuepunktfarbe 
  10. 10 const 33 33 
  11. 11 const 36 36 
  12. 12 const 31 31 
  13. 13 const 49 49 
  14. 14 merke
  15. 15 label 16 
  16. 16 blockbegin * * * Definition der Menueeinträge 
  17. 17 setze men1 = " Datensätze hinzufügen " 
  18. 18 setze men2 = " Markierte DS löschen " 
  19. 19 setze men3 = " Markierungen rückgängig " 
  20. 20 setze men4 = " Sortieren und Suchen... " 
  21. 21 setze men4A = " Baum erstellen... " 
  22. 22 setze men4B = " >> Editieren / Markieren " 
  23. 23 setze men4C = " Element suchen " 
  24. 24 setze men4D = " Bedingungen für Liste " 
  25. 25 OpenDB 0 "ADRESS" 
  26. 26 setze AktEd = 1 ; 
  27. 27 setze EditorWr = 146 ; 
  28. 28 strdef str 300 
  29. 29 setze Cond = 0 ; 
  30. 30 setze minPlz = 0 ; 
  31. 31 setze maxPlz = 9000 ; 
  32. 32 blockend 
  33. 33 merke
  34. 34 label 35 
  35. 35 gosub 16 
  36. 36 gosub 40 
  37. 37 gehezu 240 
  38. 38 merke
  39. 39 label 40 
  40. 40 blockbegin 
  41. 41 openwindow 10 5 38 10 31 30 0 0 
  42. 42 menue men1 47 men2 64 men3 61 men4 67 
  43. 43 closewindow 
  44. 44 blockend 
  45. 45 merke
  46. 46 label 47 * * * Editieren neuer Datensaetze 
  47. 47 blockbegin 
  48. 48 winmessage " Geben Sie die Sätze in den Editor ein - Hilfe : F1 " 
  49. 49 openwindow 1 1 60 20 33 36 31 31 
  50. 50 initeditor 1 "TEMP.DAT" 
  51. 51 setfkey 1 175 
  52. 52 setfkey 2 188 
  53. 53 GotoEnd 0 
  54. 54 editorproc 1 
  55. 55 closeeditor 1 
  56. 56 setfkey 1 0 
  57. 57 setfkey 2 0 
  58. 58 blockend 
  59. 59 merke
  60. 60 label 61 
  61. 61 UnMarkAll 0 
  62. 62 merke
  63. 63 label 64 
  64. 64 DelMarked 0 
  65. 65 merke
  66. 66 label 67 * * * Baum - Untermenue 
  67. 67 blockbegin 
  68. 68 openwindow 15 10 43 15 31 30 0 0 
  69. 69 menue men4A 74 men4B 81 men4C 159 men4D 209 
  70. 70 closewindow 
  71. 71 blockend 
  72. 72 merke
  73. 73 label 74 * * * Baum nach gewähltem Datenfeld sortieren 
  74. 74 blockbegin 
  75. 75 gosub 168 
  76. 76 pop satznr 
  77. 77 MakeTree 0 satznr 
  78. 78 blockend 
  79. 79 merke
  80. 80 label 81 * * * Daten nach Sortierung im Baum in einem Editorfenster 
  81. 81 blockbegin * * * darstellen F3 : Markieren , F4 : Editieren 
  82. 82 openwindow 1 1 60 20 33 36 31 31 
  83. 83 initeditor 1 "TEMP.DAT" 
  84. 84 setfkey 3 94 
  85. 85 setfkey 4 103 
  86. 86 PassTree 0 Cond 130 
  87. 87 editorproc 1 
  88. 88 setfkey 3 0 
  89. 89 setfkey 4 0 
  90. 90 closeeditor 1 
  91. 91 blockend 
  92. 92 merke
  93. 93 label 94 
  94. 94 blockbegin 
  95. 95 getedword 1 str 
  96. 96 SearchTree 0 POS str 
  97. 97 wenn POS = 1000000000 
  98. 98 winmessage " Satz nicht gefunden ! " 
  99. 99 MarkCurrent 0 1 
  100. 100 blockend 
  101. 101 merke
  102. 102 label 103 
  103. 103 blockbegin 
  104. 104 getedword 1 str 
  105. 105 SearchTree 0 POS str 
  106. 106 wenn POS = 1000000000 
  107. 107 winmessage " Satz nicht gefunden ! " 
  108. 108 gosub 112 
  109. 109 blockend 
  110. 110 merke
  111. 111 label 112 
  112. 112 blockbegin 
  113. 113 openwindow 20 6 50 15 33 36 31 31 
  114. 114 initeditor 2 "TEMP2.DAT" 
  115. 115 setfkey 1 175 
  116. 116 setfkey 2 188 
  117. 117 setze AktEd = 2 ; 
  118. 118 setze EditorWr = 152 ; 
  119. 119 gosub 130 
  120. 120 winmessage " F2 überschreibt ab aktuellem Satz -> Nur 1* benutzen. " 
  121. 121 editorproc 2 
  122. 122 setze EditorWr = 146 ; 
  123. 123 setze AktEd = 1 ; 
  124. 124 closeeditor 2 
  125. 125 setfkey 1 0 
  126. 126 setfkey 2 0 
  127. 127 blockend 
  128. 128 merke
  129. 129 label 130 * * * Schreibt aktuellen Datensatz in Editor Nr 1 
  130. 130 blockbegin 
  131. 131 ReadDBForm 0 1 str 
  132. 132 gosub EditorWr 
  133. 133 ReadDBForm 0 2 str 
  134. 134 gosub EditorWr 
  135. 135 ReadDBForm 0 3 str 
  136. 136 gosub EditorWr 
  137. 137 ReadDBForm 0 4 str 
  138. 138 gosub EditorWr 
  139. 139 ReadDBForm 0 5 str 
  140. 140 gosub EditorWr 
  141. 141 edfunction AktEd 1 0 
  142. 142 edfunction AktEd 13 0 
  143. 143 blockend 
  144. 144 merke
  145. 145 label 146 
  146. 146 blockbegin 
  147. 147 insertstring AktEd str 
  148. 148 insertstring AktEd "  " 
  149. 149 blockend 
  150. 150 merke
  151. 151 label 152 
  152. 152 blockbegin 
  153. 153 insertstring AktEd str 
  154. 154 edfunction AktEd 1 0 
  155. 155 edfunction AktEd 13 0 
  156. 156 blockend 
  157. 157 merke
  158. 158 label 159 
  159. 159 blockbegin 
  160. 160 winreadstring " Bitte zu suchenden Feldinhalt eingeben : " str 50 
  161. 161 SearchTree 0 POS str 
  162. 162 wenn POS = 1000000000 
  163. 163 winmessage " Satz nicht gefunden ! " 
  164. 164 gosub 112 
  165. 165 blockend 
  166. 166 merke
  167. 167 label 168 * * * Auswahl eines Datensatzes 
  168. 168 blockbegin 
  169. 169 openwindow 30 1 40 7 11 30 0 0 
  170. 170 auswahl " Name " " Vorname " " Straße " " PLZ " " Ort " 
  171. 171 closewindow 
  172. 172 blockend 
  173. 173 merke
  174. 174 label 175 * * * Editor - Hotkey : F1 - Hilfe 
  175. 175 blockbegin 
  176. 176 openwindow 20 5 62 16 49 49 0 0 
  177. 177 winwrite 1 1 49 " Kurzhilfe Datensatzeditieren im Editor" 
  178. 178 winwrite 1 3 49 " Feldinhalte untereinander eingeben" 
  179. 179 winwrite 1 4 49 " Cursor auf erstes Feld positionieren" 
  180. 180 winwrite 1 5 49 " und F2 zum Einlesen des Satzes eingeben" 
  181. 181 winwrite 1 6 49 " ESC beendet Editor" 
  182. 182 winwrite 1 8 49 " <Return> drücken ..." 
  183. 183 readln dummy 
  184. 184 closewindow 
  185. 185 blockend 
  186. 186 merke
  187. 187 label 188 * * * Editor - Hotkey : F2 - Datenblock in Datenbank 
  188. 188 blockbegin * * * aufnehmen 
  189. 189 getedstring AktEd str 
  190. 190 WriteDB 0 1 str 0 
  191. 191 edfunction AktEd 2 0 
  192. 192 getedstring AktEd str 
  193. 193 WriteDB 0 2 str 0 
  194. 194 edfunction AktEd 2 0 
  195. 195 getedstring AktEd str 
  196. 196 WriteDB 0 3 str 0 
  197. 197 edfunction AktEd 2 0 
  198. 198 getedstring AktEd str 
  199. 199 strtoi str plz 
  200. 200 WriteDB 0 4 str plz 
  201. 201 edfunction AktEd 2 0 
  202. 202 getedstring AktEd str 
  203. 203 WriteDB 0 5 str 0 
  204. 204 edfunction AktEd 2 0 
  205. 205 AddDB 0 
  206. 206 blockend 
  207. 207 merke
  208. 208 label 209 
  209. 209 blockbegin 
  210. 210 openwindow 30 1 50 4 5 30 0 0 
  211. 211 auswahl "Alle Sätze" "Beschränkung in PLZ" 
  212. 212 closewindow 
  213. 213 pop wahlnr 
  214. 214 wenn wahlnr = 1 
  215. 215 setze Cond = 0 ; 
  216. 216 gosub 220 
  217. 217 blockend 
  218. 218 merke
  219. 219 label 220 
  220. 220 blockbegin 
  221. 221 winreadstring "Minimale PLZ : " plzstr 5 
  222. 222 strtoi plzstr minPlz 
  223. 223 winreadstring "Maximale PLZ : " plzstr 5 
  224. 224 strtoi plzstr maxPlz 
  225. 225 setze Cond = 229 ; 
  226. 226 blockend 
  227. 227 merke
  228. 228 label 229 
  229. 229 blockbegin 
  230. 230 ReadDB 0 4 str plz 
  231. 231 wenn plz < minPlz 
  232. 232 gehezu 237 
  233. 233 wenn plz > maxPlz 
  234. 234 gehezu 237 
  235. 235 GefundenOK 
  236. 236 label 237 
  237. 237 blockend 
  238. 238 merke
  239. 239 label 240 
  240. 240 CloseFile 0 
  241. 241 merke 
  242. 242 merke
  243. 243 merke
  244. 244 merke
  245. 245 merke
  246. 246 merke
  247. 247 merke
  248. 248 merke
  249. 249 merke
  250.