Themenmanagement/ThemaPerson/ThemaPerson.vb

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