- teamvision_rel.zip
- teamvision.3.0_src.zip
- Framework.Dll
- TeamVision.App
- app.config
- app.ico
- bin
- Common
- Data
- dbTeam.mdf
- FrmMain.de.resx
- FrmMain.Designer.vb
- FrmMain.resx
- FrmMain.vb
- Gui
- Components
- Controls
- Lists
- Shared
- Designers
- Dialogs
- Forms
- Categories
- CostTypes
- Persons
- Projects
- Tasks
- Teams
- Users
- Grids
- Interfaces
- Mods
- My Project
- Reports
- res
- Embedded Images
- Calendar.ico
- Exclaimation.ico
- StatusConnected.ico
- StatusDisconnected.ico
- TeamVision.gif
- ToolNewTask.ico
- ToolSearch.ico
- ToolWorkOffline.ico
- ToolWorkOnline.ico
- TrayOffline.ico
- TrayOnline.ico
- Images
- Major.gif
- Medium.gif
- Minor.gif
- Resources
- Calendar24.bmp
- Collapse.jpg
- Collapse_h.jpg
- Contacts24.bmp
- Expand.jpg
- Expand_h.jpg
- Folder24.bmp
- Mail24.bmp
- Notes32.bmp
- Shortcut24.bmp
- Tasks24.bmp
- Servers
- TeamVision.vbproj
- TeamVision.vbproj.user
- TeamVision.sln
- TeamVision.suo
|
'------------------------------------------------------------------------------
' <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 System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml
Namespace Schema
<System.Diagnostics.DebuggerStepThrough()> _
Public Class PriorityTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private m_PriorityIDColumn As DataColumn
Private m_NameColumn As DataColumn
Friend Sub New()
MyBase.New("PriorityTable")
Me.InitClass
End Sub
Friend Sub New(ByVal table As DataTable)
MyBase.New(table.TableName)
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
Me.DisplayExpression = table.DisplayExpression
End Sub
<System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As PriorityRow
Get
Return CType(Me.Rows(index),PriorityRow)
End Get
End Property
Friend ReadOnly Property PriorityIDColumn() As DataColumn
Get
Return Me.m_PriorityIDColumn
End Get
End Property
Friend ReadOnly Property NameColumn() As DataColumn
Get
Return Me.m_NameColumn
End Get
End Property
Public Overloads Sub AddPriorityRow(ByVal row As PriorityRow)
Me.Rows.Add(row)
End Sub
Public Function FindByPrimaryKey(ByVal PriorityID As Integer) As PriorityRow
Return CType(Me.Rows.Find(New Object() {PriorityID}),PriorityRow)
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
Public Overrides Function Clone() As DataTable
Dim cln As PriorityTable = CType(MyBase.Clone,PriorityTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New PriorityTable
End Function
Friend Sub InitVars()
Me.m_PriorityIDColumn = Me.Columns("PriorityID")
Me.m_NameColumn = Me.Columns("Name")
End Sub
Private Sub InitClass()
Me.m_PriorityIDColumn = New DataColumn("PriorityID", GetType(Integer), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.m_PriorityIDColumn)
Me.m_PriorityIDColumn.AllowDBNull = true
Me.m_PriorityIDColumn.Caption = "Priority"
Me.m_PriorityIDColumn.DefaultValue = 0
Me.m_NameColumn = New DataColumn("Name", GetType(String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.m_NameColumn)
Me.m_NameColumn.AllowDBNull = true
Me.m_NameColumn.Caption = "Name"
Me.m_NameColumn.DefaultValue = String.Empty
End Sub
Public Function NewPriorityRow() As PriorityRow
Return CType(Me.NewRow,PriorityRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New PriorityRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(PriorityRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
End Sub
Public Sub RemovePriorityRow(ByVal row As PriorityRow)
Me.Rows.Remove(row)
End Sub
Public Overloads Function AddPriorityRow(ByVal PriorityID As Integer, ByVal Name As String) As PriorityRow
Dim rowTableRow As PriorityRow = CType(Me.NewRow,PriorityRow)
rowTableRow.ItemArray = New Object() {PriorityID, Name}
Me.Rows.Add(rowTableRow)
Return rowTableRow
End Function
End Class
End Namespace
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
MS, BBA, software developer, consultant, and trainer. Specializing in building data-centric applications designed for business, university, community & faith based organizations. Started developing Excel VBA macros and never looked back. Freelance developer utilizing VB.Net, SQL Server, Microsoft Access, and ASP.Net.