'------------------------------------------------------------------------------ ' ' 이 코드는 도구를 사용하여 생성되었습니다. ' 런타임 버전: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 tableDetail_tongsin As Detail_tongsinDataTable Private tableDetail_Sknetworks As Detail_SknetworksDataTable Private tableDetail_Karo As Detail_KaroDataTable Private tableDetail_Deung As Detail_DeungDataTable 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_Sknetworks")) Is Nothing) Then MyBase.Tables.Add(New Detail_SknetworksDataTable(ds.Tables("Detail_Sknetworks"))) 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_Deung")) Is Nothing) Then MyBase.Tables.Add(New Detail_DeungDataTable(ds.Tables("Detail_Deung"))) 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_Sknetworks() As Detail_SknetworksDataTable Get Return Me.tableDetail_Sknetworks 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_Deung() As Detail_DeungDataTable Get Return Me.tableDetail_Deung 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.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_Sknetworks")) Is Nothing) Then MyBase.Tables.Add(New Detail_SknetworksDataTable(ds.Tables("Detail_Sknetworks"))) 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_Deung")) Is Nothing) Then MyBase.Tables.Add(New Detail_DeungDataTable(ds.Tables("Detail_Deung"))) 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_Sknetworks = CType(MyBase.Tables("Detail_Sknetworks"),Detail_SknetworksDataTable) If (initTable = true) Then If (Not (Me.tableDetail_Sknetworks) Is Nothing) Then Me.tableDetail_Sknetworks.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_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 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.tableDetail_tongsin = New Detail_tongsinDataTable() MyBase.Tables.Add(Me.tableDetail_tongsin) Me.tableDetail_Sknetworks = New Detail_SknetworksDataTable() MyBase.Tables.Add(Me.tableDetail_Sknetworks) Me.tableDetail_Karo = New Detail_KaroDataTable() MyBase.Tables.Add(Me.tableDetail_Karo) Me.tableDetail_Deung = New Detail_DeungDataTable() MyBase.Tables.Add(Me.tableDetail_Deung) End Sub _ Private Function ShouldSerializeMainTable() As Boolean Return false End Function _ Private Function ShouldSerializeDetail_tongsin() As Boolean Return false End Function _ Private Function ShouldSerializeDetail_Sknetworks() As Boolean Return false End Function _ Private Function ShouldSerializeDetail_Karo() As Boolean Return false End Function _ Private Function ShouldSerializeDetail_Deung() 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 _ 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_SknetworksRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_SknetworksRowChangeEvent) _ Public Delegate Sub Detail_KaroRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_KaroRowChangeEvent) _ Public Delegate Sub Detail_DeungRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_DeungRowChangeEvent) ''' '''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 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 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 _ 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 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) 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} 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") 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.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간선명.MaxLength = 255 Me.column간선명2.MaxLength = 255 Me.column전주번호.MaxLength = 255 Me.column전주번호2.MaxLength = 50 Me.column규격.MaxLength = 50 Me.column중계기명.MaxLength = 50 Me.column시공일.MaxLength = 255 Me.column시공자.MaxLength = 50 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 Me.column광단자함1.MaxLength = 50 Me.column광단자함2.MaxLength = 50 Me.column광단자함3.MaxLength = 50 Me.column정렬번호.MaxLength = 50 Me.column광단자함4.MaxLength = 50 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 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_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_SknetworksDataTable Inherits Global.System.Data.TypedTableBase(Of Detail_SknetworksRow) Private column출력 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전주번호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시공자 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 columnrowid As Global.System.Data.DataColumn Private column정렬번호 As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "Detail_Sknetworks" 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 출력Column() As Global.System.Data.DataColumn Get Return Me.column출력 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 전주번호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 시공자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 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 Detail_SknetworksRow Get Return CType(Me.Rows(index),Detail_SknetworksRow) End Get End Property _ Public Event Detail_SknetworksRowChanging As Detail_SknetworksRowChangeEventHandler _ Public Event Detail_SknetworksRowChanged As Detail_SknetworksRowChangeEventHandler _ Public Event Detail_SknetworksRowDeleting As Detail_SknetworksRowChangeEventHandler _ Public Event Detail_SknetworksRowDeleted As Detail_SknetworksRowChangeEventHandler _ Public Overloads Sub AddDetail_SknetworksRow(ByVal row As Detail_SknetworksRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddDetail_SknetworksRow( _ ByVal 출력 As Boolean, _ ByVal 관리ID As Integer, _ ByVal 번호 As Integer, _ 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 중계기명 As String, _ ByVal 시공일 As String, _ ByVal 시공자 As String, _ ByVal 연락처1 As String, _ ByVal 연락처2 As String, _ ByVal 운용기관 As String, _ ByVal rowid As System.Guid, _ ByVal 정렬번호 As String) As Detail_SknetworksRow Dim rowDetail_SknetworksRow As Detail_SknetworksRow = CType(Me.NewRow,Detail_SknetworksRow) Dim columnValuesArray() As Object = New Object() {출력, 관리ID, 번호, 구간명1, 구간명2, 구간명3, 전주번호1, 전주번호2, 전주번호3, 규격, 중계기명, 시공일, 시공자, 연락처1, 연락처2, 운용기관, rowid, 정렬번호} rowDetail_SknetworksRow.ItemArray = columnValuesArray Me.Rows.Add(rowDetail_SknetworksRow) Return rowDetail_SknetworksRow End Function _ Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_SknetworksRow Return CType(Me.Rows.Find(New Object() {rowid}),Detail_SknetworksRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Detail_SknetworksDataTable = CType(MyBase.Clone,Detail_SknetworksDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Detail_SknetworksDataTable() End Function _ Friend Sub InitVars() Me.column출력 = MyBase.Columns("출력") 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전주번호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시공자 = MyBase.Columns("시공자") Me.column연락처1 = MyBase.Columns("연락처1") Me.column연락처2 = MyBase.Columns("연락처2") Me.column운용기관 = MyBase.Columns("운용기관") Me.columnrowid = MyBase.Columns("rowid") Me.column정렬번호 = MyBase.Columns("정렬번호") End Sub _ Private Sub InitClass() Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.column출력) 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전주번호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(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.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(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.column출력.DefaultValue = CType(true,Boolean) Me.column구간명1.MaxLength = 255 Me.column구간명2.MaxLength = 255 Me.column구간명3.MaxLength = 255 Me.column전주번호1.MaxLength = 50 Me.column전주번호2.MaxLength = 50 Me.column전주번호3.MaxLength = 50 Me.column규격.MaxLength = 50 Me.column중계기명.MaxLength = 50 Me.column시공일.MaxLength = 255 Me.column시공자.MaxLength = 50 Me.column연락처1.MaxLength = 50 Me.column연락처2.MaxLength = 50 Me.column운용기관.MaxLength = 50 Me.columnrowid.AllowDBNull = false Me.columnrowid.Unique = true Me.column정렬번호.MaxLength = 50 End Sub _ Public Function NewDetail_SknetworksRow() As Detail_SknetworksRow Return CType(Me.NewRow,Detail_SknetworksRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Detail_SknetworksRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Detail_SknetworksRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Detail_SknetworksRowChangedEvent) Is Nothing) Then RaiseEvent Detail_SknetworksRowChanged(Me, New Detail_SknetworksRowChangeEvent(CType(e.Row,Detail_SknetworksRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Detail_SknetworksRowChangingEvent) Is Nothing) Then RaiseEvent Detail_SknetworksRowChanging(Me, New Detail_SknetworksRowChangeEvent(CType(e.Row,Detail_SknetworksRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Detail_SknetworksRowDeletedEvent) Is Nothing) Then RaiseEvent Detail_SknetworksRowDeleted(Me, New Detail_SknetworksRowChangeEvent(CType(e.Row,Detail_SknetworksRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Detail_SknetworksRowDeletingEvent) Is Nothing) Then RaiseEvent Detail_SknetworksRowDeleting(Me, New Detail_SknetworksRowChangeEvent(CType(e.Row,Detail_SknetworksRow), e.Action)) End If End Sub _ Public Sub RemoveDetail_SknetworksRow(ByVal row As Detail_SknetworksRow) 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_SknetworksDataTable" 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 columnarea2 As Global.System.Data.DataColumn Private columnarea1 As Global.System.Data.DataColumn Private columnf1 As Global.System.Data.DataColumn Private columnm1 As Global.System.Data.DataColumn Private columnm2 As Global.System.Data.DataColumn Private columntel1 As Global.System.Data.DataColumn Private columntel2 As Global.System.Data.DataColumn Private columnbigo1 As Global.System.Data.DataColumn Private columnbigo2 As Global.System.Data.DataColumn Private columnbigo3 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_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 _ 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 area2Column() As Global.System.Data.DataColumn Get Return Me.columnarea2 End Get End Property _ Public ReadOnly Property area1Column() As Global.System.Data.DataColumn Get Return Me.columnarea1 End Get End Property _ Public ReadOnly Property f1Column() As Global.System.Data.DataColumn Get Return Me.columnf1 End Get End Property _ Public ReadOnly Property m1Column() As Global.System.Data.DataColumn Get Return Me.columnm1 End Get End Property _ Public ReadOnly Property m2Column() As Global.System.Data.DataColumn Get Return Me.columnm2 End Get End Property _ Public ReadOnly Property tel1Column() As Global.System.Data.DataColumn Get Return Me.columntel1 End Get End Property _ Public ReadOnly Property tel2Column() As Global.System.Data.DataColumn Get Return Me.columntel2 End Get End Property _ Public ReadOnly Property bigo1Column() As Global.System.Data.DataColumn Get Return Me.columnbigo1 End Get End Property _ Public ReadOnly Property bigo2Column() As Global.System.Data.DataColumn Get Return Me.columnbigo2 End Get End Property _ Public ReadOnly Property bigo3Column() As Global.System.Data.DataColumn Get Return Me.columnbigo3 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_KaroRow Get Return CType(Me.Rows(index),Detail_KaroRow) End Get End Property _ Public Event Detail_KaroRowChanging As Detail_KaroRowChangeEventHandler _ Public Event Detail_KaroRowChanged As Detail_KaroRowChangeEventHandler _ Public Event Detail_KaroRowDeleting As Detail_KaroRowChangeEventHandler _ Public Event Detail_KaroRowDeleted As Detail_KaroRowChangeEventHandler _ Public Overloads Sub AddDetail_KaroRow(ByVal row As Detail_KaroRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddDetail_KaroRow( _ ByVal rowid As System.Guid, _ ByVal 관리ID As Integer, _ ByVal 출력 As Boolean, _ ByVal 번호 As Integer, _ ByVal area2 As String, _ ByVal area1 As String, _ ByVal f1 As String, _ ByVal m1 As String, _ ByVal m2 As String, _ ByVal tel1 As String, _ ByVal tel2 As String, _ ByVal bigo1 As String, _ ByVal bigo2 As String, _ ByVal bigo3 As String, _ ByVal 정렬번호 As String, _ ByVal QRCODE As String) As Detail_KaroRow Dim rowDetail_KaroRow As Detail_KaroRow = CType(Me.NewRow,Detail_KaroRow) Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 출력, 번호, area2, area1, f1, m1, m2, tel1, tel2, bigo1, bigo2, bigo3, 정렬번호, QRCODE} rowDetail_KaroRow.ItemArray = columnValuesArray Me.Rows.Add(rowDetail_KaroRow) Return rowDetail_KaroRow End Function _ Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_KaroRow Return CType(Me.Rows.Find(New Object() {rowid}),Detail_KaroRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As Detail_KaroDataTable = CType(MyBase.Clone,Detail_KaroDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New Detail_KaroDataTable() 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.columnarea2 = MyBase.Columns("area2") Me.columnarea1 = MyBase.Columns("area1") Me.columnf1 = MyBase.Columns("f1") Me.columnm1 = MyBase.Columns("m1") Me.columnm2 = MyBase.Columns("m2") Me.columntel1 = MyBase.Columns("tel1") Me.columntel2 = MyBase.Columns("tel2") Me.columnbigo1 = MyBase.Columns("bigo1") Me.columnbigo2 = MyBase.Columns("bigo2") Me.columnbigo3 = MyBase.Columns("bigo3") 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(Boolean), 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.columnarea2 = New Global.System.Data.DataColumn("area2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarea2) Me.columnarea1 = New Global.System.Data.DataColumn("area1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnarea1) Me.columnf1 = New Global.System.Data.DataColumn("f1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnf1) Me.columnm1 = New Global.System.Data.DataColumn("m1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm1) Me.columnm2 = New Global.System.Data.DataColumn("m2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnm2) Me.columntel1 = New Global.System.Data.DataColumn("tel1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntel1) Me.columntel2 = New Global.System.Data.DataColumn("tel2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntel2) Me.columnbigo1 = New Global.System.Data.DataColumn("bigo1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbigo1) Me.columnbigo2 = New Global.System.Data.DataColumn("bigo2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbigo2) Me.columnbigo3 = New Global.System.Data.DataColumn("bigo3", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbigo3) 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(true,Boolean) Me.columnarea2.DefaultValue = CType("",String) Me.columnarea2.MaxLength = 50 Me.columnarea1.DefaultValue = CType("",String) Me.columnarea1.MaxLength = 50 Me.columnf1.DefaultValue = CType("",String) Me.columnf1.MaxLength = 50 Me.columnm1.DefaultValue = CType("",String) Me.columnm1.MaxLength = 50 Me.columnm2.DefaultValue = CType("",String) Me.columnm2.MaxLength = 50 Me.columntel1.DefaultValue = CType("",String) Me.columntel1.MaxLength = 50 Me.columntel2.DefaultValue = CType("",String) Me.columntel2.MaxLength = 50 Me.columnbigo1.DefaultValue = CType("",String) Me.columnbigo1.MaxLength = 50 Me.columnbigo2.DefaultValue = CType("",String) Me.columnbigo2.MaxLength = 50 Me.columnbigo3.DefaultValue = CType("",String) Me.columnbigo3.MaxLength = 50 Me.column정렬번호.Caption = "sortkey" Me.column정렬번호.DefaultValue = CType("",String) Me.column정렬번호.MaxLength = 50 Me.columnQRCODE.DefaultValue = CType("",String) Me.columnQRCODE.MaxLength = 200 End Sub _ Public Function NewDetail_KaroRow() As Detail_KaroRow Return CType(Me.NewRow,Detail_KaroRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New Detail_KaroRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(Detail_KaroRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.Detail_KaroRowChangedEvent) Is Nothing) Then RaiseEvent Detail_KaroRowChanged(Me, New Detail_KaroRowChangeEvent(CType(e.Row,Detail_KaroRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.Detail_KaroRowChangingEvent) Is Nothing) Then RaiseEvent Detail_KaroRowChanging(Me, New Detail_KaroRowChangeEvent(CType(e.Row,Detail_KaroRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.Detail_KaroRowDeletedEvent) Is Nothing) Then RaiseEvent Detail_KaroRowDeleted(Me, New Detail_KaroRowChangeEvent(CType(e.Row,Detail_KaroRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.Detail_KaroRowDeletingEvent) Is Nothing) Then RaiseEvent Detail_KaroRowDeleting(Me, New Detail_KaroRowChangeEvent(CType(e.Row,Detail_KaroRow), e.Action)) End If End Sub _ Public Sub RemoveDetail_KaroRow(ByVal row As Detail_KaroRow) 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_KaroDataTable" 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출력 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정렬번호 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 출력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 정렬번호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 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 출력 As Boolean, 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 정렬번호 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, 관리번호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출력 = 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정렬번호 = 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(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고객번호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정렬번호 = 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(true,Boolean) Me.column고객번호1.MaxLength = 50 Me.column고객번호2.MaxLength = 50 Me.column고객번호3.MaxLength = 50 Me.column관리번호1.MaxLength = 50 Me.column관리번호2.MaxLength = 50 Me.column관리번호3.MaxLength = 50 Me.column지점명.MaxLength = 50 Me.column정렬번호.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 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 Try Return CType(Me(Me.tableDetail_tongsin.출력Column),Boolean) 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 String Get If Me.Is간선명Null Then Return String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 String.Empty 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 Try Return CType(Me(Me.tableDetail_tongsin.정렬번호Column),String) 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 광단자함4() As String Get Try Return CType(Me(Me.tableDetail_tongsin.광단자함4Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_tongsin' 테이블의 '광단자함4' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_tongsin.광단자함4Column) = 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 _ Public Function Is광단자함4Null() As Boolean Return Me.IsNull(Me.tableDetail_tongsin.광단자함4Column) End Function _ Public Sub Set광단자함4Null() Me(Me.tableDetail_tongsin.광단자함4Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Detail_SknetworksRow Inherits Global.System.Data.DataRow Private tableDetail_Sknetworks As Detail_SknetworksDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableDetail_Sknetworks = CType(Me.Table,Detail_SknetworksDataTable) End Sub _ Public Property 출력() As Boolean Get Try Return CType(Me(Me.tableDetail_Sknetworks.출력Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Sknetworks' 테이블의 '출력' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Sknetworks.출력Column) = value End Set End Property _ Public Property 관리ID() As Integer Get Try Return CType(Me(Me.tableDetail_Sknetworks.관리IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Sknetworks' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Sknetworks.관리IDColumn) = value End Set End Property _ Public Property 번호() As Integer Get Try Return CType(Me(Me.tableDetail_Sknetworks.번호Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Sknetworks' 테이블의 '번호' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Sknetworks.번호Column) = value End Set End Property _ Public Property 구간명1() As String Get If Me.Is구간명1Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.구간명1Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.구간명1Column) = value End Set End Property _ Public Property 구간명2() As String Get If Me.Is구간명2Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.구간명2Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.구간명2Column) = value End Set End Property _ Public Property 구간명3() As String Get If Me.Is구간명3Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.구간명3Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.구간명3Column) = value End Set End Property _ Public Property 전주번호1() As String Get If Me.Is전주번호1Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.전주번호1Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.전주번호1Column) = value End Set End Property _ Public Property 전주번호2() As String Get If Me.Is전주번호2Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.전주번호2Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.전주번호2Column) = value End Set End Property _ Public Property 전주번호3() As String Get If Me.Is전주번호3Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.전주번호3Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.전주번호3Column) = value End Set End Property _ Public Property 규격() As String Get If Me.Is규격Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.규격Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.규격Column) = value End Set End Property _ Public Property 중계기명() As String Get If Me.Is중계기명Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.중계기명Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.중계기명Column) = value End Set End Property _ Public Property 시공일() As String Get If Me.Is시공일Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.시공일Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.시공일Column) = value End Set End Property _ Public Property 시공자() As String Get If Me.Is시공자Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.시공자Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.시공자Column) = value End Set End Property _ Public Property 연락처1() As String Get If Me.Is연락처1Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.연락처1Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.연락처1Column) = value End Set End Property _ Public Property 연락처2() As String Get If Me.Is연락처2Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.연락처2Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.연락처2Column) = value End Set End Property _ Public Property 운용기관() As String Get If Me.Is운용기관Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Sknetworks.운용기관Column),String) End If End Get Set Me(Me.tableDetail_Sknetworks.운용기관Column) = value End Set End Property _ Public Property rowid() As System.Guid Get Return CType(Me(Me.tableDetail_Sknetworks.rowidColumn),Global.System.Guid) End Get Set Me(Me.tableDetail_Sknetworks.rowidColumn) = value End Set End Property _ Public Property 정렬번호() As String Get Try Return CType(Me(Me.tableDetail_Sknetworks.정렬번호Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Sknetworks' 테이블의 '정렬번호' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Sknetworks.정렬번호Column) = value End Set End Property _ Public Function Is출력Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.출력Column) End Function _ Public Sub Set출력Null() Me(Me.tableDetail_Sknetworks.출력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is관리IDNull() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.관리IDColumn) End Function _ Public Sub Set관리IDNull() Me(Me.tableDetail_Sknetworks.관리IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is번호Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.번호Column) End Function _ Public Sub Set번호Null() Me(Me.tableDetail_Sknetworks.번호Column) = Global.System.Convert.DBNull End Sub _ Public Function Is구간명1Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.구간명1Column) End Function _ Public Sub Set구간명1Null() Me(Me.tableDetail_Sknetworks.구간명1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is구간명2Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.구간명2Column) End Function _ Public Sub Set구간명2Null() Me(Me.tableDetail_Sknetworks.구간명2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is구간명3Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.구간명3Column) End Function _ Public Sub Set구간명3Null() Me(Me.tableDetail_Sknetworks.구간명3Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전주번호1Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.전주번호1Column) End Function _ Public Sub Set전주번호1Null() Me(Me.tableDetail_Sknetworks.전주번호1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전주번호2Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.전주번호2Column) End Function _ Public Sub Set전주번호2Null() Me(Me.tableDetail_Sknetworks.전주번호2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is전주번호3Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.전주번호3Column) End Function _ Public Sub Set전주번호3Null() Me(Me.tableDetail_Sknetworks.전주번호3Column) = Global.System.Convert.DBNull End Sub _ Public Function Is규격Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.규격Column) End Function _ Public Sub Set규격Null() Me(Me.tableDetail_Sknetworks.규격Column) = Global.System.Convert.DBNull End Sub _ Public Function Is중계기명Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.중계기명Column) End Function _ Public Sub Set중계기명Null() Me(Me.tableDetail_Sknetworks.중계기명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is시공일Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.시공일Column) End Function _ Public Sub Set시공일Null() Me(Me.tableDetail_Sknetworks.시공일Column) = Global.System.Convert.DBNull End Sub _ Public Function Is시공자Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.시공자Column) End Function _ Public Sub Set시공자Null() Me(Me.tableDetail_Sknetworks.시공자Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연락처1Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.연락처1Column) End Function _ Public Sub Set연락처1Null() Me(Me.tableDetail_Sknetworks.연락처1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is연락처2Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.연락처2Column) End Function _ Public Sub Set연락처2Null() Me(Me.tableDetail_Sknetworks.연락처2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is운용기관Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.운용기관Column) End Function _ Public Sub Set운용기관Null() Me(Me.tableDetail_Sknetworks.운용기관Column) = Global.System.Convert.DBNull End Sub _ Public Function Is정렬번호Null() As Boolean Return Me.IsNull(Me.tableDetail_Sknetworks.정렬번호Column) End Function _ Public Sub Set정렬번호Null() Me(Me.tableDetail_Sknetworks.정렬번호Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Detail_KaroRow Inherits Global.System.Data.DataRow Private tableDetail_Karo As Detail_KaroDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableDetail_Karo = CType(Me.Table,Detail_KaroDataTable) End Sub _ Public Property rowid() As System.Guid Get Return CType(Me(Me.tableDetail_Karo.rowidColumn),Global.System.Guid) End Get Set Me(Me.tableDetail_Karo.rowidColumn) = value End Set End Property _ Public Property 관리ID() As Integer Get Try Return CType(Me(Me.tableDetail_Karo.관리IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Karo' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Karo.관리IDColumn) = value End Set End Property _ Public Property 출력() As Boolean Get Try Return CType(Me(Me.tableDetail_Karo.출력Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Karo' 테이블의 '출력' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Karo.출력Column) = value End Set End Property _ Public Property 번호() As Integer Get Try Return CType(Me(Me.tableDetail_Karo.번호Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Karo' 테이블의 '번호' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Karo.번호Column) = value End Set End Property _ Public Property area2() As String Get If Me.Isarea2Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.area2Column),String) End If End Get Set Me(Me.tableDetail_Karo.area2Column) = value End Set End Property _ Public Property area1() As String Get If Me.Isarea1Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.area1Column),String) End If End Get Set Me(Me.tableDetail_Karo.area1Column) = value End Set End Property _ Public Property f1() As String Get If Me.Isf1Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.f1Column),String) End If End Get Set Me(Me.tableDetail_Karo.f1Column) = value End Set End Property _ Public Property m1() As String Get If Me.Ism1Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.m1Column),String) End If End Get Set Me(Me.tableDetail_Karo.m1Column) = value End Set End Property _ Public Property m2() As String Get If Me.Ism2Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.m2Column),String) End If End Get Set Me(Me.tableDetail_Karo.m2Column) = value End Set End Property _ Public Property tel1() As String Get If Me.Istel1Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.tel1Column),String) End If End Get Set Me(Me.tableDetail_Karo.tel1Column) = value End Set End Property _ Public Property tel2() As String Get If Me.Istel2Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.tel2Column),String) End If End Get Set Me(Me.tableDetail_Karo.tel2Column) = value End Set End Property _ Public Property bigo1() As String Get If Me.Isbigo1Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.bigo1Column),String) End If End Get Set Me(Me.tableDetail_Karo.bigo1Column) = value End Set End Property _ Public Property bigo2() As String Get If Me.Isbigo2Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.bigo2Column),String) End If End Get Set Me(Me.tableDetail_Karo.bigo2Column) = value End Set End Property _ Public Property bigo3() As String Get If Me.Isbigo3Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.bigo3Column),String) End If End Get Set Me(Me.tableDetail_Karo.bigo3Column) = value End Set End Property _ Public Property 정렬번호() As String Get If Me.Is정렬번호Null Then Return "" Else Return CType(Me(Me.tableDetail_Karo.정렬번호Column),String) End If End Get Set Me(Me.tableDetail_Karo.정렬번호Column) = value End Set End Property _ Public Property QRCODE() As String Get If Me.IsQRCODENull Then Return "" Else Return CType(Me(Me.tableDetail_Karo.QRCODEColumn),String) End If End Get Set Me(Me.tableDetail_Karo.QRCODEColumn) = value End Set End Property _ Public Function Is관리IDNull() As Boolean Return Me.IsNull(Me.tableDetail_Karo.관리IDColumn) End Function _ Public Sub Set관리IDNull() Me(Me.tableDetail_Karo.관리IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is출력Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.출력Column) End Function _ Public Sub Set출력Null() Me(Me.tableDetail_Karo.출력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is번호Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.번호Column) End Function _ Public Sub Set번호Null() Me(Me.tableDetail_Karo.번호Column) = Global.System.Convert.DBNull End Sub _ Public Function Isarea2Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.area2Column) End Function _ Public Sub Setarea2Null() Me(Me.tableDetail_Karo.area2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isarea1Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.area1Column) End Function _ Public Sub Setarea1Null() Me(Me.tableDetail_Karo.area1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isf1Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.f1Column) End Function _ Public Sub Setf1Null() Me(Me.tableDetail_Karo.f1Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism1Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.m1Column) End Function _ Public Sub Setm1Null() Me(Me.tableDetail_Karo.m1Column) = Global.System.Convert.DBNull End Sub _ Public Function Ism2Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.m2Column) End Function _ Public Sub Setm2Null() Me(Me.tableDetail_Karo.m2Column) = Global.System.Convert.DBNull End Sub _ Public Function Istel1Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.tel1Column) End Function _ Public Sub Settel1Null() Me(Me.tableDetail_Karo.tel1Column) = Global.System.Convert.DBNull End Sub _ Public Function Istel2Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.tel2Column) End Function _ Public Sub Settel2Null() Me(Me.tableDetail_Karo.tel2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isbigo1Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.bigo1Column) End Function _ Public Sub Setbigo1Null() Me(Me.tableDetail_Karo.bigo1Column) = Global.System.Convert.DBNull End Sub _ Public Function Isbigo2Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.bigo2Column) End Function _ Public Sub Setbigo2Null() Me(Me.tableDetail_Karo.bigo2Column) = Global.System.Convert.DBNull End Sub _ Public Function Isbigo3Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.bigo3Column) End Function _ Public Sub Setbigo3Null() Me(Me.tableDetail_Karo.bigo3Column) = Global.System.Convert.DBNull End Sub _ Public Function Is정렬번호Null() As Boolean Return Me.IsNull(Me.tableDetail_Karo.정렬번호Column) End Function _ Public Sub Set정렬번호Null() Me(Me.tableDetail_Karo.정렬번호Column) = Global.System.Convert.DBNull End Sub _ Public Function IsQRCODENull() As Boolean Return Me.IsNull(Me.tableDetail_Karo.QRCODEColumn) End Function _ Public Sub SetQRCODENull() Me(Me.tableDetail_Karo.QRCODEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class Detail_DeungRow Inherits Global.System.Data.DataRow Private tableDetail_Deung As Detail_DeungDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableDetail_Deung = CType(Me.Table,Detail_DeungDataTable) End Sub _ Public Property rowid() As System.Guid Get Return CType(Me(Me.tableDetail_Deung.rowidColumn),Global.System.Guid) End Get Set Me(Me.tableDetail_Deung.rowidColumn) = value End Set End Property _ Public Property 관리ID() As Integer Get Try Return CType(Me(Me.tableDetail_Deung.관리IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Deung' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Deung.관리IDColumn) = value End Set End Property _ Public Property 번호() As Integer Get Try Return CType(Me(Me.tableDetail_Deung.번호Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Deung' 테이블의 '번호' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Deung.번호Column) = value End Set End Property _ Public Property 출력() As Boolean Get Try Return CType(Me(Me.tableDetail_Deung.출력Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Deung' 테이블의 '출력' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Deung.출력Column) = value End Set End Property _ Public Property 고객번호1() As String Get If Me.Is고객번호1Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Deung.고객번호1Column),String) End If End Get Set Me(Me.tableDetail_Deung.고객번호1Column) = value End Set End Property _ Public Property 고객번호2() As String Get If Me.Is고객번호2Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Deung.고객번호2Column),String) End If End Get Set Me(Me.tableDetail_Deung.고객번호2Column) = value End Set End Property _ Public Property 고객번호3() As String Get If Me.Is고객번호3Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Deung.고객번호3Column),String) End If End Get Set Me(Me.tableDetail_Deung.고객번호3Column) = value End Set End Property _ Public Property 관리번호1() As String Get If Me.Is관리번호1Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Deung.관리번호1Column),String) End If End Get Set Me(Me.tableDetail_Deung.관리번호1Column) = value End Set End Property _ Public Property 관리번호2() As String Get If Me.Is관리번호2Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Deung.관리번호2Column),String) End If End Get Set Me(Me.tableDetail_Deung.관리번호2Column) = value End Set End Property _ Public Property 관리번호3() As String Get If Me.Is관리번호3Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Deung.관리번호3Column),String) End If End Get Set Me(Me.tableDetail_Deung.관리번호3Column) = value End Set End Property _ Public Property 지점명() As String Get If Me.Is지점명Null Then Return String.Empty Else Return CType(Me(Me.tableDetail_Deung.지점명Column),String) End If End Get Set Me(Me.tableDetail_Deung.지점명Column) = value End Set End Property _ Public Property 정렬번호() As String Get Try Return CType(Me(Me.tableDetail_Deung.정렬번호Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("'Detail_Deung' 테이블의 '정렬번호' 열의 값이 DBNull입니다.", e) End Try End Get Set Me(Me.tableDetail_Deung.정렬번호Column) = value End Set End Property _ Public Function Is관리IDNull() As Boolean Return Me.IsNull(Me.tableDetail_Deung.관리IDColumn) End Function _ Public Sub Set관리IDNull() Me(Me.tableDetail_Deung.관리IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is번호Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.번호Column) End Function _ Public Sub Set번호Null() Me(Me.tableDetail_Deung.번호Column) = Global.System.Convert.DBNull End Sub _ Public Function Is출력Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.출력Column) End Function _ Public Sub Set출력Null() Me(Me.tableDetail_Deung.출력Column) = Global.System.Convert.DBNull End Sub _ Public Function Is고객번호1Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.고객번호1Column) End Function _ Public Sub Set고객번호1Null() Me(Me.tableDetail_Deung.고객번호1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is고객번호2Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.고객번호2Column) End Function _ Public Sub Set고객번호2Null() Me(Me.tableDetail_Deung.고객번호2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is고객번호3Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.고객번호3Column) End Function _ Public Sub Set고객번호3Null() Me(Me.tableDetail_Deung.고객번호3Column) = Global.System.Convert.DBNull End Sub _ Public Function Is관리번호1Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.관리번호1Column) End Function _ Public Sub Set관리번호1Null() Me(Me.tableDetail_Deung.관리번호1Column) = Global.System.Convert.DBNull End Sub _ Public Function Is관리번호2Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.관리번호2Column) End Function _ Public Sub Set관리번호2Null() Me(Me.tableDetail_Deung.관리번호2Column) = Global.System.Convert.DBNull End Sub _ Public Function Is관리번호3Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.관리번호3Column) End Function _ Public Sub Set관리번호3Null() Me(Me.tableDetail_Deung.관리번호3Column) = Global.System.Convert.DBNull End Sub _ Public Function Is지점명Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.지점명Column) End Function _ Public Sub Set지점명Null() Me(Me.tableDetail_Deung.지점명Column) = Global.System.Convert.DBNull End Sub _ Public Function Is정렬번호Null() As Boolean Return Me.IsNull(Me.tableDetail_Deung.정렬번호Column) End Function _ Public Sub Set정렬번호Null() Me(Me.tableDetail_Deung.정렬번호Column) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class MainTableRowChangeEvent Inherits Global.System.EventArgs Private eventRow As MainTableRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As MainTableRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As MainTableRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Detail_tongsinRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Detail_tongsinRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Detail_tongsinRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Detail_tongsinRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Detail_SknetworksRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Detail_SknetworksRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Detail_SknetworksRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Detail_SknetworksRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Detail_KaroRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Detail_KaroRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Detail_KaroRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Detail_KaroRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class Detail_DeungRowChangeEvent Inherits Global.System.EventArgs Private eventRow As Detail_DeungRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As Detail_DeungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As Detail_DeungRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace ireaDataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class MainTableTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter Private _connection As Global.System.Data.OleDb.OleDbConnection Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Private ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "MainTable" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("날짜", "날짜") tableMapping.ColumnMappings.Add("거래처명", "거래처명") tableMapping.ColumnMappings.Add("비고", "비고") tableMapping.ColumnMappings.Add("총수량", "총수량") tableMapping.ColumnMappings.Add("단가", "단가") tableMapping.ColumnMappings.Add("금액", "금액") tableMapping.ColumnMappings.Add("번호찰구분", "번호찰구분") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM `전주관리` WHERE ((`ID` = ?) AND ((? = 1 AND `날짜` IS NULL) OR (`날짜` = ?))"& _ " AND ((? = 1 AND `거래처명` IS NULL) OR (`거래처명` = ?)) AND ((? = 1 AND `비고` IS NULL) "& _ "OR (`비고` = ?)) AND ((? = 1 AND `총수량` IS NULL) OR (`총수량` = ?)) AND ((? = 1 AND `단"& _ "가` IS NULL) OR (`단가` = ?)) AND ((? = 1 AND `금액` IS NULL) OR (`금액` = ?)) AND ((? "& _ "= 1 AND `번호찰구분` IS NULL) OR (`번호찰구분` = ?)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_날짜", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_거래처명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO `전주관리` (`ID`, `날짜`, `거래처명`, `비고`, `총수량`, `단가`, `금액`, `번호찰구분`) VALUES "& _ "(?, ?, ?, ?, ?, ?, ?, ?)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE `전주관리` SET `ID` = ?, `날짜` = ?, `거래처명` = ?, `비고` = ?, `총수량` = ?, `단가` = ?, "& _ "`금액` = ?, `번호찰구분` = ? WHERE ((`ID` = ?) AND ((? = 1 AND `날짜` IS NULL) OR (`날짜` ="& _ " ?)) AND ((? = 1 AND `거래처명` IS NULL) OR (`거래처명` = ?)) AND ((? = 1 AND `비고` IS NU"& _ "LL) OR (`비고` = ?)) AND ((? = 1 AND `총수량` IS NULL) OR (`총수량` = ?)) AND ((? = 1 AN"& _ "D `단가` IS NULL) OR (`단가` = ?)) AND ((? = 1 AND `금액` IS NULL) OR (`금액` = ?)) AND "& _ "((? = 1 AND `번호찰구분` IS NULL) OR (`번호찰구분` = ?)))" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_날짜", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_거래처명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, false, Nothing)) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.OleDb.OleDbConnection() Me._connection.ConnectionString = Global.EpoleNetv3.My.MySettings.Default.ireaConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM 전주관리" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.MainTableDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As ireaDataSet.MainTableDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As ireaDataSet.MainTableDataTable = New ireaDataSet.MainTableDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.MainTableDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer Return Me.Adapter.Update(dataSet, "MainTable") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_ID As Global.System.Nullable(Of Integer), ByVal Original_날짜 As Global.System.Nullable(Of Date), ByVal Original_거래처명 As String, ByVal Original_비고 As String, ByVal Original_총수량 As Global.System.Nullable(Of Integer), ByVal Original_단가 As Global.System.Nullable(Of Integer), ByVal Original_금액 As Global.System.Nullable(Of Integer), ByVal Original_번호찰구분 As Global.System.Nullable(Of Integer)) As Integer If (Original_ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Original_날짜.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_날짜.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_거래처명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_거래처명,String) End If If (Original_비고 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_비고,String) End If If (Original_총수량.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_총수량.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_단가.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_단가.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_금액.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_금액.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_번호찰구분.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_번호찰구분.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal ID As Global.System.Nullable(Of Integer), ByVal 날짜 As Global.System.Nullable(Of Date), ByVal 거래처명 As String, ByVal 비고 As String, ByVal 총수량 As Global.System.Nullable(Of Integer), ByVal 단가 As Global.System.Nullable(Of Integer), ByVal 금액 As Global.System.Nullable(Of Integer), ByVal 번호찰구분 As Global.System.Nullable(Of Integer)) As Integer If (ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (날짜.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(날짜.Value,Date) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (거래처명 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(거래처명,String) End If If (비고 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(비고,String) End If If (총수량.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(총수량.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (단가.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(단가.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (금액.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(금액.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (번호찰구분.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(번호찰구분.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal ID As Global.System.Nullable(Of Integer), _ ByVal 날짜 As Global.System.Nullable(Of Date), _ ByVal 거래처명 As String, _ ByVal 비고 As String, _ ByVal 총수량 As Global.System.Nullable(Of Integer), _ ByVal 단가 As Global.System.Nullable(Of Integer), _ ByVal 금액 As Global.System.Nullable(Of Integer), _ ByVal 번호찰구분 As Global.System.Nullable(Of Integer), _ ByVal Original_ID As Global.System.Nullable(Of Integer), _ ByVal Original_날짜 As Global.System.Nullable(Of Date), _ ByVal Original_거래처명 As String, _ ByVal Original_비고 As String, _ ByVal Original_총수량 As Global.System.Nullable(Of Integer), _ ByVal Original_단가 As Global.System.Nullable(Of Integer), _ ByVal Original_금액 As Global.System.Nullable(Of Integer), _ ByVal Original_번호찰구분 As Global.System.Nullable(Of Integer)) As Integer If (ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (날짜.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(날짜.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (거래처명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(거래처명,String) End If If (비고 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(비고,String) End If If (총수량.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(총수량.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (단가.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(단가.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (금액.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(금액.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (번호찰구분.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(번호찰구분.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_날짜.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_날짜.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_거래처명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_거래처명,String) End If If (Original_비고 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_비고,String) End If If (Original_총수량.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_총수량.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_단가.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_단가.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If If (Original_금액.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_금액.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_번호찰구분.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_번호찰구분.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal 날짜 As Global.System.Nullable(Of Date), ByVal 거래처명 As String, ByVal 비고 As String, ByVal 총수량 As Global.System.Nullable(Of Integer), ByVal 단가 As Global.System.Nullable(Of Integer), ByVal 금액 As Global.System.Nullable(Of Integer), ByVal 번호찰구분 As Global.System.Nullable(Of Integer), ByVal Original_ID As Global.System.Nullable(Of Integer), ByVal Original_날짜 As Global.System.Nullable(Of Date), ByVal Original_거래처명 As String, ByVal Original_비고 As String, ByVal Original_총수량 As Global.System.Nullable(Of Integer), ByVal Original_단가 As Global.System.Nullable(Of Integer), ByVal Original_금액 As Global.System.Nullable(Of Integer), ByVal Original_번호찰구분 As Global.System.Nullable(Of Integer)) As Integer Return Me.Update(Original_ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분, Original_ID, Original_날짜, Original_거래처명, Original_비고, Original_총수량, Original_단가, Original_금액, Original_번호찰구분) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Detail_tongsinTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter Private _connection As Global.System.Data.OleDb.OleDbConnection Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Private ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "Detail_tongsin" tableMapping.ColumnMappings.Add("rowid", "rowid") tableMapping.ColumnMappings.Add("관리ID", "관리ID") tableMapping.ColumnMappings.Add("번호", "번호") tableMapping.ColumnMappings.Add("출력", "출력") tableMapping.ColumnMappings.Add("간선명", "간선명") tableMapping.ColumnMappings.Add("간선명2", "간선명2") tableMapping.ColumnMappings.Add("전주번호", "전주번호") tableMapping.ColumnMappings.Add("전주번호2", "전주번호2") tableMapping.ColumnMappings.Add("규격", "규격") tableMapping.ColumnMappings.Add("중계기명", "중계기명") tableMapping.ColumnMappings.Add("시공일", "시공일") tableMapping.ColumnMappings.Add("시공자", "시공자") tableMapping.ColumnMappings.Add("연락처1", "연락처1") tableMapping.ColumnMappings.Add("연락처2", "연락처2") tableMapping.ColumnMappings.Add("운용기관", "운용기관") tableMapping.ColumnMappings.Add("단자함1", "단자함1") tableMapping.ColumnMappings.Add("단자함2", "단자함2") tableMapping.ColumnMappings.Add("단자함3", "단자함3") tableMapping.ColumnMappings.Add("광단자함1", "광단자함1") tableMapping.ColumnMappings.Add("광단자함2", "광단자함2") tableMapping.ColumnMappings.Add("광단자함3", "광단자함3") tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") tableMapping.ColumnMappings.Add("광단자함4", "광단자함4") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_tongsin` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL)"& _ " OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `"& _ "출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `간선명` IS NULL) OR (`간선명` = ?)) AND ("& _ "(? = 1 AND `간선명2` IS NULL) OR (`간선명2` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR ("& _ "`전주번호` = ?)) AND ((? = 1 AND `전주번호2` IS NULL) OR (`전주번호2` = ?)) AND ((? = 1 AND "& _ "`규격` IS NULL) OR (`규격` = ?)) AND ((? = 1 AND `중계기명` IS NULL) OR (`중계기명` = ?)) AN"& _ "D ((? = 1 AND `시공일` IS NULL) OR (`시공일` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR ("& _ "`시공자` = ?)) AND ((? = 1 AND `연락처1` IS NULL) OR (`연락처1` = ?)) AND ((? = 1 AND `연락"& _ "처2` IS NULL) OR (`연락처2` = ?)) AND ((? = 1 AND `운용기관` IS NULL) OR (`운용기관` = ?)) A"& _ "ND ((? = 1 AND `단자함1` IS NULL) OR (`단자함1` = ?)) AND ((? = 1 AND `단자함2` IS NULL) "& _ "OR (`단자함2` = ?)) AND ((? = 1 AND `단자함3` IS NULL) OR (`단자함3` = ?)) AND ((? = 1 AN"& _ "D `광단자함1` IS NULL) OR (`광단자함1` = ?)) AND ((? = 1 AND `광단자함2` IS NULL) OR (`광단자함2"& _ "` = ?)) AND ((? = 1 AND `광단자함3` IS NULL) OR (`광단자함3` = ?)) AND ((? = 1 AND `정렬번호"& _ "` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `광단자함4` IS NULL) OR (`광단자함4` = ?)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_간선명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_간선명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_간선명2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_간선명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_규격", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "규격", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "규격", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_중계기명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "중계기명", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "중계기명", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공일", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공일", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공일", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처1", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처1", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_운용기관", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "운용기관", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "운용기관", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단자함1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함1", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함1", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단자함2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단자함3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함3", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함3", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함1", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함1", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함3", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함3", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함4", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함4", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_tongsin` (`rowid`, `관리ID`, `번호`, `출력`, `간선명`, `간선명2`, `전주번호`,"& _ " `전주번호2`, `규격`, `중계기명`, `시공일`, `시공자`, `연락처1`, `연락처2`, `운용기관`, `단자함1`, `단자함2`, `단"& _ "자함3`, `광단자함1`, `광단자함2`, `광단자함3`, `정렬번호`, `광단자함4`) VALUES (?, ?, ?, ?, ?, ?, ?, ?"& _ ", ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("간선명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("간선명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "규격", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "중계기명", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공일", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처1", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "운용기관", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함1", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함3", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함1", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함3", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함4", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_tongsin` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `출력` = ?, `간선명` = "& _ "?, `간선명2` = ?, `전주번호` = ?, `전주번호2` = ?, `규격` = ?, `중계기명` = ?, `시공일` = ?, `시공자` ="& _ " ?, `연락처1` = ?, `연락처2` = ?, `운용기관` = ?, `단자함1` = ?, `단자함2` = ?, `단자함3` = ?, `광단자"& _ "함1` = ?, `광단자함2` = ?, `광단자함3` = ?, `정렬번호` = ?, `광단자함4` = ? WHERE ((`rowid` = ?) "& _ "AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) O"& _ "R (`번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `간선명`"& _ " IS NULL) OR (`간선명` = ?)) AND ((? = 1 AND `간선명2` IS NULL) OR (`간선명2` = ?)) AND ("& _ "(? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `전주번호2` IS NULL) OR "& _ "(`전주번호2` = ?)) AND ((? = 1 AND `규격` IS NULL) OR (`규격` = ?)) AND ((? = 1 AND `중계기"& _ "명` IS NULL) OR (`중계기명` = ?)) AND ((? = 1 AND `시공일` IS NULL) OR (`시공일` = ?)) AND "& _ "((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?)) AND ((? = 1 AND `연락처1` IS NULL) OR (`"& _ "연락처1` = ?)) AND ((? = 1 AND `연락처2` IS NULL) OR (`연락처2` = ?)) AND ((? = 1 AND `운용"& _ "기관` IS NULL) OR (`운용기관` = ?)) AND ((? = 1 AND `단자함1` IS NULL) OR (`단자함1` = ?)) A"& _ "ND ((? = 1 AND `단자함2` IS NULL) OR (`단자함2` = ?)) AND ((? = 1 AND `단자함3` IS NULL) "& _ "OR (`단자함3` = ?)) AND ((? = 1 AND `광단자함1` IS NULL) OR (`광단자함1` = ?)) AND ((? = 1 "& _ "AND `광단자함2` IS NULL) OR (`광단자함2` = ?)) AND ((? = 1 AND `광단자함3` IS NULL) OR (`광단자"& _ "함3` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `광단자함"& _ "4` IS NULL) OR (`광단자함4` = ?)))" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("간선명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("간선명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "규격", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "중계기명", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공일", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처1", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "운용기관", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함1", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함3", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함1", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함2", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함3", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("광단자함4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함4", Global.System.Data.DataRowVersion.Current, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_간선명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_간선명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_간선명2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_간선명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "간선명2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_규격", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "규격", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "규격", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_중계기명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "중계기명", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "중계기명", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공일", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공일", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공일", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처1", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처1", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "연락처2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_운용기관", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "운용기관", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "운용기관", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단자함1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함1", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함1", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단자함2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단자함3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함3", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단자함3", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함1", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함1", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함2", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함2", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함3", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함3", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_광단자함4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함4", Global.System.Data.DataRowVersion.Original, true, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_광단자함4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "광단자함4", Global.System.Data.DataRowVersion.Original, false, Nothing)) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.OleDb.OleDbConnection() Me._connection.ConnectionString = Global.EpoleNetv3.My.MySettings.Default.ireaConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {} Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 출력, 간선명, 간선명2, 전주번호, 전주번호2, 규격, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 중계기명," & _ " 시공일, 시공자, 연락처1, 연락처2, 운용기관, 단자함1, 단자함2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 단자함3, 광단자함1, 광단자함2, 광" & _ "단자함3, 정렬번호, 광단자함4" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM Detail_tongsin" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (관리ID = ?)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "DELETE FROM `Detail_tongsin` WHERE 관리id = ?" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, False, Nothing)) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As ireaDataSet.Detail_tongsinDataTable, ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (관리ID.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal 관리ID As Global.System.Nullable(Of Integer)) As ireaDataSet.Detail_tongsinDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (관리ID.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If Dim dataTable As ireaDataSet.Detail_tongsinDataTable = New ireaDataSet.Detail_tongsinDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As ireaDataSet.Detail_tongsinDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As ireaDataSet) As Integer Return Me.Adapter.Update(dataSet, "Detail_tongsin") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete( _ ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_출력 As Boolean, _ ByVal Original_간선명 As String, _ ByVal Original_간선명2 As String, _ ByVal Original_전주번호 As String, _ ByVal Original_전주번호2 As String, _ ByVal Original_규격 As String, _ ByVal Original_중계기명 As String, _ ByVal Original_시공일 As String, _ ByVal Original_시공자 As String, _ ByVal Original_연락처1 As String, _ ByVal Original_연락처2 As String, _ ByVal Original_운용기관 As String, _ ByVal Original_단자함1 As String, _ ByVal Original_단자함2 As String, _ ByVal Original_단자함3 As String, _ ByVal Original_광단자함1 As String, _ ByVal Original_광단자함2 As String, _ ByVal Original_광단자함3 As String, _ ByVal Original_정렬번호 As String, _ ByVal Original_광단자함4 As String) As Integer If (Original_rowid.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value, System.Guid) Else Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Original_관리ID.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value, Integer) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_번호.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value, Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_출력, Boolean) If (Original_간선명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_간선명, String) End If If (Original_간선명2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_간선명2, String) End If If (Original_전주번호 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_전주번호, String) End If If (Original_전주번호2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_전주번호2, String) End If If (Original_규격 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_규격, String) End If If (Original_중계기명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_중계기명, String) End If If (Original_시공일 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_시공일, String) End If If (Original_시공자 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_시공자, String) End If If (Original_연락처1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_연락처1, String) End If If (Original_연락처2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_연락처2, String) End If If (Original_운용기관 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_운용기관, String) End If If (Original_단자함1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_단자함1, String) End If If (Original_단자함2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_단자함2, String) End If If (Original_단자함3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_단자함3, String) End If If (Original_광단자함1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_광단자함1, String) End If If (Original_광단자함2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_광단자함2, String) End If If (Original_광단자함3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_광단자함3, String) End If If (Original_정렬번호 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_정렬번호, String) End If If (Original_광단자함4 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_광단자함4, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert( _ ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of 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) As Integer If (rowid.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value, System.Guid) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (관리ID.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (번호.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(출력, Boolean) If (간선명 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(간선명, String) End If If (간선명2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(간선명2, String) End If If (전주번호 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(전주번호, String) End If If (전주번호2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(전주번호2, String) End If If (규격 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(규격, String) End If If (중계기명 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(중계기명, String) End If If (시공일 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(시공일, String) End If If (시공자 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(시공자, String) End If If (연락처1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(연락처1, String) End If If (연락처2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(연락처2, String) End If If (운용기관 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(운용기관, String) End If If (단자함1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(단자함1, String) End If If (단자함2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(단자함2, String) End If If (단자함3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(단자함3, String) End If If (광단자함1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(광단자함1, String) End If If (광단자함2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(광단자함2, String) End If If (광단자함3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(광단자함3, String) End If If (정렬번호 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(정렬번호, String) End If If (광단자함4 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(광단자함4, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of 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 Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_출력 As Boolean, _ ByVal Original_간선명 As String, _ ByVal Original_간선명2 As String, _ ByVal Original_전주번호 As String, _ ByVal Original_전주번호2 As String, _ ByVal Original_규격 As String, _ ByVal Original_중계기명 As String, _ ByVal Original_시공일 As String, _ ByVal Original_시공자 As String, _ ByVal Original_연락처1 As String, _ ByVal Original_연락처2 As String, _ ByVal Original_운용기관 As String, _ ByVal Original_단자함1 As String, _ ByVal Original_단자함2 As String, _ ByVal Original_단자함3 As String, _ ByVal Original_광단자함1 As String, _ ByVal Original_광단자함2 As String, _ ByVal Original_광단자함3 As String, _ ByVal Original_정렬번호 As String, _ ByVal Original_광단자함4 As String) As Integer If (rowid.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value, System.Guid) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (관리ID.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (번호.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(출력, Boolean) If (간선명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(간선명, String) End If If (간선명2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(간선명2, String) End If If (전주번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(전주번호, String) End If If (전주번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(전주번호2, String) End If If (규격 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(규격, String) End If If (중계기명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(중계기명, String) End If If (시공일 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(시공일, String) End If If (시공자 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(시공자, String) End If If (연락처1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(연락처1, String) End If If (연락처2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(연락처2, String) End If If (운용기관 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(운용기관, String) End If If (단자함1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(단자함1, String) End If If (단자함2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(단자함2, String) End If If (단자함3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(단자함3, String) End If If (광단자함1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(광단자함1, String) End If If (광단자함2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(광단자함2, String) End If If (광단자함3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(광단자함3, String) End If If (정렬번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(정렬번호, String) End If If (광단자함4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(광단자함4, String) End If If (Original_rowid.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_rowid.Value, System.Guid) Else Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_관리ID.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_관리ID.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_번호.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_번호.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_출력, Boolean) If (Original_간선명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_간선명, String) End If If (Original_간선명2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_간선명2, String) End If If (Original_전주번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_전주번호, String) End If If (Original_전주번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_전주번호2, String) End If If (Original_규격 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_규격, String) End If If (Original_중계기명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_중계기명, String) End If If (Original_시공일 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_시공일, String) End If If (Original_시공자 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_시공자, String) End If If (Original_연락처1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_연락처1, String) End If If (Original_연락처2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_연락처2, String) End If If (Original_운용기관 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_운용기관, String) End If If (Original_단자함1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_단자함1, String) End If If (Original_단자함2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_단자함2, String) End If If (Original_단자함3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_단자함3, String) End If If (Original_광단자함1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_광단자함1, String) End If If (Original_광단자함2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_광단자함2, String) End If If (Original_광단자함3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_광단자함3, String) End If If (Original_정렬번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_정렬번호, String) End If If (Original_광단자함4 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_광단자함4, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of 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 Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_출력 As Boolean, _ ByVal Original_간선명 As String, _ ByVal Original_간선명2 As String, _ ByVal Original_전주번호 As String, _ ByVal Original_전주번호2 As String, _ ByVal Original_규격 As String, _ ByVal Original_중계기명 As String, _ ByVal Original_시공일 As String, _ ByVal Original_시공자 As String, _ ByVal Original_연락처1 As String, _ ByVal Original_연락처2 As String, _ ByVal Original_운용기관 As String, _ ByVal Original_단자함1 As String, _ ByVal Original_단자함2 As String, _ ByVal Original_단자함3 As String, _ ByVal Original_광단자함1 As String, _ ByVal Original_광단자함2 As String, _ ByVal Original_광단자함3 As String, _ ByVal Original_정렬번호 As String, _ ByVal Original_광단자함4 As String) As Integer Return Me.Update(Original_rowid, 관리ID, 번호, 출력, 간선명, 간선명2, 전주번호, 전주번호2, 규격, 중계기명, 시공일, 시공자, 연락처1, 연락처2, 운용기관, 단자함1, 단자함2, 단자함3, 광단자함1, 광단자함2, 광단자함3, 정렬번호, 광단자함4, Original_rowid, Original_관리ID, Original_번호, Original_출력, Original_간선명, Original_간선명2, Original_전주번호, Original_전주번호2, Original_규격, Original_중계기명, Original_시공일, Original_시공자, Original_연락처1, Original_연락처2, Original_운용기관, Original_단자함1, Original_단자함2, Original_단자함3, Original_광단자함1, Original_광단자함2, Original_광단자함3, Original_정렬번호, Original_광단자함4) End Function _ Public Overridable Overloads Function DeleteQuery(ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1) If (관리ID.HasValue = True) Then command.Parameters(0).Value = CType(관리ID.Value, Integer) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open() End If Dim returnValue As Integer Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close() End If End Try Return returnValue End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Detail_SknetworksTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter Private _connection As Global.System.Data.OleDb.OleDbConnection Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Private ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.OleDb.OleDbConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "Detail_Sknetworks" tableMapping.ColumnMappings.Add("출력", "출력") tableMapping.ColumnMappings.Add("관리ID", "관리ID") tableMapping.ColumnMappings.Add("번호", "번호") tableMapping.ColumnMappings.Add("구간명1", "구간명1") tableMapping.ColumnMappings.Add("구간명2", "구간명2") tableMapping.ColumnMappings.Add("구간명3", "구간명3") tableMapping.ColumnMappings.Add("전주번호1", "전주번호1") tableMapping.ColumnMappings.Add("전주번호2", "전주번호2") tableMapping.ColumnMappings.Add("전주번호3", "전주번호3") tableMapping.ColumnMappings.Add("규격", "규격") tableMapping.ColumnMappings.Add("중계기명", "중계기명") tableMapping.ColumnMappings.Add("시공일", "시공일") tableMapping.ColumnMappings.Add("시공자", "시공자") tableMapping.ColumnMappings.Add("연락처1", "연락처1") tableMapping.ColumnMappings.Add("연락처2", "연락처2") tableMapping.ColumnMappings.Add("운용기관", "운용기관") tableMapping.ColumnMappings.Add("rowid", "rowid") tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_Sknetworks` WHERE (((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) A" & _ "ND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR" & _ " (`번호` = ?)) AND ((? = 1 AND `구간명1` IS NULL) OR (`구간명1` = ?)) AND ((? = 1 AND `구" & _ "간명2` IS NULL) OR (`구간명2` = ?)) AND ((? = 1 AND `구간명3` IS NULL) OR (`구간명3` = ?)) " & _ "AND ((? = 1 AND `전주번호1` IS NULL) OR (`전주번호1` = ?)) AND ((? = 1 AND `전주번호2` IS NU" & _ "LL) OR (`전주번호2` = ?)) AND ((? = 1 AND `전주번호3` IS NULL) OR (`전주번호3` = ?)) AND ((?" & _ " = 1 AND `규격` IS NULL) OR (`규격` = ?)) AND ((? = 1 AND `중계기명` IS NULL) OR (`중계기명`" & _ " = ?)) AND ((? = 1 AND `시공일` IS NULL) OR (`시공일` = ?)) AND ((? = 1 AND `시공자` IS N" & _ "ULL) OR (`시공자` = ?)) AND ((? = 1 AND `연락처1` IS NULL) OR (`연락처1` = ?)) AND ((? = " & _ "1 AND `연락처2` IS NULL) OR (`연락처2` = ?)) AND ((? = 1 AND `운용기관` IS NULL) OR (`운용기관" & _ "` = ?)) AND (`rowid` = ?) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구간명1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구간명1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구간명2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구간명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구간명3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구간명3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_규격", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "규격", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "규격", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_중계기명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "중계기명", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "중계기명", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공일", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공일", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공일", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공자", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공자", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_운용기관", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "운용기관", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "운용기관", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_Sknetworks` (`출력`, `관리ID`, `번호`, `구간명1`, `구간명2`, `구간명3`, `전주번" & _ "호1`, `전주번호2`, `전주번호3`, `규격`, `중계기명`, `시공일`, `시공자`, `연락처1`, `연락처2`, `운용기관`, `rowi" & _ "d`, `정렬번호`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구간명1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구간명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구간명3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "규격", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "중계기명", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공일", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공자", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "운용기관", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_Sknetworks` SET `출력` = ?, `관리ID` = ?, `번호` = ?, `구간명1` = ?, `구간명2`" & _ " = ?, `구간명3` = ?, `전주번호1` = ?, `전주번호2` = ?, `전주번호3` = ?, `규격` = ?, `중계기명` = ?, `" & _ "시공일` = ?, `시공자` = ?, `연락처1` = ?, `연락처2` = ?, `운용기관` = ?, `rowid` = ?, `정렬번호` = ?" & _ " WHERE (((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `관리ID` IS NULL)" & _ " OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `" & _ "구간명1` IS NULL) OR (`구간명1` = ?)) AND ((? = 1 AND `구간명2` IS NULL) OR (`구간명2` = ?))" & _ " AND ((? = 1 AND `구간명3` IS NULL) OR (`구간명3` = ?)) AND ((? = 1 AND `전주번호1` IS NUL" & _ "L) OR (`전주번호1` = ?)) AND ((? = 1 AND `전주번호2` IS NULL) OR (`전주번호2` = ?)) AND ((? " & _ "= 1 AND `전주번호3` IS NULL) OR (`전주번호3` = ?)) AND ((? = 1 AND `규격` IS NULL) OR (`규격" & _ "` = ?)) AND ((? = 1 AND `중계기명` IS NULL) OR (`중계기명` = ?)) AND ((? = 1 AND `시공일` I" & _ "S NULL) OR (`시공일` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?)) AND ((? =" & _ " 1 AND `연락처1` IS NULL) OR (`연락처1` = ?)) AND ((? = 1 AND `연락처2` IS NULL) OR (`연락처" & _ "2` = ?)) AND ((? = 1 AND `운용기관` IS NULL) OR (`운용기관` = ?)) AND (`rowid` = ?) AND " & _ "((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)))" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구간명1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구간명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구간명3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "규격", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "중계기명", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공일", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공자", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "운용기관", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구간명1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구간명1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구간명2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구간명2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구간명3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구간명3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "구간명3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_규격", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "규격", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_규격", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "규격", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_중계기명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "중계기명", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_중계기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "중계기명", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공일", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공일", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공일", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공자", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "시공자", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_연락처2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_연락처2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "연락처2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_운용기관", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "운용기관", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_운용기관", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "운용기관", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.OleDb.OleDbConnection() Me._connection.ConnectionString = Global.EpoleNetv3.My.MySettings.Default.ireaConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {} Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT 출력, 관리ID, 번호, 구간명1, 구간명2, 구간명3, 전주번호1, 전주번호2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 전주번호3, 규" & _ "격, 중계기명, 시공일, 시공자, 연락처1, 연락처2, 운용기관, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " rowid, 정렬번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM De" & _ "tail_Sknetworks" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (관리ID = ?)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "DELETE FROM `Detail_Sknetworks` WHERE 관리id = ?" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, False, Nothing)) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As ireaDataSet.Detail_SknetworksDataTable, ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (관리ID.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal 관리ID As Global.System.Nullable(Of Integer)) As ireaDataSet.Detail_SknetworksDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (관리ID.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If Dim dataTable As ireaDataSet.Detail_SknetworksDataTable = New ireaDataSet.Detail_SknetworksDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As ireaDataSet.Detail_SknetworksDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As ireaDataSet) As Integer Return Me.Adapter.Update(dataSet, "Detail_Sknetworks") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete( _ ByVal Original_출력 As Boolean, _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_구간명1 As String, _ ByVal Original_구간명2 As String, _ ByVal Original_구간명3 As String, _ ByVal Original_전주번호1 As String, _ ByVal Original_전주번호2 As String, _ ByVal Original_전주번호3 As String, _ ByVal Original_규격 As String, _ ByVal Original_중계기명 As String, _ ByVal Original_시공일 As String, _ ByVal Original_시공자 As String, _ ByVal Original_연락처1 As String, _ ByVal Original_연락처2 As String, _ ByVal Original_운용기관 As String, _ ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_정렬번호 As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_출력, Boolean) If (Original_관리ID.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_관리ID.Value, Integer) Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (Original_번호.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_번호.Value, Integer) Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (Original_구간명1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_구간명1, String) End If If (Original_구간명2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_구간명2, String) End If If (Original_구간명3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_구간명3, String) End If If (Original_전주번호1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_전주번호1, String) End If If (Original_전주번호2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_전주번호2, String) End If If (Original_전주번호3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_전주번호3, String) End If If (Original_규격 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_규격, String) End If If (Original_중계기명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_중계기명, String) End If If (Original_시공일 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_시공일, String) End If If (Original_시공자 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_시공자, String) End If If (Original_연락처1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_연락처1, String) End If If (Original_연락처2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_연락처2, String) End If If (Original_운용기관 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_운용기관, String) End If If (Original_rowid.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_rowid.Value, System.Guid) Else Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_정렬번호 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_정렬번호, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert( _ ByVal 출력 As Boolean, _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of Integer), _ 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 중계기명 As String, _ ByVal 시공일 As String, _ ByVal 시공자 As String, _ ByVal 연락처1 As String, _ ByVal 연락처2 As String, _ ByVal 운용기관 As String, _ ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal 정렬번호 As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(출력, Boolean) If (관리ID.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (번호.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (구간명1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(구간명1, String) End If If (구간명2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(구간명2, String) End If If (구간명3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(구간명3, String) End If If (전주번호1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(전주번호1, String) End If If (전주번호2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(전주번호2, String) End If If (전주번호3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(전주번호3, String) End If If (규격 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(규격, String) End If If (중계기명 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(중계기명, String) End If If (시공일 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(시공일, String) End If If (시공자 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(시공자, String) End If If (연락처1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(연락처1, String) End If If (연락처2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(연락처2, String) End If If (운용기관 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(운용기관, String) End If If (rowid.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(rowid.Value, System.Guid) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (정렬번호 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(정렬번호, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal 출력 As Boolean, _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of Integer), _ 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 중계기명 As String, _ ByVal 시공일 As String, _ ByVal 시공자 As String, _ ByVal 연락처1 As String, _ ByVal 연락처2 As String, _ ByVal 운용기관 As String, _ ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal 정렬번호 As String, _ ByVal Original_출력 As Boolean, _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_구간명1 As String, _ ByVal Original_구간명2 As String, _ ByVal Original_구간명3 As String, _ ByVal Original_전주번호1 As String, _ ByVal Original_전주번호2 As String, _ ByVal Original_전주번호3 As String, _ ByVal Original_규격 As String, _ ByVal Original_중계기명 As String, _ ByVal Original_시공일 As String, _ ByVal Original_시공자 As String, _ ByVal Original_연락처1 As String, _ ByVal Original_연락처2 As String, _ ByVal Original_운용기관 As String, _ ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_정렬번호 As String) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(출력, Boolean) If (관리ID.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (번호.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (구간명1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(구간명1, String) End If If (구간명2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(구간명2, String) End If If (구간명3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(구간명3, String) End If If (전주번호1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(전주번호1, String) End If If (전주번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(전주번호2, String) End If If (전주번호3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(전주번호3, String) End If If (규격 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(규격, String) End If If (중계기명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(중계기명, String) End If If (시공일 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(시공일, String) End If If (시공자 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(시공자, String) End If If (연락처1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(연락처1, String) End If If (연락처2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(연락처2, String) End If If (운용기관 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(운용기관, String) End If If (rowid.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(rowid.Value, System.Guid) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (정렬번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(정렬번호, String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_출력, Boolean) If (Original_관리ID.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_관리ID.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (Original_번호.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_번호.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_구간명1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_구간명1, String) End If If (Original_구간명2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_구간명2, String) End If If (Original_구간명3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_구간명3, String) End If If (Original_전주번호1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_전주번호1, String) End If If (Original_전주번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_전주번호2, String) End If If (Original_전주번호3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_전주번호3, String) End If If (Original_규격 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_규격, String) End If If (Original_중계기명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_중계기명, String) End If If (Original_시공일 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_시공일, String) End If If (Original_시공자 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_시공자, String) End If If (Original_연락처1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_연락처1, String) End If If (Original_연락처2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_연락처2, String) End If If (Original_운용기관 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_운용기관, String) End If If (Original_rowid.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_rowid.Value, System.Guid) Else Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value End If If (Original_정렬번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_정렬번호, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal 출력 As Boolean, _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of Integer), _ 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 중계기명 As String, _ ByVal 시공일 As String, _ ByVal 시공자 As String, _ ByVal 연락처1 As String, _ ByVal 연락처2 As String, _ ByVal 운용기관 As String, _ ByVal 정렬번호 As String, _ ByVal Original_출력 As Boolean, _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_구간명1 As String, _ ByVal Original_구간명2 As String, _ ByVal Original_구간명3 As String, _ ByVal Original_전주번호1 As String, _ ByVal Original_전주번호2 As String, _ ByVal Original_전주번호3 As String, _ ByVal Original_규격 As String, _ ByVal Original_중계기명 As String, _ ByVal Original_시공일 As String, _ ByVal Original_시공자 As String, _ ByVal Original_연락처1 As String, _ ByVal Original_연락처2 As String, _ ByVal Original_운용기관 As String, _ ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_정렬번호 As String) As Integer Return Me.Update(출력, 관리ID, 번호, 구간명1, 구간명2, 구간명3, 전주번호1, 전주번호2, 전주번호3, 규격, 중계기명, 시공일, 시공자, 연락처1, 연락처2, 운용기관, Original_rowid, 정렬번호, Original_출력, Original_관리ID, Original_번호, Original_구간명1, Original_구간명2, Original_구간명3, Original_전주번호1, Original_전주번호2, Original_전주번호3, Original_규격, Original_중계기명, Original_시공일, Original_시공자, Original_연락처1, Original_연락처2, Original_운용기관, Original_rowid, Original_정렬번호) End Function _ Public Overridable Overloads Function DeleteQuery(ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1) If (관리ID.HasValue = True) Then command.Parameters(0).Value = CType(관리ID.Value, Integer) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open() End If Dim returnValue As Integer Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close() End If End Try Return returnValue End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Detail_KaroTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter Private _connection As Global.System.Data.OleDb.OleDbConnection Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Private ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.OleDb.OleDbConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "Detail_Karo" tableMapping.ColumnMappings.Add("rowid", "rowid") tableMapping.ColumnMappings.Add("gid", "관리ID") tableMapping.ColumnMappings.Add("print", "출력") tableMapping.ColumnMappings.Add("seq", "번호") tableMapping.ColumnMappings.Add("area2", "area2") tableMapping.ColumnMappings.Add("area1", "area1") tableMapping.ColumnMappings.Add("f1", "f1") tableMapping.ColumnMappings.Add("m1", "m1") tableMapping.ColumnMappings.Add("m2", "m2") tableMapping.ColumnMappings.Add("tel1", "tel1") tableMapping.ColumnMappings.Add("tel2", "tel2") tableMapping.ColumnMappings.Add("bigo1", "bigo1") tableMapping.ColumnMappings.Add("bigo2", "bigo2") tableMapping.ColumnMappings.Add("bigo3", "bigo3") tableMapping.ColumnMappings.Add("sortkey", "정렬번호") tableMapping.ColumnMappings.Add("QRCODE", "QRCODE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM Detail_Karo" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (rowid = ?)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 1024, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_Karo` (`rowid`, `gid`, `print`, `seq`, `area2`, `area1`, `f1`" & _ ", `m1`, `m2`, `tel1`, `tel2`, `bigo1`, `bigo2`, `bigo3`, `sortkey`, `QRCODE`) VA" & _ "LUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("gid", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "gid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("print", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "print", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("seq", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "seq", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("area2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "area2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("area1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "area1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("f1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "f1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("m1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "m1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("m2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "m2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("tel1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "tel1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("tel2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "tel2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("bigo1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bigo1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("bigo2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bigo2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("bigo3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bigo3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("sortkey", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "sortkey", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("QRCODE", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "QRCODE", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE Detail_Karo" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET rowid = ?, gid = ?, print = ?, seq = ?, area2 = ?," & _ " area1 = ?, f1 = ?, m1 = ?, m2 = ?, tel1 = ?, tel2 = ?, bigo1 = ?, bigo2 = ?, bi" & _ "go3 = ?, sortkey = ?, QRCODE = ?" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (rowid = ?)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 1024, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("gid", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "gid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("print", Global.System.Data.OleDb.OleDbType.[Boolean], 2, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "print", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("seq", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "seq", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("area2", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "area2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("area1", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "area1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("f1", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "f1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("m1", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "m1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("m2", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "m2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("tel1", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "tel1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("tel2", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "tel2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("bigo1", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bigo1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("bigo2", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bigo2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("bigo3", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "bigo3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("sortkey", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "sortkey", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("QRCODE", Global.System.Data.OleDb.OleDbType.WChar, 200, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "QRCODE", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 1024, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Original, False, Nothing)) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.OleDb.OleDbConnection() Me._connection.ConnectionString = Global.EpoleNetv3.My.MySettings.Default.ireaConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {} Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT rowid, gid, print, seq, area2, area1, f1, m1, m2, tel1, tel2, bigo1, bigo" & _ "2, bigo3, sortkey, QRCODE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM Detail_Karo" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (gid = ?)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("gid", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "gid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "DELETE FROM Detail_Karo" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE gid = ?" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("gid", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "gid", Global.System.Data.DataRowVersion.Original, False, Nothing)) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As ireaDataSet.Detail_KaroDataTable, ByVal gid As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (gid.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(gid.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal gid As Global.System.Nullable(Of Integer)) As ireaDataSet.Detail_KaroDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (gid.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(gid.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If Dim dataTable As ireaDataSet.Detail_KaroDataTable = New ireaDataSet.Detail_KaroDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As ireaDataSet.Detail_KaroDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As ireaDataSet) As Integer Return Me.Adapter.Update(dataSet, "Detail_Karo") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete(ByVal rowid As Object) As Integer If (rowid Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(rowid, Object) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert( _ ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal gid As Global.System.Nullable(Of Integer), _ ByVal print As Boolean, _ ByVal seq As Global.System.Nullable(Of Integer), _ ByVal area2 As String, _ ByVal area1 As String, _ ByVal f1 As String, _ ByVal m1 As String, _ ByVal m2 As String, _ ByVal tel1 As String, _ ByVal tel2 As String, _ ByVal bigo1 As String, _ ByVal bigo2 As String, _ ByVal bigo3 As String, _ ByVal sortkey As String, _ ByVal QRCODE As String) As Integer If (rowid.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value, System.Guid) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (gid.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(gid.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(print, Boolean) If (seq.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(seq.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (area2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(area2, String) End If If (area1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(area1, String) End If If (f1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(f1, String) End If If (m1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(m1, String) End If If (m2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(m2, String) End If If (tel1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(tel1, String) End If If (tel2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(tel2, String) End If If (bigo1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(bigo1, String) End If If (bigo2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(bigo2, String) End If If (bigo3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(bigo3, String) End If If (sortkey Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(sortkey, String) End If If (QRCODE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(QRCODE, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal rowid As Object, _ ByVal gid As Global.System.Nullable(Of Integer), _ ByVal print As Boolean, _ ByVal seq As Global.System.Nullable(Of Integer), _ ByVal area2 As String, _ ByVal area1 As String, _ ByVal f1 As String, _ ByVal m1 As String, _ ByVal m2 As String, _ ByVal tel1 As String, _ ByVal tel2 As String, _ ByVal bigo1 As String, _ ByVal bigo2 As String, _ ByVal bigo3 As String, _ ByVal sortkey As String, _ ByVal QRCODE As String, _ ByVal Original_rowid As Object) As Integer If (rowid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid, Object) End If If (gid.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(gid.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(print, Boolean) If (seq.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(seq.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (area2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(area2, String) End If If (area1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(area1, String) End If If (f1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(f1, String) End If If (m1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(m1, String) End If If (m2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(m2, String) End If If (tel1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(tel1, String) End If If (tel2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(tel2, String) End If If (bigo1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(bigo1, String) End If If (bigo2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(bigo2, String) End If If (bigo3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(bigo3, String) End If If (sortkey Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(sortkey, String) End If If (QRCODE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(QRCODE, String) End If If (Original_rowid Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_rowid, Object) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal gid As Global.System.Nullable(Of Integer), _ ByVal print As Boolean, _ ByVal seq As Global.System.Nullable(Of Integer), _ ByVal area2 As String, _ ByVal area1 As String, _ ByVal f1 As String, _ ByVal m1 As String, _ ByVal m2 As String, _ ByVal tel1 As String, _ ByVal tel2 As String, _ ByVal bigo1 As String, _ ByVal bigo2 As String, _ ByVal bigo3 As String, _ ByVal sortkey As String, _ ByVal QRCODE As String, _ ByVal Original_rowid As Object) As Integer Return Me.Update(Original_rowid, gid, print, seq, area2, area1, f1, m1, m2, tel1, tel2, bigo1, bigo2, bigo3, sortkey, QRCODE, Original_rowid) End Function _ Public Overridable Overloads Function DeleteQuery(ByVal gid As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1) If (gid.HasValue = True) Then command.Parameters(0).Value = CType(gid.Value, Integer) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open() End If Dim returnValue As Integer Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close() End If End Try Return returnValue End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class Detail_DeungTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter Private _connection As Global.System.Data.OleDb.OleDbConnection Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New() Me.ClearBeforeFill = True End Sub _ Private ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter() End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection Get If (Me._connection Is Nothing) Then Me.InitConnection() End If Return Me._connection End Get Set(value As Global.System.Data.OleDb.OleDbConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i), Global.System.Data.OleDb.OleDbCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set(value As Boolean) Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "Detail_Deung" tableMapping.ColumnMappings.Add("rowid", "rowid") tableMapping.ColumnMappings.Add("관리ID", "관리ID") tableMapping.ColumnMappings.Add("번호", "번호") tableMapping.ColumnMappings.Add("출력", "출력") tableMapping.ColumnMappings.Add("고객번호1", "고객번호1") tableMapping.ColumnMappings.Add("고객번호2", "고객번호2") tableMapping.ColumnMappings.Add("고객번호3", "고객번호3") tableMapping.ColumnMappings.Add("관리번호1", "관리번호1") tableMapping.ColumnMappings.Add("관리번호2", "관리번호2") tableMapping.ColumnMappings.Add("관리번호3", "관리번호3") tableMapping.ColumnMappings.Add("지점명", "지점명") tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_Deung` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) O" & _ "R (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `출력" & _ "` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `고객번호1` IS NULL) OR (`고객번호1` = ?)) AND" & _ " ((? = 1 AND `고객번호2` IS NULL) OR (`고객번호2` = ?)) AND ((? = 1 AND `고객번호3` IS NULL)" & _ " OR (`고객번호3` = ?)) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = " & _ "1 AND `관리번호2` IS NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `관리번호3` IS NULL) OR (`관" & _ "리번호3` = ?)) AND ((? = 1 AND `지점명` IS NULL) OR (`지점명` = ?)) AND ((? = 1 AND `정렬번호" & _ "` IS NULL) OR (`정렬번호` = ?)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_지점명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "지점명", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "지점명", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_Deung` (`rowid`, `관리ID`, `번호`, `출력`, `고객번호1`, `고객번호2`, `고객번호3" & _ "`, `관리번호1`, `관리번호2`, `관리번호3`, `지점명`, `정렬번호`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, " & _ "?, ?, ?)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "지점명", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_Deung` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `출력` = ?, `고객번호1` = " & _ "?, `고객번호2` = ?, `고객번호3` = ?, `관리번호1` = ?, `관리번호2` = ?, `관리번호3` = ?, `지점명` = ?, `" & _ "정렬번호` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) " & _ "AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`" & _ "출력` = ?)) AND ((? = 1 AND `고객번호1` IS NULL) OR (`고객번호1` = ?)) AND ((? = 1 AND `고객" & _ "번호2` IS NULL) OR (`고객번호2` = ?)) AND ((? = 1 AND `고객번호3` IS NULL) OR (`고객번호3` = ?" & _ ")) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2` IS" & _ " NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `관리번호3` IS NULL) OR (`관리번호3` = ?)) AND " & _ "((? = 1 AND `지점명` IS NULL) OR (`지점명` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`" & _ "정렬번호` = ?)))" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호1", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호2", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호3", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "지점명", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "rowid", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "출력", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_지점명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "지점명", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "지점명", Global.System.Data.DataRowVersion.Original, False, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, True, Nothing)) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, False, Nothing)) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.OleDb.OleDbConnection() Me._connection.ConnectionString = Global.EpoleNetv3.My.MySettings.Default.ireaConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {} Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 출력, 고객번호1, 고객번호2, 고객번호3, 관리번호1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 관리번호2" & _ ", 관리번호3, 지점명, 정렬번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM Detail_Deung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (관리ID = ?)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Current, False, Nothing)) Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "DELETE FROM `Detail_Deung` WHERE 관리id = ?" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "관리ID", Global.System.Data.DataRowVersion.Original, False, Nothing)) End Sub _ Public Overridable Overloads Function Fill(ByVal dataTable As ireaDataSet.Detail_DeungDataTable, ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (관리ID.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overridable Overloads Function GetData(ByVal 관리ID As Global.System.Nullable(Of Integer)) As ireaDataSet.Detail_DeungDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (관리ID.HasValue = True) Then Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value, Integer) Else Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value End If Dim dataTable As ireaDataSet.Detail_DeungDataTable = New ireaDataSet.Detail_DeungDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overridable Overloads Function Update(ByVal dataTable As ireaDataSet.Detail_DeungDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overridable Overloads Function Update(ByVal dataSet As ireaDataSet) As Integer Return Me.Adapter.Update(dataSet, "Detail_Deung") End Function _ Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overridable Overloads Function Delete(ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), ByVal Original_관리ID As Global.System.Nullable(Of Integer), ByVal Original_번호 As Global.System.Nullable(Of Integer), ByVal Original_출력 As Boolean, ByVal Original_고객번호1 As String, ByVal Original_고객번호2 As String, ByVal Original_고객번호3 As String, ByVal Original_관리번호1 As String, ByVal Original_관리번호2 As String, ByVal Original_관리번호3 As String, ByVal Original_지점명 As String, ByVal Original_정렬번호 As String) As Integer If (Original_rowid.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value, System.Guid) Else Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (Original_관리ID.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value, Integer) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_번호.HasValue = True) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value, Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_출력, Boolean) If (Original_고객번호1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_고객번호1, String) End If If (Original_고객번호2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_고객번호2, String) End If If (Original_고객번호3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_고객번호3, String) End If If (Original_관리번호1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_관리번호1, String) End If If (Original_관리번호2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_관리번호2, String) End If If (Original_관리번호3 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_관리번호3, String) End If If (Original_지점명 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_지점명, String) End If If (Original_정렬번호 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1, Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0, Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_정렬번호, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Insert(ByVal rowid As Global.System.Nullable(Of Global.System.Guid), ByVal 관리ID As Global.System.Nullable(Of Integer), ByVal 번호 As Global.System.Nullable(Of Integer), ByVal 출력 As Boolean, 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 정렬번호 As String) As Integer If (rowid.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value, System.Guid) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (관리ID.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (번호.HasValue = True) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value, Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(출력, Boolean) If (고객번호1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(고객번호1, String) End If If (고객번호2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(고객번호2, String) End If If (고객번호3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(고객번호3, String) End If If (관리번호1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(관리번호1, String) End If If (관리번호2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(관리번호2, String) End If If (관리번호3 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(관리번호3, String) End If If (지점명 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(지점명, String) End If If (정렬번호 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(정렬번호, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of Integer), _ ByVal 출력 As Boolean, _ 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 정렬번호 As String, _ ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_출력 As Boolean, _ ByVal Original_고객번호1 As String, _ ByVal Original_고객번호2 As String, _ ByVal Original_고객번호3 As String, _ ByVal Original_관리번호1 As String, _ ByVal Original_관리번호2 As String, _ ByVal Original_관리번호3 As String, _ ByVal Original_지점명 As String, _ ByVal Original_정렬번호 As String) As Integer If (rowid.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value, System.Guid) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (관리ID.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (번호.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(출력, Boolean) If (고객번호1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(고객번호1, String) End If If (고객번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(고객번호2, String) End If If (고객번호3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(고객번호3, String) End If If (관리번호1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(관리번호1, String) End If If (관리번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(관리번호2, String) End If If (관리번호3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(관리번호3, String) End If If (지점명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(지점명, String) End If If (정렬번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(정렬번호, String) End If If (Original_rowid.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_rowid.Value, System.Guid) Else Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_관리ID.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_관리ID.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_번호.HasValue = True) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_번호.Value, Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_출력, Boolean) If (Original_고객번호1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_고객번호1, String) End If If (Original_고객번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_고객번호2, String) End If If (Original_고객번호3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_고객번호3, String) End If If (Original_관리번호1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_관리번호1, String) End If If (Original_관리번호2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_관리번호2, String) End If If (Original_관리번호3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_관리번호3, String) End If If (Original_지점명 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_지점명, String) End If If (Original_정렬번호 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1, Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0, Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_정렬번호, String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open() End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function _ Public Overridable Overloads Function Update( _ ByVal 관리ID As Global.System.Nullable(Of Integer), _ ByVal 번호 As Global.System.Nullable(Of Integer), _ ByVal 출력 As Boolean, _ 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 정렬번호 As String, _ ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ ByVal Original_번호 As Global.System.Nullable(Of Integer), _ ByVal Original_출력 As Boolean, _ ByVal Original_고객번호1 As String, _ ByVal Original_고객번호2 As String, _ ByVal Original_고객번호3 As String, _ ByVal Original_관리번호1 As String, _ ByVal Original_관리번호2 As String, _ ByVal Original_관리번호3 As String, _ ByVal Original_지점명 As String, _ ByVal Original_정렬번호 As String) As Integer Return Me.Update(Original_rowid, 관리ID, 번호, 출력, 고객번호1, 고객번호2, 고객번호3, 관리번호1, 관리번호2, 관리번호3, 지점명, 정렬번호, Original_rowid, Original_관리ID, Original_번호, Original_출력, Original_고객번호1, Original_고객번호2, Original_고객번호3, Original_관리번호1, Original_관리번호2, Original_관리번호3, Original_지점명, Original_정렬번호) End Function _ Public Overridable Overloads Function DeleteQuery(ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1) If (관리ID.HasValue = True) Then command.Parameters(0).Value = CType(관리ID.Value, Integer) Else command.Parameters(0).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open() End If Dim returnValue As Integer Try returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close() End If End Try Return returnValue End Function End Class End Namespace