You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
81 lines
2.9 KiB
81 lines
2.9 KiB
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 |