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.
149 lines
4.5 KiB
149 lines
4.5 KiB
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
|