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.
68 lines
2.2 KiB
68 lines
2.2 KiB
Public Class frmOffeneBehandlungen
|
|
Dim spalten As New Tabellenspalte
|
|
Dim m_nrpatient As Integer
|
|
Property NrPatient As Integer
|
|
Get
|
|
Return m_nrpatient
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nrpatient = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_nrzahlung As Integer = 0.1
|
|
Property NrZahlung As Integer
|
|
Get
|
|
Return m_nrzahlung
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nrzahlung = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_nrbehandlung As Integer = -1
|
|
Property NrBehandlung As Integer
|
|
Get
|
|
Return m_nrbehandlung
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nrbehandlung = value
|
|
End Set
|
|
End Property
|
|
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmOffeneBehandlungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim db As New clsDB
|
|
db.Get_Tabledata("Zahlung", "", db.Get_SQL(30), Me.NrPatient.ToString)
|
|
Me.C1OffeneBehandlungen.DataSource = db.dsDaten.Tables(0)
|
|
Me.C1OffeneBehandlungen.DataMember = db.dsDaten.Tables(0).TableName
|
|
spalten.Spaltentitel_aktualisieren(Me.C1OffeneBehandlungen, "Offene_Behandlungen", db.dsDaten.Tables(0))
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Try
|
|
Me.NrBehandlung = Me.C1OffeneBehandlungen.Columns("nrbehandlung").Value
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub C1OffeneBehandlungen_DoubleClick(sender As Object, e As EventArgs) Handles C1OffeneBehandlungen.DoubleClick
|
|
Me.Button1_Click(sender, e)
|
|
End Sub
|
|
End Class |