taskdao.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 System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Text

'*************************************************************
' Class Name:  TaskDAO
' Purpose:  Data Access Object (DAO)
' Description: Sends and receives data from the database
'***************************************************************
Namespace Database.DataAccess
    
    Public Class TaskDAO
        
        Public Sub New()
            MyBase.New
            Me.InitializeClass
        End Sub
        
        Private Sub InitializeClass()
        End Sub
        
        Function GetByPrimaryKey(ByVal TaskID As Integer) As Task
            Dim sql As StringBuilder = New StringBuilder
            sql.Append("SELECT * FROM [Tasks] WHERE ")
            sql.Append((" [TaskID]=" + TaskID.ToString))
            Dim db As AccessDb = New AccessDb
            Dim dt As System.Data.DataTable = db.GetDataTable(sql.ToString)
            db = Nothing
            Dim row As System.Data.DataRow = Nothing
            row = dt.Rows(0)
            Dim biz As Task = New Task
            biz.TaskID = dbUtility.NullToZero(row("TaskID"))
            biz.AssignedID = dbUtility.NullToZero(row("AssignedID"))
            biz.DateCreated = dbUtility.NullToDate(row("DateCreated"))
            biz.DateDue = dbUtility.NullToDate(row("DateDue"))
            biz.DateModified = dbUtility.NullToDate(row("DateModified"))
            biz.Description = dbUtility.NullToString(row("Description"))
            biz.IsDeleted = dbUtility.NullToBool(row("IsDeleted"))
            biz.PriorityID = dbUtility.NullToZero(row("PriorityID"))
            biz.Progress = dbUtility.NullToZero(row("Progress"))
            biz.ProjectID = dbUtility.NullToZero(row("ProjectID"))
            biz.StateID = dbUtility.NullToZero(row("StateID"))
            biz.Summary = dbUtility.NullToString(row("Summary"))
            biz.UserID = dbUtility.NullToZero(row("UserID"))
            Return biz
        End Function
        
        Overloads Function GetTasksWhere(ByVal WhereSQL As String) As Task()
            Dim sql As StringBuilder = New StringBuilder
            sql.Append("SELECT * FROM [Tasks] WHERE ")
            sql.Append(WhereSQL)
            Dim db As AccessDb = New AccessDb
            Dim dt As System.Data.DataTable = db.GetDataTable(sql.ToString)
            db = Nothing
            Dim row As System.Data.DataRow = Nothing
            Dim i As Integer
            Dim recordList As System.Collections.ArrayList = New System.Collections.ArrayList
            i = 0
            Do While (i  _
                        <= (dt.Rows.Count - 1))
                row = dt.Rows(i)
                Dim biz As Task = New Task
                biz.TaskID = dbUtility.NullToZero(row("TaskID"))
                biz.AssignedID = dbUtility.NullToZero(row("AssignedID"))
                biz.DateCreated = dbUtility.NullToDate(row("DateCreated"))
                biz.DateDue = dbUtility.NullToDate(row("DateDue"))
                biz.DateModified = dbUtility.NullToDate(row("DateModified"))
                biz.Description = dbUtility.NullToString(row("Description"))
                biz.IsDeleted = dbUtility.NullToBool(row("IsDeleted"))
                biz.PriorityID = dbUtility.NullToZero(row("PriorityID"))
                biz.Progress = dbUtility.NullToZero(row("Progress"))
                biz.ProjectID = dbUtility.NullToZero(row("ProjectID"))
                biz.StateID = dbUtility.NullToZero(row("StateID"))
                biz.Summary = dbUtility.NullToString(row("Summary"))
                biz.UserID = dbUtility.NullToZero(row("UserID"))
                recordList.Add(biz)
                i = (i + 1)
            Loop
            Return CType(recordList.ToArray(GetType(Task)),Task())
        End Function
        
        Function GetTasksTableWhere(ByVal WhereSQL As String) As DataTable
            Dim sql As StringBuilder = New StringBuilder
            sql.Append("SELECT * FROM [Tasks] WHERE ")
            sql.Append(WhereSQL)
            Dim db As AccessDb = New AccessDb
            Dim dt As System.Data.DataTable = db.GetDataTable(sql.ToString)
            db = Nothing
            dt.TableName = "Tasks"
            Return dt
        End Function
        
        Overloads Function GetTasksWhere(ByVal args() As Object) As System.Collections.ArrayList
            If (args.Length = 3) Then
                Dim sql As StringBuilder = New StringBuilder
                sql.Append("SELECT * FROM [Tasks] WHERE ")
                sql.Append(String.Format("[Tasks].{0}{1}{2}", args))
                Dim db As AccessDb = New AccessDb
                Dim dt As System.Data.DataTable = db.GetDataTable(sql.ToString)
                db = Nothing
                dt.TableName = "Tasks"
                Dim row As System.Data.DataRow = Nothing
                Dim i As Integer
                Dim recordList As System.Collections.ArrayList = New System.Collections.ArrayList
                i = 0
                Do While (i  _
                            <= (dt.Rows.Count - 1))
                    row = dt.Rows(i)
                    Dim biz As Task = New Task
                    biz.TaskID = dbUtility.NullToZero(row("TaskID"))
                    biz.AssignedID = dbUtility.NullToZero(row("AssignedID"))
                    biz.DateCreated = dbUtility.NullToDate(row("DateCreated"))
                    biz.DateDue = dbUtility.NullToDate(row("DateDue"))
                    biz.DateModified = dbUtility.NullToDate(row("DateModified"))
                    biz.Description = dbUtility.NullToString(row("Description"))
                    biz.IsDeleted = dbUtility.NullToBool(row("IsDeleted"))
                    biz.PriorityID = dbUtility.NullToZero(row("PriorityID"))
                    biz.Progress = dbUtility.NullToZero(row("Progress"))
                    biz.ProjectID = dbUtility.NullToZero(row("ProjectID"))
                    biz.StateID = dbUtility.NullToZero(row("StateID"))
                    biz.Summary = dbUtility.NullToString(row("Summary"))
                    biz.UserID = dbUtility.NullToZero(row("UserID"))
                    recordList.Add(biz)
                    i = (i + 1)
                Loop
                Return recordList
            Else
                Return Nothing
            End If
        End Function
        
        Function GetTasksWhereAndAlso(ByVal args() As Object) As System.Collections.ArrayList
            If (args.Length = 6) Then
                Dim sql As StringBuilder = New StringBuilder
                sql.Append("SELECT * FROM [Tasks] WHERE ")
                sql.Append(String.Format("[Tasks].{0}{1}{2} AND [Tasks].{3}{4}{5}", args))
                Dim db As AccessDb = New AccessDb
                Dim dt As System.Data.DataTable = db.GetDataTable(sql.ToString)
                db = Nothing
                dt.TableName = "Tasks"
                Dim row As System.Data.DataRow = Nothing
                Dim i As Integer
                Dim recordList As System.Collections.ArrayList = New System.Collections.ArrayList
                i = 0
                Do While (i  _
                            <= (dt.Rows.Count - 1))
                    row = dt.Rows(i)
                    Dim biz As Task = New Task
                    biz.TaskID = dbUtility.NullToZero(row("TaskID"))
                    biz.AssignedID = dbUtility.NullToZero(row("AssignedID"))