home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 400616 / data1.cab / Common-Lexware-Sysinfo-Formular / sysinfo.lsf < prev    next >
Text File  |  2003-04-01  |  13KB  |  497 lines
  1. '------------------------'------------------------'------------------------
  2. ' Test Formular
  3. Include "DruckNT.int"
  4. '------------------------'------------------------'------------------------
  5.  
  6. declare external Get(s as String, n as Numeric) as String
  7. declare external Is(s as String, n as Numeric) as Bool
  8. declare external GetNumeric(s as String, n as Numeric) as Numeric
  9. declare external GetInt(s as String, n as Numeric) as Numeric
  10. declare external GetDate(s as String, n as Numeric) as Numeric
  11. declare external GetTime(s as String, n as Numeric) as Numeric
  12. declare external FirstRecord(s as String) as Bool
  13. declare external NextRecord(s as String) as Bool
  14. 'GetCheckStatus frΣgt den Status der Checkboxen aus dem Baum ab! 
  15. declare external GetCheckStatus() as Bool
  16. '-------------------'-------------------DESCRIPTION'-------------------'-------------------
  17. description form_description as "Lexware Systeminformation"
  18. description form_code as "Systeminformation"
  19. description form_version as "2.30.17.1219"
  20. description form_target as "Printer"
  21. description page_orientation as PAGE_PORTRAIT
  22.  
  23. '-------------------'-------------------MARGINS'-------------------'-------------------
  24. SetBodyMargin     ( 110, 200, 140, 200 )        ' left top right bottom
  25. SetFooterMargin   ( 110, 200, 150, 200 )        ' left top right height
  26. SetHeaderMargin   ( 110, 90, 140, 150 )        ' left top right height
  27.  
  28. '-------------------'-------------------KONSTANTEN'-------------------'-------------------
  29.  
  30. '-------------------'-------------------VARIABLEN'-------------------'-------------------
  31. Dim font as FontType
  32. font = CreateFont("Arial",12,FONT_NORMAL,COLOR_BLACK)
  33. Dim fon as FontType
  34. fon = CreateFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  35.  
  36.  
  37. '-------------------'-------------------FUNCTIONS'-------------------'-------------------
  38.  
  39. 'Footer Bereich
  40. function OnPrintFooter()
  41.    RemoveAllTabs()
  42.     SetTabs("L C R")
  43.     SetFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
  44.     DrawHorzLine(LINE_TOP)
  45.     LF
  46.     TL( "⌐ Lexware GmbH & Co. KG 2000\t" + FormatDate("%d.%m.%Y", Now()) + "\tSeite " + PAGENUMBER + "  " +GetFormFileName())
  47.     RemoveAllTabs()
  48. end function
  49.  
  50. 'Header Bereich
  51. function OnPrintHeader()
  52.     RemoveAllTabs()
  53.     SetTabs("L C R")
  54.     SetFont("Arial", 14, FONT_BOLD, COLOR_BLACK)
  55.     TL( "Lexware Systeminformation " + Get("S",41))
  56.     DrawHorzLine(LINE_TOP)
  57.     RemoveAllTabs()
  58. end function
  59.  
  60.  
  61. '------------------------------EVENT HANDLER------------------------------
  62. SetEventHandler(EVENT_PRINT_FOOTER, OnPrintFooter)
  63. SetEventHandler(EVENT_PRINT_HEADER, OnPrintHeader)
  64.  
  65.  
  66. '-----------------------------MAIN------------------------------
  67. dim bG as Bool
  68. dim bG1 as Bool
  69. dim bGC as Bool
  70. dim inhalt as String
  71. dim drucken as Bool
  72. dim drucken_BDll as Bool
  73. dim drucken_SDll as Bool
  74.  
  75. 'dieser Schalter dient lediglich zum aufgerΣumteren drucken. Wenn schon Dinge gedruckt, dann fⁿr die Progs ne neue Seite!
  76. dim bPageBreak as Numeric
  77. bPageBreak = 0
  78.  
  79. ''
  80. if (GetCheckStatus()) then
  81. LF
  82. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  83. TL("Betriebssystem")
  84. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  85. SetTabs(" L L200")  '@TABS L L20
  86. TL("Produkt\t"+ Get("S",1))
  87. TL("Version\t"+ Get("S",2))
  88. TL("Sprache\t"+ Get("S",3))
  89. LF
  90. bPageBreak = 1
  91. end if 
  92.  
  93. if (GetCheckStatus()) then
  94.  
  95. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  96. SetTabs(" L L380")
  97. TL("Verzeichnisse\tPfad")
  98. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  99. TL("Windows-Verzeichnis\t"+ Get("S",4))
  100. TL("System-Verzeichnis\t"+ Get("S",5))
  101. TL("Temp-Verzeichnis\t"+ Get("S",6))
  102. LF
  103. bPageBreak = 1
  104.  
  105. end if
  106.  
  107. if (GetCheckStatus()) then
  108.  
  109. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  110. RemoveAllTabs()
  111. SetTabs(" L R800 R1400")
  112. TL("Browser\tVersion\tStandard")
  113. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  114. bG = FirstRecord("T")
  115. while bG do
  116.     TL(Get("T",1)+"\t"+Get("T",2) +"\t"+Get("T",3))
  117.     bG = NextRecord("T")
  118. end while
  119. LF
  120. bPageBreak = 1
  121.  
  122. end if
  123.  
  124. 'einmal so abfragen um den Systemresourcen-Knoten zu ⁿberspringen 
  125. drucken =  GetCheckStatus()
  126. if (GetCheckStatus()) then
  127.  
  128. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  129. RemoveAllTabs()
  130. SetTabs(" L R800 R1400")
  131. TL("Speicher\tTotal\tFrei")
  132. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  133. TL("Speicherlast\t"+ Get("S",11))
  134. TL("physikalisch\t" + Get("S",12)+"\t" + Get("S",13))
  135. TL("virtuell\t" + Get("S",14)+"\t"+ Get("S",15))
  136. TL("Auslagerungsdatei\t" + Get("S",16)+"\t"+ Get("S",17))
  137. LF
  138. bPageBreak = 1
  139. end if 
  140.  
  141. if (GetCheckStatus()) then
  142.  
  143. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  144. RemoveAllTabs()
  145. SetTabs(" L L200 R800 L900")
  146. TL("Laufwerk\tTyp\tFrei\tPfad")
  147. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  148. bG = FirstRecord("A")
  149. while bG do
  150.     TL(""+Get("A",1)+"\t"+Get("A",2)+"\t"+Get("A",3)+"\t"+Get("A",4) )
  151.     bG = NextRecord("A")
  152. end while
  153. LF
  154. bPageBreak = 1
  155. end if 
  156.  
  157. if (GetCheckStatus()) then
  158.  
  159. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  160. RemoveAllTabs()
  161. SetTabs(" L L500")
  162. TL("LΣndereinstellungen")
  163. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  164. bG = FirstRecord("B")
  165. while bG do
  166.     TL(Get("B",1)+"\t"+Get("B",2) )
  167.     bG = NextRecord("B")
  168. end while
  169. LF
  170. bPageBreak = 1
  171. end if 
  172.  
  173. if (GetCheckStatus()) then
  174.  
  175. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  176. RemoveAllTabs()
  177. SetTabs(" L L900")
  178. TL("Soundkarten\tVersion")
  179. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  180. bG = FirstRecord("D")
  181. while bG do
  182.     TL(Get("D",1)+"\t"+Get("D",2) )
  183.     bG = NextRecord("D")
  184. end while
  185. LF
  186. bPageBreak = 1
  187. end if 
  188.  
  189. if (GetCheckStatus()) then
  190.  
  191. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  192. RemoveAllTabs()
  193. SetTabs(" L L900 L1100")
  194. TL("Drucker\tTreiber\tPfad")
  195. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  196. bG = FirstRecord("E")
  197. while bG do
  198.     TL(Get("E",1)+"\t"+Get("E",2)+"\t"+Get("E",3) )
  199.     bG = NextRecord("E")
  200. end while
  201. LF
  202. bPageBreak = 1
  203. end if 
  204.  
  205. if (GetCheckStatus()) then
  206.  
  207. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  208. RemoveAllTabs()
  209. SetTabs(" L L200")
  210. TL("Anzeige")
  211. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  212. TL("\tTreiber\t"+ Get("S",31) )
  213. TL("\tAufl÷sung\t"+ Get("S",32) )
  214. TL("\tFarbtiefe\t"+ Get("S",33) )
  215. LF
  216. bPageBreak = 1
  217.  
  218. end if 
  219.  
  220. if (GetCheckStatus()) then
  221.  
  222.     'ODBC Treiber Name
  223.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  224.     RemoveAllTabs()
  225.     TL("ODBC Treiber")
  226.     bPageBreak = 1
  227. end if 
  228.     
  229. 'ODBC EintΣge
  230. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  231. RemoveAllTabs()
  232. SetTabs("L  L900")
  233.     
  234. bGC = FirstRecord("C")
  235. while bGC do
  236.         if (GetCheckStatus())then
  237.         SetFont("Arial", 8, FONT_BOLD, COLOR_BLACK)
  238.         TL(Get("C",1))
  239.         TL("Wert\tStatus")
  240.         SetFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
  241.         bG = FirstRecord("F")
  242.         while bG do
  243.             inhalt = Get("F",1)
  244.             TL(inhalt +"\t\t"+Get("F",2) )
  245.             bG = NextRecord("F")
  246.             if (inhalt = "")then 
  247.             bG = FALSE
  248.             end if
  249.         end while
  250.     end if
  251.     bGC = NextRecord("C")
  252. end while
  253.  
  254.  
  255. 'hier geht es los mit den Programmspezifischen ausgaben
  256. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  257.  
  258. bG1 = FirstRecord("G")
  259. while bG1 do
  260. '    TL("prog")
  261.     if (GetCheckStatus()) then
  262.         if (bPageBreak <> 0) then
  263.             PageBreak()
  264.         end if
  265.  
  266.         bPageBreak = 1
  267.         SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  268.         RemoveAllTabs()
  269.         SetTabs(" L L200")
  270.         TL( Get("G",1) )
  271.         SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  272.         TL("Version\t" + Get("G",2) )
  273.         inhalt = Get("G",3)
  274.         if (inhalt <> "")then
  275.             TL("Serien-Nr\t"+ inhalt)
  276.         end if
  277.     end if    
  278.     LF
  279.     bG = FirstRecord("J")
  280.     if (bG) then
  281. '        TL("int")
  282.         if (GetCheckStatus()) then
  283.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  284.             TL("Intern")
  285.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  286.             RemoveAllTabs()
  287.             SetTabs(" L L600")
  288.             TL("Element\tVersion")
  289.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  290.             
  291.             while bG do
  292.                 TL("\t"+Get("J",1)+"\t"+Get("J",2) )
  293.                 bG = NextRecord("J")
  294.             end while
  295.             LF
  296.         end if 
  297.     end if
  298.  
  299.     bG = FirstRecord("I")
  300.     if (bG) then
  301. '    TL("Dll")
  302.         if (GetCheckStatus()) then
  303.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  304.             TL("Dll┤s")
  305.             RemoveAllTabs()
  306.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  307.             SetTabs("L L30 L200 L450 LR950 L1050 L1250")
  308.             TL("Name\tmin.Version\tinst.Version\tGr÷▀e in Bytes \tgeladen\tPfad")
  309.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  310.             while bG do
  311.                 TL(Get("I",7)+"\t"+Get("I",1)+"\t"+Get("I",6)+"\t"+Get("I",4)+"\t"+Get("I",3)+"\t"+Get("I",5)+"\t"+Get("I",2) )
  312.                 bG = NextRecord("I")
  313.             end while
  314.             LF
  315.         end if
  316.      end if
  317.  
  318.     bG = FirstRecord("H")    
  319.     if (bG) then
  320. '    TL("Verz")
  321.         if (GetCheckStatus()) then
  322.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  323.             TL("Verzeichnisse")
  324.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  325.             RemoveAllTabs()
  326.             SetTabs(" L L400")
  327.             TL("Verzeichnis\tPfad")
  328.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  329.             while bG do
  330.                 TL(Get("H",1)+"\t"+Get("H",2) )
  331.                 bG = NextRecord("H")
  332.             end while
  333.             LF
  334.         end if 
  335.     end if
  336.  
  337.     bG = FirstRecord("M")
  338.     if (bG) then
  339. '        TL("DP")
  340.         if (GetCheckStatus()) then
  341.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  342.             TL("Druckparameter")
  343.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  344.             RemoveAllTabs()
  345.             SetTabs(" L L900")
  346.             TL("Element\tWert")
  347.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  348.             bG = FirstRecord("M")
  349.             while bG do
  350.                 TL(Get("M",1)+"\t"+Get("M",2) )
  351.                 bG = NextRecord("M")
  352.             end while
  353.             LF
  354.         end if 
  355.     end if
  356.  
  357.     'bei der Druckauswahl wird nicht zwischen BTrieve und Btrieve-Dll unterschieden, deshalb gilt es fⁿr beide
  358.     drucken_BDll = FALSE
  359.       bG = FirstRecord("K")
  360.     if (bG)then
  361.     drucken = GetCheckStatus()
  362.     drucken_BDll = TRUE 
  363. '    TL("BT")
  364.         if (drucken) then
  365.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  366.             TL("Btrieve")
  367.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  368.             RemoveAllTabs()
  369.             SetTabs(" L L900")
  370.             TL("Element\tWert")
  371.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  372.             bG = FirstRecord("K")
  373.             while bG do
  374.                 TL(Get("K",1)+"\t"+Get("K",2) )
  375.                 bG = NextRecord("K")
  376.             end while
  377.             LF
  378.         end if 
  379.     end if
  380.  
  381.     bG = FirstRecord("L")
  382.     if (bG) then
  383. '    TL("BTDll")
  384.         if (drucken_BDll = FALSE) then
  385.             drucken_BDll = GetCheckStatus()
  386.         end if
  387.         if (drucken_BDll) then    
  388.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  389.             TL("Btrieve-DLL's")
  390.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  391.             RemoveAllTabs()
  392.             SetTabs("L L30 L200 L450 R950 L1050 L1250")
  393.             TL("Name\tmin.Version\tinst.Version\tGr÷▀e in Bytes\tgeladen\tPfad")
  394.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  395.             bG = FirstRecord("L")
  396.             while bG do
  397.                 if (Get("L",1) <> "anzeige") then 
  398.                     TL(Get("L",7)+"\t"+Get("L",1)+"\t"+Get("L",6)+"\t"+Get("L",4)+"\t"+Get("L",3)+"\t"+Get("L",5)+"\t"+Get("L",2) )
  399.                 end if
  400.                 bG = NextRecord("L")
  401.             end while
  402.             LF
  403.         end if 
  404.   end if
  405.  
  406.     'bei der Druckauswahl wird nicht zwischen Sybase-Dll unterschieden, deshalb gilt es fⁿr beide
  407.     drucken_SDll = FALSE
  408.       bG = FirstRecord("P")
  409.     if (bG)then
  410.     drucken = GetCheckStatus()
  411.     drucken_SDll = TRUE 
  412.         if (drucken) then
  413.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  414.             TL("Sybase")
  415.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  416.             RemoveAllTabs()
  417.             SetTabs(" L L900")
  418.             TL("Element\tWert")
  419.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  420.             bG = FirstRecord("P")
  421.             while bG do
  422.                 TL(Get("P",1)+"\t"+Get("P",2) )
  423.                 bG = NextRecord("P")
  424.             end while
  425.             LF
  426.         end if 
  427.     end if
  428.  
  429.     bG = FirstRecord("R")
  430.     if (bG) then
  431.         if (drucken_SDll = FALSE) then
  432.             drucken_SDll = GetCheckStatus()
  433.         end if
  434.         if (drucken_SDll) then    
  435.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  436.             TL("Sybase-DLL's")
  437.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  438.             RemoveAllTabs()
  439.             SetTabs("L L30 L200 L450 R950 L1050 L1250")
  440.             TL("Name\tmin.Version\tinst.Version\tGr÷▀e in Bytes\tgeladen\tPfad")
  441.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  442.             bG = FirstRecord("R")
  443.             while bG do
  444.                 if (Get("R",1) <> "anzeige") then 
  445.                     TL(Get("R",7)+"\t"+Get("R",1)+"\t"+Get("R",6)+"\t"+Get("R",4)+"\t"+Get("R",3)+"\t"+Get("R",5)+"\t"+Get("R",2) )
  446.                 end if
  447.                 bG = NextRecord("R")
  448.             end while
  449.             LF
  450.         end if 
  451.   end if
  452.  
  453.  
  454.     bG = FirstRecord("N")
  455.     if (bG) then
  456. '    TL("Fonts")
  457.         if (GetCheckStatus()) then
  458.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  459.             TL("Schriftarten")
  460.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  461.             RemoveAllTabs()
  462.             SetTabs(" L L300 L500 L700")
  463.             TL("Schriftart\tRaster\tTrueType\tVektor")
  464.             SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  465.             bG = FirstRecord("N")
  466.             while bG do
  467.                 TL(Get("N",1)+"\t"+Get("N",2)+"\t"+Get("N",3)+"\t"+Get("N",4) )
  468.                 bG = NextRecord("N")
  469.             end while
  470.             LF
  471.         end if
  472.     end if 
  473.     
  474.     bG = FirstRecord("O")
  475.     if (bG)then
  476. '    TL("Form")
  477.         if (GetCheckStatus()) then
  478.             SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  479.             TL("Formulare")
  480.             RemoveAllTabs()
  481.             SetFont("Arial", 10, FONT_ITALIC, COLOR_BLACK)
  482.             SetTabs("L L30 L200 L1050 L1250 L1470 R1850")
  483.             TL("Name\tBeschreibung\tVersion\tAusgabe\tDatum\tBytes")
  484.             SetFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
  485.             bG = FirstRecord("O")
  486.             while bG do
  487.                 TL(Get("O",1)+"\t"+Get("O",2)+"\t"+Get("O",3)+"\t"+Get("O",4)+"\t"+Get("O",5)+"\t"+Get("O",6))
  488.                 bG = NextRecord("O")
  489.             end while
  490.             LF
  491.         end if
  492.     end if
  493.     
  494. bG1 = NextRecord("G")
  495. end while 'bG1
  496.  
  497.