'------------------------------------------------------------------------------ ' ' 이 코드는 도구를 사용하여 생성되었습니다. ' 런타임 버전:4.0.30319.42000 ' ' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 ' 이러한 변경 내용이 손실됩니다. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class DS2 Inherits Global.System.Data.DataSet Private tablehistory As historyDataTable 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("history")) Is Nothing) Then MyBase.Tables.Add(New historyDataTable(ds.Tables("history"))) 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 history() As historyDataTable Get Return Me.tablehistory 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 DS2 = CType(MyBase.Clone,DS2) 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("history")) Is Nothing) Then MyBase.Tables.Add(New historyDataTable(ds.Tables("history"))) 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.tablehistory = CType(MyBase.Tables("history"),historyDataTable) If (initTable = true) Then If (Not (Me.tablehistory) Is Nothing) Then Me.tablehistory.InitVars End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "DS2" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DS2.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tablehistory = New historyDataTable() MyBase.Tables.Add(Me.tablehistory) End Sub _ Private Function ShouldSerializehistory() 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 DS2 = New DS2() 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 historyRowChangeEventHandler(ByVal sender As Object, ByVal e As historyRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class historyDataTable Inherits Global.System.Data.TypedTableBase(Of historyRow) Private columntime As Global.System.Data.DataColumn Private columntablename As Global.System.Data.DataColumn Private columnFieldcolumn As Global.System.Data.DataColumn Private columnovalue As Global.System.Data.DataColumn Private columnnvalue As Global.System.Data.DataColumn Private columnidx As Global.System.Data.DataColumn Private columncode As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "history" 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 timeColumn() As Global.System.Data.DataColumn Get Return Me.columntime End Get End Property _ Public ReadOnly Property tablenameColumn() As Global.System.Data.DataColumn Get Return Me.columntablename End Get End Property _ Public ReadOnly Property columnColumn() As Global.System.Data.DataColumn Get Return Me.columnFieldcolumn End Get End Property _ Public ReadOnly Property ovalueColumn() As Global.System.Data.DataColumn Get Return Me.columnovalue End Get End Property _ Public ReadOnly Property nvalueColumn() As Global.System.Data.DataColumn Get Return Me.columnnvalue End Get End Property _ Public ReadOnly Property idxColumn() As Global.System.Data.DataColumn Get Return Me.columnidx End Get End Property _ Public ReadOnly Property codeColumn() As Global.System.Data.DataColumn Get Return Me.columncode 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 historyRow Get Return CType(Me.Rows(index),historyRow) End Get End Property _ Public Event historyRowChanging As historyRowChangeEventHandler _ Public Event historyRowChanged As historyRowChangeEventHandler _ Public Event historyRowDeleting As historyRowChangeEventHandler _ Public Event historyRowDeleted As historyRowChangeEventHandler _ Public Overloads Sub AddhistoryRow(ByVal row As historyRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddhistoryRow(ByVal time As String, ByVal tablename As String, ByVal column As String, ByVal ovalue As String, ByVal nvalue As String, ByVal code As String) As historyRow Dim rowhistoryRow As historyRow = CType(Me.NewRow,historyRow) Dim columnValuesArray() As Object = New Object() {time, tablename, column, ovalue, nvalue, Nothing, code} rowhistoryRow.ItemArray = columnValuesArray Me.Rows.Add(rowhistoryRow) Return rowhistoryRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As historyDataTable = CType(MyBase.Clone,historyDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New historyDataTable() End Function _ Friend Sub InitVars() Me.columntime = MyBase.Columns("time") Me.columntablename = MyBase.Columns("tablename") Me.columnFieldcolumn = MyBase.Columns("column") Me.columnovalue = MyBase.Columns("ovalue") Me.columnnvalue = MyBase.Columns("nvalue") Me.columnidx = MyBase.Columns("idx") Me.columncode = MyBase.Columns("code") End Sub _ Private Sub InitClass() Me.columntime = New Global.System.Data.DataColumn("time", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntime) Me.columntablename = New Global.System.Data.DataColumn("tablename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntablename) Me.columnFieldcolumn = New Global.System.Data.DataColumn("column", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFieldcolumn) Me.columnovalue = New Global.System.Data.DataColumn("ovalue", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnovalue) Me.columnnvalue = New Global.System.Data.DataColumn("nvalue", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnvalue) Me.columnidx = New Global.System.Data.DataColumn("idx", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnidx) Me.columncode = New Global.System.Data.DataColumn("code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncode) Me.columntime.DefaultValue = CType("",String) Me.columntablename.DefaultValue = CType("",String) Me.columnFieldcolumn.DefaultValue = CType("",String) Me.columnovalue.DefaultValue = CType("",String) Me.columnnvalue.DefaultValue = CType("",String) Me.columnidx.AutoIncrement = true Me.columnidx.AutoIncrementSeed = 1 Me.columnidx.AllowDBNull = false Me.columncode.DefaultValue = CType("",String) End Sub _ Public Function NewhistoryRow() As historyRow Return CType(Me.NewRow,historyRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New historyRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(historyRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.historyRowChangedEvent) Is Nothing) Then RaiseEvent historyRowChanged(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.historyRowChangingEvent) Is Nothing) Then RaiseEvent historyRowChanging(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.historyRowDeletedEvent) Is Nothing) Then RaiseEvent historyRowDeleted(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.historyRowDeletingEvent) Is Nothing) Then RaiseEvent historyRowDeleting(Me, New historyRowChangeEvent(CType(e.Row,historyRow), e.Action)) End If End Sub _ Public Sub RemovehistoryRow(ByVal row As historyRow) 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 DS2 = New DS2() 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 = "historyDataTable" 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 historyRow Inherits Global.System.Data.DataRow Private tablehistory As historyDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablehistory = CType(Me.Table,historyDataTable) End Sub _ Public Property time() As String Get If Me.IstimeNull Then Return "" Else Return CType(Me(Me.tablehistory.timeColumn),String) End If End Get Set Me(Me.tablehistory.timeColumn) = value End Set End Property _ Public Property tablename() As String Get If Me.IstablenameNull Then Return "" Else Return CType(Me(Me.tablehistory.tablenameColumn),String) End If End Get Set Me(Me.tablehistory.tablenameColumn) = value End Set End Property _ Public Property column() As String Get If Me.IscolumnNull Then Return "" Else Return CType(Me(Me.tablehistory.columnColumn),String) End If End Get Set Me(Me.tablehistory.columnColumn) = value End Set End Property _ Public Property ovalue() As String Get If Me.IsovalueNull Then Return "" Else Return CType(Me(Me.tablehistory.ovalueColumn),String) End If End Get Set Me(Me.tablehistory.ovalueColumn) = value End Set End Property _ Public Property nvalue() As String Get If Me.IsnvalueNull Then Return "" Else Return CType(Me(Me.tablehistory.nvalueColumn),String) End If End Get Set Me(Me.tablehistory.nvalueColumn) = value End Set End Property _ Public Property idx() As Integer Get Return CType(Me(Me.tablehistory.idxColumn),Integer) End Get Set Me(Me.tablehistory.idxColumn) = value End Set End Property _ Public Property code() As String Get If Me.IscodeNull Then Return "" Else Return CType(Me(Me.tablehistory.codeColumn),String) End If End Get Set Me(Me.tablehistory.codeColumn) = value End Set End Property _ Public Function IstimeNull() As Boolean Return Me.IsNull(Me.tablehistory.timeColumn) End Function _ Public Sub SettimeNull() Me(Me.tablehistory.timeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstablenameNull() As Boolean Return Me.IsNull(Me.tablehistory.tablenameColumn) End Function _ Public Sub SettablenameNull() Me(Me.tablehistory.tablenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscolumnNull() As Boolean Return Me.IsNull(Me.tablehistory.columnColumn) End Function _ Public Sub SetcolumnNull() Me(Me.tablehistory.columnColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsovalueNull() As Boolean Return Me.IsNull(Me.tablehistory.ovalueColumn) End Function _ Public Sub SetovalueNull() Me(Me.tablehistory.ovalueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsnvalueNull() As Boolean Return Me.IsNull(Me.tablehistory.nvalueColumn) End Function _ Public Sub SetnvalueNull() Me(Me.tablehistory.nvalueColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscodeNull() As Boolean Return Me.IsNull(Me.tablehistory.codeColumn) End Function _ Public Sub SetcodeNull() Me(Me.tablehistory.codeColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class historyRowChangeEvent Inherits Global.System.EventArgs Private eventRow As historyRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As historyRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As historyRow 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