Initial commit

2020-10-21 10:49:38 +02:00
commit abc7a01a22
1062 changed files with 411526 additions and 0 deletions
--- a/ThemaPerson/ThemaPerson.vb
+++ b/ThemaPerson/ThemaPerson.vb
@@ -0,0 +1,257 @@
+Imports System.ComponentModel
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports C1.Win.C1TrueDBGrid
+Public Class ThemaPerson
+
+
+#Region "Deklarationen"
+
+    Dim SpaltenTitel As New Utils.Tabellenspalte
+    Dim dokumente As New DataTable
+#End Region
+
+#Region "Properties"
+    Dim m_ConnectionString As String
+    <DefaultValue("data source=shu00;initial catalog=ThemenManagement;persist security info=False;workstation id=SHU;packet size=4096;user id=sa;password=*shu29"), Description("ConnectionString"), Category("Options")> _
+    Public Property ConnectionString() As String
+        Get
+            ConnectionString = m_ConnectionString
+        End Get
+        Set(ByVal Value As String)
+            If m_ConnectionString <> Value Then
+                m_ConnectionString = Value
+                Globals.conn.sConnectionString = Value
+                Globals.sConnectionString = Value
+            End If
+        End Set
+    End Property
+
+    Dim m_Themanr As Integer
+    <DefaultValue(1), Description("ThemaNr"), Category("Options")> _
+    Public Property ThemaNr As Integer
+        Get
+            ThemaNr = m_Themanr
+        End Get
+        Set(value As Integer)
+            If m_Themanr <> value Then
+                m_Themanr = value
+                Try
+                    Refresh()
+                Catch
+                End Try
+            End If
+        End Set
+    End Property
+
+    Dim m_Doktype As Integer
+    <DefaultValue(1), Description("Dokumenttype"), Category("Options")> _
+    Public Property Doktype As Integer
+        Get
+            Doktype = m_Doktype
+        End Get
+        Set(value As Integer)
+            If m_Doktype <> value Then
+                m_Doktype = value
+            End If
+        End Set
+    End Property
+
+    Dim m_Mitarbeiternr As Integer
+    <DefaultValue(1), Description("Mitarbeiternr"), Category("Options")> _
+    Public Property Mitarbeiternr As Integer
+        Get
+            Mitarbeiternr = m_Mitarbeiternr
+        End Get
+        Set(value As Integer)
+            If m_Mitarbeiternr <> value Then
+                m_Mitarbeiternr = value
+                Globals.Mitarbeiternr = value
+            End If
+        End Set
+    End Property
+
+    Dim m_TempFilePath As String
+    <DefaultValue("h:\tssettings\themenmgmt"), Description("Temp Filepath"), Category("Options")> _
+    Public Property TempFilePath As String
+        Get
+            TempFilePath = m_TempFilePath
+        End Get
+        Set(value As String)
+            If m_TempFilePath <> value Then
+                m_TempFilePath = value
+                Globals.TmpFilepath = value
+            End If
+        End Set
+    End Property
+
+    Dim m_Show_Toolbar As Boolean = True
+    <DefaultValue(True), Description("Dateimenu anzeigen"), Category("Options")> _
+    Public Property Show_Toolbar() As Boolean
+        Get
+            Show_Toolbar = m_Show_Toolbar
+        End Get
+        Set(ByVal Value As Boolean)
+            If m_Show_Toolbar <> Value Then
+                m_Show_Toolbar = Value
+                Set_ShowToolbar()
+            End If
+
+        End Set
+    End Property
+    Dim m_Show_Editfunctions As Boolean = True
+    <DefaultValue(True), Description("Editfunktionen anzeigen"), Category("Options")> _
+    Public Property Show_Editfunctions() As Boolean
+        Get
+            Show_Editfunctions = m_Show_Editfunctions
+        End Get
+        Set(ByVal Value As Boolean)
+            If m_Show_Editfunctions <> Value Then
+                m_Show_Editfunctions = Value
+                Set_Editfunctions()
+            End If
+
+        End Set
+    End Property
+#End Region
+
+    Sub Set_ShowToolbar()
+        If Me.Show_Toolbar = True Then
+            Me.ToolStrip1.Visible = True
+            Me.ContextMenuStrip1.Enabled = True
+        Else
+            Me.ToolStrip1.Visible = False
+            Me.ContextMenuStrip1.Enabled = False
+        End If
+    End Sub
+
+    Sub Set_Editfunctions()
+        If Me.Show_Editfunctions = True Then
+            Me.ToolStripButton1.Visible = True
+            Me.ToolStripButton2.Visible = True
+            Me.ToolStripButton4.Visible = True
+            Me.NeuePersonToolStripMenuItem.Visible = True
+            Me.PersonBearbeitenToolStripMenuItem.Visible = True
+            Me.EintragLöschenToolStripMenuItem.Visible = True
+
+
+        Else
+            Me.ToolStripButton1.Visible = False
+            Me.ToolStripButton2.Visible = False
+            Me.ToolStripButton4.Visible = False
+            Me.ContextMenuStrip1.Enabled = False
+            Me.NeuePersonToolStripMenuItem.Visible = False
+            Me.PersonBearbeitenToolStripMenuItem.Visible = False
+            Me.EintragLöschenToolStripMenuItem.Visible = False
+
+
+        End If
+    End Sub
+    Sub New()
+        InitializeComponent()
+        'Me.ConnectionString = "data source=shu00;initial catalog=ThemenManagement;persist security info=False;workstation id=SHU;packet size=4096;user id=sa;password=*shu29"
+        'Me.Mitarbeiternr = 1
+        'Me.Doktype = 1
+        'Me.ThemaNr = 1
+        'Me.TempFilePath = "h:\tssettings\themenmgmt"
+        Try
+            Globals.conn.sConnectionString = Me.ConnectionString
+            Globals.sConnectionString = Me.ConnectionString
+        Catch
+        End Try
+        Globals.Mitarbeiternr = Mitarbeiternr
+        Globals.TmpFilepath = TempFilePath
+        Set_ShowToolbar()
+        Set_Editfunctions()
+    End Sub
+
+    Private Sub ThemaPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        Dim f As New frmThemaPerson
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then
+            Dim tp As New DB.ThemaPerson
+            tp.Add_New(Me.ThemaNr, f.cbboxperson.SelectedValue, f.cbboxfunktion.SelectedValue, f.txtBemerkung.Text)
+            Me.Refresh()
+        End If
+        f.Dispose()
+
+    End Sub
+
+    Private Sub Refresh()
+        Dim tp As New db.ThemaPerson
+        Dim dt As New DataTable
+        dt = tp.Get_Personen(Me.ThemaNr)
+        Me.C1Personen.DataSource = dt
+        Me.C1Personen.DataMember = dt.TableName
+        Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Personen, "ThemaPersonen", dt)
+        tp.Dispose()
+    End Sub
+
+    Private Sub C1Personen_DoubleClick(sender As Object, e As EventArgs) Handles C1Personen.DoubleClick
+        Me.ToolStripButton4_Click(sender, e)
+    End Sub
+
+    Private Sub C1Dokumente_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Personen.MouseDown
+        Me.C1Personen.Bookmark = Me.C1Personen.RowContaining(e.Y)
+    End Sub
+
+    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
+        Try
+
+            Dim tp As New DB.ThemaPerson
+            tp.Get_ThemaPerson(Me.C1Personen.Columns("ThemaPersonNr").Value)
+            Dim f As New frmThemaPerson
+            f.cbboxfunktion.SelectedValue = tp.iFunktionNr.Value
+            f.cbboxperson.SelectedValue = tp.iPersonNr.Value
+            f.txtBemerkung.Text = tp.sBemerkung.Value
+            If Me.Show_Toolbar = False Then
+                f.cbboxperson.Enabled = False
+                f.cbboxfunktion.Enabled = False
+                f.txtBemerkung.ReadOnly = True
+                f.btnAbbruch.Visible = False
+            End If
+            f.ShowDialog()
+            If f.DialogResult = DialogResult.OK And Me.Show_Toolbar = True Then
+                tp.iFunktionNr = New SqlInt32(CType(f.cbboxfunktion.SelectedValue, Int32))
+                tp.iPersonNr = New SqlInt32(CType(f.cbboxperson.SelectedValue, Int32))
+                tp.sBemerkung = New SqlString(CType(f.txtBemerkung.Text, String))
+                tp.Save_Data()
+                Dim bm As Integer
+                bm = Me.C1Personen.Bookmark
+                Refresh()
+                Me.C1Personen.Bookmark = bm
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        If MsgBox("Beziehung zur Person löschen", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
+            Dim tp As New DB.ThemaPerson
+            tp.Delete_Thema(Me.C1Personen.Columns("ThemaPersonNr").Value)
+            Me.Refresh()
+
+        End If
+    End Sub
+
+    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
+
+    End Sub
+
+    Private Sub NeuePersonToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuePersonToolStripMenuItem.Click
+        Me.ToolStripButton1_Click(sender, e)
+    End Sub
+
+    Private Sub PersonBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PersonBearbeitenToolStripMenuItem.Click
+        Me.ToolStripButton4_Click(sender, e)
+    End Sub
+
+    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
+        Me.ToolStripButton2_Click(sender, e)
+    End Sub
+End Class