Public Class Form1

    Dim db As New clsdb
    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        get_data
    End Sub
    Sub Get_data()

        Dim d As DateTime

        Dim t As String
        d = db.Get_Parameter(1)
        Me.DateTimePicker1.Value = d.ToShortDateString
        Me.DateTimePicker4.Value = Now.ToString("dd.MM.yyyy") + " " + db.Get_Parameter(2)
        Me.TextBox1.Text = db.Get_Parameter(3)
        Me.TextBox2.Text = db.Get_Parameter(4)
        Me.TextBox3.Text = db.Get_Parameter(5)
        Me.TextBox4.Text = db.Get_Parameter(6)
        Me.CheckBox1.Checked = db.Get_Parameter(7) = "True"
        d = db.Get_Parameter(8)
        Me.DateTimePicker2.Value = d.ToShortDateString
        Me.DateTimePicker3.Value = Now.ToString("dd.MM.yyyy") + " " + db.Get_Parameter(9)

        db.get_rundaten(Me.ListBox1)
        Me.ListBox1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        db.Save_Parameter(1, Me.DateTimePicker1.Value.ToShortDateString)
        db.Save_Parameter(2, Me.DateTimePicker4.Value.ToString("HH:mm:ss"))
        db.Save_Parameter(3, Me.TextBox1.Text)
        db.Save_Parameter(4, Me.TextBox2.Text)
        db.Save_Parameter(5, Me.TextBox3.Text)
        db.Save_Parameter(6, Me.TextBox4.Text)
        If Me.CheckBox1.Checked = True Then
            db.Save_Parameter(7, "True")
            db.Save_Parameter(10, System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString())
        Else
            db.Save_Parameter(7, "False")
            db.Save_Parameter(10, "")
        End If
        db.Save_Parameter(8, Me.DateTimePicker2.Value.ToShortDateString)
        db.Save_Parameter(9, Me.DateTimePicker3.Value.ToString("HH:mm:ss"))
        MsgBox("Parameter wurden gespeichert.", vbInformation)
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim splitter() As String
        splitter = Me.ListBox1.SelectedItem.ToString.Split(":")
        Me.TextBox6.Text = db.Get_Journal(splitter(0))
        Me.TextBox7.Text = db.Get_Uebernahmejournal(splitter(0))

    End Sub

    Private Sub AktualieirenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktualieirenToolStripMenuItem.Click
        Get_data()
    End Sub
End Class