Public Class frmTarifDetail

    Dim m_tarifnr As Integer
    Property Tarifnr As Integer
        Get
            Return m_tarifnr
        End Get
        Set(value As Integer)
            m_tarifnr = value
        End Set
    End Property

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Dim db As New clsDB
        db.Get_Tabledata("Tarifgrp")
        Me.cbboxTarifgruppe.DataSource = db.dsDaten.Tables(0)
        Me.cbboxTarifgruppe.DisplayMember = "Tarifgruppe"
        Me.cbboxTarifgruppe.ValueMember = "nrtarifgruppe"
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.DialogResult = DialogResult.Abort
        Me.Close()
    End Sub

    Private Sub frmTarifDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub

    Public Function New_Tarif() As Integer

        Dim db As New clsDB
        Dim newkey As Integer = db.Get_DBKey("Tarif")
        db.Get_Tabledata("User", "", "Select top 1 * from [tarif] where nrtarif=-1")
        Dim dr As DataRow = db.dsDaten.Tables(0).NewRow
        dr.Item(0) = newkey

        dr.Item(1) = 0
        dr.Item(2) = ""
        dr.Item(3) = ""
        dr.Item(4) = ""
        dr.Item(5) = ""
        dr.Item(6) = 0.00
        dr.Item(7) = 0.00
        dr.Item(8) = 0.00
        dr.Item(9) = 0.00
        dr.Item(10) = 0
        dr.Item(11) = 0.00
        dr.Item(12) = Now
        dr.Item(13) = Now
        dr.Item(14) = Globals.ActUser
        dr.Item(15) = 1
        db.dsDaten.Tables(0).Rows.Add(dr)
        db.Update_Data()

        Return newkey
    End Function
End Class