Imports Syncfusion.Windows.Forms.CellGrid
Imports Syncfusion.WinForms.DataGrid

Public Class clsStammdaten_Flat_SF
    Dim m_connectionstring As String
    Property Connectionstring As String
        Get
            Return m_connectionstring
        End Get
        Set(value As String)
            m_connectionstring = value
        End Set
    End Property
    Dim m_tablename As String
    Property Tablename As String
        Get
            Return m_tablename
        End Get
        Set(value As String)
            m_tablename = value
            Try
                'get_data()

            Catch
            End Try
        End Set
    End Property
    Dim m_SQL As String = ""
    Property SQL As String
        Get
            Return m_SQL
        End Get
        Set(value As String)
            m_SQL = value
        End Set
    End Property

    Dim m_allowaddnew As Boolean = True
    Property AllowAddNew As Boolean
        Get
            Return m_allowaddnew
        End Get
        Set(value As Boolean)
            m_allowaddnew = value
        End Set
    End Property



    Dim db As clsDB
    Dim c1d As New SfDataGrid

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.Connectionstring = My.Settings.ConnectionString
        Me.c1d = Me.c1daten
        If My.Settings.SoftwareType = "PADM" Then
            Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Artikel"
            Me.TarifBearbeitenToolStripMenuItem.Text = "Artikel bearbeiten"
        End If
    End Sub

    Public Sub get_data()
        Try
            Try
                db = Nothing
            Catch ex As Exception

            End Try
            db = New clsDB

            Me.c1daten.DataSource = Nothing
            Me.c1daten.DataMember = Nothing

            Me.c1daten.DataSource = Nothing
            Me.c1daten.DataMember = Nothing

            db.dsDaten.Tables.Clear()
            If Me.SQL <> "" Then
                db.Get_Tabledata(Me.Tablename, "", Me.SQL, "", False)
            Else
                db.Get_Tabledata(Me.Tablename)

            End If


            Me.c1daten.DataSource = db.dsDaten
            Me.c1daten.DataMember = Tablename

            Dim spalten As New Tabellenspalte
            spalten.Spaltentitel_aktualisieren(Me.c1daten, Me.Tablename, db.dsDaten.Tables(0))

            Me.c1d.ContextMenuStrip = Nothing
            'Me.c1d.AllowAddNew = True
            Me.tsnewdentotar.Visible = False
            Select Case Tablename

                Case "Auswertung"
                    Dim printer As New clsPrinter
                    printer.Get_Printers()
                    'Me.C1TrueDBDropdown1.DataSource = printer.Printers
                    'Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName
                    'Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
                    'Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
                    'Me.c1daten.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
                Case "User"
                    Me.c1d.ContextMenuStrip = Me.ContextMenuStrip1
                Case "Tarif"
                    Me.c1d.ContextMenuStrip = Me.ctxMenuTarif
             '       Me.c1d.AllowAddNew = False
                Case "Dentotar"
                    Me.c1d.ContextMenuStrip = Me.ctxmenuDentotar
                    '      Me.c1d.AllowAddNew = False
                    Me.tsnewdentotar.Visible = True
                Case "MailTexte"
                    Me.c1d.ContextMenuStrip = Me.ctxMenuMailtext
                Case "Reporting"
                    Me.c1d.ContextMenuStrip = Me.ctxmenureporting
                    Me.AllowDrop = True
                    Me.c1daten.AllowDrop = True

            End Select
            If Me.AllowAddNew = False Then
                Me.C1Daten.AllowEditing = False
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
        db.Update_Data()
        If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
        Try
            IntTables.Inttables.Tables.Remove(Tablename)
        Catch ex As Exception

        End Try
        Try
            IntTables.Inttables.Tables.Remove(Tablename)
        Catch ex As Exception

        End Try
        Globals.ToastInfo.ShowSaveMesasge(Me)
        'MsgBox("Daten wurden gespeichert")
    End Sub
End Class