priorityfacade.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 Common.Business
Imports Database.DataAccess
Imports System
Imports System.Collections
Imports System.Text

'*************************************************************
' Class Name:  PriorityFacade
' Purpose:  A pattern class that represents an entire subsystem.
' Description: 
'***************************************************************
Namespace Database
    
    <Serializable()>  _
    Public Class PriorityFacade
        
        Private m_PriorityDAO As PriorityDAO = New PriorityDAO
        
        Public Sub New()
            MyBase.New
            Me.InitializeClass
        End Sub
        
        Private Sub InitializeClass()
        End Sub
        
        Function GetPriority(ByVal PriorityID As Integer) As Priority
            ' TODO: add security here...
            Dim biz As Priority = m_PriorityDAO.GetByPrimaryKey(PriorityID)
            Return biz
        End Function
        
        Function GetPriorityArrayWhere(ByVal sql As String) As Priority()
            ' TODO: add security here...
            Return m_PriorityDAO.GetPrioritiesWhere(sql)
        End Function
        
        Function GetPriorityTableWhere(ByVal sql As String) As System.Data.DataTable
            ' TODO: add security here...
            Return m_PriorityDAO.GetPrioritiesTableWhere(sql)
        End Function
        
        Function GetPrioritiesWhere(ByVal args() As Object) As System.Collections.ArrayList
            ' TODO: add security here...
            Return m_PriorityDAO.GetPrioritiesWhere(args)
        End Function
        
        Function GetPrioritiesWhereAndAlso(ByVal args() As Object) As System.Collections.ArrayList
            ' TODO: add security here...
            Return m_PriorityDAO.GetPrioritiesWhereAndAlso(args)
        End Function
        
        Function InsertPriority(ByVal biz As Priority) As Integer
            ' TODO: add security here...
            Return m_PriorityDAO.Insert(biz)
        End Function
        
        Sub UpdatePriority(ByVal biz As Priority)
            ' TODO: add security here...
            m_PriorityDAO.Update(biz)
        End Sub
        
        Sub DeletePriority(ByVal ID As Integer)
            ' TODO: add security here...
            m_PriorityDAO.Delete(ID)
        End Sub
        
        Function GetAllPriorities() As System.Collections.ArrayList
            ' TODO: add security here...
            Dim Priorities As System.Collections.ArrayList = m_PriorityDAO.GetAllPriorities
            Return Priorities
        End Function
    End Class
End Namespace