RecordOrganizer/app/DD-Record-Organizer/frmLicense.vb

Imports DLLLicenseManager
Public Class frmLicense
    Public _lizenzManager As ClassLicenseManager
    Dim CLIENT_ID As Integer

    Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
        OpenLicenseManager()
    End Sub
    Sub OpenLicenseManager()
        If Me.txtPW.Text <> "" Then
            If Me.txtPW.Text = "35452dd!" Then
                Me.grbBoxlicense.Visible = True
                Refresh_Licence(False)
                Me.lblPW.Visible = False
                Me.txtPW.Visible = False
                Me.btnPW_check.Visible = False
                If DT_CLIENT_USER.Rows.Count >= 1 Then
                    lblClient.Visible = True
                    cmbClients.Visible = True
                    Try
                        cmbClients.DataSource = DT_CLIENT_USER
                        cmbClients.DisplayMember = DT_CLIENT_USER.Columns("CLIENT_NAME").ColumnName
                        cmbClients.ValueMember = DT_CLIENT_USER.Columns("CLIENT_ID").ColumnName
                    Catch ex As Exception
                        MsgBox("Unexpected Error in Loading Clients: " & ex.Message, MsgBoxStyle.Critical)
                    End Try
                Else
                    lblClient.Visible = False
                    cmbClients.Visible = False
                End If

                If DT_CLIENT_USER.Rows.Count = 1 Then
                    CLIENT_ID = 0
                End If


            Else
                Me.grbBoxlicense.Visible = False
                MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
                Me.txtPW.Text = ""
                Me.txtPW.Focus()
            End If
        End If
    End Sub

    Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click
        Try
            If cmbClients.SelectedIndex = -1 Or CLIENT_ID = 99 Then
                MsgBox("Please choose a valid client!", MsgBoxStyle.Critical)
                Exit Sub
            End If
            _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
            If Me.txtNewlicences.Text <> "" And txtDossierCount.Text <> "" Then
                'Encode the license
                Dim ressultstring = txtNewlicences.Text & "#" & dtpGueltig_GI.Value.ToString("yyyy-MM-dd") & "#" & txtDossierCount.Text
                Dim result As String = Me._lizenzManager.EncodeLicenseKey(ressultstring, "#DigitalData35452!#")

                Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
                If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
                    Refresh_Licence(True)
                Else
                    MsgBox("Fehler bei Update der License. Überprüfe das Log!", MsgBoxStyle.Exclamation)
                End If

                'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei New Licenses:")
        End Try
    End Sub
    Sub Refresh_Licence(Neu As Boolean)
        Try
            ClassLicence.Refresh_Licence(CLIENT_ID)

            cmbAddOn.Items.Clear()

            For Each row As DataRow In DT_LICENSE_ADDONS.Rows
                cmbAddOn.Items.Add(row.Item("NAME"))
            Next
            DataGridViewAddOns.DataSource = DT_LICENSE_ADDONS
            DataGridViewAddOns.Columns(0).Width = 200
            DataGridViewAddOns.Columns(1).Visible = False
            DataGridViewAddOns.Columns(2).Width = 100
            GridColor()
            txtNewlicences.Text = LICENSE_COUNT
            Try
                dtpGueltig_GI.Value = LICENSE_DATE
            Catch ex As Exception
                Dim dateTime As String = LICENSE_DATE.ToString
                Dim dt As DateTime = Convert.ToDateTime(dateTime)
                Dim format As String = "yyyy-MM-dd"
                dtpGueltig_GI.Value = CDate(dt)
            End Try

            txtDossierCount.Text = LICENSE_DOSSIER_COUNT
            If Neu = True Then
                If CInt(LICENSE_COUNT) > 0 Then
                    Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now
                    If USER_LANGUAGE <> "de-DE" Then
                        msg = "The license was renewed!" & vbNewLine & Now
                    End If
                    MsgBox(msg, MsgBoxStyle.Information, "License renewed:")
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
        End Try
    End Sub

    Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Try
            grbBoxlicense.Visible = False
            Me.lblPW.Visible = True
            Me.txtPW.Visible = True
            Me.btnPW_check.Visible = True
            Me.txtPW.Text = ""
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:")
        End Try
    End Sub

    Private Sub frmLicense_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
        If e.KeyCode = Keys.Return Then
            If Me.txtPW.Focus = True Then
                OpenLicenseManager()
            End If
        End If
    End Sub

    Private Sub cmbClients_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbClients.SelectedIndexChanged
        If cmbClients.SelectedIndex <> -1 Then
            Try
                CLIENT_ID = cmbClients.SelectedValue
                Refresh_Licence(False)
            Catch ex As Exception
                If DT_CLIENT_USER.Rows.Count = 1 Then
                    CLIENT_ID = 0
                Else
                    CLIENT_ID = 99
                End If

            End Try

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CLIENT_ID <> 99 Then
            Dim wrapper As New ClassEncryption("!35452didalog=")
            Dim cipherText As String = wrapper.EncryptData(dtpLicenseAddon.Value.ToString("yyyy-MM-dd"))
            Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer' AND UPPER(NAME) = UPPER('{1}')", CLIENT_ID, cmbAddOn.Text)
            Dim count = MYDB_ECM.GetScalarValue(SQL)
            If count = 0 Then
                sql = String.Format("INSERT INTO TBDD_LICENSE_ADD_ON (CLIENT_ID, MODULE,NAME,VALID_DATE) VALUES ({0},'Record-Organizer','{1}','{2}')", CLIENT_ID, cmbAddOn.Text, cipherText)
                MYDB_ECM.ExecuteNonQuery(Sql)
            Else
                sql = String.Format("UPDATE TBDD_LICENSE_ADD_ON SET VALID_DATE = '{0}' WHERE CLIENT_ID = {1} AND UPPER(MODULE) = UPPER('Record-Organizer') AND UPPER(NAME) = UPPER('{2}')", cipherText, CLIENT_ID, cmbAddOn.Text)
                MYDB_ECM.ExecuteNonQuery(Sql)
            End If
            Refresh_Licence(False)
        Else
            MsgBox("Please choose a Client!", MsgBoxStyle.Exclamation)
        End If

    End Sub

    Sub GridColor()
        Try
            For i = 0 To DataGridViewAddOns.RowCount - 1
                If DataGridViewAddOns.Rows(i).Cells(2).Value.ToString = "Valid" Then
                    DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
                Else
                    DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.Red
                End If
            Next
        Catch ex As Exception

        End Try


    End Sub

    Private Sub grbBoxlicense_Enter(sender As Object, e As EventArgs) Handles grbBoxlicense.Enter

    End Sub
End Class