Public Class FrmSvrInventar

    Private Sub FrmSvrInventar_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If CtrlServerInventar1.isDirty Then
            If CtrlServerInventar1.check_Save() = False Then e.Cancel = True
        End If
    End Sub

    Private Sub FrmSvrInventar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.CtrlServerInventar1.init(Me)
        Me.CtrlServerInventar1.Load()
        Me.CtrlServerInventar1.AktiveServerToolStripMenuItem_Click(sender, e)


    End Sub

    Private Sub TSBtnNew_Click(sender As Object, e As EventArgs) Handles TSBtnNew.Click
        Me.CtrlServerInventar1.Add_New()
    End Sub

    Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
        Me.CtrlServerInventar1.Save()
    End Sub

    Private Sub TSBtnDelete_Click(sender As Object, e As EventArgs) Handles TSBtnDelete.Click
        Me.CtrlServerInventar1.Delete()
    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub


    Private Sub ToolStriptxtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles ToolStriptxtSuche.KeyDown
        If e.KeyCode = Keys.Enter Then
            TSBtnSuche_Click(sender, e)
        End If
    End Sub

    Private Sub TSBtnFilterAufheben_Click(sender As Object, e As EventArgs) Handles TSBtnFilterAufheben.Click
        Me.ToolStriptxtSuche.Text = ""
        CtrlServerInventar1.Search_Server(Me.ToolStriptxtSuche.Text)
    End Sub


    Private Sub TSBtnSuche_Click(sender As Object, e As EventArgs) Handles TSBtnSuche.Click
        CtrlServerInventar1.Search_Server(Me.ToolStriptxtSuche.Text)
    End Sub


    Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
        CtrlServerInventar1.FindPrev_Server()
    End Sub

    Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
        CtrlServerInventar1.FindFirst_Server()
    End Sub


    Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
        CtrlServerInventar1.FindNext_Server()
    End Sub

    Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
        CtrlServerInventar1.FindLast_Server()
    End Sub

    Private Sub SuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuchenToolStripMenuItem.Click

        Me.tsSucheFilter.Text = "Suchen"
        CtrlServerInventar1.FilterSearch = "Search"
        CtrlServerInventar1.Search_Server(Me.ToolStriptxtSuche.Text)
    End Sub


    Private Sub FilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FilterToolStripMenuItem.Click
        Me.tsSucheFilter.Text = "Filter"
        CtrlServerInventar1.FilterSearch = "Filter"
        CtrlServerInventar1.Search_Server(Me.ToolStriptxtSuche.Text)
    End Sub
End Class