home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ.SC < prev    next >
Text File  |  1993-12-01  |  1KB  |  68 lines
  1. ; Kfz
  2.  
  3. if (sysmode() <> "Basis") then
  4.   Message "Die Anwendung kann nur vom Paradox-Basismodus aus gestartet werden."
  5.   Sleep 3000
  6.   return
  7. endif
  8.  
  9. Echo Off
  10. Clear
  11. Reset
  12. Cursor Off
  13.  
  14.  
  15. ; Anwender mit dem Startbildschirm begrüßen
  16. @ 2, 0
  17. Play "Kfzg"
  18.  
  19.  
  20. ; nach dem Paßwort der Anwendung fragen; dieses Paßwort bestimmt
  21. ;   die Zugriffsberechtigung des aktuellen Anwenders
  22. ;   zu den Tabellen in der Anwendung
  23.  
  24. @ 0, 0
  25. Style Attribute SysColor(0)
  26. ?? fill(" ",160)
  27. @ 1, 0
  28. ?? "Paßwort für die Anwendung eingeben; [Esc] abbrechen; [Return] kein Paßwort."
  29. @ 0, 0
  30. ?? "Paßwort: "
  31. Cursor Normal
  32. zzzcolor = int(SysColor(0) / 16)
  33. Style Attribute ((zzzcolor * 16) + zzzcolor)
  34. Accept "a50" To pword
  35. Style
  36. EscEnter = not retval
  37. Cursor Off
  38.  
  39. if (EscEnter) then
  40.   Message "Anwendung abbrechen"
  41.   Sleep 2000
  42.   Clear
  43.   return
  44. endif
  45.  
  46. if (pword <> "") then
  47.   Password pword
  48. endif
  49.  
  50.  
  51. ; set up the error proc for the application
  52.  
  53. ReadLib "Kfzutl" ApplicErrorProc
  54. ErrorProc = "ApplicErrorProc"
  55. ApplicErrorRetVal = FALSE
  56.  
  57.  
  58. ; Anwendung starten
  59.  
  60. ReadLib "Kfz1" Kfz1Menu
  61. Kfz1Menu()
  62. Release Procs Kfz1Menu
  63.  
  64. Clearall
  65. if (pword <> "") then
  66.   UnPassword pword
  67. endif
  68.