edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

123

Browse Source
This commit is contained in:
ms
2019-05-07 17:02:34 +02:00
parent b2f61df354
commit f2d5c20559
46 changed files with 7788 additions and 275 deletions
Download Patch File Download Diff File Expand all files Collapse all files

113
Dokumentation/Drucken/frmPrint.Designer.vb generated Normal file
View File

@@ -0,0 +1,113 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmPrint
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrint))
Me.CmdPrint = New System.Windows.Forms.Button()
Me.ChkDHCPDrucken = New System.Windows.Forms.CheckBox()
Me.rdbHostListe = New System.Windows.Forms.RadioButton()
Me.rdbHostCheckListe = New System.Windows.Forms.RadioButton()
Me.lblZugangsdatenDruckWarnung = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'CmdPrint
'
Me.CmdPrint.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdPrint.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdPrint.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
Me.CmdPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdPrint.Location = New System.Drawing.Point(169, 69)
Me.CmdPrint.Name = "CmdPrint"
Me.CmdPrint.Size = New System.Drawing.Size(151, 28)
Me.CmdPrint.TabIndex = 13
Me.CmdPrint.Text = "Drucken"
Me.CmdPrint.UseVisualStyleBackColor = False
'
'ChkDHCPDrucken
'
Me.ChkDHCPDrucken.AutoSize = True
Me.ChkDHCPDrucken.Location = New System.Drawing.Point(170, 12)
Me.ChkDHCPDrucken.Name = "ChkDHCPDrucken"
Me.ChkDHCPDrucken.Size = New System.Drawing.Size(150, 17)
Me.ChkDHCPDrucken.TabIndex = 15
Me.ChkDHCPDrucken.Text = "DHCP Clients andrucken?"
Me.ChkDHCPDrucken.UseVisualStyleBackColor = True
'
'rdbHostListe
'
Me.rdbHostListe.AutoSize = True
Me.rdbHostListe.Checked = True
Me.rdbHostListe.Location = New System.Drawing.Point(12, 12)
Me.rdbHostListe.Name = "rdbHostListe"
Me.rdbHostListe.Size = New System.Drawing.Size(116, 17)
Me.rdbHostListe.TabIndex = 16
Me.rdbHostListe.TabStop = True
Me.rdbHostListe.Text = "Hosts Detailansicht"
Me.rdbHostListe.UseVisualStyleBackColor = True
'
'rdbHostCheckListe
'
Me.rdbHostCheckListe.AutoSize = True
Me.rdbHostCheckListe.Location = New System.Drawing.Point(12, 35)
Me.rdbHostCheckListe.Name = "rdbHostCheckListe"
Me.rdbHostCheckListe.Size = New System.Drawing.Size(104, 17)
Me.rdbHostCheckListe.TabIndex = 17
Me.rdbHostCheckListe.Text = "Hosts Checkliste"
Me.rdbHostCheckListe.UseVisualStyleBackColor = True
'
'lblZugangsdatenDruckWarnung
'
Me.lblZugangsdatenDruckWarnung.AutoSize = True
Me.lblZugangsdatenDruckWarnung.Location = New System.Drawing.Point(166, 39)
Me.lblZugangsdatenDruckWarnung.Name = "lblZugangsdatenDruckWarnung"
Me.lblZugangsdatenDruckWarnung.Size = New System.Drawing.Size(162, 13)
Me.lblZugangsdatenDruckWarnung.TabIndex = 18
Me.lblZugangsdatenDruckWarnung.Text = "Zugangsdaten werden gedruckt!"
Me.lblZugangsdatenDruckWarnung.Visible = False
'
'frmPrint
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.ClientSize = New System.Drawing.Size(342, 114)
Me.Controls.Add(Me.lblZugangsdatenDruckWarnung)
Me.Controls.Add(Me.rdbHostCheckListe)
Me.Controls.Add(Me.rdbHostListe)
Me.Controls.Add(Me.ChkDHCPDrucken)
Me.Controls.Add(Me.CmdPrint)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPrint"
Me.Text = "Printinator"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CmdPrint As Button
Friend WithEvents ChkDHCPDrucken As CheckBox
Friend WithEvents rdbHostListe As RadioButton
Friend WithEvents rdbHostCheckListe As RadioButton
Friend WithEvents lblZugangsdatenDruckWarnung As Label
End Class

1925
Dokumentation/Drucken/frmPrint.resx Normal file
View File

File diff suppressed because it is too large Load Diff

47
Dokumentation/Drucken/frmPrint.vb Normal file
View File

@@ -0,0 +1,47 @@
Public Class frmPrint
Property ds As DataSet = Nothing
Property Druckart As String = "HostListe"
Property DruckeZugangsdaten As Boolean = False
Private Sub CmdPrint_Click(sender As Object, e As EventArgs) Handles CmdPrint.Click
If ChkDHCPDrucken.Checked = False Then deleteDHCPHostsFromDS(ds)
Dim dt As DataTable = Class1.OrderDataTableby(ds.Tables(0), "HOST ASC")
Dim PrintAR As New frmPrintActiveReports
PrintAR.DHCPAndrucken = ChkDHCPDrucken.Checked
PrintAR.dt = dt
PrintAR.DruckArt = Me.Druckart
PrintAR.Show()
End Sub
Private Sub deleteDHCPHostsFromDS(ds As DataSet)
For Each row As DataRow In ds.Tables(0).Select()
If Not row.Item("DHCP") = "0" Then
row.Delete()
End If
Next
ds.Tables(0).AcceptChanges()
End Sub
Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles rdbHostCheckListe.CheckedChanged, rdbHostListe.CheckedChanged
'If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe"
'If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten"
'If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe"
rptSelectinator()
End Sub
Private Function rptSelectinator()
If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe" : lblZugangsdatenDruckWarnung.Visible = False
End Function
Private Sub frmPrint_Load(sender As Object, e As EventArgs) Handles Me.Load
rptSelectinator()
'If Me.DruckeZugangsdaten = True Then lblZugangsdatenDruckWarnung.Visible = True
End Sub
End Class

81
Dokumentation/Drucken/frmPrintActiveReports.Designer.vb generated Normal file
View File

@@ -0,0 +1,81 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPrintActiveReports
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Viewer1 = New GrapeCity.ActiveReports.Viewer.Win.Viewer()
Me.SuspendLayout()
'
'Viewer1
'
Me.Viewer1.CurrentPage = 0
Me.Viewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Viewer1.Location = New System.Drawing.Point(0, 0)
Me.Viewer1.Name = "Viewer1"
Me.Viewer1.PreviewPages = 0
'
'
'
'
'
'
Me.Viewer1.Sidebar.ParametersPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.ParametersPanel.Text = "Parameters"
Me.Viewer1.Sidebar.ParametersPanel.Width = 200
'
'
'
Me.Viewer1.Sidebar.SearchPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.SearchPanel.Text = "Search results"
Me.Viewer1.Sidebar.SearchPanel.Width = 200
'
'
'
Me.Viewer1.Sidebar.ThumbnailsPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.ThumbnailsPanel.Text = "Page thumbnails"
Me.Viewer1.Sidebar.ThumbnailsPanel.Width = 200
Me.Viewer1.Sidebar.ThumbnailsPanel.Zoom = 0.1R
'
'
'
Me.Viewer1.Sidebar.TocPanel.ContextMenu = Nothing
Me.Viewer1.Sidebar.TocPanel.Expanded = True
Me.Viewer1.Sidebar.TocPanel.Text = "Document map"
Me.Viewer1.Sidebar.TocPanel.Width = 200
Me.Viewer1.Sidebar.Width = 200
Me.Viewer1.Size = New System.Drawing.Size(1264, 921)
Me.Viewer1.TabIndex = 0
'
'frmPrintActiveReports
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1264, 921)
Me.Controls.Add(Me.Viewer1)
Me.Name = "frmPrintActiveReports"
Me.Text = "frmPrintActiveReports"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Viewer1 As GrapeCity.ActiveReports.Viewer.Win.Viewer
End Class

120
Dokumentation/Drucken/frmPrintActiveReports.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

49
Dokumentation/Drucken/frmPrintActiveReports.vb Normal file
View File

@@ -0,0 +1,49 @@
Public Class frmPrintActiveReports
Property DruckArt As String = ""
Property DHCPAndrucken As Boolean = False
Public dt As DataTable
Private Sub tsbPDF_Click(sender As Object, e As EventArgs)
'Dim Dateiname As String
Dim savefiledialog As New SaveFileDialog
savefiledialog.Filter = "PDF files (*.pdf)|*.PDF"
savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
savefiledialog.ShowDialog()
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
End Sub
Private Sub frmPrintActiveReports_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim tsbPDF As New ToolStripButton("PDF")
tsbPDF.Image = My.Resources.pdf512
Viewer1.Toolbar.MainBar.Items.Insert(5, tsbPDF)
Print()
End Sub
Private Sub Print()
Select Case DruckArt
Case "HostListe"
Dim Report As New rptHostListe
Report.dt = Me.dt
Report.DHCPAndrucken = Me.DHCPAndrucken
Viewer1.LoadDocument(Report)
Case "HostCheckListe"
Dim Report As New rptHostCheckListe
Report.dt = Me.dt
Report.DHCPAndrucken = Me.DHCPAndrucken
Viewer1.LoadDocument(Report)
Case "HostListeMitZugangsdaten"
Dim Report As New rptHostListeMitZugangsdaten
Report.dt = Me.dt
Report.DHCPAndrucken = Me.DHCPAndrucken
Viewer1.LoadDocument(Report)
End Select
End Sub
End Class

350
Dokumentation/Drucken/rptHostCheckListe.Designer.vb generated Normal file
View File

@@ -0,0 +1,350 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptHostCheckListe
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptHostCheckListe))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtFQDN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtIPAdresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtModell = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStandort = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape3 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtModell, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8})
Me.PageHeader.Height = 0.3333333!
Me.PageHeader.Name = "PageHeader"
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 11.25pt; font-weight: bold; text-align: center"
Me.TextBox8.Text = "Hosts Checkliste"
Me.TextBox8.Top = 0.05118111!
Me.TextBox8.Width = 10.90551!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFQDN, Me.txtIPAdresse, Me.txtModell, Me.txtStandort, Me.txtInfo, Me.Shape1, Me.Shape2, Me.Shape3, Me.Line1})
Me.Detail.Height = 0.4166667!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtFQDN
'
Me.txtFQDN.Height = 0.2!
Me.txtFQDN.Left = 0!
Me.txtFQDN.Name = "txtFQDN"
Me.txtFQDN.Style = "font-size: 9pt"
Me.txtFQDN.Text = "FQDN"
Me.txtFQDN.Top = 0!
Me.txtFQDN.Width = 1.574803!
'
'txtIPAdresse
'
Me.txtIPAdresse.Height = 0.2!
Me.txtIPAdresse.Left = 1.574803!
Me.txtIPAdresse.Name = "txtIPAdresse"
Me.txtIPAdresse.Style = "font-size: 9pt"
Me.txtIPAdresse.Text = "IP"
Me.txtIPAdresse.Top = 0!
Me.txtIPAdresse.Width = 1.082677!
'
'txtModell
'
Me.txtModell.Height = 0.2!
Me.txtModell.Left = 2.65748!
Me.txtModell.Name = "txtModell"
Me.txtModell.Style = "font-size: 9pt"
Me.txtModell.Text = "Modell"
Me.txtModell.Top = 0!
Me.txtModell.Width = 1.574803!
'
'txtStandort
'
Me.txtStandort.Height = 0.2!
Me.txtStandort.Left = 4.232284!
Me.txtStandort.Name = "txtStandort"
Me.txtStandort.Style = "font-size: 9pt"
Me.txtStandort.Text = "Standort"
Me.txtStandort.Top = 0!
Me.txtStandort.Width = 1.574803!
'
'txtInfo
'
Me.txtInfo.Height = 0.3937008!
Me.txtInfo.Left = 6.974803!
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Style = "font-size: 9pt"
Me.txtInfo.Text = "Info"
Me.txtInfo.Top = 0!
Me.txtInfo.Width = 3.93071!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1})
Me.PageFooter.Height = 0.2291667!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} / {PageCount}"
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 9.905513!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 1.0!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox9, Me.TextBox10})
Me.GroupHeader1.Name = "GroupHeader1"
Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
'
'TextBox1
'
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox1.Text = "FQDN"
Me.TextBox1.Top = 0.025!
Me.TextBox1.Width = 1.574803!
'
'TextBox2
'
Me.TextBox2.Height = 0.2!
Me.TextBox2.Left = 1.574803!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox2.Text = "IP"
Me.TextBox2.Top = 0.025!
Me.TextBox2.Width = 1.082677!
'
'TextBox3
'
Me.TextBox3.Height = 0.2!
Me.TextBox3.Left = 2.65748!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox3.Text = "Modell"
Me.TextBox3.Top = 0.025!
Me.TextBox3.Width = 1.574803!
'
'TextBox4
'
Me.TextBox4.Height = 0.2!
Me.TextBox4.Left = 4.232283!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox4.Text = "Standort"
Me.TextBox4.Top = 0.025!
Me.TextBox4.Width = 1.574803!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 5.807087!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: cent" &
"er"
Me.TextBox5.Text = "1"
Me.TextBox5.Top = 0.025!
Me.TextBox5.Width = 0.3637797!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 6.974803!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox7.Text = "Info"
Me.TextBox7.Top = 0.025!
Me.TextBox7.Width = 3.930712!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Shape1
'
Me.Shape1.Height = 0.1574803!
Me.Shape1.Left = 5.905512!
Me.Shape1.LineWeight = 3.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0.01968504!
Me.Shape1.Width = 0.1574802!
'
'Shape2
'
Me.Shape2.Height = 0.1574803!
Me.Shape2.Left = 6.299212!
Me.Shape2.LineWeight = 3.0!
Me.Shape2.Name = "Shape2"
Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape2.Top = 0.01968504!
Me.Shape2.Width = 0.1574802!
'
'Shape3
'
Me.Shape3.Height = 0.1574803!
Me.Shape3.Left = 6.692914!
Me.Shape3.LineWeight = 3.0!
Me.Shape3.Name = "Shape3"
Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape3.Top = 0.01968504!
Me.Shape3.Width = 0.1574802!
'
'TextBox9
'
Me.TextBox9.Height = 0.2!
Me.TextBox9.Left = 6.170866!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: cent" &
"er"
Me.TextBox9.Text = "2"
Me.TextBox9.Top = 0.02519685!
Me.TextBox9.Width = 0.4334646!
'
'TextBox10
'
Me.TextBox10.Height = 0.2!
Me.TextBox10.Left = 6.604331!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: cent" &
"er"
Me.TextBox10.Text = "3"
Me.TextBox10.Top = 0.02480315!
Me.TextBox10.Width = 0.3704726!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.3937008!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.3937008!
Me.Line1.Width = 10.11811!
Me.Line1.X1 = 0.3937008!
Me.Line1.X2 = 10.51181!
Me.Line1.Y1 = 0.3937008!
Me.Line1.Y2 = 0.3937008!
'
'rptHostCheckListe
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 10.90551!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtModell, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtFQDN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtIPAdresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtModell As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtStandort As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape2 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape3 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

126
Dokumentation/Drucken/rptHostCheckListe.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

33
Dokumentation/Drucken/rptHostCheckListe.vb Normal file
View File

@@ -0,0 +1,33 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptHostCheckListe
Public dt As DataTable
Property DHCPAndrucken As Boolean = Nothing
Public counter As Integer = 0
Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
txtIPAdresse.Text = Fields.Item("IPAdresse").Value
txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
txtInfo.Text = ""
' If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"
counter = counter + 1
If counter Mod 2 = 0 Then
Detail.BackColor = Color.Transparent
Else
Detail.BackColor = AltColor
End If
End Sub
Private Sub rptHostCheckListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = dt
End Sub
End Class

311
Dokumentation/Drucken/rptHostListe.Designer.vb generated Normal file
View File

@@ -0,0 +1,311 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptHostListe
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptHostListe))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtFQDN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtIPAdresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.txtModell = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStandort = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtType = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtQInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtModell, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtType, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8})
Me.PageHeader.Height = 0.3333333!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFQDN, Me.txtIPAdresse, Me.txtModell, Me.txtStandort, Me.txtType, Me.txtQInfo, Me.txtInfo})
Me.Detail.Height = 0.2396326!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtFQDN
'
Me.txtFQDN.Height = 0.2!
Me.txtFQDN.Left = 0!
Me.txtFQDN.Name = "txtFQDN"
Me.txtFQDN.Style = "font-size: 9pt"
Me.txtFQDN.Text = "FQDN"
Me.txtFQDN.Top = 0!
Me.txtFQDN.Width = 1.574803!
'
'txtIPAdresse
'
Me.txtIPAdresse.Height = 0.2!
Me.txtIPAdresse.Left = 1.574803!
Me.txtIPAdresse.Name = "txtIPAdresse"
Me.txtIPAdresse.Style = "font-size: 9pt"
Me.txtIPAdresse.Text = "IP"
Me.txtIPAdresse.Top = 0!
Me.txtIPAdresse.Width = 1.082677!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1})
Me.PageFooter.Height = 0.2291667!
Me.PageFooter.Name = "PageFooter"
'
'txtModell
'
Me.txtModell.Height = 0.2!
Me.txtModell.Left = 2.65748!
Me.txtModell.Name = "txtModell"
Me.txtModell.Style = "font-size: 9pt"
Me.txtModell.Text = "Modell"
Me.txtModell.Top = 0!
Me.txtModell.Width = 1.574803!
'
'txtStandort
'
Me.txtStandort.Height = 0.2!
Me.txtStandort.Left = 4.232284!
Me.txtStandort.Name = "txtStandort"
Me.txtStandort.Style = "font-size: 9pt"
Me.txtStandort.Text = "Standort"
Me.txtStandort.Top = 0!
Me.txtStandort.Width = 1.574803!
'
'txtType
'
Me.txtType.Height = 0.2!
Me.txtType.Left = 5.807087!
Me.txtType.Name = "txtType"
Me.txtType.Style = "font-size: 9pt; text-align: left"
Me.txtType.Text = "Type"
Me.txtType.Top = 0!
Me.txtType.Width = 1.082677!
'
'txtQInfo
'
Me.txtQInfo.Height = 0.2!
Me.txtQInfo.Left = 6.889764!
Me.txtQInfo.Name = "txtQInfo"
Me.txtQInfo.Style = "font-size: 9pt"
Me.txtQInfo.Text = "QInfo"
Me.txtQInfo.Top = 0!
Me.txtQInfo.Width = 1.574803!
'
'txtInfo
'
Me.txtInfo.Height = 0.2!
Me.txtInfo.Left = 8.464567!
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Style = "font-size: 9pt"
Me.txtInfo.Text = "Info"
Me.txtInfo.Top = 0!
Me.txtInfo.Width = 2.440946!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7})
Me.GroupHeader1.Name = "GroupHeader1"
Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox1
'
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox1.Text = "FQDN"
Me.TextBox1.Top = 0.025!
Me.TextBox1.Width = 1.574803!
'
'TextBox2
'
Me.TextBox2.Height = 0.2!
Me.TextBox2.Left = 1.574803!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox2.Text = "IP"
Me.TextBox2.Top = 0.025!
Me.TextBox2.Width = 1.082677!
'
'TextBox3
'
Me.TextBox3.Height = 0.2!
Me.TextBox3.Left = 2.65748!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox3.Text = "Modell"
Me.TextBox3.Top = 0.025!
Me.TextBox3.Width = 1.574803!
'
'TextBox4
'
Me.TextBox4.Height = 0.2!
Me.TextBox4.Left = 4.232283!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox4.Text = "Standort"
Me.TextBox4.Top = 0.025!
Me.TextBox4.Width = 1.574803!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 5.807087!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: left" &
""
Me.TextBox5.Text = "Type"
Me.TextBox5.Top = 0.025!
Me.TextBox5.Width = 1.082677!
'
'TextBox6
'
Me.TextBox6.Height = 0.2!
Me.TextBox6.Left = 6.889764!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox6.Text = "QInfo"
Me.TextBox6.Top = 0.025!
Me.TextBox6.Width = 1.574803!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 8.46457!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox7.Text = "Info"
Me.TextBox7.Top = 0.025!
Me.TextBox7.Width = 2.440946!
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 11.25pt; font-weight: bold; text-align: center"
Me.TextBox8.Text = "Hosts Detailansicht"
Me.TextBox8.Top = 0.05118111!
Me.TextBox8.Width = 10.90551!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} / {PageCount}"
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 9.905513!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 1.0!
'
'rptHostListe
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 10.90551!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtModell, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStandort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtType, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtFQDN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtIPAdresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtModell As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtStandort As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtType As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtQInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
End Class

126
Dokumentation/Drucken/rptHostListe.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

35
Dokumentation/Drucken/rptHostListe.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptHostListe
Public dt As DataTable
Property DHCPAndrucken As Boolean = Nothing
Public counter As Integer = 0
Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
txtIPAdresse.Text = Fields.Item("IPAdresse").Value
txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
txtType.Text = Class1.DBNull2emptyString(Fields.Item("Type").Value)
txtQInfo.Text = Class1.DBNull2emptyString(Fields.Item("QINFO").Value)
txtInfo.Text = Class1.DBNull2emptyString(Fields.Item("Info").Value)
' If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"
counter = counter + 1
If counter Mod 2 = 0 Then
Detail.BackColor = Color.Transparent
Else
Detail.BackColor = AltColor
End If
End Sub
Private Sub rptHostListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = dt
End Sub
End Class

339
Dokumentation/Drucken/rptHostListeMitZugangsdaten.Designer.vb generated Normal file
View File

@@ -0,0 +1,339 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptHostListeMitZugangsdaten
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptHostListeMitZugangsdaten))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtFQDN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtIPAdresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtModell = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtType = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtQInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txttxtUser = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUser = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtKennwort = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtModell, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtType, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txttxtUser, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUser, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennwort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox8})
Me.PageHeader.Height = 0.3333333!
Me.PageHeader.Name = "PageHeader"
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 11.25pt; font-weight: bold; text-align: center"
Me.TextBox8.Text = "Hosts Detailansicht"
Me.TextBox8.Top = 0.05118111!
Me.TextBox8.Width = 10.90551!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFQDN, Me.txtIPAdresse, Me.txtModell, Me.txtType, Me.txtQInfo, Me.txtInfo, Me.txtUser, Me.txtKennwort})
Me.Detail.Height = 0.3021818!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtFQDN
'
Me.txtFQDN.Height = 0.2!
Me.txtFQDN.Left = 0!
Me.txtFQDN.Name = "txtFQDN"
Me.txtFQDN.Style = "font-size: 9pt"
Me.txtFQDN.Text = "FQDN"
Me.txtFQDN.Top = 0!
Me.txtFQDN.Width = 1.574803!
'
'txtIPAdresse
'
Me.txtIPAdresse.Height = 0.2!
Me.txtIPAdresse.Left = 1.574803!
Me.txtIPAdresse.Name = "txtIPAdresse"
Me.txtIPAdresse.Style = "font-size: 9pt"
Me.txtIPAdresse.Text = "IP"
Me.txtIPAdresse.Top = 0!
Me.txtIPAdresse.Width = 1.082677!
'
'txtModell
'
Me.txtModell.Height = 0.2!
Me.txtModell.Left = 2.65748!
Me.txtModell.Name = "txtModell"
Me.txtModell.Style = "font-size: 9pt"
Me.txtModell.Text = "Modell"
Me.txtModell.Top = 0!
Me.txtModell.Width = 1.574803!
'
'txtType
'
Me.txtType.Height = 0.2!
Me.txtType.Left = 4.232284!
Me.txtType.Name = "txtType"
Me.txtType.Style = "font-size: 9pt; text-align: left"
Me.txtType.Text = "Type"
Me.txtType.Top = 0!
Me.txtType.Width = 1.082677!
'
'txtQInfo
'
Me.txtQInfo.Height = 0.2!
Me.txtQInfo.Left = 5.314961!
Me.txtQInfo.Name = "txtQInfo"
Me.txtQInfo.Style = "font-size: 9pt"
Me.txtQInfo.Text = "QInfo"
Me.txtQInfo.Top = 0!
Me.txtQInfo.Width = 1.574803!
'
'txtInfo
'
Me.txtInfo.Height = 0.2!
Me.txtInfo.Left = 6.889764!
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Style = "font-size: 9pt"
Me.txtInfo.Text = "Info"
Me.txtInfo.Top = 0!
Me.txtInfo.Width = 1.816142!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1})
Me.PageFooter.Height = 0.2291667!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} / {PageCount}"
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 9.905513!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 1.0!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.txttxtUser, Me.TextBox4})
Me.GroupHeader1.Name = "GroupHeader1"
Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
'
'TextBox1
'
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox1.Text = "FQDN"
Me.TextBox1.Top = 0.025!
Me.TextBox1.Width = 1.574803!
'
'TextBox2
'
Me.TextBox2.Height = 0.2!
Me.TextBox2.Left = 1.574803!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox2.Text = "IP"
Me.TextBox2.Top = 0.025!
Me.TextBox2.Width = 1.082677!
'
'TextBox3
'
Me.TextBox3.Height = 0.2!
Me.TextBox3.Left = 2.65748!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox3.Text = "Modell"
Me.TextBox3.Top = 0.025!
Me.TextBox3.Width = 1.574803!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 4.232284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold; text-align: left" &
""
Me.TextBox5.Text = "Type"
Me.TextBox5.Top = 0.02519685!
Me.TextBox5.Width = 1.082677!
'
'TextBox6
'
Me.TextBox6.Height = 0.2!
Me.TextBox6.Left = 5.31496!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox6.Text = "QInfo"
Me.TextBox6.Top = 0.02519685!
Me.TextBox6.Width = 1.574803!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 6.889767!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox7.Text = "Info"
Me.TextBox7.Top = 0.02519685!
Me.TextBox7.Width = 1.816139!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'txttxtUser
'
Me.txttxtUser.Height = 0.2!
Me.txttxtUser.Left = 8.705906!
Me.txttxtUser.Name = "txttxtUser"
Me.txttxtUser.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.txttxtUser.Text = "Benutzer"
Me.txttxtUser.Top = 0.02519685!
Me.txttxtUser.Width = 0.9811034!
'
'TextBox4
'
Me.TextBox4.Height = 0.2!
Me.TextBox4.Left = 9.687009!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 9pt; font-weight: bold"
Me.TextBox4.Text = "Kennwort"
Me.TextBox4.Top = 0.02480315!
Me.TextBox4.Width = 1.218504!
'
'txtUser
'
Me.txtUser.Height = 0.2!
Me.txtUser.Left = 8.705906!
Me.txtUser.Name = "txtUser"
Me.txtUser.Style = "font-size: 9pt"
Me.txtUser.Text = "User"
Me.txtUser.Top = 0!
Me.txtUser.Width = 0.9811034!
'
'txtKennwort
'
Me.txtKennwort.Height = 0.2!
Me.txtKennwort.Left = 9.687009!
Me.txtKennwort.Name = "txtKennwort"
Me.txtKennwort.Style = "font-size: 9pt"
Me.txtKennwort.Text = "Kennwort"
Me.txtKennwort.Top = 0!
Me.txtKennwort.Width = 1.218504!
'
'rptHostListeMitZugangsdaten
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 10.90552!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFQDN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtIPAdresse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtModell, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtType, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtQInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txttxtUser, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUser, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennwort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtFQDN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtIPAdresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtModell As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtType As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtQInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents txtUser As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtKennwort As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txttxtUser As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

126
Dokumentation/Drucken/rptHostListeMitZugangsdaten.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

37
Dokumentation/Drucken/rptHostListeMitZugangsdaten.vb Normal file
View File

@@ -0,0 +1,37 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptHostListeMitZugangsdaten
Public dt As DataTable
Property DHCPAndrucken As Boolean = Nothing
Public counter As Integer = 0
Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value)
txtIPAdresse.Text = Fields.Item("IPAdresse").Value
txtModell.Text = Class1.DBNull2emptyString(Fields.Item("Modell").Value)
' txtStandort.Text = Class1.DBNull2emptyString(Fields.Item("Standort").Value)
txtType.Text = Class1.DBNull2emptyString(Fields.Item("Type").Value)
txtQInfo.Text = Class1.DBNull2emptyString(Fields.Item("QINFO").Value)
txtInfo.Text = Class1.DBNull2emptyString(Fields.Item("Info").Value)
txtUser.Text = Class1.DBNull2emptyString(Fields.Item("Benutzer").Value)
txtKennwort.Text = Class1.DBNull2emptyString(Fields.Item("Passwort").Value)
' If Not Fields.Item("DHCP").Value = "0" And DHCPAndrucken = True Then txtFQDN.Text = Class1.DBNull2emptyString(Fields.Item("FQDN").Value) 'txtFQDN.Text = "DHCP Bereich"
counter = counter + 1
If counter Mod 2 = 0 Then
Detail.BackColor = Color.Transparent
Else
Detail.BackColor = AltColor
End If
End Sub
Private Sub rptHostListe_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = dt
End Sub
End Class