dscustomerregister.vb

酒店管理系统,可以用户与酒店的管理,客房登记、结帐、预定

        
        Public Overloads Function Add入住记录Row(ByVal parent旅客RowBy旅客入住记录 As 旅客Row, ByVal 入住时间 As Date, ByVal 离店时间 As Date, ByVal 房号 As String, ByVal 床号 As String, ByVal 预收金额 As Decimal, ByVal 优惠级别 As String, ByVal 房金结帐 As Decimal, ByVal 消费结帐 As Decimal, ByVal 总帐 As Decimal) As 入住记录Row
            Dim row入住记录Row As 入住记录Row = CType(Me.NewRow,入住记录Row)
            row入住记录Row.ItemArray = New Object() {parent旅客RowBy旅客入住记录(0), 入住时间, 离店时间, 房号, 床号, 预收金额, 优惠级别, 房金结帐, 消费结帐, 总帐}
            Me.Rows.Add(row入住记录Row)
            Return row入住记录Row
        End Function
        
        Public Function FindBy身份证号码入住时间(ByVal 身份证号码 As String, ByVal 入住时间 As Date) As 入住记录Row
            Return CType(Me.Rows.Find(New Object() {身份证号码, 入住时间}),入住记录Row)
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As 入住记录DataTable = CType(MyBase.Clone,入住记录DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 入住记录DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column身份证号码 = Me.Columns("身份证号码")
            Me.column入住时间 = Me.Columns("入住时间")
            Me.column离店时间 = Me.Columns("离店时间")
            Me.column房号 = Me.Columns("房号")
            Me.column床号 = Me.Columns("床号")
            Me.column预收金额 = Me.Columns("预收金额")
            Me.column优惠级别 = Me.Columns("优惠级别")
            Me.column房金结帐 = Me.Columns("房金结帐")
            Me.column消费结帐 = Me.Columns("消费结帐")
            Me.column总帐 = Me.Columns("总帐")
        End Sub
        
        Private Sub InitClass()
            Me.column身份证号码 = New DataColumn("身份证号码", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column身份证号码)
            Me.column入住时间 = New DataColumn("入住时间", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column入住时间)
            Me.column离店时间 = New DataColumn("离店时间", GetType(System.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column离店时间)
            Me.column房号 = New DataColumn("房号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房号)
            Me.column床号 = New DataColumn("床号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column床号)
            Me.column预收金额 = New DataColumn("预收金额", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column预收金额)
            Me.column优惠级别 = New DataColumn("优惠级别", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column优惠级别)
            Me.column房金结帐 = New DataColumn("房金结帐", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房金结帐)
            Me.column消费结帐 = New DataColumn("消费结帐", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column消费结帐)
            Me.column总帐 = New DataColumn("总帐", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column总帐)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column身份证号码, Me.column入住时间}, true))
            Me.column身份证号码.AllowDBNull = false
            Me.column入住时间.AllowDBNull = false
            Me.column房号.AllowDBNull = false
        End Sub
        
        Public Function New入住记录Row() As 入住记录Row
            Return CType(Me.NewRow,入住记录Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 入住记录Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(入住记录Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.入住记录RowChangedEvent) Is Nothing) Then
                RaiseEvent 入住记录RowChanged(Me, New 入住记录RowChangeEvent(CType(e.Row,入住记录Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.入住记录RowChangingEvent) Is Nothing) Then
                RaiseEvent 入住记录RowChanging(Me, New 入住记录RowChangeEvent(CType(e.Row,入住记录Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.入住记录RowDeletedEvent) Is Nothing) Then
                RaiseEvent 入住记录RowDeleted(Me, New 入住记录RowChangeEvent(CType(e.Row,入住记录Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.入住记录RowDeletingEvent) Is Nothing) Then
                RaiseEvent 入住记录RowDeleting(Me, New 入住记录RowChangeEvent(CType(e.Row,入住记录Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove入住记录Row(ByVal row As 入住记录Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 入住记录Row
        Inherits DataRow
        
        Private table入住记录 As 入住记录DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table入住记录 = CType(Me.Table,入住记录DataTable)
        End Sub
        
        Public Property 身份证号码 As String
            Get
                Return CType(Me(Me.table入住记录.身份证号码Column),String)
            End Get
            Set
                Me(Me.table入住记录.身份证号码Column) = value
            End Set
        End Property
        
        Public Property 入住时间 As Date
            Get
                Return CType(Me(Me.table入住记录.入住时间Column),Date)
            End Get
            Set
                Me(Me.table入住记录.入住时间Column) = value
            End Set
        End Property
        
        Public Property 离店时间 As Date
            Get
                Try 
                    Return CType(Me(Me.table入住记录.离店时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table入住记录.离店时间Column) = value
            End Set
        End Property
        
        Public Property 房号 As String
            Get
                Return CType(Me(Me.table入住记录.房号Column),String)
            End Get
            Set
                Me(Me.table入住记录.房号Column) = value
            End Set
        End Property
        
        Public Property 床号 As String
            Get
                Try 
                    Return CType(Me(Me.table入住记录.床号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table入住记录.床号Column) = value
            End Set
        End Property
        
        Public Property 预收金额 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table入住记录.预收金额Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table入住记录.预收金额Column) = value
            End Set
        End Property
        
        Public Property 优惠级别 As String
            Get
                Try 
                    Return CType(Me(Me.table入住记录.优惠级别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table入住记录.优惠级别Column) = value
            End Set
        End Property
        
        Public Property 房金结帐 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table入住记录.房金结帐Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table入住记录.房金结帐Column) = value
            End Set
        End Property
        
        Public Property 消费结帐 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table入住记录.消费结帐Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table入住记录.消费结帐Column) = value
            End Set
        End Property
        
        Public Property 总帐 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table入住记录.总帐Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table入住记录.总帐Column) = value
            End Set
        End Property
        
        Public Property 旅客Row As 旅客Row
            Get
                Return CType(Me.GetParentRow(Me.Table.ParentRelations("旅客入住记录")),旅客Row)
            End Get
            Set
                Me.SetParentRow(value, Me.Table.ParentRelations("旅客入住记录"))
            End Set
        End Property
        
        Public Function Is离店时间Null() As Boolean
            Return Me.IsNull(Me.table入住记录.离店时间Column)
        End Function
        
        Public Sub Set离店时间Null()
            Me(Me.table入住记录.离店时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is床号Null() As Boolean
            Return Me.IsNull(Me.table入住记录.床号Column)
        End Function
        
        Public Sub Set床号Null()
            Me(Me.table入住记录.床号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is预收金额Null() As Boolean
            Return Me.IsNull(Me.table入住记录.预收金额Column)
        End Function
        
        Public Sub Set预收金额Null()
            Me(Me.table入住记录.预收金额Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is优惠级别Null() As Boolean
            Return Me.IsNull(Me.table入住记录.优惠级别Column)
        End Function
        
        Public Sub Set优惠级别Null()
            Me(Me.table入住记录.优惠级别Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is房金结帐Null() As Boolean
            Return Me.IsNull(Me.table入住记录.房金结帐Column)
        End Function
        
        Public Sub Set房金结帐Null()
            Me(Me.table入住记录.房金结帐Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is消费结帐Null() As Boolean
            Return Me.IsNull(Me.table入住记录.消费结帐Column)
        End Function
        
        Public Sub Set消费结帐Null()
            Me(Me.table入住记录.消费结帐Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is总帐Null() As Boolean
            Return Me.IsNull(Me.table入住记录.总帐Column)
        End Function
        
        Public Sub Set总帐Null()
            Me(Me.table入住记录.总帐Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 入住记录RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 入住记录Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 入住记录Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 入住记录Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class