'------------------------------------------------------------------------------
' ----------------------------------------------------------------------
' Abgeleitete Klasse clsContries
' Author: Gregor Böhme
' Letzte Änderung: Mittwoch, 29. September 2004 um 10:07:43
'------------------------------------------------------------------------------
' ----------------------------------------------------------------------
Public Class clsContries : Inherits dbiContries
 
#Region "Konstruktoren"
 
   'Leerer Konstruktor
    Public Sub New()
    End Sub
 
   'Baue Objekt und füge es in die Datenbank
    Public Sub New(ByVal myContryName As String)
       _contryName = myContryName
       _deleteFlag = False
       _updateAccountID = trainingsmanager.loggedAccount.AccountID
       _updateTimestamp = Now.ToLongDateString() & " " & Now.ToLongTimeString()
        Insert() ' Fügt den Datensatz ein
    End Sub
 
   'Baue Objekt
    Public Sub New(ByVal myContryID As Integer, ByVal myContryName As String, _
      ByVal myDeleteFlag As Boolean, ByVal myUpdateAccountID As Integer, ByVal _
      myUpdateTimestamp As DateTime)
       _contryID = myContryID
       _contryName = myContryName
       _deleteFlag = myDeleteFlag
       _updateAccountID = myUpdateAccountID
       _updateTimestamp = myUpdateTimestamp
    End Sub
 
   'Baue Objekt (ActiveUpdate)
    Public Sub New(ByVal myContryID As Integer, ByVal intern As Boolean)
       _contryID = myContryID
        Me.UpdateFromDb()
    End Sub
 
#End Region
 
End Class 'clsContries