task.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:  Task
' Purpose:  Class to encapsulate business rules and logic
' Description: 
'***************************************************************
Namespace Common.Business
    
    <Serializable()>  _
    Public Class Task
        
        Private m_TaskID As Integer = -1
        
        Private m_AssignedID As Integer = -1
        
        Private m_DateCreated As Date = #01/01/1911#
        
        Private m_DateDue As Date = #01/01/1911#
        
        Private m_DateModified As Date = #01/01/1911#
        
        Private m_Description As String = "--"
        
        Private m_IsDeleted As Boolean = 0
        
        Private m_PriorityID As Integer = -1
        
        Private m_Progress As Double = 0
        
        Private m_ProjectID As Integer = -1
        
        Private m_StateID As Integer = -1
        
        Private m_Summary As String = "--"
        
        Private m_UserID As Integer = -1
        
        Private m_Priority As Priority
        
        Private m_Project As Project
        
        Private m_State As State
        
        Private m_User As User
        
        Public Sub New()
            MyBase.New
            Me.InitializeClass
        End Sub
        
        Public Sub New(ByVal TaskID As Integer, ByVal AssignedID As Integer, ByVal DateCreated As Date, ByVal DateDue As Date, ByVal DateModified As Date, ByVal Description As String, ByVal IsDeleted As Boolean, ByVal PriorityID As Integer, ByVal Progress As Double, ByVal ProjectID As Integer, ByVal StateID As Integer, ByVal Summary As String, ByVal UserID As Integer)
            MyBase.New
            Me.m_TaskID = TaskID
            Me.m_AssignedID = AssignedID
            Me.m_DateCreated = DateCreated
            Me.m_DateDue = DateDue
            Me.m_DateModified = DateModified
            Me.m_Description = Description
            Me.m_IsDeleted = IsDeleted
            Me.m_PriorityID = PriorityID
            Me.m_Progress = Progress
            Me.m_ProjectID = ProjectID
            Me.m_StateID = StateID
            Me.m_Summary = Summary
            Me.m_UserID = UserID
        End Sub
        
        Property TaskID() As Integer
            Get
                Return m_TaskID
            End Get
            Set
                m_TaskID = value
            End Set
        End Property
        
        Property AssignedID() As Integer
            Get
                Return m_AssignedID
            End Get
            Set
                m_AssignedID = value
            End Set
        End Property
        
        Property DateCreated() As Date
            Get
                Return m_DateCreated
            End Get
            Set
                m_DateCreated = value
            End Set
        End Property
        
        Property DateDue() As Date
            Get
                Return m_DateDue
            End Get
            Set
                m_DateDue = value
            End Set
        End Property
        
        Property DateModified() As Date
            Get
                Return m_DateModified
            End Get
            Set
                m_DateModified = 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 PriorityID() As Integer
            Get
                Return m_PriorityID
            End Get
            Set
                m_PriorityID = value
            End Set
        End Property
        
        Property Progress() As Double
            Get
                Return m_Progress
            End Get
            Set
                m_Progress = value
            End Set
        End Property
        
        Property ProjectID() As Integer
            Get
                Return m_ProjectID
            End Get
            Set
                m_ProjectID = value
            End Set
        End Property
        
        Property StateID() As Integer
            Get
                Return m_StateID
            End Get
            Set
                m_StateID = value
            End Set
        End Property
        
        Property Summary() As String
            Get
                Return m_Summary
            End Get
            Set
                m_Summary = value
            End Set
        End Property
        
        Property UserID() As Integer
            Get
                Return m_UserID
            End Get
            Set
                m_UserID = value
            End Set
        End Property
        
        Property Priority() As Priority
            Get
                If (m_Priority Is Nothing) Then
                    Me.LazyLoadPriority
                End If
                Return m_Priority
            End Get
            Set
                m_Priority = value
            End Set
        End Property
        
        Property Project() As Project
            Get
                If (m_Project Is Nothing) Then
                    Me.LazyLoadProject
                End If
                Return m_Project
            End Get
            Set
                m_Project = value
            End Set
        End Property
        
        Property State() As State
            Get
                If (m_State Is Nothing) Then
                    Me.LazyLoadState
                End If
                Return m_State
            End Get
            Set
                m_State = value
            End Set
        End Property
        
        Property User() As User
            Get
                If (m_User Is Nothing) Then
                    Me.LazyLoadUser
                End If
                Return m_User
            End Get
            Set
                m_User = value
            End Set
        End Property
        
        Public Event Create As TaskEventHandler
        
        Public Event Remove As TaskEventHandler
        
        Public Event Edit As TaskEventHandler
        
        Private Sub InitializeClass()
        End Sub
        
        Sub Save()
            RaiseEvent Create(Me, New TaskEventArgs(Me))
        End Sub
        
        Sub Delete()
            RaiseEvent Remove(Me, New TaskEventArgs(Me))
        End Sub
        
        Sub Update()
            RaiseEvent Edit(Me, New TaskEventArgs(Me))
        End Sub
        
        Private Sub LazyLoadPriority()
            If (m_PriorityID > 0) Then
                Dim facade As PriorityFacade = New PriorityFacade
                Dim sql As String = ("[PriorityID]=" + m_PriorityID.ToString)
                m_Priority = facade.GetPriorityArrayWhere(sql)(0)
            End If
        End Sub
        
        Private Sub LazyLoadProject()
            If (m_ProjectID > 0) Then
                Dim facade As ProjectFacade = New ProjectFacade
                Dim sql As String = ("[ProjectID]=" + m_ProjectID.ToString)
                m_Project = facade.GetProjectArrayWhere(sql)(0)
            End If
        End Sub
        
        Private Sub LazyLoadState()
            If (m_StateID > 0) Then
                Dim facade As StateFacade = New StateFacade
                Dim sql As String = ("[StateID]=" + m_StateID.ToString)
                m_State = facade.GetStateArrayWhere(sql)(0)
            End If
        End Sub
        
        Private Sub LazyLoadUser()
            If (m_UserID > 0) Then
                Dim facade As UserFacade = New UserFacade
                Dim sql As String = ("[UserID]=" + m_UserID.ToString)
                m_User = facade.GetUserArrayWhere(sql)(0)
            End If
        End Sub
        
        Overrides Function ToString() As String
            Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder
            sb.Append((("TaskID=" + TaskID.ToString)  _
                            + "::"))
            sb.Append((("AssignedID=" + AssignedID.ToString)  _
                            + "::"))
            sb.Append((("DateCreated=" + DateCreated.ToString)  _
                            + "::"))
            sb.Append((("DateDue=" + DateDue.ToString)  _
                            + "::"))
            sb.Append((("DateModified=" + DateModified.ToString)  _
                            + "::"))
            sb.Append((("Description=" + Description.ToString)  _
                            + "::"))
            sb.Append((("IsDeleted=" + IsDeleted.ToString)  _
                            + "::"))
            sb.Append((("PriorityID=" + PriorityID.ToString)  _
                            + "::"))
            sb.Append((("Progress=" + Progress.ToString)  _
                            + "::"))
            sb.Append((("ProjectID=" + ProjectID.ToString)  _
                            + "::"))
            sb.Append((("StateID=" + StateID.ToString)  _
                            + "::"))
            sb.Append((("Summary=" + Summary.ToString)  _
                            + "::"))
            sb.Append((("UserID=" + UserID.ToString)  _
                            + "::"))
            Return sb.ToString
        End Function
    End Class
End Namespace