'------------------------------------------------------------------------------
' ----------------------------------------------------------------------
' Datenbank Zugriffsklasse dbiContries
' Author: Gregor Böhme
' Letzte Änderung: Mittwoch, 29. September 2004 um 10:03:40
'------------------------------------------------------------------------------
' ----------------------------------------------------------------------
Public Class dbiContries
 
#Region "Interne Deklarationen"
   Protected  _contryID As Integer ' DB:int identity(4)
   Protected  _contryName As String ' DB:varchar(255)
   Protected  _deleteFlag As Boolean ' DB:bit(1)
   Protected  _updateAccountID As Integer ' DB:int(4)
   Protected  _updateTimestamp As DateTime ' DB:datetime(16)
   Protected  _adresses() As Collection
   Protected  _nationalities() As Collection
#End Region
 
#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
 
#Region "Eigenschaften"
 
    Public Readonly Property ContryID() As Integer
        Get
            Return _contryID
        End Get
    End Property
 
 
    Public Property ContryName() As String
        Get
            Return _contryName
        End Get
        Set(ByVal myContryName As String)
            If myContryName.Length <= 255 Then
                _contryName = myContryName
            End If
        End Set
    End Property
 
 
    Public Readonly Property DeleteFlag() As Boolean
        Get
            Return _deleteFlag
        End Get
    End Property
 
 
    Public Readonly Property UpdateAccountID() As Integer
        Get
            Return _updateAccountID
        End Get
    End Property
 
 
    Public Readonly Property UpdateTimestamp() As DateTime
        Get
            Return _updateTimestamp
        End Get
    End Property
#End Region
 
....