DPM_PADM/DPM2016/KG/Krankengeschichte.vb

Public Class Krankengeschichte
    Dim db As New clsDB
    Dim m_patientnr As Integer
    Dim spalten As New Tabellenspalte
    Property Patientnr As Integer
        Get
            Return m_patientnr
        End Get
        Set(value As Integer)
            m_patientnr = value
            Refresh_KG()
        End Set
    End Property

    Dim onrefresh As Boolean = True
    Sub Refresh_KG()
        onrefresh = True
        db.Get_Tabledata("KG", "where nrprivat=" + Me.Patientnr.ToString + " order by datum desc")
        Me.C1KG.DataSource = Nothing
        Me.C1KG.DataSource = db.dsDaten.Tables(0)
        Me.C1KG.DataMember = db.dsDaten.Tables(0).TableName
        spalten.Spaltentitel_aktualisieren(Me.C1KG, db.dsDaten.Tables(0).TableName, db.dsDaten.Tables(0))
        'Me.C1KG.Splits(0).DisplayColumns("beschreibung").AutoSize()
        'Me.C1KG.Splits(0).DisplayColumns("bemerkung").AutoSize()
        Me.C1KG.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.IndividualRows
        Dim c As C1.Win.C1TrueDBGrid.C1DisplayColumn

        For Each c In Me.C1KG.Splits(0).DisplayColumns

            c.Style.WrapText = True
            If c.Name = "Bemerkung" And c.Width = 0 Then
                SplitContainer1.SplitterDistance = Me.Width
            Else
                SplitContainer1.SplitterDistance = Me.Width / 3 * 2
            End If


        Next
        For i = 0 To C1KG.Splits(0).Rows.Count - 1
            C1KG.Splits(0).Rows(i).AutoSize()
        Next
        Me.GroupBox1.Height = Me.Height / 3 * 1
        Me.btnSave.Top = Me.GroupBox1.Height - Me.btnSave.Height - 10
        Me.SplitContainer1.Top = Me.grpfunktionen.Top + Me.grpfunktionen.Height + 2
        Me.SplitContainer1.Height = btnSave.Top - 3 - Me.SplitContainer1.Top

        Me.Dock = DockStyle.Fill
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        If Me.btnSave.Text = "Änderungen speichern" Then
            db.Get_Tabledata("KG", "", "Select * from kg where nrkg=" + C1KG.Columns("nrkg").Value.ToString)
            Dim rm As DataRow = db.dsDaten.Tables(0).Rows(0)
            rm.Item("datum") = Me.dtDatum.Value
            rm.Item("Beschreibung") = Me.txtBeschreibung.Text
            rm.Item("Bemerkung") = Me.txtBemerkung.Text
            rm.Item("mutiert_am") = Now
            rm.Item("mutierer") = Globals.ActUser
            db.Update_Data()
            Refresh_KG()
            Me.dtDatum.Value = Now
            Me.txtBemerkung.Text = ""
            Me.txtBeschreibung.Text = ""
            Me.btnSave.Text = "Speichern"
            Exit Sub
        End If
        Dim newkey As Integer = db.Get_DBKey("KG")
        db.Get_Tabledata("KG", " where NRKG=0")
        Dim r As DataRow
        r = db.dsDaten.Tables(0).NewRow
        r.Item(0) = newkey
        r.Item("Erstellt_am") = Now
        r.Item("mutiert_am") = Now
        r.Item("mutierer") = Globals.ActUser
        r.Item("aktiv") = True

        r.Item("Datum") = Me.dtDatum.Value
        r.Item("nrprivat") = Me.Patientnr
        r.Item("Beschreibung") = Me.txtBeschreibung.Text
        r.Item("Bemerkung") = Me.txtBemerkung.Text
        r.Item("nrbehandlung") = 0
        db.dsDaten.Tables(0).Rows.Add(r)
        db.Update_Data()
        db.Dispose()
        Me.dtDatum.Value = Now
        Me.txtBemerkung.Text = ""
        Me.txtBeschreibung.Text = ""
        Refresh_KG()
    End Sub

    Private Sub EintragBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragBearbeitenToolStripMenuItem.Click
        Me.dtDatum.Value = Me.C1KG.Columns("Datum").Value
        Me.txtBemerkung.Text = Me.C1KG.Columns("Bemerkung").Value
        Me.txtBeschreibung.Text = Me.C1KG.Columns("Beschreibung").Value
        Me.btnSave.Text = "Änderungen speichern"
    End Sub

    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
        If Me.C1KG.Splits(0).Rows.Count > 0 Then
            If MsgBox("Eintrag wirklich löschen?", vbYesNo) = MsgBoxResult.Yes Then
                db.Get_Tabledata("KG", "", "Select * from kg where nrkg=" + C1KG.Columns("nrkg").Value.ToString)
                Dim rm As DataRow = db.dsDaten.Tables(0).Rows(0)
                rm.Item("aktiv") = False
                rm.Item("mutiert_am") = Now
                rm.Item("mutierer") = Globals.ActUser
                db.Update_Data()
                Refresh_KG()
            End If
        End If
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Me.txtBemerkung.Text = ""
        Me.txtBeschreibung.Text = ""
        Me.dtDatum.Value = Now
        Me.btnSave.Text = "Speichern"
    End Sub

    Private Sub C1KG_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1KG.RowColChange
        If onrefresh Then Exit Sub
        Try
            Me.dtDatum.Value = Me.C1KG.Columns("Datum").Value
            Me.txtBemerkung.Text = Me.C1KG.Columns("Bemerkung").Value
            Me.txtBeschreibung.Text = Me.C1KG.Columns("Beschreibung").Value
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As New frmAuswertung
        f.MdiParent = Me.ParentForm.MdiParent
        f.Show()
        If f.Findnode(db.Get_Option(60000)) Then
            f.Set_Propertiesvalue(2, Me.Patientnr)
            f.Show_Report()
        End If
    End Sub

    Private Sub C1KG_DoubleClick(sender As Object, e As EventArgs) Handles C1KG.DoubleClick
        Try
            EintragBearbeitenToolStripMenuItem_Click(sender, e)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ToolStripButton1_Click(sender, e)
    End Sub
End Class