'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.3082
'
' 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 TeamVision.Business
Imports TeamVision.Common
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Text
'*************************************************************
' Class Name: StateManager
' Purpose: Data Access Object (DAO)
' Description: Sends and receives data from the database
'***************************************************************
Namespace Managers
Public NotInheritable Class StateManager
Private Sub New()
MyBase.New
End Sub
#Region "GetByPrimaryKey"
<DataObjectMethod(DataObjectMethodType.[Select], false)> _
Public Shared Function GetByPrimaryKey(ByVal StateID As Integer) As State
Dim sql As StringBuilder = New StringBuilder
sql.Append("SELECT * FROM [States] WHERE ")
sql.Append((" [StateID]=" + StateID.ToString))
Dim dt As System.Data.DataTable = DataHandler.GetDataTable(sql.ToString)
Dim row As System.Data.DataRow = Nothing
row = dt.Rows(0)
Dim biz As State = New State
biz.StateID = Utility.NullToZero(row("StateID"))
biz.Name = Utility.NullToString(row("Name"))
Return biz
End Function
#End Region
#Region "GetStatesWhere"
<DataObjectMethod(DataObjectMethodType.[Select], false)> _
Public Shared Function GetStatesWhere(ByVal WhereSQL As String) As System.Collections.Generic.List(Of State)
Dim sql As StringBuilder = New StringBuilder
sql.Append("SELECT * FROM [States] WHERE ")
sql.Append(WhereSQL)
Dim dt As System.Data.DataTable = DataHandler.GetDataTable(sql.ToString)
Dim row As System.Data.DataRow = Nothing
Dim i As Integer
Dim recordList As System.Collections.Generic.List(Of State) = New System.Collections.Generic.List(Of State)
i = 0
Do While (i _
<= (dt.Rows.Count - 1))
row = dt.Rows(i)
Dim biz As State = New State
biz.StateID = Utility.NullToZero(row("StateID"))
biz.Name = Utility.NullToString(row("Name"))
recordList.Add(biz)
i = (i + 1)
Loop
Return recordList
End Function
#End Region
#Region "GetStateTableWhere"
<DataObjectMethod(DataObjectMethodType.[Select], false)> _
Public Shared Function GetStateTableWhere(ByVal WhereSQL As String) As Schema.StateTable
Dim sql As StringBuilder = New StringBuilder
sql.Append("SELECT * FROM [States] WHERE ")
sql.Append(WhereSQL)
Dim dt As System.Data.DataTable = DataHandler.GetDataTable(sql.ToString)
Dim row As System.Data.DataRow = Nothing
Dim i As Integer
Dim table As Schema.StateTable = New Schema.StateTable
Dim dr As Schema.StateRow = Nothing
i = 0
Do While (i _
<= (dt.Rows.Count - 1))
row = dt.Rows(i)
dr = table.NewStateRow
dr.StateID = Utility.NullToZero(row("StateID"))
dr.Name = Utility.NullToString(row("Name"))
table.AddStateRow(dr)
i = (i + 1)
Loop
Return table
End Function
#End Region
#Region "GetAllStates"
<DataObjectMethod(DataObjectMethodType.[Select], true)> _
Public Shared Function GetAllStates() As System.Collections.Generic.List(Of State)
Dim sql As StringBuilder = New StringBuilder
sql.Append("SELECT * FROM [States]")
Dim dt As System.Data.DataTable = DataHandler.GetDataTable(sql.ToString)
Dim row As System.Data.DataRow = Nothing
Dim i As Integer
Dim recordList As System.Collections.Generic.List(Of State) = New System.Collections.Generic.List(Of State)
i = 0
Do While (i _
<= (dt.Rows.Count - 1))
row = dt.Rows(i)
Dim biz As State = New State
biz.StateID = Utility.NullToZero(row("StateID"))
biz.Name = Utility.NullToString(row("Name"))
recordList.Add(biz)
i = (i + 1)
Loop
Return recordList
End Function
#End Region
#Region "Insert"
<DataObjectMethod(DataObjectMethodType.Insert, true)> _
Public Shared Function Insert(ByVal biz As Models.State) As Integer
Dim sql As StringBuilder = New StringBuilder
sql.Append("INSERT INTO [States] ( ")
sql.Append("[Name] ")
sql.Append(") VALUES ( ")
sql.Append((("'" + biz.Name.ToString) _
+ "'"))
sql.Append(")")
Dim ScalarID As Integer = DataHandler.Insert(sql.ToString, true)
Return ScalarID
End Function
#End Region
#Region "Update"
<DataObjectMethod(DataObjectMethodType.Update, true)> _
Public Shared Sub Update(ByVal biz As Models.State)
Dim sql As StringBuilder = New StringBuilder
sql.Append("UPDATE [States] ")
sql.Append(" SET ")
sql.Append(((" [Name]='" + biz.Name.ToString) _
+ "' "))
sql.Append((" WHERE [StateID]=" + biz.StateID.ToString))
DataHandler.Update(sql.ToString)
End Sub
#End Region
#Region "Delete"
<DataObjectMethod(DataObjectMethodType.Delete, true)> _
Public Shared Sub Delete(ByVal StateID As Integer)
Try
Dim sql As StringBuilder = New StringBuilder
sql.Append("DELETE * FROM [States] WHERE ")
sql.Append((" [StateID]=" + StateID.ToString))
DataHandler.GetDataTable(sql.ToString)
Catch ex As System.Exception
End Try
End Sub
#End Region
#Region "DeleteWhere"
<DataObjectMethod(DataObjectMethodType.Delete, false)> _
Public Shared Sub DeleteWhere(ByVal WhereSQL As String)
Dim sql As StringBuilder = New StringBuilder
sql.Append("DELETE * FROM [States] WHERE ")
sql.Append(WhereSQL)
DataHandler.GetDataTable(sql.ToString)
End Sub
#End Region
#Region "GetTasks"
<DataObjectMethod(DataObjectMethodType.[Select], false)> _
Public Shared Function GetTasks(ByVal biz As State) As System.Collections.Generic.List(Of Task)
'TODO: Define more complex and custom query SQL here.
' ex.: SELECT DISTINCT, RIGHT JOIN, LEFT JOIN, etc...
Dim sql As StringBuilder = New StringBuilder
sql.Append("SELECT * FROM [Tasks] ")
sql.Append(" WHERE ")
sql.Append((" [Tasks].[StateID]=" + biz.StateID.ToString))
Dim dt As DataTable = DataHandler.GetDataTable(sql.ToString)
Dim i As Integer
Dim recordList As System.Collections.Generic.List(Of Task) = New System.Collections.Generic.List(Of Task)
i = 0
Do While (i _
<= (dt.Rows.Count - 1))
Dim row As Datarow = dt.Rows(i)
Dim TaskID As Integer = Utility.NullToZero(row("TaskID"))
Dim CategoryID As Integer = Utility.NullToZero(row("CategoryID"))
Dim Comments As String = Utility.NullToString(row("Comments"))
Dim DateCompleted As Date = Utility.NullToDate(row("DateCompleted"))
Dim DateModified As Date = Utility.NullToDate(row("DateModified"))
Dim Datestamp As Date = Utility.NullToDate(row("Datestamp"))
Dim Description As String = Utility.NullToString(row("Description"))
Dim DueDate As Date = Utility.NullToDate(row("DueDate"))
Dim Duration As Double = Utility.NullToZero(row("Duration"))
Dim EstimatedHours As Double = Utility.NullToZero(row("EstimatedHours"))
Dim IsDeleted As Boolean = Utility.NullToBool(row("IsDeleted"))
Dim Name As String = Utility.NullToString(row("Name"))
Dim Number As String = Utility.NullToString(row("Number"))
Dim ParentID As Integer = Utility.NullToZero(row("ParentID"))
Dim PriorityID As Integer = Utility.NullToZero(row("PriorityID"))
Dim Progress As Double = Utility.NullToZero(row("Progress"))
Dim ProjectID As Integer = Utility.NullToZero(row("ProjectID"))
Dim Risk As Integer = Utility.NullToZero(row("Risk"))
Dim StartDate As Date = Utility.NullToDate(row("StartDate"))
Dim StateID As Integer = Utility.NullToZero(row("StateID"))
Dim Summary As String = Utility.NullToString(row("Summary"))
Dim UserID As Integer = Utility.NullToZero(row("UserID"))
recordList.Add(New Task(TaskID,CategoryID,Comments,DateCompleted,DateModified,Datestamp,Description,DueDate,Duration,EstimatedHours,IsDeleted,Name,Number,ParentID,PriorityID,Progress,ProjectID,Risk,StartDate,StateID,Summary,UserID))
i = (i + 1)
Loop
Return recordList
End Function
#End Region
#Region "Count"
Public Shared Function Count() As Integer
Dim sql As StringBuilder = New StringBuilder
sql.Append("SELECT * FROM [States]")
Dim dt As System.Data.DataTable = DataHandler.GetDataTable(sql.ToString)
Return dt.Rows.Count
End Function
#End Region
End Class
End Namespace
Submit an article or tip