23 lines
773 B
VB.net
23 lines
773 B
VB.net
Public Class FrmSvrInventar
|
|
|
|
Private Sub FrmSvrInventar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.CtrlServerInventar1.init(Me)
|
|
Me.CtrlServerInventar1.Load()
|
|
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
|
|
End Class |