Imports System.Data.SqlTypes
Public Class frmLizenzschluessel
    Dim ls As New TKB.VV.Lizenz.ClsLizenzschluessel

    Dim LizenzkaufNr As Integer
    Dim Lizenzschluesselnr As Integer
    Sub New(ByVal LizenzkaufNr As Integer, ByVal Lizenzschluesselnr As Integer)
        InitializeComponent()
        Me.LizenzkaufNr = LizenzkaufNr
        Me.Lizenzschluesselnr = Lizenzschluesselnr

    End Sub

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

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

    Private Sub frmLizenzschluessel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Me.Lizenzschluesselnr = 0 Then
            Me.txtBemerkung.Text = ""
            Me.txtSchluessel.Text = ""
            Me.cbaktiv.Checked = True
        Else
            ls.Get_Data(Me.Lizenzschluesselnr)
            Me.txtBemerkung.Text = ls.sBemerkung.ToString
            Me.txtSchluessel.Text = ls.sLizenzschluessel.ToString
            Me.cbaktiv.Checked = ls.bAktiv.Value = True
        End If
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If Lizenzschluesselnr = 0 Then
            ls.Get_Data(ls.Add_New(Me.LizenzkaufNr))
        End If
        ls.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
        ls.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String))
        ls.sLizenzschluessel = New SqlString(CType(Me.txtSchluessel.Text, String))
        ls.Save_Data()
        Me.Close()
    End Sub

    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
        btnSave_Click(sender, e)
    End Sub
End Class