'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class DataSet
Inherits Global.System.Data.DataSet
Private tableMainTable As MainTableDataTable
Private tableDetail_tongsin As Detail_tongsinDataTable
Private tableDetail_LCable As Detail_LCableDataTable
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
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
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("Detail_tongsin")) Is Nothing) Then
MyBase.Tables.Add(New Detail_tongsinDataTable(ds.Tables("Detail_tongsin")))
End If
If (Not (ds.Tables("Detail_LCable")) Is Nothing) Then
MyBase.Tables.Add(New Detail_LCableDataTable(ds.Tables("Detail_LCable")))
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)))
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 Detail_tongsin() As Detail_tongsinDataTable
Get
Return Me.tableDetail_tongsin
End Get
End Property
_
Public ReadOnly Property Detail_LCable() As Detail_LCableDataTable
Get
Return Me.tableDetail_LCable
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 DataSet = CType(MyBase.Clone,DataSet)
cln.InitVars
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("Detail_tongsin")) Is Nothing) Then
MyBase.Tables.Add(New Detail_tongsinDataTable(ds.Tables("Detail_tongsin")))
End If
If (Not (ds.Tables("Detail_LCable")) Is Nothing) Then
MyBase.Tables.Add(New Detail_LCableDataTable(ds.Tables("Detail_LCable")))
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.tableDetail_tongsin = CType(MyBase.Tables("Detail_tongsin"),Detail_tongsinDataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_tongsin) Is Nothing) Then
Me.tableDetail_tongsin.InitVars
End If
End If
Me.tableDetail_LCable = CType(MyBase.Tables("Detail_LCable"),Detail_LCableDataTable)
If (initTable = true) Then
If (Not (Me.tableDetail_LCable) Is Nothing) Then
Me.tableDetail_LCable.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "DataSet"
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.tableDetail_tongsin = New Detail_tongsinDataTable()
MyBase.Tables.Add(Me.tableDetail_tongsin)
Me.tableDetail_LCable = New Detail_LCableDataTable()
MyBase.Tables.Add(Me.tableDetail_LCable)
End Sub
_
Private Function ShouldSerializeMainTable() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_tongsin() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDetail_LCable() 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 DataSet = New DataSet()
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
_
Public Delegate Sub MainTableRowChangeEventHandler(ByVal sender As Object, ByVal e As MainTableRowChangeEvent)
_
Public Delegate Sub Detail_tongsinRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_tongsinRowChangeEvent)
_
Public Delegate Sub Detail_LCableRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_LCableRowChangeEvent)
'''
'''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 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 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) As MainTableRow
Dim rowMainTableRow As MainTableRow = CType(Me.NewRow,MainTableRow)
Dim columnValuesArray() As Object = New Object() {ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분}
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("번호찰구분")
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.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)
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 DataSet = New DataSet()
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 Detail_tongsinDataTable
Inherits Global.System.Data.TypedTableBase(Of Detail_tongsinRow)
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간선명2 As Global.System.Data.DataColumn
Private column전주번호 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연락처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
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광단자함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 columnQRCODE As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Detail_tongsin"
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 간선명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 전주번호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 연락처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 광단자함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 광단자함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 QRCODEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQRCODE
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_tongsinRow
Get
Return CType(Me.Rows(index),Detail_tongsinRow)
End Get
End Property
_
Public Event Detail_tongsinRowChanging As Detail_tongsinRowChangeEventHandler
_
Public Event Detail_tongsinRowChanged As Detail_tongsinRowChangeEventHandler
_
Public Event Detail_tongsinRowDeleting As Detail_tongsinRowChangeEventHandler
_
Public Event Detail_tongsinRowDeleted As Detail_tongsinRowChangeEventHandler
_
Public Overloads Sub AddDetail_tongsinRow(ByVal row As Detail_tongsinRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddDetail_tongsinRow( _
ByVal rowid As System.Guid, _
ByVal 관리ID As Integer, _
ByVal 번호 As Integer, _
ByVal 출력 As Boolean, _
ByVal 간선명 As String, _
ByVal 간선명2 As String, _
ByVal 전주번호 As String, _
ByVal 전주번호2 As String, _
ByVal 규격 As String, _
ByVal 중계기명 As String, _
ByVal 시공일 As String, _
ByVal 시공자 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, _
ByVal 광단자함1 As String, _
ByVal 광단자함2 As String, _
ByVal 광단자함3 As String, _
ByVal 정렬번호 As String, _
ByVal 광단자함4 As String, _
ByVal 점용허가기관 As String, _
ByVal 점용허가기간 As String, _
ByVal 점용허가번호 As String, _
ByVal QRCODE As String) As Detail_tongsinRow
Dim rowDetail_tongsinRow As Detail_tongsinRow = CType(Me.NewRow,Detail_tongsinRow)
Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 출력, 간선명, 간선명2, 전주번호, 전주번호2, 규격, 중계기명, 시공일, 시공자, 연락처1, 연락처2, 운용기관, 단자함1, 단자함2, 단자함3, 광단자함1, 광단자함2, 광단자함3, 정렬번호, 광단자함4, 점용허가기관, 점용허가기간, 점용허가번호, QRCODE}
rowDetail_tongsinRow.ItemArray = columnValuesArray
Me.Rows.Add(rowDetail_tongsinRow)
Return rowDetail_tongsinRow
End Function
_
Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_tongsinRow
Return CType(Me.Rows.Find(New Object() {rowid}),Detail_tongsinRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As Detail_tongsinDataTable = CType(MyBase.Clone,Detail_tongsinDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New Detail_tongsinDataTable()
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간선명2 = MyBase.Columns("간선명2")
Me.column전주번호 = MyBase.Columns("전주번호")
Me.column전주번호2 = MyBase.Columns("전주번호2")
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단자함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광단자함3 = MyBase.Columns("광단자함3")
Me.column정렬번호 = MyBase.Columns("정렬번호")
Me.column광단자함4 = MyBase.Columns("광단자함4")
Me.column점용허가기관 = MyBase.Columns("점용허가기관")
Me.column점용허가기간 = MyBase.Columns("점용허가기간")
Me.column점용허가번호 = MyBase.Columns("점용허가번호")
Me.columnQRCODE = MyBase.Columns("QRCODE")
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(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간선명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전주번호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.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(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광단자함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광단자함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(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column점용허가번호)
Me.columnQRCODE = New Global.System.Data.DataColumn("QRCODE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQRCODE)
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(false,Boolean)
Me.column간선명.DefaultValue = CType("",String)
Me.column간선명.MaxLength = 255
Me.column간선명2.DefaultValue = CType("",String)
Me.column간선명2.MaxLength = 255
Me.column전주번호.DefaultValue = CType("",String)
Me.column전주번호.MaxLength = 255
Me.column전주번호2.DefaultValue = CType("",String)
Me.column전주번호2.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 = 255
Me.column시공자.DefaultValue = CType("",String)
Me.column시공자.MaxLength = 50
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단자함1.DefaultValue = CType("",String)
Me.column단자함1.MaxLength = 50
Me.column단자함2.DefaultValue = CType("",String)
Me.column단자함2.MaxLength = 50
Me.column단자함3.DefaultValue = CType("",String)
Me.column단자함3.MaxLength = 50
Me.column광단자함1.DefaultValue = CType("",String)
Me.column광단자함1.MaxLength = 50
Me.column광단자함2.DefaultValue = CType("",String)
Me.column광단자함2.MaxLength = 50
Me.column광단자함3.DefaultValue = CType("",String)
Me.column광단자함3.MaxLength = 50
Me.column정렬번호.DefaultValue = CType("",String)
Me.column정렬번호.MaxLength = 50
Me.column광단자함4.DefaultValue = CType("",String)
Me.column광단자함4.MaxLength = 50
Me.column점용허가기관.DefaultValue = CType("",String)
Me.column점용허가기관.MaxLength = 255
Me.column점용허가기간.DefaultValue = CType("",String)
Me.column점용허가기간.MaxLength = 255
Me.column점용허가번호.DefaultValue = CType("",String)
Me.column점용허가번호.MaxLength = 255
Me.columnQRCODE.DefaultValue = CType("",String)
Me.columnQRCODE.MaxLength = 100
End Sub
_
Public Function NewDetail_tongsinRow() As Detail_tongsinRow
Return CType(Me.NewRow,Detail_tongsinRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New Detail_tongsinRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(Detail_tongsinRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.Detail_tongsinRowChangedEvent) Is Nothing) Then
RaiseEvent Detail_tongsinRowChanged(Me, New Detail_tongsinRowChangeEvent(CType(e.Row,Detail_tongsinRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.Detail_tongsinRowChangingEvent) Is Nothing) Then
RaiseEvent Detail_tongsinRowChanging(Me, New Detail_tongsinRowChangeEvent(CType(e.Row,Detail_tongsinRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.Detail_tongsinRowDeletedEvent) Is Nothing) Then
RaiseEvent Detail_tongsinRowDeleted(Me, New Detail_tongsinRowChangeEvent(CType(e.Row,Detail_tongsinRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.Detail_tongsinRowDeletingEvent) Is Nothing) Then
RaiseEvent Detail_tongsinRowDeleting(Me, New Detail_tongsinRowChangeEvent(CType(e.Row,Detail_tongsinRow), e.Action))
End If
End Sub
_
Public Sub RemoveDetail_tongsinRow(ByVal row As Detail_tongsinRow)
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 DataSet = New DataSet()
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_tongsinDataTable"
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_LCableDataTable
Inherits Global.System.Data.TypedTableBase(Of Detail_LCableRow)
Private columnrowid As Global.System.Data.DataColumn
Private column관리ID As Global.System.Data.DataColumn
Private column번호 As Global.System.Data.DataColumn
Private columnOLT번호 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감리원 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 columnQRCODE As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "Detail_LCable"
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 OLT번호Column() As Global.System.Data.DataColumn
Get
Return Me.columnOLT번호
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 감리원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 QRCODEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQRCODE
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_LCableRow
Get
Return CType(Me.Rows(index),Detail_LCableRow)
End Get
End Property
_
Public Event Detail_LCableRowChanging As Detail_LCableRowChangeEventHandler
_
Public Event Detail_LCableRowChanged As Detail_LCableRowChangeEventHandler
_
Public Event Detail_LCableRowDeleting As Detail_LCableRowChangeEventHandler
_
Public Event Detail_LCableRowDeleted As Detail_LCableRowChangeEventHandler
_
Public Overloads Sub AddDetail_LCableRow(ByVal row As Detail_LCableRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddDetail_LCableRow( _
ByVal rowid As System.Guid, _
ByVal 관리ID As Double, _
ByVal 번호 As Double, _
ByVal OLT번호 As String, _
ByVal 국축선번 As String, _
ByVal 구간명 As String, _
ByVal 시설구분 As String, _
ByVal 케이블유형 As String, _
ByVal 케이블종별 As String, _
ByVal 케이블명 As String, _
ByVal 모분기케이블명 As String, _
ByVal 접속점명 As String, _
ByVal 제조회사 As String, _
ByVal 설치년월 As String, _
ByVal 시공회사 As String, _
ByVal 감리원 As String, _
ByVal 관리기관 As String, _
ByVal 비고 As String, _
ByVal 정렬번호 As String, _
ByVal 출력 As Boolean, _
ByVal QRCODE As String) As Detail_LCableRow
Dim rowDetail_LCableRow As Detail_LCableRow = CType(Me.NewRow,Detail_LCableRow)
Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, OLT번호, 국축선번, 구간명, 시설구분, 케이블유형, 케이블종별, 케이블명, 모분기케이블명, 접속점명, 제조회사, 설치년월, 시공회사, 감리원, 관리기관, 비고, 정렬번호, 출력, QRCODE}
rowDetail_LCableRow.ItemArray = columnValuesArray
Me.Rows.Add(rowDetail_LCableRow)
Return rowDetail_LCableRow
End Function
_
Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_LCableRow
Return CType(Me.Rows.Find(New Object() {rowid}),Detail_LCableRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As Detail_LCableDataTable = CType(MyBase.Clone,Detail_LCableDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New Detail_LCableDataTable()
End Function
_
Friend Sub InitVars()
Me.columnrowid = MyBase.Columns("rowid")
Me.column관리ID = MyBase.Columns("관리ID")
Me.column번호 = MyBase.Columns("번호")
Me.columnOLT번호 = MyBase.Columns("OLT번호")
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감리원 = MyBase.Columns("감리원")
Me.column관리기관 = MyBase.Columns("관리기관")
Me.column비고 = MyBase.Columns("비고")
Me.column정렬번호 = MyBase.Columns("정렬번호")
Me.column출력 = MyBase.Columns("출력")
Me.columnQRCODE = MyBase.Columns("QRCODE")
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(Double), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column관리ID)
Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Double), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column번호)
Me.columnOLT번호 = New Global.System.Data.DataColumn("OLT번호", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOLT번호)
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케이블명 = 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시공회사 = 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출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.column출력)
Me.columnQRCODE = New Global.System.Data.DataColumn("QRCODE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQRCODE)
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.columnOLT번호.DefaultValue = CType("",String)
Me.columnOLT번호.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케이블종별.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설치년월.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정렬번호.DefaultValue = CType("",String)
Me.column정렬번호.MaxLength = 50
Me.column출력.DefaultValue = CType(false,Boolean)
Me.columnQRCODE.DefaultValue = CType("",String)
Me.columnQRCODE.MaxLength = 100
End Sub
_
Public Function NewDetail_LCableRow() As Detail_LCableRow
Return CType(Me.NewRow,Detail_LCableRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New Detail_LCableRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(Detail_LCableRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.Detail_LCableRowChangedEvent) Is Nothing) Then
RaiseEvent Detail_LCableRowChanged(Me, New Detail_LCableRowChangeEvent(CType(e.Row,Detail_LCableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.Detail_LCableRowChangingEvent) Is Nothing) Then
RaiseEvent Detail_LCableRowChanging(Me, New Detail_LCableRowChangeEvent(CType(e.Row,Detail_LCableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.Detail_LCableRowDeletedEvent) Is Nothing) Then
RaiseEvent Detail_LCableRowDeleted(Me, New Detail_LCableRowChangeEvent(CType(e.Row,Detail_LCableRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.Detail_LCableRowDeletingEvent) Is Nothing) Then
RaiseEvent Detail_LCableRowDeleting(Me, New Detail_LCableRowChangeEvent(CType(e.Row,Detail_LCableRow), e.Action))
End If
End Sub
_
Public Sub RemoveDetail_LCableRow(ByVal row As Detail_LCableRow)
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 DataSet = New DataSet()
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_LCableDataTable"
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 strongly named DataRow class.
'''
Partial Public Class MainTableRow
Inherits Global.System.Data.DataRow
Private tableMainTable As MainTableDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableMainTable = CType(Me.Table,MainTableDataTable)
End Sub
_
Public Property ID() As Integer
Get
Return CType(Me(Me.tableMainTable.IDColumn),Integer)
End Get
Set
Me(Me.tableMainTable.IDColumn) = value
End Set
End Property
_
Public Property 날짜() As Date
Get
Try
Return CType(Me(Me.tableMainTable.날짜Column),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '날짜' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableMainTable.날짜Column) = value
End Set
End Property
_
Public Property 거래처명() As String
Get
If Me.Is거래처명Null Then
Return ""
Else
Return CType(Me(Me.tableMainTable.거래처명Column),String)
End If
End Get
Set
Me(Me.tableMainTable.거래처명Column) = value
End Set
End Property
_
Public Property 비고() As String
Get
If Me.Is비고Null Then
Return ""
Else
Return CType(Me(Me.tableMainTable.비고Column),String)
End If
End Get
Set
Me(Me.tableMainTable.비고Column) = value
End Set
End Property
_
Public Property 총수량() As Integer
Get
Try
Return CType(Me(Me.tableMainTable.총수량Column),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '총수량' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableMainTable.총수량Column) = value
End Set
End Property
_
Public Property 단가() As Integer
Get
Try
Return CType(Me(Me.tableMainTable.단가Column),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '단가' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableMainTable.단가Column) = value
End Set
End Property
_
Public Property 금액() As Integer
Get
Try
Return CType(Me(Me.tableMainTable.금액Column),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '금액' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableMainTable.금액Column) = value
End Set
End Property
_
Public Property 번호찰구분() As Integer
Get
Try
Return CType(Me(Me.tableMainTable.번호찰구분Column),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '번호찰구분' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableMainTable.번호찰구분Column) = value
End Set
End Property
_
Public Function Is날짜Null() As Boolean
Return Me.IsNull(Me.tableMainTable.날짜Column)
End Function
_
Public Sub Set날짜Null()
Me(Me.tableMainTable.날짜Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is거래처명Null() As Boolean
Return Me.IsNull(Me.tableMainTable.거래처명Column)
End Function
_
Public Sub Set거래처명Null()
Me(Me.tableMainTable.거래처명Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is비고Null() As Boolean
Return Me.IsNull(Me.tableMainTable.비고Column)
End Function
_
Public Sub Set비고Null()
Me(Me.tableMainTable.비고Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is총수량Null() As Boolean
Return Me.IsNull(Me.tableMainTable.총수량Column)
End Function
_
Public Sub Set총수량Null()
Me(Me.tableMainTable.총수량Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is단가Null() As Boolean
Return Me.IsNull(Me.tableMainTable.단가Column)
End Function
_
Public Sub Set단가Null()
Me(Me.tableMainTable.단가Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is금액Null() As Boolean
Return Me.IsNull(Me.tableMainTable.금액Column)
End Function
_
Public Sub Set금액Null()
Me(Me.tableMainTable.금액Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is번호찰구분Null() As Boolean
Return Me.IsNull(Me.tableMainTable.번호찰구분Column)
End Function
_
Public Sub Set번호찰구분Null()
Me(Me.tableMainTable.번호찰구분Column) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class Detail_tongsinRow
Inherits Global.System.Data.DataRow
Private tableDetail_tongsin As Detail_tongsinDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableDetail_tongsin = CType(Me.Table,Detail_tongsinDataTable)
End Sub
_
Public Property rowid() As System.Guid
Get
Return CType(Me(Me.tableDetail_tongsin.rowidColumn),Global.System.Guid)
End Get
Set
Me(Me.tableDetail_tongsin.rowidColumn) = value
End Set
End Property
_
Public Property 관리ID() As Integer
Get
Try
Return CType(Me(Me.tableDetail_tongsin.관리IDColumn),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'Detail_tongsin' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableDetail_tongsin.관리IDColumn) = value
End Set
End Property
_
Public Property 번호() As Integer
Get
Try
Return CType(Me(Me.tableDetail_tongsin.번호Column),Integer)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'Detail_tongsin' 테이블의 '번호' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set
Me(Me.tableDetail_tongsin.번호Column) = value
End Set
End Property
_
Public Property 출력() As Boolean
Get
If Me.Is출력Null Then
Return false
Else
Return CType(Me(Me.tableDetail_tongsin.출력Column),Boolean)
End If
End Get
Set
Me(Me.tableDetail_tongsin.출력Column) = value
End Set
End Property
_
Public Property 간선명() As String
Get
If Me.Is간선명Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.간선명Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.간선명Column) = value
End Set
End Property
_
Public Property 간선명2() As String
Get
If Me.Is간선명2Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.간선명2Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.간선명2Column) = value
End Set
End Property
_
Public Property 전주번호() As String
Get
If Me.Is전주번호Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.전주번호Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.전주번호Column) = value
End Set
End Property
_
Public Property 전주번호2() As String
Get
If Me.Is전주번호2Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.전주번호2Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.전주번호2Column) = value
End Set
End Property
_
Public Property 규격() As String
Get
If Me.Is규격Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.규격Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.규격Column) = value
End Set
End Property
_
Public Property 중계기명() As String
Get
If Me.Is중계기명Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.중계기명Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.중계기명Column) = value
End Set
End Property
_
Public Property 시공일() As String
Get
If Me.Is시공일Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.시공일Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.시공일Column) = value
End Set
End Property
_
Public Property 시공자() As String
Get
If Me.Is시공자Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.시공자Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.시공자Column) = value
End Set
End Property
_
Public Property 연락처1() As String
Get
If Me.Is연락처1Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.연락처1Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.연락처1Column) = value
End Set
End Property
_
Public Property 연락처2() As String
Get
If Me.Is연락처2Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.연락처2Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.연락처2Column) = value
End Set
End Property
_
Public Property 운용기관() As String
Get
If Me.Is운용기관Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.운용기관Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.운용기관Column) = value
End Set
End Property
_
Public Property 단자함1() As String
Get
If Me.Is단자함1Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.단자함1Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.단자함1Column) = value
End Set
End Property
_
Public Property 단자함2() As String
Get
If Me.Is단자함2Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.단자함2Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.단자함2Column) = value
End Set
End Property
_
Public Property 단자함3() As String
Get
If Me.Is단자함3Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.단자함3Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.단자함3Column) = value
End Set
End Property
_
Public Property 광단자함1() As String
Get
If Me.Is광단자함1Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.광단자함1Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.광단자함1Column) = value
End Set
End Property
_
Public Property 광단자함2() As String
Get
If Me.Is광단자함2Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.광단자함2Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.광단자함2Column) = value
End Set
End Property
_
Public Property 광단자함3() As String
Get
If Me.Is광단자함3Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.광단자함3Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.광단자함3Column) = value
End Set
End Property
_
Public Property 정렬번호() As String
Get
If Me.Is정렬번호Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.정렬번호Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.정렬번호Column) = value
End Set
End Property
_
Public Property 광단자함4() As String
Get
If Me.Is광단자함4Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.광단자함4Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.광단자함4Column) = value
End Set
End Property
_
Public Property 점용허가기관() As String
Get
If Me.Is점용허가기관Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.점용허가기관Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.점용허가기관Column) = value
End Set
End Property
_
Public Property 점용허가기간() As String
Get
If Me.Is점용허가기간Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.점용허가기간Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.점용허가기간Column) = value
End Set
End Property
_
Public Property 점용허가번호() As String
Get
If Me.Is점용허가번호Null Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.점용허가번호Column),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.점용허가번호Column) = value
End Set
End Property
_
Public Property QRCODE() As String
Get
If Me.IsQRCODENull Then
Return ""
Else
Return CType(Me(Me.tableDetail_tongsin.QRCODEColumn),String)
End If
End Get
Set
Me(Me.tableDetail_tongsin.QRCODEColumn) = value
End Set
End Property
_
Public Function Is관리IDNull() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.관리IDColumn)
End Function
_
Public Sub Set관리IDNull()
Me(Me.tableDetail_tongsin.관리IDColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function Is번호Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.번호Column)
End Function
_
Public Sub Set번호Null()
Me(Me.tableDetail_tongsin.번호Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is출력Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.출력Column)
End Function
_
Public Sub Set출력Null()
Me(Me.tableDetail_tongsin.출력Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is간선명Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.간선명Column)
End Function
_
Public Sub Set간선명Null()
Me(Me.tableDetail_tongsin.간선명Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is간선명2Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.간선명2Column)
End Function
_
Public Sub Set간선명2Null()
Me(Me.tableDetail_tongsin.간선명2Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is전주번호Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.전주번호Column)
End Function
_
Public Sub Set전주번호Null()
Me(Me.tableDetail_tongsin.전주번호Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is전주번호2Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.전주번호2Column)
End Function
_
Public Sub Set전주번호2Null()
Me(Me.tableDetail_tongsin.전주번호2Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is규격Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.규격Column)
End Function
_
Public Sub Set규격Null()
Me(Me.tableDetail_tongsin.규격Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is중계기명Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.중계기명Column)
End Function
_
Public Sub Set중계기명Null()
Me(Me.tableDetail_tongsin.중계기명Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is시공일Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.시공일Column)
End Function
_
Public Sub Set시공일Null()
Me(Me.tableDetail_tongsin.시공일Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is시공자Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.시공자Column)
End Function
_
Public Sub Set시공자Null()
Me(Me.tableDetail_tongsin.시공자Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is연락처1Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.연락처1Column)
End Function
_
Public Sub Set연락처1Null()
Me(Me.tableDetail_tongsin.연락처1Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is연락처2Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.연락처2Column)
End Function
_
Public Sub Set연락처2Null()
Me(Me.tableDetail_tongsin.연락처2Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is운용기관Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.운용기관Column)
End Function
_
Public Sub Set운용기관Null()
Me(Me.tableDetail_tongsin.운용기관Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is단자함1Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.단자함1Column)
End Function
_
Public Sub Set단자함1Null()
Me(Me.tableDetail_tongsin.단자함1Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is단자함2Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.단자함2Column)
End Function
_
Public Sub Set단자함2Null()
Me(Me.tableDetail_tongsin.단자함2Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is단자함3Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.단자함3Column)
End Function
_
Public Sub Set단자함3Null()
Me(Me.tableDetail_tongsin.단자함3Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is광단자함1Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.광단자함1Column)
End Function
_
Public Sub Set광단자함1Null()
Me(Me.tableDetail_tongsin.광단자함1Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is광단자함2Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.광단자함2Column)
End Function
_
Public Sub Set광단자함2Null()
Me(Me.tableDetail_tongsin.광단자함2Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is광단자함3Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.광단자함3Column)
End Function
_
Public Sub Set광단자함3Null()
Me(Me.tableDetail_tongsin.광단자함3Column) = Global.System.Convert.DBNull
End Sub
_
Public Function Is정렬번호Null() As Boolean
Return Me.IsNull(Me.tableDetail_tongsin.정렬번호Column)
End Function
_
Public Sub Set정렬번호Null()
Me(Me.tableDetail_tongsin.정렬번호Column) = Global.System.Convert.DBNull
End Sub