priority.vb

来自「使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于」· VB 代码 · 共 125 行

'------------------------------------------------------------------------------
' <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:  Priority
' Purpose:  Class to encapsulate business rules and logic
' Description: 
'***************************************************************
Namespace Common.Business
    
    <Serializable()>  _
    Public Class Priority
        
        Private m_PriorityID 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 PriorityID As Integer, ByVal Text As String)
            MyBase.New
            Me.m_PriorityID = PriorityID
            Me.m_Text = Text
            m_TaskProxy = New Collections.Generic.List(Of Task)
        End Sub
        
        Property PriorityID() As Integer
            Get
                Return m_PriorityID
            End Get
            Set
                m_PriorityID = 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 = ("[PriorityID]=" + Me.m_PriorityID.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 PriorityEventHandler
        
        Public Event Remove As PriorityEventHandler
        
        Public Event Edit As PriorityEventHandler
        
        Private Sub InitializeClass()
        End Sub
        
        Sub Save()
            RaiseEvent Create(Me, New PriorityEventArgs(Me))
        End Sub
        
        Sub Delete()
            RaiseEvent Remove(Me, New PriorityEventArgs(Me))
        End Sub
        
        Sub Update()
            RaiseEvent Edit(Me, New PriorityEventArgs(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((("PriorityID=" + PriorityID.ToString)  _
                            + "::"))
            sb.Append((("Text=" + Text.ToString)  _
                            + "::"))
            Return sb.ToString
        End Function
    End Class
End Namespace