state.vb

使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于Microsoft Access数据库演示的任务分配管理的程序

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports Database
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Text

'*************************************************************
' Class Name:  State
' Purpose:  Class to encapsulate business rules and logic
' Description: 
'***************************************************************
Namespace Common.Business
    
    <Serializable()>  _
    Public Class State
        
        Private m_StateID As Integer = -1
        
        Private m_Text As String = "--"
        
        Private m_TaskProxy As Collections.Generic.List(Of Task) = Nothing
        
        Public Sub New()
            MyBase.New
            Me.InitializeClass
            m_TaskProxy = New Collections.Generic.List(Of Task)
        End Sub
        
        Public Sub New(ByVal StateID As Integer, ByVal Text As String)
            MyBase.New
            Me.m_StateID = StateID
            Me.m_Text = Text
            m_TaskProxy = New Collections.Generic.List(Of Task)
        End Sub
        
        Property StateID() As Integer
            Get
                Return m_StateID
            End Get
            Set
                m_StateID = value
            End Set
        End Property
        
        Property Text() As String
            Get
                Return m_Text
            End Get
            Set
                m_Text = value
            End Set
        End Property
        
        Property Tasks() As Collections.Generic.List(Of Task)
            Get
                Dim facade As TaskFacade = New TaskFacade
                Dim sql As String = ("[StateID]=" + Me.m_StateID.ToString)
                m_TaskProxy.AddRange(facade.GetTaskArrayWhere(sql))
                Return Me.m_TaskProxy
            End Get
            Set
                Me.m_TaskProxy = value
            End Set
        End Property
        
        Public Event Create As StateEventHandler
        
        Public Event Remove As StateEventHandler
        
        Public Event Edit As StateEventHandler
        
        Private Sub InitializeClass()
        End Sub
        
        Sub Save()
            RaiseEvent Create(Me, New StateEventArgs(Me))
        End Sub
        
        Sub Delete()
            RaiseEvent Remove(Me, New StateEventArgs(Me))
        End Sub
        
        Sub Update()
            RaiseEvent Edit(Me, New StateEventArgs(Me))
        End Sub
        
        Sub CreateTask(ByVal sender As Object, ByVal e As TaskEventArgs)
            Dim facade As TaskFacade = New TaskFacade
            facade.InsertTask(e.Task)
        End Sub
        
        Sub RemoveTask(ByVal sender As Object, ByVal e As TaskEventArgs)
            Dim facade As TaskFacade = New TaskFacade
            facade.DeleteTask(e.Task.TaskID)
        End Sub
        
        Sub UpdateTask(ByVal sender As Object, ByVal e As TaskEventArgs)
            Dim facade As TaskFacade = New TaskFacade
            facade.UpdateTask(e.Task)
        End Sub
        
        Overrides Function ToString() As String
            Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder
            sb.Append((("StateID=" + StateID.ToString)  _
                            + "::"))
            sb.Append((("Text=" + Text.ToString)  _
                            + "::"))
            Return sb.ToString
        End Function
    End Class
End Namespace