user.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:  User
' Purpose:  Class to encapsulate business rules and logic
' Description: 
'***************************************************************
Namespace Common.Business
    
    <Serializable()>  _
    Public Class User
        
        Private m_UserID As Integer = -1
        
        Private m_DateCreated As Date = #01/01/1911#
        
        Private m_Email As String = "--"
        
        Private m_FullName As String = "--"
        
        Private m_IsAccountLocked As Boolean = 0
        
        Private m_IsAdministrator As Boolean = 0
        
        Private m_Name As String = "--"
        
        Private m_Password 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 UserID As Integer, ByVal DateCreated As Date, ByVal Email As String, ByVal FullName As String, ByVal IsAccountLocked As Boolean, ByVal IsAdministrator As Boolean, ByVal Name As String, ByVal Password As String)
            MyBase.New
            Me.m_UserID = UserID
            Me.m_DateCreated = DateCreated
            Me.m_Email = Email
            Me.m_FullName = FullName
            Me.m_IsAccountLocked = IsAccountLocked
            Me.m_IsAdministrator = IsAdministrator
            Me.m_Name = Name
            Me.m_Password = Password
            m_TaskProxy = New Collections.Generic.List(Of Task)
        End Sub
        
        Property UserID() As Integer
            Get
                Return m_UserID
            End Get
            Set
                m_UserID = value
            End Set
        End Property
        
        Property DateCreated() As Date
            Get
                Return m_DateCreated
            End Get
            Set
                m_DateCreated = value
            End Set
        End Property
        
        Property Email() As String
            Get
                Return m_Email
            End Get
            Set
                m_Email = value
            End Set
        End Property
        
        Property FullName() As String
            Get
                Return m_FullName
            End Get
            Set
                m_FullName = value
            End Set
        End Property
        
        Property IsAccountLocked() As Boolean
            Get
                Return m_IsAccountLocked
            End Get
            Set
                m_IsAccountLocked = value
            End Set
        End Property
        
        Property IsAdministrator() As Boolean
            Get
                Return m_IsAdministrator
            End Get
            Set
                m_IsAdministrator = value
            End Set
        End Property
        
        Property Name() As String
            Get
                Return m_Name
            End Get
            Set
                m_Name = value
            End Set
        End Property
        
        Property Password() As String
            Get
                Return m_Password
            End Get
            Set
                m_Password = value
            End Set
        End Property
        
        Property Tasks() As Collections.Generic.List(Of Task)
            Get
                Dim facade As TaskFacade = New TaskFacade
                Dim sql As String = ("[UserID]=" + Me.m_UserID.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 UserEventHandler
        
        Public Event Remove As UserEventHandler
        
        Public Event Edit As UserEventHandler
        
        Private Sub InitializeClass()
        End Sub
        
        Sub Save()
            RaiseEvent Create(Me, New UserEventArgs(Me))
        End Sub
        
        Sub Delete()
            RaiseEvent Remove(Me, New UserEventArgs(Me))
        End Sub
        
        Sub Update()
            RaiseEvent Edit(Me, New UserEventArgs(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((("UserID=" + UserID.ToString)  _
                            + "::"))
            sb.Append((("DateCreated=" + DateCreated.ToString)  _
                            + "::"))
            sb.Append((("Email=" + Email.ToString)  _
                            + "::"))
            sb.Append((("FullName=" + FullName.ToString)  _
                            + "::"))
            sb.Append((("IsAccountLocked=" + IsAccountLocked.ToString)  _
                            + "::"))
            sb.Append((("IsAdministrator=" + IsAdministrator.ToString)  _
                            + "::"))
            sb.Append((("Name=" + Name.ToString)  _
                            + "::"))
            sb.Append((("Password=" + Password.ToString)  _
                            + "::"))
            Return sb.ToString
        End Function
    End Class
End Namespace