***** MAIN FORM *****

Public Class MainForm

    Private Sub MainForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.MainSize = Me.Size
        My.Settings.MainLocation = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Me.Size = My.Settings.MainSize
            Me.Location = My.Settings.MainLocation
            Me.BackgroundImage = Image.FromFile(My.Settings.MainImage)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub AddBooksToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBooksToolStripMenuItem.Click
        AddBooks.MdiParent = Me
        AddBooks.Show()
    End Sub

    Private Sub IssueBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IssueBookToolStripMenuItem.Click
        IssueBook.MdiParent = Me
        IssueBook.Show()
    End Sub

    Private Sub ReturnBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReturnBookToolStripMenuItem.Click
        ReturnBook.MdiParent = Me
        ReturnBook.Show()
    End Sub

    Private Sub BookReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BookReportToolStripMenuItem.Click
        BookDetail.MdiParent = Me
        BookDetail.Show()
    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseAllToolStripMenuItem.Click
        Dim child As Form
        For Each child In MdiChildren
            child.Close()
        Next
    End Sub

    Private Sub AddGroupToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddGroupToolStripMenuItem.Click
        GroupID.MdiParent = Me
        GroupID.Show()
    End Sub

    Private Sub PictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureToolStripMenuItem.Click
        With OpenFileDialog1
            .FileName = ""
            .Filter = ".jpg|*.jpg|.png|*.png|.gif|*.gif|.bmp|*.bmp"
        End With
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureToolStripMenuItem.Checked = True
            Dim BackFile As String
            BackFile = OpenFileDialog1.FileName
            Me.BackgroundImage = Image.FromFile(BackFile)
            My.Settings.MainImage = BackFile
            My.Settings.Save()
        End If
    End Sub


    Private Sub AddCustomerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddCustomerToolStripMenuItem.Click
        AddCustomer.MdiParent = Me
        AddCustomer.Show()
    End Sub

    Private Sub ViewCustomerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewCustomerToolStripMenuItem.Click
        CustomerDetail.MdiParent = Me
        CustomerDetail.Show()
    End Sub

    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
        About.MdiParent = Me
        About.Show()
    End Sub

    Private Sub BackgroundToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundToolStripMenuItem.Click

    End Sub

    Private Sub AllRentedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllRentedToolStripMenuItem.Click
        AllRented.MdiParent = Me
        AllRented.Show()
    End Sub





    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
        Label2.Text = DateString
    End Sub

    Private Sub ToolStripStatusLabel2_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub StatusStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles StatusStrip1.ItemClicked

    End Sub

    Private Sub ToolStripStatusLabel4_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel4.Click

    End Sub

    Private Sub WebsiteToolStripMenuItem_Click(sender As Object, e As EventArgs)
        System.Diagnostics.Process.Start("www.dasbeck.net")
    End Sub

    Private Sub WebsiteToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles WebsiteToolStripMenuItem.Click
        System.Diagnostics.Process.Start("www.dasbeck.net")
    End Sub
End Class


***** SACHSTAMM HINZUFÜGEN *******

Public Class AddBooks
    Public NameFrm, NameTo As String
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()
    End Sub

    Private Sub AddBooks_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call generateyear()
        Call disablethem()
        Call readData()
        Call GroupID_Combo()
    End Sub
    Sub GroupID_Combo()
        Try
            If objcon.State = ConnectionState.Closed Then objcon.Open()
            com = New OleDb.OleDbCommand("Select GroupID from GroupD", objcon)
            dr = com.ExecuteReader
            While dr.Read
                ComboBox1.Items.Add(dr.Item(0))
            End While
            dr.Close()
            objcon.Close()
        Catch ex As Exception

        End Try
    End Sub
    Sub generateyear()
        Dim YearNow As Integer
        YearNow = Int(My.Computer.Clock.LocalTime.Year.ToString)
        Dim a, b, c As Integer
        a = YearNow - 5
        b = YearNow
        For c = a To b
            ComboBox2.Items.Add(c)
        Next
    End Sub

    Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus
        ComboBox1.Text = ComboBox1.Text.ToUpper()
    End Sub

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ComboBox3.Text = "Available"
        Call enablethem()
    End Sub

    Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
        NameFrm = TextBox2.Text
        Call Sentence()
        TextBox2.Text = NameTo
    End Sub
    Sub disablethem()
        'TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        ComboBox1.Enabled = False
        TextBox4.Enabled = False
        TextBox5.Enabled = False
        TextBox6.Enabled = False
        ComboBox2.Enabled = False
        ComboBox3.Enabled = False
    End Sub
    Sub enablethem()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        ComboBox1.Enabled = True
        TextBox4.Enabled = True
        TextBox5.Enabled = True
        TextBox6.Enabled = True
        ComboBox2.Enabled = True
        ComboBox3.Enabled = True
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
    End Sub

    Sub Sentence()
        Dim a, b As Integer
        a = NameFrm.Length
        NameTo = ""
        For b = 0 To a - 1
            If b = 0 Then
                If Char.IsLower(NameFrm(0)) Then
                    NameTo = Char.ToUpper(NameFrm(0))
                Else
                    NameTo = NameFrm(0)
                End If
            Else
                If NameFrm(b - 1) = " " Then
                    NameTo = NameTo + Char.ToUpper(NameFrm(b))
                Else
                    NameTo = NameTo + NameFrm(b)
                End If
            End If
        Next
    End Sub

    Private Sub TextBox3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.LostFocus
        NameFrm = TextBox3.Text
        Call Sentence()
        TextBox3.Text = NameTo
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.LostFocus
        NameFrm = TextBox4.Text
        Call Sentence()
        TextBox4.Text = NameTo
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus
        NameFrm = TextBox5.Text
        Call Sentence()
        TextBox5.Text = NameTo
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("Bitte trage die Identnummer ein!", 0, "")
        Else
            Try
                If objcon.State = ConnectionState.Closed Then objcon.Open()
                com = New OleDb.OleDbCommand("INSERT INTO Books VALUES('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & ComboBox3.Text & "')", objcon)
                com.ExecuteNonQuery()
                Call readData()
                MsgBox("gespeichert", 0, "OK")
                objcon.Close()
            Catch ex As Exception

            End Try
        End If
    End Sub
    Sub readData()
        ListView1.Clear()
        ListView1.Columns.Add("Identnummer", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Gruppe", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Bezeichnung", 310, HorizontalAlignment.Center)
        ListView1.Columns.Add("Merkmal", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("User", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jahr", 130, HorizontalAlignment.Center)
        ListView1.Columns.Add("Version", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Preis", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Status", 90, HorizontalAlignment.Center)
        ListView1.View = View.Details
        Try

            If (objcon.State = ConnectionState.Closed) Then objcon.Open()
            com = New OleDb.OleDbCommand("SELECT * FROM Books ", objcon)
            dr = com.ExecuteReader
            While dr.Read()
                Call adddatatolistview(ListView1, dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6), dr(7), dr(8))
            End While
            dr.Close()
            objcon.Close()
        Catch
            'MsgBox("Please Refresh", MsgBoxStyle.Information, "")
        End Try
    End Sub
    Public Sub adddatatolistview(ByVal lvw As ListView, ByVal BookID As String, ByVal GroupID As String, ByVal BookName As String, ByVal Publisher As String, ByVal Author As String, ByVal PubYear As String, ByVal edi As String, ByVal pric As String, ByVal st As String)
        Dim lv As New ListViewItem
        lvw.Items.Add(lv)
        lv.Text = BookID
        lv.SubItems.Add(GroupID)
        lv.SubItems.Add(BookName)
        lv.SubItems.Add(Publisher)
        lv.SubItems.Add(Author)
        lv.SubItems.Add(PubYear)
        lv.SubItems.Add(edi)
        lv.SubItems.Add(pric)
        lv.SubItems.Add(st)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Try
            If objcon.State = ConnectionState.Closed Then objcon.Open()

            If MessageBox.Show("Wollen sie dies wirklich löschen?", "Sind sie sicher?", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                com = New OleDb.OleDbCommand("DELETE FROM Books WHERE BookID='" & TextBox1.Text & "'", objcon)
                com.ExecuteNonQuery()
                objcon.Close()
                MsgBox("gelöscht", 0, "OK")
            End If
        Catch ex As Exception

        End Try
    End Sub
    Sub fill_list()
        com = New OleDb.OleDbCommand("Select * from Books", objcon)
        Dim dr As OleDb.OleDbDataReader
        dr = com.ExecuteReader
        dr.Read()
        While (dr.NextResult)

        End While
    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim i As Integer
        ListView1.SelectedItems.Clear()
        TextBox1.Focus()
        Try
            If Me.TextBox1.Text = "" Then
                TextBox2.Text = ""
            Else
                For i = 0 To ListView1.Items.Count - 1
                    If TextBox1.Text = ListView1.Items(i).SubItems(0).Text Then
                        ComboBox1.Text = ListView1.Items(i).SubItems(1).Text
                        TextBox2.Text = ListView1.Items(i).SubItems(2).Text
                        TextBox3.Text = ListView1.Items(i).SubItems(3).Text
                        TextBox4.Text = ListView1.Items(i).SubItems(4).Text
                        ComboBox2.Text = ListView1.Items(i).SubItems(5).Text
                        TextBox5.Text = ListView1.Items(i).SubItems(6).Text
                        TextBox6.Text = ListView1.Items(i).SubItems(7).Text
                        ComboBox3.Text = ListView1.Items(i).SubItems(8).Text
                        ListView1.Items(i).Selected = True
                        Exit For
                    End If
                Next
            End If
        Catch

        End Try
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim i As Integer
        For i = 0 To ListView1.Items.Count - 1
            If ListView1.Items(i).Selected = True Then
                TextBox1.Text = ListView1.Items(i).SubItems(0).Text
                TextBox7.Clear()
                Exit For
            End If
        Next
        ListView1.Focus()
        ListView1.FullRowSelect = True
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Try
            Dim i As Integer
            For i = 0 To ListView1.Items.Count - 1
                If ListView1.Items(i).Selected = True Then
                    TextBox1.Text = ListView1.Items(i + 1).SubItems(0).Text
                    Exit For
                End If
            Next
            ListView1.Focus()
            ListView1.FullRowSelect = True
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Call GroupNameCom()
    End Sub

    Sub GroupNameCom()
        Try
            If objcon.State = ConnectionState.Closed Then objcon.Open()
            com = New OleDb.OleDbCommand("Select * from GroupD", objcon)
            dr = com.ExecuteReader
            While dr.Read
                If dr.Item(0) = ComboBox1.Text Then
                    TextBox7.Text = dr.Item(1)
                End If

            End While
            dr.Close()
            objcon.Close()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ComboBox1_TextUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextUpdate
        Call GroupNameCom()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            Dim i As Integer
            For i = 0 To ListView1.Items.Count - 1
                If ListView1.Items(i).Selected = True Then
                    TextBox1.Text = ListView1.Items(i - 1).SubItems(0).Text
                    Exit For
                End If
            Next
            ListView1.Focus()
            ListView1.FullRowSelect = True
        Catch ex As Exception

        End Try
    End Sub
End Class


**** USER HINZUFÜGEN *****


Public Class AddCustomer
    Public NameFrm, NameTo As String
    Public curr As String = My.Settings.CurrencyS
    Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
       
    End Sub
    Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.LostFocus
        TextBox4.Text = TextBox4.Text.Trim
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()
    End Sub

    Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
        NameFrm = TextBox2.Text
        Call Sentence()
        TextBox2.Text = NameTo
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub
    Sub Sentence()
        Dim a, b As Integer
        a = NameFrm.Length
        NameTo = ""
        For b = 0 To a - 1
            If b = 0 Then
                If Char.IsLower(NameFrm(0)) Then
                    NameTo = Char.ToUpper(NameFrm(0))
                Else
                    NameTo = NameFrm(0)
                End If
            Else
                If NameFrm(b - 1) = " " Then
                    NameTo = NameTo + Char.ToUpper(NameFrm(b))
                Else
                    NameTo = NameTo + NameFrm(b)
                End If
            End If
        Next
    End Sub

    Private Sub TextBox3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.LostFocus
        NameFrm = TextBox3.Text
        Call Sentence()
        TextBox3.Text = NameTo
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("Please enter a Customer ID", 0, "")
        Else
            Try
                If objcon.State = ConnectionState.Closed Then objcon.Open()
                com = New OleDb.OleDbCommand("INSERT INTO Customer values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & DateTimePicker1.Text & "','" & DateTimePicker2.Text & "')", objcon)
                If com.ExecuteNonQuery() Then MsgBox("Saved Success!", 0, "")
                ListView1.Clear()
                Call readData()
                objcon.Close()
                Call DisableThem()
            Catch ex As Exception
                MsgBox("Customer ID already in used.", 0, "")
            End Try
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If TextBox1.Text = "" Then
            MsgBox("Please enter the ID to be deleted!", 0, "")
        Else
            Try
                objcon.Open()
                com = New OleDb.OleDbCommand("delete from Customer where CID='" & TextBox1.Text & "'", objcon)
                If com.ExecuteNonQuery() Then
                    ListView1.Clear()
                    Call readData()
                    MsgBox("Deleted Success!", 0, "")
                Else
                    MsgBox("ID Not Found!", 0, "")
                End If
               
                objcon.Close()
            Catch ex As Exception

            End Try
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call EnableThem()
        Call ClearField()
    End Sub
    Sub EnableThem()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        TextBox4.Enabled = True
        TextBox5.Enabled = True
        DateTimePicker1.Enabled = True
        DateTimePicker2.Enabled = True
    End Sub
    Sub DisableThem()
        'TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        TextBox5.Enabled = False
        DateTimePicker1.Enabled = False
        DateTimePicker2.Enabled = False
    End Sub

    Private Sub AddCustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call DisableThem()
        Call readData()
    End Sub
    Sub readData()
        ListView1.Columns.Add("User ID", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("User Name", 210, HorizontalAlignment.Center)
        ListView1.Columns.Add("User Adresse", 130, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kontakt #", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Sicherheit", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Aktivierung", 130, HorizontalAlignment.Center)
        ListView1.Columns.Add("Valid", 90, HorizontalAlignment.Center)
        Try

            If (objcon.State = ConnectionState.Closed) Then objcon.Open()
            com = New OleDb.OleDbCommand("SELECT * FROM Customer", objcon)
            dr = com.ExecuteReader
            While dr.Read()
                Call adddatatolistview(ListView1, dr(0), dr(1), dr(2), dr(3), dr(4), dr(5), dr(6))
            End While
            dr.Close()
            objcon.Close()
        Catch
            'MsgBox("Please Refresh", MsgBoxStyle.Information, "")
        End Try
    End Sub
    Public Sub adddatatolistview(ByVal lvw As ListView, ByVal CID As String, ByVal CName As String, ByVal CAddress As String, ByVal CCont As String, ByVal Sec As String, ByVal CAct As String, ByVal CVal As String)
        Dim lv As New ListViewItem
        lvw.Items.Add(lv)
        lv.Text = CID
        lv.SubItems.Add(CName)
        lv.SubItems.Add(CAddress)
        lv.SubItems.Add(CCont)
        lv.SubItems.Add(curr + " " + Sec)
        lv.SubItems.Add(CAct)
        lv.SubItems.Add(CVal)
    End Sub
    Sub ClearField()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        DateTimePicker1.Refresh()
        DateTimePicker2.Refresh()
    End Sub
    Sub LoadInto()
        
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            Dim i As Integer
            For i = 0 To ListView1.Items.Count - 1
                If ListView1.Items(i).Selected = True Then
                    TextBox1.Text = ListView1.Items(i - 1).SubItems(0).Text
                    Exit For
                End If
            Next
            ListView1.Focus()
            ListView1.FullRowSelect = True
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Try
            Dim i As Integer
            For i = 0 To ListView1.Items.Count - 1
                If ListView1.Items(i).Selected = True Then
                    TextBox1.Text = ListView1.Items(i + 1).SubItems(0).Text
                    Exit For
                End If
            Next
            ListView1.Focus()
            ListView1.FullRowSelect = True
        Catch ex As Exception

        End Try
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim i As Integer
        For i = 0 To ListView1.Items.Count - 1
            If ListView1.Items(i).Selected = True Then
                TextBox1.Text = ListView1.Items(i).SubItems(0).Text
                TextBox2.Text = ListView1.Items(i).SubItems(1).Text
                TextBox3.Text = ListView1.Items(i).SubItems(2).Text
                TextBox4.Text = ListView1.Items(i).SubItems(3).Text
                TextBox5.Text = ListView1.Items(i).SubItems(4).Text
                DateTimePicker1.Text = ListView1.Items(i).SubItems(5).Text
                DateTimePicker2.Text = ListView1.Items(i).SubItems(6).Text
                Exit For
            End If
        Next
        ListView1.Focus()
        ListView1.FullRowSelect = True
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim i As Integer
        ListView1.SelectedItems.Clear()
        TextBox1.Focus()
        Try
            If Me.TextBox1.Text = "" Then
                TextBox2.Text = ""
            Else
                For i = 0 To ListView1.Items.Count - 1
                    If TextBox1.Text = ListView1.Items(i).SubItems(0).Text Then
                        TextBox2.Text = ListView1.Items(i).SubItems(1).Text
                        ListView1.Items(i).Selected = True
                        Exit For
                    End If
                Next
            End If
        Catch

        End Try
    End Sub
End Class