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.
45 lines
1.9 KiB
45 lines
1.9 KiB
Public Class frmDentotarDetails
|
|
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Public Function Update_Data(tarifnr As String)
|
|
Dim db As New clsDB
|
|
db.Get_Tabledata("Dentotar", "where leistungnrneu='" + tarifnr + "'")
|
|
Me.TextBox1.Text = db.dsDaten.Tables(0).Rows(0).Item("leistungnrneu").ToString
|
|
Me.TextBox2.Text = db.dsDaten.Tables(0).Rows(0).Item("LeistungD").ToString
|
|
Me.TextBox3.Text = db.dsDaten.Tables(0).Rows(0).Item("Interpretationd").ToString
|
|
Me.TextBox4.Text = db.dsDaten.Tables(0).Rows(0).Item("Abrechnungseinheit").ToString
|
|
Me.TextBox5.Text = db.dsDaten.Tables(0).Rows(0).Item("Taxpunkte_UV_MV_IV").ToString
|
|
Me.TextBox6.Text = db.dsDaten.Tables(0).Rows(0).Item("PP_MIN").ToString
|
|
Me.TextBox7.Text = db.dsDaten.Tables(0).Rows(0).Item("PP_Privat").ToString
|
|
Me.TextBox8.Text = db.dsDaten.Tables(0).Rows(0).Item("PP_Max").ToString
|
|
Me.TextBox9.Text = db.dsDaten.Tables(0).Rows(0).Item("BetragInCHF").ToString
|
|
|
|
|
|
End Function
|
|
|
|
Private Sub frmDentotarDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub frmDentotarDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
|
If e.KeyCode = Keys.Escape Then Me.Close()
|
|
End Sub
|
|
|
|
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
|
|
If e.KeyCode = Keys.Escape Then Me.Close()
|
|
End Sub
|
|
End Class |