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.
49 lines
1.9 KiB
49 lines
1.9 KiB
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 |