project.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:  Project
' Purpose:  Class to encapsulate business rules and logic
' Description: 
'***************************************************************
Namespace Common.Business
    
    <Serializable()>  _
    Public Class Project
        
        Private m_ProjectID As Integer = -1
        
        Private m_DateCreated As Date = #01/01/1911#
        
        Private m_Description As String = "--"
        
        Private m_IsDeleted As Boolean = 0
        
        Private m_Name 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 ProjectID As Integer, ByVal DateCreated As Date, ByVal Description As String, ByVal IsDeleted As Boolean, ByVal Name As String)
            MyBase.New
            Me.m_ProjectID = ProjectID
            Me.m_DateCreated = DateCreated
            Me.m_Description = Description
            Me.m_IsDeleted = IsDeleted
            Me.m_Name = Name
            m_TaskProxy = New Collections.Generic.List(Of Task)
        End Sub
        
        Property ProjectID() As Integer
            Get
                Return m_ProjectID
            End Get
            Set
                m_ProjectID = value
            End Set
        End Property
        
        Property DateCreated() As Date
            Get
                Return m_DateCreated
            End Get
            Set
                m_DateCreated = value
            End Set
        End Property
        
        Property Description() As String
            Get
                Return m_Description
            End Get
            Set
                m_Description = value
            End Set
        End Property
        
        Property IsDeleted() As Boolean
            Get
                Return m_IsDeleted
            End Get
            Set
                m_IsDeleted = value
            End Set
        End Property
        
        Property Name() As String
            Get
                Return m_Name
            End Get
            Set
                m_Name = value
            End Set
        End Property
        
        Property Tasks() As Collections.Generic.List(Of Task)
            Get
                Dim facade As TaskFacade = New TaskFacade
                Dim sql As String = ("[ProjectID]=" + Me.m_ProjectID.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 ProjectEventHandler
        
        Public Event Remove As ProjectEventHandler
        
        Public Event Edit As ProjectEventHandler
        
        Private Sub InitializeClass()
        End Sub
        
        Sub Save()
            RaiseEvent Create(Me, New ProjectEventArgs(Me))
        End Sub
        
        Sub Delete()
            RaiseEvent Remove(Me, New ProjectEventArgs(Me))
        End Sub
        
        Sub Update()
            RaiseEvent Edit(Me, New ProjectEventArgs(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((("ProjectID=" + ProjectID.ToString)  _
                            + "::"))
            sb.Append((("DateCreated=" + DateCreated.ToString)  _
                            + "::"))
            sb.Append((("Description=" + Description.ToString)  _
                            + "::"))
            sb.Append((("IsDeleted=" + IsDeleted.ToString)  _
                            + "::"))
            sb.Append((("Name=" + Name.ToString)  _
                            + "::"))
            Return sb.ToString
        End Function
    End Class
End Namespace