53 lines
2.2 KiB
VB.net
53 lines
2.2 KiB
VB.net
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
|
|
|
|
Private Sub btnManuell_Click(sender As Object, e As EventArgs) Handles btnManuell.Click
|
|
Dim frm As New frmColumnsPrint
|
|
frm.DS = ds
|
|
frm.Show()
|
|
End Sub
|
|
End Class |