'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class ireaDataSet
Inherits Global.System.Data.DataSet
Private tableMainTable As MainTableDataTable
Private tableEtcTable As EtcTableDataTable
Private tablejjutable As jjutableDataTable
Private tableDetail_Deung As Detail_DeungDataTable
Private tableDetail_karo As Detail_karoDataTable
Private tableDetail_Cable As Detail_CableDataTable
Private tableDetail_Cable2 As Detail_Cable2DataTable
Private tableDetail_CableLabel As Detail_CableLabelDataTable
Private tableDetail_kiki As Detail_kikiDataTable
Private tablejjungtable As jjungtableDataTable
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
Me.InitExpressions
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.ExcludeSchema) Then
Me.InitExpressions
End If
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("MainTable")) Is Nothing) Then
MyBase.Tables.Add(New MainTableDataTable(ds.Tables("MainTable")))
End If
If (Not (ds.Tables("EtcTable")) Is Nothing) Then
MyBase.Tables.Add(New EtcTableDataTable(ds.Tables("EtcTable")))
End If
If (Not (ds.Tables("jjutable")) Is Nothing) Then
MyBase.Tables.Add(New jjutableDataTable(ds.Tables("jjutable")))
End If
If (Not (ds.Tables("Detail_Deung")) Is Nothing) Then
MyBase.Tables.Add(New Detail_DeungDataTable(ds.Tables("Detail_Deung")))
End If
If (Not (ds.Tables("Detail_karo")) Is Nothing) Then
MyBase.Tables.Add(New Detail_karoDataTable(ds.Tables("Detail_karo")))
End If
If (Not (ds.Tables("Detail_Cable")) Is Nothing) Then
MyBase.Tables.Add(New Detail_CableDataTable(ds.Tables("Detail_Cable")))
End If
If (Not (ds.Tables("Detail_Cable2")) Is Nothing) Then
MyBase.Tables.Add(New Detail_Cable2DataTable(ds.Tables("Detail_Cable2")))
End If
If (Not (ds.Tables("Detail_CableLabel")) Is Nothing) Then
MyBase.Tables.Add(New Detail_CableLabelDataTable(ds.Tables("Detail_CableLabel")))
End If
If (Not (ds.Tables("Detail_kiki")) Is Nothing) Then
MyBase.Tables.Add(New Detail_kikiDataTable(ds.Tables("Detail_kiki")))
End If
If (Not (ds.Tables("jjungtable")) Is Nothing) Then
MyBase.Tables.Add(New jjungtableDataTable(ds.Tables("jjungtable")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
Me.InitExpressions
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
_
Public ReadOnly Property MainTable() As MainTableDataTable
Get
Return Me.tableMainTable
End Get
End Property
_
Public ReadOnly Property EtcTable() As EtcTableDataTable
Get
Return Me.tableEtcTable
End Get
End Property
_
Public ReadOnly Property jjutable() As jjutableDataTable
Get
Return Me.tablejjutable
End Get
End Property
_
Public ReadOnly Property Detail_Deung() As Detail_DeungDataTable
Get
Return Me.tableDetail_Deung
End Get
End Property
_
Public ReadOnly Property Detail_karo() As Detail_karoDataTable
Get
Return Me.tableDetail_karo
End Get
End Property
_
Public ReadOnly Property Detail_Cable() As Detail_CableDataTable
Get
Return Me.tableDetail_Cable
End Get
End Property
_
Public ReadOnly Property Detail_Cable2() As Detail_Cable2DataTable
Get
Return Me.tableDetail_Cable2
End Get
End Property
_
Public ReadOnly Property Detail_CableLabel() As Detail_CableLabelDataTable
Get
Return Me.tableDetail_CableLabel
End Get
End Property
_
Public ReadOnly Property Detail_kiki() As Detail_kikiDataTable
Get
Return Me.tableDetail_kiki
End Get
End Property
_
Public ReadOnly Property jjungtable() As jjungtableDataTable
Get
Return Me.tablejjungtable
End Get
End Property
_
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
_
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
_
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
_
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As ireaDataSet = CType(MyBase.Clone,ireaDataSet)
cln.InitVars
cln.InitExpressions
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
_
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
_
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
_
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("MainTable")) Is Nothing) Then
MyBase.Tables.Add(New MainTableDataTable(ds.Tables("MainTable")))
End If
If (Not (ds.Tables("EtcTable")) Is Nothing) Then
MyBase.Tables.Add(New EtcTableDataTable(ds.Tables("EtcTable")))
End If
If (Not (ds.Tables("jjutable")) Is Nothing) Then
MyBase.Tables.Add(New jjutableDataTable(ds.Tables("jjutable")))
End If
If (Not (ds.Tables("Detail_Deung")) Is Nothing) Then
MyBase.Tables.Add(New Detail_DeungDataTable(ds.Tables("Detail_Deung")))
End If
If (Not (ds.Tables("Detail_karo")) Is Nothing) Then
MyBase.Tables.Add(New Detail_karoDataTable(ds.Tables("Detail_karo")))
End If
If (Not (ds.Tables("Detail_Cable")) Is Nothing) Then
MyBase.Tables.Add(New Detail_CableDataTable(ds.Tables("Detail_Cable")))
End If
If (Not (ds.Tables("Detail_Cable2")) Is Nothing) Then
MyBase.Tables.Add(New Detail_Cable2DataTable(ds.Tables("Detail_Cable2")))
End If
If (Not (ds.Tables("Detail_CableLabel")) Is Nothing) Then
MyBase.Tables.Add(New Detail_CableLabelDataTable(ds.Tables("Detail_CableLabel")))
End If
If (Not (ds.Tables("Detail_kiki")) Is Nothing) Then
MyBase.Tables.Add(New Detail_kikiDataTable(ds.Tables("Detail_kiki")))
End If
If (Not (ds.Tables("jjungtable")) Is Nothing) Then
MyBase.Tables.Add(New jjungtableDataTable(ds.Tables("jjungtable")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
_
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function
_
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
_
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableMainTable = CType(MyBase.Tables("MainTable"),MainTableDataTable)
If (initTable = true) Then
If (Not (Me.tableMainTable) Is Nothing) Then
Me.tableMainTable.InitVars
End If
End If
Me.tableEtcTable = CType(MyBase.Tables("EtcTable"),EtcTableDataTable)
If (initTable = true) Then
If (Not (Me.tableEtcTable) Is Nothing) Then
Me.tableEtcTable.InitVars
End If
End If
Me.tablejjutable = CType(MyBase.Tables("jjutable"),jjutableDataTable)
If (initTable = true) Then
If (Not (Me.tablejjutable) Is Nothing) Then
Me.tablejjutable.InitVars
End If
End If
Me.tableDetail_Deung = CType(MyBase.Tables("Detail_Deung"),Detail_DeungDataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_Deung) Is Nothing) Then
Me.tableDetail_Deung.InitVars
End If
End If
Me.tableDetail_karo = CType(MyBase.Tables("Detail_karo"),Detail_karoDataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_karo) Is Nothing) Then
Me.tableDetail_karo.InitVars
End If
End If
Me.tableDetail_Cable = CType(MyBase.Tables("Detail_Cable"),Detail_CableDataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_Cable) Is Nothing) Then
Me.tableDetail_Cable.InitVars
End If
End If
Me.tableDetail_Cable2 = CType(MyBase.Tables("Detail_Cable2"),Detail_Cable2DataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_Cable2) Is Nothing) Then
Me.tableDetail_Cable2.InitVars
End If
End If
Me.tableDetail_CableLabel = CType(MyBase.Tables("Detail_CableLabel"),Detail_CableLabelDataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_CableLabel) Is Nothing) Then
Me.tableDetail_CableLabel.InitVars
End If
End If
Me.tableDetail_kiki = CType(MyBase.Tables("Detail_kiki"),Detail_kikiDataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_kiki) Is Nothing) Then
Me.tableDetail_kiki.InitVars
End If
End If
Me.tablejjungtable = CType(MyBase.Tables("jjungtable"),jjungtableDataTable)
If (initTable = true) Then
If (Not (Me.tablejjungtable) Is Nothing) Then
Me.tablejjungtable.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "ireaDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/ireaDataSet.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableMainTable = New MainTableDataTable()
MyBase.Tables.Add(Me.tableMainTable)
Me.tableEtcTable = New EtcTableDataTable()
MyBase.Tables.Add(Me.tableEtcTable)
Me.tablejjutable = New jjutableDataTable()
MyBase.Tables.Add(Me.tablejjutable)
Me.tableDetail_Deung = New Detail_DeungDataTable()
MyBase.Tables.Add(Me.tableDetail_Deung)
Me.tableDetail_karo = New Detail_karoDataTable()
MyBase.Tables.Add(Me.tableDetail_karo)
Me.tableDetail_Cable = New Detail_CableDataTable()
MyBase.Tables.Add(Me.tableDetail_Cable)
Me.tableDetail_Cable2 = New Detail_Cable2DataTable()
MyBase.Tables.Add(Me.tableDetail_Cable2)
Me.tableDetail_CableLabel = New Detail_CableLabelDataTable()
MyBase.Tables.Add(Me.tableDetail_CableLabel)
Me.tableDetail_kiki = New Detail_kikiDataTable(false)
MyBase.Tables.Add(Me.tableDetail_kiki)
Me.tablejjungtable = New jjungtableDataTable()
MyBase.Tables.Add(Me.tablejjungtable)
End Sub
_
Private Function ShouldSerializeMainTable() As Boolean
Return false
End Function
_
Private Function ShouldSerializeEtcTable() As Boolean
Return false
End Function
_
Private Function ShouldSerializejjutable() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_Deung() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_karo() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_Cable() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_Cable2() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_CableLabel() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_kiki() As Boolean
Return false
End Function
_
Private Function ShouldSerializejjungtable() As Boolean
Return false
End Function
_
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
_
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As ireaDataSet = New ireaDataSet()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
_
Private Sub InitExpressions()
Me.Detail_kiki.회선10Column.Expression = "isnull(회선11,'')+isnull(회선12,'')+isnull(회선13,'')+isnull(회선14,'')+isnull(회선15,'')"
Me.Detail_kiki.회선20Column.Expression = "isnull(회선21,'')+isnull(회선22,'')+isnull(회선23,'')+isnull(회선24,'')+isnull(회선25,'')"
Me.Detail_kiki.회선30Column.Expression = "isnull(회선31,'')+isnull(회선32,'')+isnull(회선33,'')+isnull(회선34,'')+isnull(회선35,'')"
End Sub
_
Public Delegate Sub MainTableRowChangeEventHandler(ByVal sender As Object, ByVal e As MainTableRowChangeEvent)
_
Public Delegate Sub EtcTableRowChangeEventHandler(ByVal sender As Object, ByVal e As EtcTableRowChangeEvent)
_
Public Delegate Sub jjutableRowChangeEventHandler(ByVal sender As Object, ByVal e As jjutableRowChangeEvent)
_
Public Delegate Sub Detail_DeungRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_DeungRowChangeEvent)
_
Public Delegate Sub Detail_karoRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_karoRowChangeEvent)
_
Public Delegate Sub Detail_CableRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_CableRowChangeEvent)
_
Public Delegate Sub Detail_Cable2RowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_Cable2RowChangeEvent)
_
Public Delegate Sub Detail_CableLabelRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_CableLabelRowChangeEvent)
_
Public Delegate Sub Detail_kikiRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_kikiRowChangeEvent)
_
Public Delegate Sub jjungtableRowChangeEventHandler(ByVal sender As Object, ByVal e As jjungtableRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class MainTableDataTable
Inherits Global.System.Data.TypedTableBase(Of MainTableRow)
Private columnID As Global.System.Data.DataColumn
Private column날짜 As Global.System.Data.DataColumn
Private column거래처명 As Global.System.Data.DataColumn
Private column비고 As Global.System.Data.DataColumn
Private column총수량 As Global.System.Data.DataColumn
Private column단가 As Global.System.Data.DataColumn
Private column금액 As Global.System.Data.DataColumn
Private column번호찰구분 As Global.System.Data.DataColumn
Private column시공자 As Global.System.Data.DataColumn
Private column홈페이지 As Global.System.Data.DataColumn
Private column관리 As Global.System.Data.DataColumn
Private column관리1 As Global.System.Data.DataColumn
Private column관리2 As Global.System.Data.DataColumn
Private Shared column날짜_defaultValue As Date = Date.Parse("2007-01-01T00:00:00")
_
Public Sub New()
MyBase.New
Me.TableName = "MainTable"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = 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
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
_
Public ReadOnly Property 날짜Column() As Global.System.Data.DataColumn
Get
Return Me.column날짜
End Get
End Property
_
Public ReadOnly Property 거래처명Column() As Global.System.Data.DataColumn
Get
Return Me.column거래처명
End Get
End Property
_
Public ReadOnly Property 비고Column() As Global.System.Data.DataColumn
Get
Return Me.column비고
End Get
End Property
_
Public ReadOnly Property 총수량Column() As Global.System.Data.DataColumn
Get
Return Me.column총수량
End Get
End Property
_
Public ReadOnly Property 단가Column() As Global.System.Data.DataColumn
Get
Return Me.column단가
End Get
End Property
_
Public ReadOnly Property 금액Column() As Global.System.Data.DataColumn
Get
Return Me.column금액
End Get
End Property
_
Public ReadOnly Property 번호찰구분Column() As Global.System.Data.DataColumn
Get
Return Me.column번호찰구분
End Get
End Property
_
Public ReadOnly Property 시공자Column() As Global.System.Data.DataColumn
Get
Return Me.column시공자
End Get
End Property
_
Public ReadOnly Property 홈페이지Column() As Global.System.Data.DataColumn
Get
Return Me.column홈페이지
End Get
End Property
_
Public ReadOnly Property 관리Column() As Global.System.Data.DataColumn
Get
Return Me.column관리
End Get
End Property
_
Public ReadOnly Property 관리1Column() As Global.System.Data.DataColumn
Get
Return Me.column관리1
End Get
End Property
_
Public ReadOnly Property 관리2Column() As Global.System.Data.DataColumn
Get
Return Me.column관리2
End Get
End Property
_
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 MainTableRow
Get
Return CType(Me.Rows(index),MainTableRow)
End Get
End Property
_
Public Event MainTableRowChanging As MainTableRowChangeEventHandler
_
Public Event MainTableRowChanged As MainTableRowChangeEventHandler
_
Public Event MainTableRowDeleting As MainTableRowChangeEventHandler
_
Public Event MainTableRowDeleted As MainTableRowChangeEventHandler
_
Public Overloads Sub AddMainTableRow(ByVal row As MainTableRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddMainTableRow(ByVal ID As Integer, ByVal 날짜 As Date, ByVal 거래처명 As String, ByVal 비고 As String, ByVal 총수량 As Integer, ByVal 단가 As Integer, ByVal 금액 As Integer, ByVal 번호찰구분 As Integer, ByVal 시공자 As String, ByVal 홈페이지 As String, ByVal 관리 As String, ByVal 관리1 As String, ByVal 관리2 As String) As MainTableRow
Dim rowMainTableRow As MainTableRow = CType(Me.NewRow,MainTableRow)
Dim columnValuesArray() As Object = New Object() {ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분, 시공자, 홈페이지, 관리, 관리1, 관리2}
rowMainTableRow.ItemArray = columnValuesArray
Me.Rows.Add(rowMainTableRow)
Return rowMainTableRow
End Function
_
Public Function FindByID(ByVal ID As Integer) As MainTableRow
Return CType(Me.Rows.Find(New Object() {ID}),MainTableRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As MainTableDataTable = CType(MyBase.Clone,MainTableDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New MainTableDataTable()
End Function
_
Friend Sub InitVars()
Me.columnID = MyBase.Columns("ID")
Me.column날짜 = MyBase.Columns("날짜")
Me.column거래처명 = MyBase.Columns("거래처명")
Me.column비고 = MyBase.Columns("비고")
Me.column총수량 = MyBase.Columns("총수량")
Me.column단가 = MyBase.Columns("단가")
Me.column금액 = MyBase.Columns("금액")
Me.column번호찰구분 = MyBase.Columns("번호찰구분")
Me.column시공자 = MyBase.Columns("시공자")
Me.column홈페이지 = MyBase.Columns("홈페이지")
Me.column관리 = MyBase.Columns("관리")
Me.column관리1 = MyBase.Columns("관리1")
Me.column관리2 = MyBase.Columns("관리2")
End Sub
_
Private Sub InitClass()
Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnID)
Me.column날짜 = New Global.System.Data.DataColumn("날짜", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column날짜)
Me.column거래처명 = New Global.System.Data.DataColumn("거래처명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column거래처명)
Me.column비고 = New Global.System.Data.DataColumn("비고", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column비고)
Me.column총수량 = New Global.System.Data.DataColumn("총수량", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column총수량)
Me.column단가 = New Global.System.Data.DataColumn("단가", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column단가)
Me.column금액 = New Global.System.Data.DataColumn("금액", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column금액)
Me.column번호찰구분 = New Global.System.Data.DataColumn("번호찰구분", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호찰구분)
Me.column시공자 = New Global.System.Data.DataColumn("시공자", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column시공자)
Me.column홈페이지 = New Global.System.Data.DataColumn("홈페이지", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column홈페이지)
Me.column관리 = New Global.System.Data.DataColumn("관리", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리)
Me.column관리1 = New Global.System.Data.DataColumn("관리1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리1)
Me.column관리2 = New Global.System.Data.DataColumn("관리2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리2)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
Me.columnID.AllowDBNull = false
Me.columnID.Unique = true
Me.column날짜.DefaultValue = CType(MainTableDataTable.column날짜_defaultValue,Date)
Me.column거래처명.DefaultValue = CType("",String)
Me.column거래처명.MaxLength = 50
Me.column비고.DefaultValue = CType("",String)
Me.column비고.MaxLength = 50
Me.column총수량.DefaultValue = CType(0,Integer)
Me.column단가.DefaultValue = CType(0,Integer)
Me.column금액.DefaultValue = CType(0,Integer)
Me.column번호찰구분.ReadOnly = true
Me.column번호찰구분.DefaultValue = CType(0,Integer)
Me.column시공자.MaxLength = 40
Me.column홈페이지.MaxLength = 70
Me.column관리.MaxLength = 50
Me.column관리1.MaxLength = 50
Me.column관리2.MaxLength = 50
End Sub
_
Public Function NewMainTableRow() As MainTableRow
Return CType(Me.NewRow,MainTableRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New MainTableRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(MainTableRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.MainTableRowChangedEvent) Is Nothing) Then
RaiseEvent MainTableRowChanged(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.MainTableRowChangingEvent) Is Nothing) Then
RaiseEvent MainTableRowChanging(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.MainTableRowDeletedEvent) Is Nothing) Then
RaiseEvent MainTableRowDeleted(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.MainTableRowDeletingEvent) Is Nothing) Then
RaiseEvent MainTableRowDeleting(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action))
End If
End Sub
_
Public Sub RemoveMainTableRow(ByVal row As MainTableRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As ireaDataSet = New ireaDataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "MainTableDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class EtcTableDataTable
Inherits Global.System.Data.TypedTableBase(Of EtcTableRow)
Private column관리ID As Global.System.Data.DataColumn
Private column번호 As Global.System.Data.DataColumn
Private column관리구 As Global.System.Data.DataColumn
Private column전주번호 As Global.System.Data.DataColumn
Private column선로명 As Global.System.Data.DataColumn
Private column번호1 As Global.System.Data.DataColumn
Private column번호2 As Global.System.Data.DataColumn
Private column번호3 As Global.System.Data.DataColumn
Private column번호4 As Global.System.Data.DataColumn
Private column번호5 As Global.System.Data.DataColumn
Private column비고1 As Global.System.Data.DataColumn
Private column비고2 As Global.System.Data.DataColumn
Private column비고3 As Global.System.Data.DataColumn
Private column비고4 As Global.System.Data.DataColumn
Private column담당자 As Global.System.Data.DataColumn
Private column정렬번호 As Global.System.Data.DataColumn
Private column선택 As Global.System.Data.DataColumn
Private columnrowid As Global.System.Data.DataColumn
Private column출력 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "EtcTable"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = 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
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn
Get
Return Me.column관리ID
End Get
End Property
_
Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn
Get
Return Me.column번호
End Get
End Property
_
Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn
Get
Return Me.column관리구
End Get
End Property
_
Public ReadOnly Property 전주번호Column() As Global.System.Data.DataColumn
Get
Return Me.column전주번호
End Get
End Property
_
Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn
Get
Return Me.column선로명
End Get
End Property
_
Public ReadOnly Property 번호1Column() As Global.System.Data.DataColumn
Get
Return Me.column번호1
End Get
End Property
_
Public ReadOnly Property 번호2Column() As Global.System.Data.DataColumn
Get
Return Me.column번호2
End Get
End Property
_
Public ReadOnly Property 번호3Column() As Global.System.Data.DataColumn
Get
Return Me.column번호3
End Get
End Property
_
Public ReadOnly Property 번호4Column() As Global.System.Data.DataColumn
Get
Return Me.column번호4
End Get
End Property
_
Public ReadOnly Property 번호5Column() As Global.System.Data.DataColumn
Get
Return Me.column번호5
End Get
End Property
_
Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn
Get
Return Me.column비고1
End Get
End Property
_
Public ReadOnly Property 비고2Column() As Global.System.Data.DataColumn
Get
Return Me.column비고2
End Get
End Property
_
Public ReadOnly Property 비고3Column() As Global.System.Data.DataColumn
Get
Return Me.column비고3
End Get
End Property
_
Public ReadOnly Property 비고4Column() As Global.System.Data.DataColumn
Get
Return Me.column비고4
End Get
End Property
_
Public ReadOnly Property 담당자Column() As Global.System.Data.DataColumn
Get
Return Me.column담당자
End Get
End Property
_
Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn
Get
Return Me.column정렬번호
End Get
End Property
_
Public ReadOnly Property 선택Column() As Global.System.Data.DataColumn
Get
Return Me.column선택
End Get
End Property
_
Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn
Get
Return Me.columnrowid
End Get
End Property
_
Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn
Get
Return Me.column출력
End Get
End Property
_
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 EtcTableRow
Get
Return CType(Me.Rows(index),EtcTableRow)
End Get
End Property
_
Public Event EtcTableRowChanging As EtcTableRowChangeEventHandler
_
Public Event EtcTableRowChanged As EtcTableRowChangeEventHandler
_
Public Event EtcTableRowDeleting As EtcTableRowChangeEventHandler
_
Public Event EtcTableRowDeleted As EtcTableRowChangeEventHandler
_
Public Overloads Sub AddEtcTableRow(ByVal row As EtcTableRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddEtcTableRow( _
ByVal 관리ID As Integer, _
ByVal 번호 As Integer, _
ByVal 관리구 As String, _
ByVal 전주번호 As String, _
ByVal 선로명 As String, _
ByVal 번호1 As String, _
ByVal 번호2 As String, _
ByVal 번호3 As String, _
ByVal 번호4 As String, _
ByVal 번호5 As String, _
ByVal 비고1 As String, _
ByVal 비고2 As String, _
ByVal 비고3 As String, _
ByVal 비고4 As String, _
ByVal 담당자 As String, _
ByVal 정렬번호 As String, _
ByVal 선택 As Boolean, _
ByVal rowid As System.Guid, _
ByVal 출력 As Boolean) As EtcTableRow
Dim rowEtcTableRow As EtcTableRow = CType(Me.NewRow,EtcTableRow)
Dim columnValuesArray() As Object = New Object() {관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고2, 비고3, 비고4, 담당자, 정렬번호, 선택, rowid, 출력}
rowEtcTableRow.ItemArray = columnValuesArray
Me.Rows.Add(rowEtcTableRow)
Return rowEtcTableRow
End Function
_
Public Function FindByrowid(ByVal rowid As System.Guid) As EtcTableRow
Return CType(Me.Rows.Find(New Object() {rowid}),EtcTableRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As EtcTableDataTable = CType(MyBase.Clone,EtcTableDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New EtcTableDataTable()
End Function
_
Friend Sub InitVars()
Me.column관리ID = MyBase.Columns("관리ID")
Me.column번호 = MyBase.Columns("번호")
Me.column관리구 = MyBase.Columns("관리구")
Me.column전주번호 = MyBase.Columns("전주번호")
Me.column선로명 = MyBase.Columns("선로명")
Me.column번호1 = MyBase.Columns("번호1")
Me.column번호2 = MyBase.Columns("번호2")
Me.column번호3 = MyBase.Columns("번호3")
Me.column번호4 = MyBase.Columns("번호4")
Me.column번호5 = MyBase.Columns("번호5")
Me.column비고1 = MyBase.Columns("비고1")
Me.column비고2 = MyBase.Columns("비고2")
Me.column비고3 = MyBase.Columns("비고3")
Me.column비고4 = MyBase.Columns("비고4")
Me.column담당자 = MyBase.Columns("담당자")
Me.column정렬번호 = MyBase.Columns("정렬번호")
Me.column선택 = MyBase.Columns("선택")
Me.columnrowid = MyBase.Columns("rowid")
Me.column출력 = MyBase.Columns("출력")
End Sub
_
Private Sub InitClass()
Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리ID)
Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호)
Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리구)
Me.column전주번호 = New Global.System.Data.DataColumn("전주번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전주번호)
Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column선로명)
Me.column번호1 = New Global.System.Data.DataColumn("번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호1)
Me.column번호2 = New Global.System.Data.DataColumn("번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호2)
Me.column번호3 = New Global.System.Data.DataColumn("번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호3)
Me.column번호4 = New Global.System.Data.DataColumn("번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호4)
Me.column번호5 = New Global.System.Data.DataColumn("번호5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호5)
Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column비고1)
Me.column비고2 = New Global.System.Data.DataColumn("비고2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column비고2)
Me.column비고3 = New Global.System.Data.DataColumn("비고3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column비고3)
Me.column비고4 = New Global.System.Data.DataColumn("비고4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column비고4)
Me.column담당자 = New Global.System.Data.DataColumn("담당자", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column담당자)
Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column정렬번호)
Me.column선택 = New Global.System.Data.DataColumn("선택", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column선택)
Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnrowid)
Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column출력)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true))
Me.column관리구.DefaultValue = CType("",String)
Me.column관리구.MaxLength = 6
Me.column전주번호.DefaultValue = CType("",String)
Me.column전주번호.MaxLength = 8
Me.column선로명.DefaultValue = CType("",String)
Me.column선로명.MaxLength = 50
Me.column번호1.DefaultValue = CType("",String)
Me.column번호1.MaxLength = 30
Me.column번호2.DefaultValue = CType("",String)
Me.column번호2.MaxLength = 30
Me.column번호3.DefaultValue = CType("",String)
Me.column번호3.MaxLength = 10
Me.column번호4.DefaultValue = CType("",String)
Me.column번호4.MaxLength = 10
Me.column번호5.DefaultValue = CType("",String)
Me.column번호5.MaxLength = 10
Me.column비고1.DefaultValue = CType("",String)
Me.column비고1.MaxLength = 20
Me.column비고2.DefaultValue = CType("",String)
Me.column비고2.MaxLength = 20
Me.column비고3.DefaultValue = CType("",String)
Me.column비고3.MaxLength = 20
Me.column비고4.DefaultValue = CType("",String)
Me.column비고4.MaxLength = 20
Me.column담당자.DefaultValue = CType("",String)
Me.column담당자.MaxLength = 20
Me.column정렬번호.DefaultValue = CType("히히히000000000",String)
Me.column선택.DefaultValue = CType(false,Boolean)
Me.columnrowid.AllowDBNull = false
Me.columnrowid.Unique = true
Me.column출력.DefaultValue = CType(true,Boolean)
End Sub
_
Public Function NewEtcTableRow() As EtcTableRow
Return CType(Me.NewRow,EtcTableRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New EtcTableRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(EtcTableRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.EtcTableRowChangedEvent) Is Nothing) Then
RaiseEvent EtcTableRowChanged(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.EtcTableRowChangingEvent) Is Nothing) Then
RaiseEvent EtcTableRowChanging(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.EtcTableRowDeletedEvent) Is Nothing) Then
RaiseEvent EtcTableRowDeleted(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.EtcTableRowDeletingEvent) Is Nothing) Then
RaiseEvent EtcTableRowDeleting(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action))
End If
End Sub
_
Public Sub RemoveEtcTableRow(ByVal row As EtcTableRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As ireaDataSet = New ireaDataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "EtcTableDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class jjutableDataTable
Inherits Global.System.Data.TypedTableBase(Of jjutableRow)
Private columnrowid As Global.System.Data.DataColumn
Private column관리ID As Global.System.Data.DataColumn
Private column번호 As Global.System.Data.DataColumn
Private column구관리구 As Global.System.Data.DataColumn
Private column구전산번호 As Global.System.Data.DataColumn
Private column관리구 As Global.System.Data.DataColumn
Private column전주번호 As Global.System.Data.DataColumn
Private column선로명 As Global.System.Data.DataColumn
Private column번호1 As Global.System.Data.DataColumn
Private column번호2 As Global.System.Data.DataColumn
Private column번호3 As Global.System.Data.DataColumn
Private column번호4 As Global.System.Data.DataColumn
Private column번호5 As Global.System.Data.DataColumn
Private column장척 As Global.System.Data.DataColumn
Private column시공년월 As Global.System.Data.DataColumn
Private column시공자 As Global.System.Data.DataColumn
Private columnDL명 As Global.System.Data.DataColumn
Private column비고1 As Global.System.Data.DataColumn
Private column감독자 As Global.System.Data.DataColumn
Private column인쇄 As Global.System.Data.DataColumn
Private column기입 As Global.System.Data.DataColumn
Private column접지저항1 As Global.System.Data.DataColumn
Private column접지저항2 As Global.System.Data.DataColumn
Private column형식 As Global.System.Data.DataColumn
Private column신규 As Global.System.Data.DataColumn
Private column철거 As Global.System.Data.DataColumn
Private column그림파일 As Global.System.Data.DataColumn
Private column인입 As Global.System.Data.DataColumn
Private column정렬번호 As Global.System.Data.DataColumn
Private column구선로명 As Global.System.Data.DataColumn
Private column구전주번호 As Global.System.Data.DataColumn
Private column그림경로 As Global.System.Data.DataColumn
Private column출력 As Global.System.Data.DataColumn
Private column전주현행번호 As Global.System.Data.DataColumn
Private column문자1 As Global.System.Data.DataColumn
Private column문자2 As Global.System.Data.DataColumn
Private column그림 As Global.System.Data.DataColumn
Private column점검일자 As Global.System.Data.DataColumn
Private columnCOS휴즈용량 As Global.System.Data.DataColumn
Private column상표시찰1단 As Global.System.Data.DataColumn
Private column상표시찰2단 As Global.System.Data.DataColumn
Private column선로전방 As Global.System.Data.DataColumn
Private column선로좌측 As Global.System.Data.DataColumn
Private column선로우측 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "jjutable"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = 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
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn
Get
Return Me.columnrowid
End Get
End Property
_
Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn
Get
Return Me.column관리ID
End Get
End Property
_
Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn
Get
Return Me.column번호
End Get
End Property
_
Public ReadOnly Property 구관리구Column() As Global.System.Data.DataColumn
Get
Return Me.column구관리구
End Get
End Property
_
Public ReadOnly Property 구전산번호Column() As Global.System.Data.DataColumn
Get
Return Me.column구전산번호
End Get
End Property
_
Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn
Get
Return Me.column관리구
End Get
End Property
_
Public ReadOnly Property 전주번호Column() As Global.System.Data.DataColumn
Get
Return Me.column전주번호
End Get
End Property
_
Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn
Get
Return Me.column선로명
End Get
End Property
_
Public ReadOnly Property 번호1Column() As Global.System.Data.DataColumn
Get
Return Me.column번호1
End Get
End Property
_
Public ReadOnly Property 번호2Column() As Global.System.Data.DataColumn
Get
Return Me.column번호2
End Get
End Property
_
Public ReadOnly Property 번호3Column() As Global.System.Data.DataColumn
Get
Return Me.column번호3
End Get
End Property
_
Public ReadOnly Property 번호4Column() As Global.System.Data.DataColumn
Get
Return Me.column번호4
End Get
End Property
_
Public ReadOnly Property 번호5Column() As Global.System.Data.DataColumn
Get
Return Me.column번호5
End Get
End Property
_
Public ReadOnly Property 장척Column() As Global.System.Data.DataColumn
Get
Return Me.column장척
End Get
End Property
_
Public ReadOnly Property 시공년월Column() As Global.System.Data.DataColumn
Get
Return Me.column시공년월
End Get
End Property
_
Public ReadOnly Property 시공자Column() As Global.System.Data.DataColumn
Get
Return Me.column시공자
End Get
End Property
_
Public ReadOnly Property DL명Column() As Global.System.Data.DataColumn
Get
Return Me.columnDL명
End Get
End Property
_
Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn
Get
Return Me.column비고1
End Get
End Property
_
Public ReadOnly Property 감독자Column() As Global.System.Data.DataColumn
Get
Return Me.column감독자
End Get
End Property
_
Public ReadOnly Property 인쇄Column() As Global.System.Data.DataColumn
Get
Return Me.column인쇄
End Get
End Property
_
Public ReadOnly Property 기입Column() As Global.System.Data.DataColumn
Get
Return Me.column기입
End Get
End Property
_
Public ReadOnly Property 접지저항1Column() As Global.System.Data.DataColumn
Get
Return Me.column접지저항1
End Get
End Property
_
Public ReadOnly Property 접지저항2Column() As Global.System.Data.DataColumn
Get
Return Me.column접지저항2
End Get
End Property
_
Public ReadOnly Property 형식Column() As Global.System.Data.DataColumn
Get
Return Me.column형식
End Get
End Property
_
Public ReadOnly Property 신규Column() As Global.System.Data.DataColumn
Get
Return Me.column신규
End Get
End Property
_
Public ReadOnly Property 철거Column() As Global.System.Data.DataColumn
Get
Return Me.column철거
End Get
End Property
_
Public ReadOnly Property 그림파일Column() As Global.System.Data.DataColumn
Get
Return Me.column그림파일
End Get
End Property
_
Public ReadOnly Property 인입Column() As Global.System.Data.DataColumn
Get
Return Me.column인입
End Get
End Property
_
Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn
Get
Return Me.column정렬번호
End Get
End Property
_
Public ReadOnly Property 구선로명Column() As Global.System.Data.DataColumn
Get
Return Me.column구선로명
End Get
End Property
_
Public ReadOnly Property 구전주번호Column() As Global.System.Data.DataColumn
Get
Return Me.column구전주번호
End Get
End Property
_
Public ReadOnly Property 그림경로Column() As Global.System.Data.DataColumn
Get
Return Me.column그림경로
End Get
End Property
_
Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn
Get
Return Me.column출력
End Get
End Property
_
Public ReadOnly Property 전주현행번호Column() As Global.System.Data.DataColumn
Get
Return Me.column전주현행번호
End Get
End Property
_
Public ReadOnly Property 문자1Column() As Global.System.Data.DataColumn
Get
Return Me.column문자1
End Get
End Property
_
Public ReadOnly Property 문자2Column() As Global.System.Data.DataColumn
Get
Return Me.column문자2
End Get
End Property
_
Public ReadOnly Property 그림Column() As Global.System.Data.DataColumn
Get
Return Me.column그림
End Get
End Property
_
Public ReadOnly Property 점검일자Column() As Global.System.Data.DataColumn
Get
Return Me.column점검일자
End Get
End Property
_
Public ReadOnly Property COS휴즈용량Column() As Global.System.Data.DataColumn
Get
Return Me.columnCOS휴즈용량
End Get
End Property
_
Public ReadOnly Property 상표시찰1단Column() As Global.System.Data.DataColumn
Get
Return Me.column상표시찰1단
End Get
End Property
_
Public ReadOnly Property 상표시찰2단Column() As Global.System.Data.DataColumn
Get
Return Me.column상표시찰2단
End Get
End Property
_
Public ReadOnly Property 선로전방Column() As Global.System.Data.DataColumn
Get
Return Me.column선로전방
End Get
End Property
_
Public ReadOnly Property 선로좌측Column() As Global.System.Data.DataColumn
Get
Return Me.column선로좌측
End Get
End Property
_
Public ReadOnly Property 선로우측Column() As Global.System.Data.DataColumn
Get
Return Me.column선로우측
End Get
End Property
_
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 jjutableRow
Get
Return CType(Me.Rows(index),jjutableRow)
End Get
End Property
_
Public Event jjutableRowChanging As jjutableRowChangeEventHandler
_
Public Event jjutableRowChanged As jjutableRowChangeEventHandler
_
Public Event jjutableRowDeleting As jjutableRowChangeEventHandler
_
Public Event jjutableRowDeleted As jjutableRowChangeEventHandler
_
Public Overloads Sub AddjjutableRow(ByVal row As jjutableRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddjjutableRow( _
ByVal rowid As System.Guid, _
ByVal 관리ID As Integer, _
ByVal 번호 As Integer, _
ByVal 구관리구 As String, _
ByVal 구전산번호 As String, _
ByVal 관리구 As String, _
ByVal 전주번호 As String, _
ByVal 선로명 As String, _
ByVal 번호1 As String, _
ByVal 번호2 As String, _
ByVal 번호3 As String, _
ByVal 번호4 As String, _
ByVal 번호5 As String, _
ByVal 장척 As String, _
ByVal 시공년월 As String, _
ByVal 시공자 As String, _
ByVal DL명 As String, _
ByVal 비고1 As String, _
ByVal 감독자 As String, _
ByVal 인쇄 As Boolean, _
ByVal 기입 As Boolean, _
ByVal 접지저항1 As String, _
ByVal 접지저항2 As String, _
ByVal 형식 As String, _
ByVal 신규 As Boolean, _
ByVal 철거 As Boolean, _
ByVal 그림파일 As String, _
ByVal 인입 As Boolean, _
ByVal 정렬번호 As String, _
ByVal 구선로명 As String, _
ByVal 구전주번호 As String, _
ByVal 그림경로 As String, _
ByVal 출력 As Boolean, _
ByVal 전주현행번호 As String, _
ByVal 문자1 As String, _
ByVal 문자2 As String, _
ByVal 그림 As Boolean, _
ByVal 점검일자 As String, _
ByVal COS휴즈용량 As String, _
ByVal 상표시찰1단 As String, _
ByVal 상표시찰2단 As String, _
ByVal 선로전방 As String, _
ByVal 선로좌측 As String, _
ByVal 선로우측 As String) As jjutableRow
Dim rowjjutableRow As jjutableRow = CType(Me.NewRow,jjutableRow)
Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 구관리구, 구전산번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 장척, 시공년월, 시공자, DL명, 비고1, 감독자, 인쇄, 기입, 접지저항1, 접지저항2, 형식, 신규, 철거, 그림파일, 인입, 정렬번호, 구선로명, 구전주번호, 그림경로, 출력, 전주현행번호, 문자1, 문자2, 그림, 점검일자, COS휴즈용량, 상표시찰1단, 상표시찰2단, 선로전방, 선로좌측, 선로우측}
rowjjutableRow.ItemArray = columnValuesArray
Me.Rows.Add(rowjjutableRow)
Return rowjjutableRow
End Function
_
Public Function FindByrowid(ByVal rowid As System.Guid) As jjutableRow
Return CType(Me.Rows.Find(New Object() {rowid}),jjutableRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As jjutableDataTable = CType(MyBase.Clone,jjutableDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New jjutableDataTable()
End Function
_
Friend Sub InitVars()
Me.columnrowid = MyBase.Columns("rowid")
Me.column관리ID = MyBase.Columns("관리ID")
Me.column번호 = MyBase.Columns("번호")
Me.column구관리구 = MyBase.Columns("구관리구")
Me.column구전산번호 = MyBase.Columns("구전산번호")
Me.column관리구 = MyBase.Columns("관리구")
Me.column전주번호 = MyBase.Columns("전주번호")
Me.column선로명 = MyBase.Columns("선로명")
Me.column번호1 = MyBase.Columns("번호1")
Me.column번호2 = MyBase.Columns("번호2")
Me.column번호3 = MyBase.Columns("번호3")
Me.column번호4 = MyBase.Columns("번호4")
Me.column번호5 = MyBase.Columns("번호5")
Me.column장척 = MyBase.Columns("장척")
Me.column시공년월 = MyBase.Columns("시공년월")
Me.column시공자 = MyBase.Columns("시공자")
Me.columnDL명 = MyBase.Columns("DL명")
Me.column비고1 = MyBase.Columns("비고1")
Me.column감독자 = MyBase.Columns("감독자")
Me.column인쇄 = MyBase.Columns("인쇄")
Me.column기입 = MyBase.Columns("기입")
Me.column접지저항1 = MyBase.Columns("접지저항1")
Me.column접지저항2 = MyBase.Columns("접지저항2")
Me.column형식 = MyBase.Columns("형식")
Me.column신규 = MyBase.Columns("신규")
Me.column철거 = MyBase.Columns("철거")
Me.column그림파일 = MyBase.Columns("그림파일")
Me.column인입 = MyBase.Columns("인입")
Me.column정렬번호 = MyBase.Columns("정렬번호")
Me.column구선로명 = MyBase.Columns("구선로명")
Me.column구전주번호 = MyBase.Columns("구전주번호")
Me.column그림경로 = MyBase.Columns("그림경로")
Me.column출력 = MyBase.Columns("출력")
Me.column전주현행번호 = MyBase.Columns("전주현행번호")
Me.column문자1 = MyBase.Columns("문자1")
Me.column문자2 = MyBase.Columns("문자2")
Me.column그림 = MyBase.Columns("그림")
Me.column점검일자 = MyBase.Columns("점검일자")
Me.columnCOS휴즈용량 = MyBase.Columns("COS휴즈용량")
Me.column상표시찰1단 = MyBase.Columns("상표시찰1단")
Me.column상표시찰2단 = MyBase.Columns("상표시찰2단")
Me.column선로전방 = MyBase.Columns("선로전방")
Me.column선로좌측 = MyBase.Columns("선로좌측")
Me.column선로우측 = MyBase.Columns("선로우측")
End Sub
_
Private Sub InitClass()
Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnrowid)
Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리ID)
Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호)
Me.column구관리구 = New Global.System.Data.DataColumn("구관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column구관리구)
Me.column구전산번호 = New Global.System.Data.DataColumn("구전산번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column구전산번호)
Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리구)
Me.column전주번호 = New Global.System.Data.DataColumn("전주번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전주번호)
Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column선로명)
Me.column번호1 = New Global.System.Data.DataColumn("번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호1)
Me.column번호2 = New Global.System.Data.DataColumn("번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호2)
Me.column번호3 = New Global.System.Data.DataColumn("번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호3)
Me.column번호4 = New Global.System.Data.DataColumn("번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호4)
Me.column번호5 = New Global.System.Data.DataColumn("번호5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호5)
Me.column장척 = New Global.System.Data.DataColumn("장척", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column장척)
Me.column시공년월 = New Global.System.Data.DataColumn("시공년월", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column시공년월)
Me.column시공자 = New Global.System.Data.DataColumn("시공자", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column시공자)
Me.columnDL명 = New Global.System.Data.DataColumn("DL명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDL명)
Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column비고1)
Me.column감독자 = New Global.System.Data.DataColumn("감독자", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column감독자)
Me.column인쇄 = New Global.System.Data.DataColumn("인쇄", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column인쇄)
Me.column기입 = New Global.System.Data.DataColumn("기입", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column기입)
Me.column접지저항1 = New Global.System.Data.DataColumn("접지저항1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column접지저항1)
Me.column접지저항2 = New Global.System.Data.DataColumn("접지저항2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column접지저항2)
Me.column형식 = New Global.System.Data.DataColumn("형식", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column형식)
Me.column신규 = New Global.System.Data.DataColumn("신규", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column신규)
Me.column철거 = New Global.System.Data.DataColumn("철거", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column철거)
Me.column그림파일 = New Global.System.Data.DataColumn("그림파일", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column그림파일)
Me.column인입 = New Global.System.Data.DataColumn("인입", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column인입)
Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column정렬번호)
Me.column구선로명 = New Global.System.Data.DataColumn("구선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column구선로명)
Me.column구전주번호 = New Global.System.Data.DataColumn("구전주번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column구전주번호)
Me.column그림경로 = New Global.System.Data.DataColumn("그림경로", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column그림경로)
Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column출력)
Me.column전주현행번호 = New Global.System.Data.DataColumn("전주현행번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전주현행번호)
Me.column문자1 = New Global.System.Data.DataColumn("문자1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column문자1)
Me.column문자2 = New Global.System.Data.DataColumn("문자2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column문자2)
Me.column그림 = New Global.System.Data.DataColumn("그림", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column그림)
Me.column점검일자 = New Global.System.Data.DataColumn("점검일자", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column점검일자)
Me.columnCOS휴즈용량 = New Global.System.Data.DataColumn("COS휴즈용량", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOS휴즈용량)
Me.column상표시찰1단 = New Global.System.Data.DataColumn("상표시찰1단", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column상표시찰1단)
Me.column상표시찰2단 = New Global.System.Data.DataColumn("상표시찰2단", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column상표시찰2단)
Me.column선로전방 = New Global.System.Data.DataColumn("선로전방", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column선로전방)
Me.column선로좌측 = New Global.System.Data.DataColumn("선로좌측", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column선로좌측)
Me.column선로우측 = New Global.System.Data.DataColumn("선로우측", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column선로우측)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true))
Me.columnrowid.AllowDBNull = false
Me.columnrowid.Unique = true
Me.column구관리구.DefaultValue = CType("",String)
Me.column구관리구.MaxLength = 50
Me.column구전산번호.DefaultValue = CType("",String)
Me.column구전산번호.MaxLength = 50
Me.column관리구.DefaultValue = CType("",String)
Me.column관리구.MaxLength = 50
Me.column전주번호.DefaultValue = CType("",String)
Me.column전주번호.MaxLength = 50
Me.column선로명.DefaultValue = CType("",String)
Me.column선로명.MaxLength = 50
Me.column번호1.DefaultValue = CType("",String)
Me.column번호1.MaxLength = 30
Me.column번호2.DefaultValue = CType("",String)
Me.column번호2.MaxLength = 30
Me.column번호3.DefaultValue = CType("",String)
Me.column번호3.MaxLength = 50
Me.column번호4.DefaultValue = CType("",String)
Me.column번호4.MaxLength = 50
Me.column번호5.DefaultValue = CType("",String)
Me.column번호5.MaxLength = 50
Me.column장척.DefaultValue = CType("",String)
Me.column장척.MaxLength = 50
Me.column시공년월.DefaultValue = CType("",String)
Me.column시공년월.MaxLength = 50
Me.column시공자.DefaultValue = CType("",String)
Me.column시공자.MaxLength = 30
Me.columnDL명.DefaultValue = CType("",String)
Me.columnDL명.MaxLength = 50
Me.column비고1.DefaultValue = CType("",String)
Me.column비고1.MaxLength = 20
Me.column감독자.DefaultValue = CType("",String)
Me.column감독자.MaxLength = 50
Me.column인쇄.DefaultValue = CType(false,Boolean)
Me.column기입.DefaultValue = CType(false,Boolean)
Me.column접지저항1.DefaultValue = CType("",String)
Me.column접지저항1.MaxLength = 50
Me.column접지저항2.DefaultValue = CType("",String)
Me.column접지저항2.MaxLength = 50
Me.column형식.DefaultValue = CType("",String)
Me.column형식.MaxLength = 50
Me.column신규.DefaultValue = CType(false,Boolean)
Me.column철거.DefaultValue = CType(false,Boolean)
Me.column그림파일.DefaultValue = CType("",String)
Me.column그림파일.MaxLength = 255
Me.column인입.DefaultValue = CType(false,Boolean)
Me.column정렬번호.DefaultValue = CType("",String)
Me.column정렬번호.MaxLength = 50
Me.column구선로명.DefaultValue = CType("",String)
Me.column구선로명.MaxLength = 50
Me.column구전주번호.DefaultValue = CType("",String)
Me.column구전주번호.MaxLength = 50
Me.column그림경로.DefaultValue = CType("",String)
Me.column그림경로.MaxLength = 536870910
Me.column출력.DefaultValue = CType(true,Boolean)
Me.column전주현행번호.DefaultValue = CType("",String)
Me.column전주현행번호.MaxLength = 30
Me.column문자1.DefaultValue = CType("",String)
Me.column문자1.MaxLength = 50
Me.column문자2.DefaultValue = CType("",String)
Me.column문자2.MaxLength = 50
Me.column그림.DefaultValue = CType(false,Boolean)
Me.column점검일자.DefaultValue = CType("",String)
Me.column점검일자.MaxLength = 50
Me.columnCOS휴즈용량.DefaultValue = CType("",String)
Me.columnCOS휴즈용량.MaxLength = 100
Me.column상표시찰1단.DefaultValue = CType("",String)
Me.column상표시찰1단.MaxLength = 100
Me.column상표시찰2단.DefaultValue = CType("",String)
Me.column상표시찰2단.MaxLength = 100
Me.column선로전방.MaxLength = 255
Me.column선로좌측.MaxLength = 255
Me.column선로우측.MaxLength = 255
End Sub
_
Public Function NewjjutableRow() As jjutableRow
Return CType(Me.NewRow,jjutableRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New jjutableRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(jjutableRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.jjutableRowChangedEvent) Is Nothing) Then
RaiseEvent jjutableRowChanged(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.jjutableRowChangingEvent) Is Nothing) Then
RaiseEvent jjutableRowChanging(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.jjutableRowDeletedEvent) Is Nothing) Then
RaiseEvent jjutableRowDeleted(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.jjutableRowDeletingEvent) Is Nothing) Then
RaiseEvent jjutableRowDeleting(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action))
End If
End Sub
_
Public Sub RemovejjutableRow(ByVal row As jjutableRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As ireaDataSet = New ireaDataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "jjutableDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class Detail_DeungDataTable
Inherits Global.System.Data.TypedTableBase(Of Detail_DeungRow)
Private columnrowid As Global.System.Data.DataColumn
Private column관리ID As Global.System.Data.DataColumn
Private column번호 As Global.System.Data.DataColumn
Private column관리번호1 As Global.System.Data.DataColumn
Private column관리번호2 As Global.System.Data.DataColumn
Private column관리번호3 As Global.System.Data.DataColumn
Private column지점명 As Global.System.Data.DataColumn
Private column정렬번호 As Global.System.Data.DataColumn
Private column출력 As Global.System.Data.DataColumn
Private column문자1 As Global.System.Data.DataColumn
Private column문자2 As Global.System.Data.DataColumn
Private column고객번호1 As Global.System.Data.DataColumn
Private column고객번호2 As Global.System.Data.DataColumn
Private column고객번호3 As Global.System.Data.DataColumn
Private column전산화번호1 As Global.System.Data.DataColumn
Private column전산화번호2 As Global.System.Data.DataColumn
Private column선로명 As Global.System.Data.DataColumn
Private column전주번호1 As Global.System.Data.DataColumn
Private column전주번호2 As Global.System.Data.DataColumn
Private column전주번호3 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Detail_Deung"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = 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
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn
Get
Return Me.columnrowid
End Get
End Property
_
Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn
Get
Return Me.column관리ID
End Get
End Property
_
Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn
Get
Return Me.column번호
End Get
End Property
_
Public ReadOnly Property 관리번호1Column() As Global.System.Data.DataColumn
Get
Return Me.column관리번호1
End Get
End Property
_
Public ReadOnly Property 관리번호2Column() As Global.System.Data.DataColumn
Get
Return Me.column관리번호2
End Get
End Property
_
Public ReadOnly Property 관리번호3Column() As Global.System.Data.DataColumn
Get
Return Me.column관리번호3
End Get
End Property
_
Public ReadOnly Property 지점명Column() As Global.System.Data.DataColumn
Get
Return Me.column지점명
End Get
End Property
_
Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn
Get
Return Me.column정렬번호
End Get
End Property
_
Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn
Get
Return Me.column출력
End Get
End Property
_
Public ReadOnly Property 문자1Column() As Global.System.Data.DataColumn
Get
Return Me.column문자1
End Get
End Property
_
Public ReadOnly Property 문자2Column() As Global.System.Data.DataColumn
Get
Return Me.column문자2
End Get
End Property
_
Public ReadOnly Property 고객번호1Column() As Global.System.Data.DataColumn
Get
Return Me.column고객번호1
End Get
End Property
_
Public ReadOnly Property 고객번호2Column() As Global.System.Data.DataColumn
Get
Return Me.column고객번호2
End Get
End Property
_
Public ReadOnly Property 고객번호3Column() As Global.System.Data.DataColumn
Get
Return Me.column고객번호3
End Get
End Property
_
Public ReadOnly Property 전산화번호1Column() As Global.System.Data.DataColumn
Get
Return Me.column전산화번호1
End Get
End Property
_
Public ReadOnly Property 전산화번호2Column() As Global.System.Data.DataColumn
Get
Return Me.column전산화번호2
End Get
End Property
_
Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn
Get
Return Me.column선로명
End Get
End Property
_
Public ReadOnly Property 전주번호1Column() As Global.System.Data.DataColumn
Get
Return Me.column전주번호1
End Get
End Property
_
Public ReadOnly Property 전주번호2Column() As Global.System.Data.DataColumn
Get
Return Me.column전주번호2
End Get
End Property
_
Public ReadOnly Property 전주번호3Column() As Global.System.Data.DataColumn
Get
Return Me.column전주번호3
End Get
End Property
_
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 Detail_DeungRow
Get
Return CType(Me.Rows(index),Detail_DeungRow)
End Get
End Property
_
Public Event Detail_DeungRowChanging As Detail_DeungRowChangeEventHandler
_
Public Event Detail_DeungRowChanged As Detail_DeungRowChangeEventHandler
_
Public Event Detail_DeungRowDeleting As Detail_DeungRowChangeEventHandler
_
Public Event Detail_DeungRowDeleted As Detail_DeungRowChangeEventHandler
_
Public Overloads Sub AddDetail_DeungRow(ByVal row As Detail_DeungRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddDetail_DeungRow( _
ByVal rowid As System.Guid, _
ByVal 관리ID As Integer, _
ByVal 번호 As Integer, _
ByVal 관리번호1 As String, _
ByVal 관리번호2 As String, _
ByVal 관리번호3 As String, _
ByVal 지점명 As String, _
ByVal 정렬번호 As String, _
ByVal 출력 As Boolean, _
ByVal 문자1 As String, _
ByVal 문자2 As String, _
ByVal 고객번호1 As String, _
ByVal 고객번호2 As String, _
ByVal 고객번호3 As String, _
ByVal 전산화번호1 As String, _
ByVal 전산화번호2 As String, _
ByVal 선로명 As String, _
ByVal 전주번호1 As String, _
ByVal 전주번호2 As String, _
ByVal 전주번호3 As String) As Detail_DeungRow
Dim rowDetail_DeungRow As Detail_DeungRow = CType(Me.NewRow,Detail_DeungRow)
Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 관리번호1, 관리번호2, 관리번호3, 지점명, 정렬번호, 출력, 문자1, 문자2, 고객번호1, 고객번호2, 고객번호3, 전산화번호1, 전산화번호2, 선로명, 전주번호1, 전주번호2, 전주번호3}
rowDetail_DeungRow.ItemArray = columnValuesArray
Me.Rows.Add(rowDetail_DeungRow)
Return rowDetail_DeungRow
End Function
_
Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_DeungRow
Return CType(Me.Rows.Find(New Object() {rowid}),Detail_DeungRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As Detail_DeungDataTable = CType(MyBase.Clone,Detail_DeungDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New Detail_DeungDataTable()
End Function
_
Friend Sub InitVars()
Me.columnrowid = MyBase.Columns("rowid")
Me.column관리ID = MyBase.Columns("관리ID")
Me.column번호 = MyBase.Columns("번호")
Me.column관리번호1 = MyBase.Columns("관리번호1")
Me.column관리번호2 = MyBase.Columns("관리번호2")
Me.column관리번호3 = MyBase.Columns("관리번호3")
Me.column지점명 = MyBase.Columns("지점명")
Me.column정렬번호 = MyBase.Columns("정렬번호")
Me.column출력 = MyBase.Columns("출력")
Me.column문자1 = MyBase.Columns("문자1")
Me.column문자2 = MyBase.Columns("문자2")
Me.column고객번호1 = MyBase.Columns("고객번호1")
Me.column고객번호2 = MyBase.Columns("고객번호2")
Me.column고객번호3 = MyBase.Columns("고객번호3")
Me.column전산화번호1 = MyBase.Columns("전산화번호1")
Me.column전산화번호2 = MyBase.Columns("전산화번호2")
Me.column선로명 = MyBase.Columns("선로명")
Me.column전주번호1 = MyBase.Columns("전주번호1")
Me.column전주번호2 = MyBase.Columns("전주번호2")
Me.column전주번호3 = MyBase.Columns("전주번호3")
End Sub
_
Private Sub InitClass()
Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnrowid)
Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리ID)
Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호)
Me.column관리번호1 = New Global.System.Data.DataColumn("관리번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리번호1)
Me.column관리번호2 = New Global.System.Data.DataColumn("관리번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리번호2)
Me.column관리번호3 = New Global.System.Data.DataColumn("관리번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리번호3)
Me.column지점명 = New Global.System.Data.DataColumn("지점명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column지점명)
Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column정렬번호)
Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column출력)
Me.column문자1 = New Global.System.Data.DataColumn("문자1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column문자1)
Me.column문자2 = New Global.System.Data.DataColumn("문자2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column문자2)
Me.column고객번호1 = New Global.System.Data.DataColumn("고객번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column고객번호1)
Me.column고객번호2 = New Global.System.Data.DataColumn("고객번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column고객번호2)
Me.column고객번호3 = New Global.System.Data.DataColumn("고객번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column고객번호3)
Me.column전산화번호1 = New Global.System.Data.DataColumn("전산화번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전산화번호1)
Me.column전산화번호2 = New Global.System.Data.DataColumn("전산화번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전산화번호2)
Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column선로명)
Me.column전주번호1 = New Global.System.Data.DataColumn("전주번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전주번호1)
Me.column전주번호2 = New Global.System.Data.DataColumn("전주번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전주번호2)
Me.column전주번호3 = New Global.System.Data.DataColumn("전주번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column전주번호3)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true))
Me.columnrowid.AllowDBNull = false
Me.columnrowid.Unique = true
Me.column관리번호1.MaxLength = 8
Me.column관리번호2.MaxLength = 2
Me.column관리번호3.MaxLength = 5
Me.column지점명.MaxLength = 20
Me.column정렬번호.MaxLength = 50
Me.column출력.DefaultValue = CType(true,Boolean)
Me.column문자1.MaxLength = 255
Me.column문자2.MaxLength = 255
Me.column고객번호1.MaxLength = 10
Me.column고객번호2.MaxLength = 10
Me.column고객번호3.MaxLength = 10
Me.column전산화번호1.MaxLength = 50
Me.column전산화번호2.MaxLength = 50
Me.column선로명.MaxLength = 50
Me.column전주번호1.MaxLength = 50
Me.column전주번호2.MaxLength = 50
Me.column전주번호3.MaxLength = 50
End Sub
_
Public Function NewDetail_DeungRow() As Detail_DeungRow
Return CType(Me.NewRow,Detail_DeungRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New Detail_DeungRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(Detail_DeungRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.Detail_DeungRowChangedEvent) Is Nothing) Then
RaiseEvent Detail_DeungRowChanged(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.Detail_DeungRowChangingEvent) Is Nothing) Then
RaiseEvent Detail_DeungRowChanging(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.Detail_DeungRowDeletedEvent) Is Nothing) Then
RaiseEvent Detail_DeungRowDeleted(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.Detail_DeungRowDeletingEvent) Is Nothing) Then
RaiseEvent Detail_DeungRowDeleting(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action))
End If
End Sub
_
Public Sub RemoveDetail_DeungRow(ByVal row As Detail_DeungRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As ireaDataSet = New ireaDataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "Detail_DeungDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class Detail_karoDataTable
Inherits Global.System.Data.TypedTableBase(Of Detail_karoRow)
Private columnrowid As Global.System.Data.DataColumn
Private column관리ID As Global.System.Data.DataColumn
Private column번호 As Global.System.Data.DataColumn
Private column지역명 As Global.System.Data.DataColumn
Private column관리번호1 As Global.System.Data.DataColumn
Private column관리번호2 As Global.System.Data.DataColumn
Private column정렬번호 As Global.System.Data.DataColumn
Private column출력 As Global.System.Data.DataColumn
Private column문자1 As Global.System.Data.DataColumn
Private column문자2 As Global.System.Data.DataColumn
Private column전화번호1 As Global.System.Data.DataColumn
Private column전화번호2 As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Detail_karo"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = 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
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn
Get
Return Me.columnrowid
End Get
End Property
_
Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn
Get
Return Me.column관리ID
End Get
End Property