home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 02 / review / txbrowse.bas < prev   
Encoding:
BASIC Source File  |  1990-11-26  |  2.7 KB  |  98 lines
  1. REM *--------------------------------------------------- *
  2. REM *                  TxBrowse.Bas                      *
  3. REM *  Dateibrowser fⁿr das Jahresinhaltsverzeichnis der *
  4. REM *         TOOLBOX fⁿr WinBasic V. 1.01               *
  5. REM *----------------------------------------------------*
  6.  
  7. RECTYPE ToolRec
  8.   RECVAR key%        4
  9.   RECVAR titel$     60
  10.   RECVAR utitel$    60
  11.   RECVAR rubrik$    15
  12.   RECVAR ausgabe$    5
  13.   RECVAR seite$      3
  14. ENDREC
  15.  
  16. RECORD Toolrec txInhalt
  17.  
  18. DIM Menu$(4)
  19.  
  20. SUBROUTINE MakeMenu()
  21.   Menu$(1) = "&Datei &Info &Ende"
  22.   Menu$(2) = "Daten&bank &╓ffnen &Anzeigen &Schlie▀en"
  23.   Menu$(3) = "&Hilfe"
  24.   Menu$(4) = "Bild&schirmhintergrund_Σndern"
  25.   Menu Menu$
  26. ENDSUB
  27.  
  28. SUBROUTINE Hilfe()
  29.   DIALOG 10,  20, 180, 130,  0, 0,  "Hilfefenster"
  30.   DIALOG 55,   5, 150, 120,  0, 5,  "toolbox-Browser:"
  31.   DIALOG  5,  20, 175, 120,  0, 5,  "Das Programm zeigt den Inhalt des Jahres-"
  32.   DIALOG  5,  30, 175, 120,  0, 5,  "inhaltsverzeichnisses der toolbox an, das"
  33.   DIALOG  5,  40, 175, 120,  0, 5,  "Sie auf den aktuellen DATABOX-Disketten"
  34.   DIALOG  5,  50, 175, 120,  0, 5,  "finden."
  35.   DIALOG  5,  60, 175, 120,  0, 5,  "╓ffnen Sie die dBase-Datei im Menⁿ Inhalt."
  36.   DIALOG  5,  70, 175, 120,  0, 5,  "Sie k÷nnen dann in den EintrΣgen blΣttern."
  37.   DIALOG  5,  95, 175, 120,  0, 5,  "Die Datenbankdatei mu▀ numerisch indiziert"
  38.   DIALOG  5, 105, 175, 120,  0, 5,  "sein!"  
  39.   DIALOG 65, 115,  40,  10, 13, 13,  "OK"
  40.   DIALOG
  41. _13:
  42.   DIALOG @
  43. ENDSUB
  44.  
  45.  
  46. SUBROUTINE errmessage()
  47.   MessageBox "Bitte zuerst die Datei auswΣhlen!", "Achtung!", 0, a%
  48. ENDSUB
  49.  
  50. REM ****************  Hauptprogramm: *****************
  51. FONT 400, 400, 400, 0, 1
  52. GOSUB MakeMenu()
  53. farbe% = 0
  54.  
  55. _1001:
  56.   FONT 300, 300, 300, 0, 5
  57.   MESSAGEBOX "TOOLBOX-Inhaltsbrowser"+CHR$(13)+ "(c) 1991 J. Braun & toolbox", "Info", 0, a%
  58.   FONT 400, 400, 400, 0, 1
  59. _1002:
  60.   DBCLOSE #1
  61.   STOP
  62.  
  63. _2001:
  64.   FILES "", "*.dbf", file$
  65.   file$ = UCASE$(file$)
  66.   IF file$ <> "" THEN
  67.     DELETE$ file$, 9, 4
  68.     DBOPEN #1, file$
  69.     IF Error%() <> 0 THEN
  70.       MessageBox "Die Datenbank " + file$ + " kann nicht ge÷ffnet werden!", "FEHLER", 15, a%
  71.     ENDIF   
  72.   ENDIF
  73. _2002:
  74.   IF file$ = "" THEN
  75.     GOSUB errmessage()
  76.   ELSE
  77.     WHILE 1
  78.       F$ = "Inhalt:;Satz-Nr;Titel;UTitel;Rubrik;Ausgabe;Seite;"
  79.       DBBROWSE #1, a%, "", "4,20,20,10,5,3"
  80.       IF a% = 2 THEN BREAK
  81.     WEND
  82.   ENDIF
  83. _2003:
  84.   IF file$ <> "" THEN
  85.     DBCLOSE #1
  86.     MESSAGEBOX "Datei wurde geschlossen", "Info", 0, a%
  87.     file$ = ""
  88.   ELSE
  89.     MESSAGEBOX "Es ist keine Datei ge÷ffnet", "Hinweis", 0, a%
  90.   ENDIF
  91. _3000:
  92.   GOSUB Hilfe()
  93.  
  94. _4000:
  95.   farbe% = farbe% + 1
  96.   IF farbe% = 5 THEN farbe% = 0
  97.   CLS farbe%
  98.