'------------------------------------------------------------------------------
'
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.18408
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class PatternDS
Inherits Global.System.Data.DataSet
Private tableTStyle As TStyleDataTable
Private tableTPattern As TPatternDataTable
Private tableTCheckBox As TCheckBoxDataTable
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("TStyle")) Is Nothing) Then
MyBase.Tables.Add(New TStyleDataTable(ds.Tables("TStyle")))
End If
If (Not (ds.Tables("TPattern")) Is Nothing) Then
MyBase.Tables.Add(New TPatternDataTable(ds.Tables("TPattern")))
End If
If (Not (ds.Tables("TCheckBox")) Is Nothing) Then
MyBase.Tables.Add(New TCheckBoxDataTable(ds.Tables("TCheckBox")))
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 TStyle() As TStyleDataTable
Get
Return Me.tableTStyle
End Get
End Property
_
Public ReadOnly Property TPattern() As TPatternDataTable
Get
Return Me.tableTPattern
End Get
End Property
_
Public ReadOnly Property TCheckBox() As TCheckBoxDataTable
Get
Return Me.tableTCheckBox
End Get
End Property
_
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set(value As Global.System.Data.SchemaSerializationMode)
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 PatternDS = CType(MyBase.Clone, PatternDS)
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("TStyle")) Is Nothing) Then
MyBase.Tables.Add(New TStyleDataTable(ds.Tables("TStyle")))
End If
If (Not (ds.Tables("TPattern")) Is Nothing) Then
MyBase.Tables.Add(New TPatternDataTable(ds.Tables("TPattern")))
End If
If (Not (ds.Tables("TCheckBox")) Is Nothing) Then
MyBase.Tables.Add(New TCheckBoxDataTable(ds.Tables("TCheckBox")))
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.tableTStyle = CType(MyBase.Tables("TStyle"), TStyleDataTable)
If (initTable = True) Then
If (Not (Me.tableTStyle) Is Nothing) Then
Me.tableTStyle.InitVars()
End If
End If
Me.tableTPattern = CType(MyBase.Tables("TPattern"), TPatternDataTable)
If (initTable = True) Then
If (Not (Me.tableTPattern) Is Nothing) Then
Me.tableTPattern.InitVars()
End If
End If
Me.tableTCheckBox = CType(MyBase.Tables("TCheckBox"), TCheckBoxDataTable)
If (initTable = True) Then
If (Not (Me.tableTCheckBox) Is Nothing) Then
Me.tableTCheckBox.InitVars()
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "PatternDS"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/PatternDS.xsd"
Me.EnforceConstraints = True
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTStyle = New TStyleDataTable()
MyBase.Tables.Add(Me.tableTStyle)
Me.tableTPattern = New TPatternDataTable()
MyBase.Tables.Add(Me.tableTPattern)
Me.tableTCheckBox = New TCheckBoxDataTable()
MyBase.Tables.Add(Me.tableTCheckBox)
End Sub
_
Private Function ShouldSerializeTStyle() As Boolean
Return False
End Function
_
Private Function ShouldSerializeTPattern() As Boolean
Return False
End Function
_
Private Function ShouldSerializeTCheckBox() 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 PatternDS = New PatternDS()
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 TStyleRowChangeEventHandler(ByVal sender As Object, ByVal e As TStyleRowChangeEvent)
_
Public Delegate Sub TPatternRowChangeEventHandler(ByVal sender As Object, ByVal e As TPatternRowChangeEvent)
_
Public Delegate Sub TCheckBoxRowChangeEventHandler(ByVal sender As Object, ByVal e As TCheckBoxRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TStyleDataTable
Inherits Global.System.Data.TypedTableBase(Of TStyleRow)
Private columnBACKIMG As Global.System.Data.DataColumn
Private columnCANVASX As Global.System.Data.DataColumn
Private columnCANVASY As Global.System.Data.DataColumn
Private columnDUMMY As Global.System.Data.DataColumn
Private columnDUMMYCNT As Global.System.Data.DataColumn
Private columnDUMMYTYPE As Global.System.Data.DataColumn
Private columnLANDSCAPE As Global.System.Data.DataColumn
Private columnMARGINX As Global.System.Data.DataColumn
Private columnMARGINY As Global.System.Data.DataColumn
Private columnPICSTYLE As Global.System.Data.DataColumn
Private columnPRINTFONTOFFSET As Global.System.Data.DataColumn
Private columnPRINTBG As Global.System.Data.DataColumn
Private columnSCALEX As Global.System.Data.DataColumn
Private columnSCALEY As Global.System.Data.DataColumn
Private columnBAKX As Global.System.Data.DataColumn
Private columnBAKY As Global.System.Data.DataColumn
Private columnBAKW As Global.System.Data.DataColumn
Private columnBAKH As Global.System.Data.DataColumn
Private columnVIEWIMAGE As Global.System.Data.DataColumn
Private columnFILTER As Global.System.Data.DataColumn
Private columnISXML As Global.System.Data.DataColumn
Private columnDUMMMYX As Global.System.Data.DataColumn
Private columnDUMMMYY As Global.System.Data.DataColumn
Private columnQRVISION As Global.System.Data.DataColumn
Private columnQRENCODING As Global.System.Data.DataColumn
Private columnQRLEVEL As Global.System.Data.DataColumn
Private columnFILE As Global.System.Data.DataColumn
Private columnDESC As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New()
Me.TableName = "TStyle"
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 BACKIMGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBACKIMG
End Get
End Property
_
Public ReadOnly Property CANVASXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCANVASX
End Get
End Property
_
Public ReadOnly Property CANVASYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCANVASY
End Get
End Property
_
Public ReadOnly Property DUMMYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDUMMY
End Get
End Property
_
Public ReadOnly Property DUMMYCNTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDUMMYCNT
End Get
End Property
_
Public ReadOnly Property DUMMYTYPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDUMMYTYPE
End Get
End Property
_
Public ReadOnly Property LANDSCAPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLANDSCAPE
End Get
End Property
_
Public ReadOnly Property MARGINXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMARGINX
End Get
End Property
_
Public ReadOnly Property MARGINYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMARGINY
End Get
End Property
_
Public ReadOnly Property PICSTYLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPICSTYLE
End Get
End Property
_
Public ReadOnly Property PRINTFONTOFFSETColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPRINTFONTOFFSET
End Get
End Property
_
Public ReadOnly Property PRINTBGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPRINTBG
End Get
End Property
_
Public ReadOnly Property SCALEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSCALEX
End Get
End Property
_
Public ReadOnly Property SCALEYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSCALEY
End Get
End Property
_
Public ReadOnly Property BAKXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBAKX
End Get
End Property
_
Public ReadOnly Property BAKYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBAKY
End Get
End Property
_
Public ReadOnly Property BAKWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBAKW
End Get
End Property
_
Public ReadOnly Property BAKHColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBAKH
End Get
End Property
_
Public ReadOnly Property VIEWIMAGEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVIEWIMAGE
End Get
End Property
_
Public ReadOnly Property FILTERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFILTER
End Get
End Property
_
Public ReadOnly Property ISXMLColumn() As Global.System.Data.DataColumn
Get
Return Me.columnISXML
End Get
End Property
_
Public ReadOnly Property DUMMMYXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDUMMMYX
End Get
End Property
_
Public ReadOnly Property DUMMMYYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDUMMMYY
End Get
End Property
_
Public ReadOnly Property QRVISIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQRVISION
End Get
End Property
_
Public ReadOnly Property QRENCODINGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQRENCODING
End Get
End Property
_
Public ReadOnly Property QRLEVELColumn() As Global.System.Data.DataColumn
Get
Return Me.columnQRLEVEL
End Get
End Property
_
Public ReadOnly Property FILEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFILE
End Get
End Property
_
Public ReadOnly Property DESCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDESC
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Default Public ReadOnly Property Item(ByVal index As Integer) As TStyleRow
Get
Return CType(Me.Rows(index), TStyleRow)
End Get
End Property
_
Public Event TStyleRowChanging As TStyleRowChangeEventHandler
_
Public Event TStyleRowChanged As TStyleRowChangeEventHandler
_
Public Event TStyleRowDeleting As TStyleRowChangeEventHandler
_
Public Event TStyleRowDeleted As TStyleRowChangeEventHandler
_
Public Overloads Sub AddTStyleRow(ByVal row As TStyleRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTStyleRow( _
ByVal BACKIMG As String, _
ByVal CANVASX As String, _
ByVal CANVASY As String, _
ByVal DUMMY As String, _
ByVal DUMMYCNT As String, _
ByVal DUMMYTYPE As String, _
ByVal LANDSCAPE As String, _
ByVal MARGINX As String, _
ByVal MARGINY As String, _
ByVal PICSTYLE As String, _
ByVal PRINTFONTOFFSET As String, _
ByVal PRINTBG As String, _
ByVal SCALEX As String, _
ByVal SCALEY As String, _
ByVal BAKX As String, _
ByVal BAKY As String, _
ByVal BAKW As String, _
ByVal BAKH As String, _
ByVal VIEWIMAGE As String, _
ByVal FILTER As String, _
ByVal ISXML As Boolean, _
ByVal DUMMMYX As String, _
ByVal DUMMMYY As String, _
ByVal QRVISION As String, _
ByVal QRENCODING As String, _
ByVal QRLEVEL As String, _
ByVal FILE As String, _
ByVal DESC As String) As TStyleRow
Dim rowTStyleRow As TStyleRow = CType(Me.NewRow, TStyleRow)
Dim columnValuesArray() As Object = New Object() {BACKIMG, CANVASX, CANVASY, DUMMY, DUMMYCNT, DUMMYTYPE, LANDSCAPE, MARGINX, MARGINY, PICSTYLE, PRINTFONTOFFSET, PRINTBG, SCALEX, SCALEY, BAKX, BAKY, BAKW, BAKH, VIEWIMAGE, FILTER, ISXML, DUMMMYX, DUMMMYY, QRVISION, QRENCODING, QRLEVEL, FILE, DESC}
rowTStyleRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTStyleRow)
Return rowTStyleRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TStyleDataTable = CType(MyBase.Clone, TStyleDataTable)
cln.InitVars()
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TStyleDataTable()
End Function
_
Friend Sub InitVars()
Me.columnBACKIMG = MyBase.Columns("BACKIMG")
Me.columnCANVASX = MyBase.Columns("CANVASX")
Me.columnCANVASY = MyBase.Columns("CANVASY")
Me.columnDUMMY = MyBase.Columns("DUMMY")
Me.columnDUMMYCNT = MyBase.Columns("DUMMYCNT")
Me.columnDUMMYTYPE = MyBase.Columns("DUMMYTYPE")
Me.columnLANDSCAPE = MyBase.Columns("LANDSCAPE")
Me.columnMARGINX = MyBase.Columns("MARGINX")
Me.columnMARGINY = MyBase.Columns("MARGINY")
Me.columnPICSTYLE = MyBase.Columns("PICSTYLE")
Me.columnPRINTFONTOFFSET = MyBase.Columns("PRINTFONTOFFSET")
Me.columnPRINTBG = MyBase.Columns("PRINTBG")
Me.columnSCALEX = MyBase.Columns("SCALEX")
Me.columnSCALEY = MyBase.Columns("SCALEY")
Me.columnBAKX = MyBase.Columns("BAKX")
Me.columnBAKY = MyBase.Columns("BAKY")
Me.columnBAKW = MyBase.Columns("BAKW")
Me.columnBAKH = MyBase.Columns("BAKH")
Me.columnVIEWIMAGE = MyBase.Columns("VIEWIMAGE")
Me.columnFILTER = MyBase.Columns("FILTER")
Me.columnISXML = MyBase.Columns("ISXML")
Me.columnDUMMMYX = MyBase.Columns("DUMMMYX")
Me.columnDUMMMYY = MyBase.Columns("DUMMMYY")
Me.columnQRVISION = MyBase.Columns("QRVISION")
Me.columnQRENCODING = MyBase.Columns("QRENCODING")
Me.columnQRLEVEL = MyBase.Columns("QRLEVEL")
Me.columnFILE = MyBase.Columns("FILE")
Me.columnDESC = MyBase.Columns("DESC")
End Sub
_
Private Sub InitClass()
Me.columnBACKIMG = New Global.System.Data.DataColumn("BACKIMG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBACKIMG)
Me.columnCANVASX = New Global.System.Data.DataColumn("CANVASX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCANVASX)
Me.columnCANVASY = New Global.System.Data.DataColumn("CANVASY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCANVASY)
Me.columnDUMMY = New Global.System.Data.DataColumn("DUMMY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDUMMY)
Me.columnDUMMYCNT = New Global.System.Data.DataColumn("DUMMYCNT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDUMMYCNT)
Me.columnDUMMYTYPE = New Global.System.Data.DataColumn("DUMMYTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDUMMYTYPE)
Me.columnLANDSCAPE = New Global.System.Data.DataColumn("LANDSCAPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLANDSCAPE)
Me.columnMARGINX = New Global.System.Data.DataColumn("MARGINX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMARGINX)
Me.columnMARGINY = New Global.System.Data.DataColumn("MARGINY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMARGINY)
Me.columnPICSTYLE = New Global.System.Data.DataColumn("PICSTYLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPICSTYLE)
Me.columnPRINTFONTOFFSET = New Global.System.Data.DataColumn("PRINTFONTOFFSET", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPRINTFONTOFFSET)
Me.columnPRINTBG = New Global.System.Data.DataColumn("PRINTBG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPRINTBG)
Me.columnSCALEX = New Global.System.Data.DataColumn("SCALEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSCALEX)
Me.columnSCALEY = New Global.System.Data.DataColumn("SCALEY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSCALEY)
Me.columnBAKX = New Global.System.Data.DataColumn("BAKX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBAKX)
Me.columnBAKY = New Global.System.Data.DataColumn("BAKY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBAKY)
Me.columnBAKW = New Global.System.Data.DataColumn("BAKW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBAKW)
Me.columnBAKH = New Global.System.Data.DataColumn("BAKH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBAKH)
Me.columnVIEWIMAGE = New Global.System.Data.DataColumn("VIEWIMAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVIEWIMAGE)
Me.columnFILTER = New Global.System.Data.DataColumn("FILTER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFILTER)
Me.columnISXML = New Global.System.Data.DataColumn("ISXML", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnISXML)
Me.columnDUMMMYX = New Global.System.Data.DataColumn("DUMMMYX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDUMMMYX)
Me.columnDUMMMYY = New Global.System.Data.DataColumn("DUMMMYY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDUMMMYY)
Me.columnQRVISION = New Global.System.Data.DataColumn("QRVISION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQRVISION)
Me.columnQRENCODING = New Global.System.Data.DataColumn("QRENCODING", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQRENCODING)
Me.columnQRLEVEL = New Global.System.Data.DataColumn("QRLEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnQRLEVEL)
Me.columnFILE = New Global.System.Data.DataColumn("FILE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFILE)
Me.columnDESC = New Global.System.Data.DataColumn("DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDESC)
Me.columnCANVASX.Caption = "FILE"
Me.columnCANVASY.Caption = "DESC"
Me.columnDUMMY.Caption = "BACKIMG"
Me.columnDUMMYCNT.Caption = "FILE"
Me.columnDUMMYTYPE.Caption = "DESC"
Me.columnLANDSCAPE.Caption = "BACKIMG"
Me.columnMARGINX.Caption = "FILE"
Me.columnMARGINY.Caption = "DESC"
Me.columnPICSTYLE.Caption = "BACKIMG"
Me.columnPRINTFONTOFFSET.Caption = "FILE"
Me.columnPRINTBG.Caption = "DESC"
Me.columnSCALEX.Caption = "BACKIMG"
Me.columnSCALEY.Caption = "FILE"
Me.columnBAKX.Caption = "DESC"
Me.columnBAKY.Caption = "BACKIMG"
Me.columnBAKW.Caption = "FILE"
Me.columnBAKH.Caption = "DESC"
Me.columnVIEWIMAGE.Caption = "BACKIMG"
Me.columnFILTER.Caption = "FILE"
Me.columnQRVISION.DefaultValue = CType("", String)
Me.columnQRENCODING.DefaultValue = CType("", String)
Me.columnQRLEVEL.DefaultValue = CType("", String)
Me.columnFILE.DefaultValue = CType("", String)
Me.columnDESC.DefaultValue = CType("", String)
End Sub
_
Public Function NewTStyleRow() As TStyleRow
Return CType(Me.NewRow, TStyleRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TStyleRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TStyleRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TStyleRowChangedEvent) Is Nothing) Then
RaiseEvent TStyleRowChanged(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TStyleRowChangingEvent) Is Nothing) Then
RaiseEvent TStyleRowChanging(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TStyleRowDeletedEvent) Is Nothing) Then
RaiseEvent TStyleRowDeleted(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TStyleRowDeletingEvent) Is Nothing) Then
RaiseEvent TStyleRowDeleting(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action))
End If
End Sub
_
Public Sub RemoveTStyleRow(ByVal row As TStyleRow)
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 PatternDS = New PatternDS()
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 = "TStyleDataTable"
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 TPatternDataTable
Inherits Global.System.Data.TypedTableBase(Of TPatternRow)
Private columnNAME As Global.System.Data.DataColumn
Private columnVal As Global.System.Data.DataColumn
Private columnOBJ As Global.System.Data.DataColumn
Private columnPAT As Global.System.Data.DataColumn
Private columnCAT As Global.System.Data.DataColumn
Private columnPVAL As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New()
Me.TableName = "TPattern"
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 NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
_
Public ReadOnly Property ValColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVal
End Get
End Property
_
Public ReadOnly Property OBJColumn() As Global.System.Data.DataColumn
Get
Return Me.columnOBJ
End Get
End Property
_
Public ReadOnly Property PATColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPAT
End Get
End Property
_
Public ReadOnly Property CATColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCAT
End Get
End Property
_
Public ReadOnly Property PVALColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPVAL
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Default Public ReadOnly Property Item(ByVal index As Integer) As TPatternRow
Get
Return CType(Me.Rows(index), TPatternRow)
End Get
End Property
_
Public Event TPatternRowChanging As TPatternRowChangeEventHandler
_
Public Event TPatternRowChanged As TPatternRowChangeEventHandler
_
Public Event TPatternRowDeleting As TPatternRowChangeEventHandler
_
Public Event TPatternRowDeleted As TPatternRowChangeEventHandler
_
Public Overloads Sub AddTPatternRow(ByVal row As TPatternRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTPatternRow(ByVal NAME As String, ByVal Val As String, ByVal OBJ As String, ByVal PAT As String, ByVal CAT As String, ByVal PVAL As String) As TPatternRow
Dim rowTPatternRow As TPatternRow = CType(Me.NewRow, TPatternRow)
Dim columnValuesArray() As Object = New Object() {NAME, Val, OBJ, PAT, CAT, PVAL}
rowTPatternRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTPatternRow)
Return rowTPatternRow
End Function
_
Public Function FindByNAMEVal(ByVal NAME As String, ByVal Val As String) As TPatternRow
Return CType(Me.Rows.Find(New Object() {NAME, Val}), TPatternRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TPatternDataTable = CType(MyBase.Clone, TPatternDataTable)
cln.InitVars()
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TPatternDataTable()
End Function
_
Friend Sub InitVars()
Me.columnNAME = MyBase.Columns("NAME")
Me.columnVal = MyBase.Columns("Val")
Me.columnOBJ = MyBase.Columns("OBJ")
Me.columnPAT = MyBase.Columns("PAT")
Me.columnCAT = MyBase.Columns("CAT")
Me.columnPVAL = MyBase.Columns("PVAL")
End Sub
_
Private Sub InitClass()
Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNAME)
Me.columnVal = New Global.System.Data.DataColumn("Val", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVal)
Me.columnOBJ = New Global.System.Data.DataColumn("OBJ", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnOBJ)
Me.columnPAT = New Global.System.Data.DataColumn("PAT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPAT)
Me.columnCAT = New Global.System.Data.DataColumn("CAT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCAT)
Me.columnPVAL = New Global.System.Data.DataColumn("PVAL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPVAL)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnNAME, Me.columnVal}, True))
Me.columnNAME.AllowDBNull = False
Me.columnVal.AllowDBNull = False
End Sub
_
Public Function NewTPatternRow() As TPatternRow
Return CType(Me.NewRow, TPatternRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TPatternRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TPatternRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TPatternRowChangedEvent) Is Nothing) Then
RaiseEvent TPatternRowChanged(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TPatternRowChangingEvent) Is Nothing) Then
RaiseEvent TPatternRowChanging(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TPatternRowDeletedEvent) Is Nothing) Then
RaiseEvent TPatternRowDeleted(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TPatternRowDeletingEvent) Is Nothing) Then
RaiseEvent TPatternRowDeleting(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action))
End If
End Sub
_
Public Sub RemoveTPatternRow(ByVal row As TPatternRow)
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 PatternDS = New PatternDS()
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 = "TPatternDataTable"
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 TCheckBoxDataTable
Inherits Global.System.Data.TypedTableBase(Of TCheckBoxRow)
Private columnName As Global.System.Data.DataColumn
Private columnVal As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New()
Me.TableName = "TCheckBox"
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 NameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnName
End Get
End Property
_
Public ReadOnly Property ValColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVal
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Default Public ReadOnly Property Item(ByVal index As Integer) As TCheckBoxRow
Get
Return CType(Me.Rows(index), TCheckBoxRow)
End Get
End Property
_
Public Event TCheckBoxRowChanging As TCheckBoxRowChangeEventHandler
_
Public Event TCheckBoxRowChanged As TCheckBoxRowChangeEventHandler
_
Public Event TCheckBoxRowDeleting As TCheckBoxRowChangeEventHandler
_
Public Event TCheckBoxRowDeleted As TCheckBoxRowChangeEventHandler
_
Public Overloads Sub AddTCheckBoxRow(ByVal row As TCheckBoxRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTCheckBoxRow(ByVal Name As String, ByVal Val As Boolean) As TCheckBoxRow
Dim rowTCheckBoxRow As TCheckBoxRow = CType(Me.NewRow, TCheckBoxRow)
Dim columnValuesArray() As Object = New Object() {Name, Val}
rowTCheckBoxRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTCheckBoxRow)
Return rowTCheckBoxRow
End Function
_
Public Function FindByName(ByVal Name As String) As TCheckBoxRow
Return CType(Me.Rows.Find(New Object() {Name}), TCheckBoxRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TCheckBoxDataTable = CType(MyBase.Clone, TCheckBoxDataTable)
cln.InitVars()
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TCheckBoxDataTable()
End Function
_
Friend Sub InitVars()
Me.columnName = MyBase.Columns("Name")
Me.columnVal = MyBase.Columns("Val")
End Sub
_
Private Sub InitClass()
Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnName)
Me.columnVal = New Global.System.Data.DataColumn("Val", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVal)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnName}, True))
Me.columnName.AllowDBNull = False
Me.columnName.Unique = True
Me.columnName.DefaultValue = CType("", String)
Me.columnVal.DefaultValue = CType(True, Boolean)
End Sub
_
Public Function NewTCheckBoxRow() As TCheckBoxRow
Return CType(Me.NewRow, TCheckBoxRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TCheckBoxRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TCheckBoxRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TCheckBoxRowChangedEvent) Is Nothing) Then
RaiseEvent TCheckBoxRowChanged(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TCheckBoxRowChangingEvent) Is Nothing) Then
RaiseEvent TCheckBoxRowChanging(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TCheckBoxRowDeletedEvent) Is Nothing) Then
RaiseEvent TCheckBoxRowDeleted(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TCheckBoxRowDeletingEvent) Is Nothing) Then
RaiseEvent TCheckBoxRowDeleting(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action))
End If
End Sub
_
Public Sub RemoveTCheckBoxRow(ByVal row As TCheckBoxRow)
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 PatternDS = New PatternDS()
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 = "TCheckBoxDataTable"
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 TStyleRow
Inherits Global.System.Data.DataRow
Private tableTStyle As TStyleDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTStyle = CType(Me.Table, TStyleDataTable)
End Sub
_
Public Property BACKIMG() As String
Get
Try
Return CType(Me(Me.tableTStyle.BACKIMGColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BACKIMG' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.BACKIMGColumn) = value
End Set
End Property
_
Public Property CANVASX() As String
Get
Try
Return CType(Me(Me.tableTStyle.CANVASXColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'CANVASX' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.CANVASXColumn) = value
End Set
End Property
_
Public Property CANVASY() As String
Get
Try
Return CType(Me(Me.tableTStyle.CANVASYColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'CANVASY' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.CANVASYColumn) = value
End Set
End Property
_
Public Property DUMMY() As String
Get
Try
Return CType(Me(Me.tableTStyle.DUMMYColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMY' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.DUMMYColumn) = value
End Set
End Property
_
Public Property DUMMYCNT() As String
Get
Try
Return CType(Me(Me.tableTStyle.DUMMYCNTColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMYCNT' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.DUMMYCNTColumn) = value
End Set
End Property
_
Public Property DUMMYTYPE() As String
Get
Try
Return CType(Me(Me.tableTStyle.DUMMYTYPEColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMYTYPE' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.DUMMYTYPEColumn) = value
End Set
End Property
_
Public Property LANDSCAPE() As String
Get
Try
Return CType(Me(Me.tableTStyle.LANDSCAPEColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'LANDSCAPE' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.LANDSCAPEColumn) = value
End Set
End Property
_
Public Property MARGINX() As String
Get
Try
Return CType(Me(Me.tableTStyle.MARGINXColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'MARGINX' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.MARGINXColumn) = value
End Set
End Property
_
Public Property MARGINY() As String
Get
Try
Return CType(Me(Me.tableTStyle.MARGINYColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'MARGINY' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.MARGINYColumn) = value
End Set
End Property
_
Public Property PICSTYLE() As String
Get
Try
Return CType(Me(Me.tableTStyle.PICSTYLEColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'PICSTYLE' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.PICSTYLEColumn) = value
End Set
End Property
_
Public Property PRINTFONTOFFSET() As String
Get
Try
Return CType(Me(Me.tableTStyle.PRINTFONTOFFSETColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'PRINTFONTOFFSET' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.PRINTFONTOFFSETColumn) = value
End Set
End Property
_
Public Property PRINTBG() As String
Get
Try
Return CType(Me(Me.tableTStyle.PRINTBGColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'PRINTBG' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.PRINTBGColumn) = value
End Set
End Property
_
Public Property SCALEX() As String
Get
Try
Return CType(Me(Me.tableTStyle.SCALEXColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'SCALEX' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.SCALEXColumn) = value
End Set
End Property
_
Public Property SCALEY() As String
Get
Try
Return CType(Me(Me.tableTStyle.SCALEYColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'SCALEY' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.SCALEYColumn) = value
End Set
End Property
_
Public Property BAKX() As String
Get
Try
Return CType(Me(Me.tableTStyle.BAKXColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKX' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.BAKXColumn) = value
End Set
End Property
_
Public Property BAKY() As String
Get
Try
Return CType(Me(Me.tableTStyle.BAKYColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKY' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.BAKYColumn) = value
End Set
End Property
_
Public Property BAKW() As String
Get
Try
Return CType(Me(Me.tableTStyle.BAKWColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKW' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.BAKWColumn) = value
End Set
End Property
_
Public Property BAKH() As String
Get
Try
Return CType(Me(Me.tableTStyle.BAKHColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKH' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.BAKHColumn) = value
End Set
End Property
_
Public Property VIEWIMAGE() As String
Get
Try
Return CType(Me(Me.tableTStyle.VIEWIMAGEColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'VIEWIMAGE' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.VIEWIMAGEColumn) = value
End Set
End Property
_
Public Property FILTER() As String
Get
Try
Return CType(Me(Me.tableTStyle.FILTERColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'FILTER' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.FILTERColumn) = value
End Set
End Property
_
Public Property ISXML() As Boolean
Get
Try
Return CType(Me(Me.tableTStyle.ISXMLColumn), Boolean)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'ISXML' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As Boolean)
Me(Me.tableTStyle.ISXMLColumn) = value
End Set
End Property
_
Public Property DUMMMYX() As String
Get
Try
Return CType(Me(Me.tableTStyle.DUMMMYXColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMMYX' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.DUMMMYXColumn) = value
End Set
End Property
_
Public Property DUMMMYY() As String
Get
Try
Return CType(Me(Me.tableTStyle.DUMMMYYColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMMYY' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTStyle.DUMMMYYColumn) = value
End Set
End Property
_
Public Property QRVISION() As String
Get
If Me.IsQRVISIONNull Then
Return String.Empty
Else
Return CType(Me(Me.tableTStyle.QRVISIONColumn), String)
End If
End Get
Set(value As String)
Me(Me.tableTStyle.QRVISIONColumn) = value
End Set
End Property
_
Public Property QRENCODING() As String
Get
If Me.IsQRENCODINGNull Then
Return String.Empty
Else
Return CType(Me(Me.tableTStyle.QRENCODINGColumn), String)
End If
End Get
Set(value As String)
Me(Me.tableTStyle.QRENCODINGColumn) = value
End Set
End Property
_
Public Property QRLEVEL() As String
Get
If Me.IsQRLEVELNull Then
Return String.Empty
Else
Return CType(Me(Me.tableTStyle.QRLEVELColumn), String)
End If
End Get
Set(value As String)
Me(Me.tableTStyle.QRLEVELColumn) = value
End Set
End Property
_
Public Property FILE() As String
Get
If Me.IsFILENull Then
Return String.Empty
Else
Return CType(Me(Me.tableTStyle.FILEColumn), String)
End If
End Get
Set(value As String)
Me(Me.tableTStyle.FILEColumn) = value
End Set
End Property
_
Public Property DESC() As String
Get
If Me.IsDESCNull Then
Return String.Empty
Else
Return CType(Me(Me.tableTStyle.DESCColumn), String)
End If
End Get
Set(value As String)
Me(Me.tableTStyle.DESCColumn) = value
End Set
End Property
_
Public Function IsBACKIMGNull() As Boolean
Return Me.IsNull(Me.tableTStyle.BACKIMGColumn)
End Function
_
Public Sub SetBACKIMGNull()
Me(Me.tableTStyle.BACKIMGColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCANVASXNull() As Boolean
Return Me.IsNull(Me.tableTStyle.CANVASXColumn)
End Function
_
Public Sub SetCANVASXNull()
Me(Me.tableTStyle.CANVASXColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCANVASYNull() As Boolean
Return Me.IsNull(Me.tableTStyle.CANVASYColumn)
End Function
_
Public Sub SetCANVASYNull()
Me(Me.tableTStyle.CANVASYColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDUMMYNull() As Boolean
Return Me.IsNull(Me.tableTStyle.DUMMYColumn)
End Function
_
Public Sub SetDUMMYNull()
Me(Me.tableTStyle.DUMMYColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDUMMYCNTNull() As Boolean
Return Me.IsNull(Me.tableTStyle.DUMMYCNTColumn)
End Function
_
Public Sub SetDUMMYCNTNull()
Me(Me.tableTStyle.DUMMYCNTColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDUMMYTYPENull() As Boolean
Return Me.IsNull(Me.tableTStyle.DUMMYTYPEColumn)
End Function
_
Public Sub SetDUMMYTYPENull()
Me(Me.tableTStyle.DUMMYTYPEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsLANDSCAPENull() As Boolean
Return Me.IsNull(Me.tableTStyle.LANDSCAPEColumn)
End Function
_
Public Sub SetLANDSCAPENull()
Me(Me.tableTStyle.LANDSCAPEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsMARGINXNull() As Boolean
Return Me.IsNull(Me.tableTStyle.MARGINXColumn)
End Function
_
Public Sub SetMARGINXNull()
Me(Me.tableTStyle.MARGINXColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsMARGINYNull() As Boolean
Return Me.IsNull(Me.tableTStyle.MARGINYColumn)
End Function
_
Public Sub SetMARGINYNull()
Me(Me.tableTStyle.MARGINYColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPICSTYLENull() As Boolean
Return Me.IsNull(Me.tableTStyle.PICSTYLEColumn)
End Function
_
Public Sub SetPICSTYLENull()
Me(Me.tableTStyle.PICSTYLEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPRINTFONTOFFSETNull() As Boolean
Return Me.IsNull(Me.tableTStyle.PRINTFONTOFFSETColumn)
End Function
_
Public Sub SetPRINTFONTOFFSETNull()
Me(Me.tableTStyle.PRINTFONTOFFSETColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPRINTBGNull() As Boolean
Return Me.IsNull(Me.tableTStyle.PRINTBGColumn)
End Function
_
Public Sub SetPRINTBGNull()
Me(Me.tableTStyle.PRINTBGColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsSCALEXNull() As Boolean
Return Me.IsNull(Me.tableTStyle.SCALEXColumn)
End Function
_
Public Sub SetSCALEXNull()
Me(Me.tableTStyle.SCALEXColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsSCALEYNull() As Boolean
Return Me.IsNull(Me.tableTStyle.SCALEYColumn)
End Function
_
Public Sub SetSCALEYNull()
Me(Me.tableTStyle.SCALEYColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsBAKXNull() As Boolean
Return Me.IsNull(Me.tableTStyle.BAKXColumn)
End Function
_
Public Sub SetBAKXNull()
Me(Me.tableTStyle.BAKXColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsBAKYNull() As Boolean
Return Me.IsNull(Me.tableTStyle.BAKYColumn)
End Function
_
Public Sub SetBAKYNull()
Me(Me.tableTStyle.BAKYColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsBAKWNull() As Boolean
Return Me.IsNull(Me.tableTStyle.BAKWColumn)
End Function
_
Public Sub SetBAKWNull()
Me(Me.tableTStyle.BAKWColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsBAKHNull() As Boolean
Return Me.IsNull(Me.tableTStyle.BAKHColumn)
End Function
_
Public Sub SetBAKHNull()
Me(Me.tableTStyle.BAKHColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsVIEWIMAGENull() As Boolean
Return Me.IsNull(Me.tableTStyle.VIEWIMAGEColumn)
End Function
_
Public Sub SetVIEWIMAGENull()
Me(Me.tableTStyle.VIEWIMAGEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsFILTERNull() As Boolean
Return Me.IsNull(Me.tableTStyle.FILTERColumn)
End Function
_
Public Sub SetFILTERNull()
Me(Me.tableTStyle.FILTERColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsISXMLNull() As Boolean
Return Me.IsNull(Me.tableTStyle.ISXMLColumn)
End Function
_
Public Sub SetISXMLNull()
Me(Me.tableTStyle.ISXMLColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDUMMMYXNull() As Boolean
Return Me.IsNull(Me.tableTStyle.DUMMMYXColumn)
End Function
_
Public Sub SetDUMMMYXNull()
Me(Me.tableTStyle.DUMMMYXColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDUMMMYYNull() As Boolean
Return Me.IsNull(Me.tableTStyle.DUMMMYYColumn)
End Function
_
Public Sub SetDUMMMYYNull()
Me(Me.tableTStyle.DUMMMYYColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsQRVISIONNull() As Boolean
Return Me.IsNull(Me.tableTStyle.QRVISIONColumn)
End Function
_
Public Sub SetQRVISIONNull()
Me(Me.tableTStyle.QRVISIONColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsQRENCODINGNull() As Boolean
Return Me.IsNull(Me.tableTStyle.QRENCODINGColumn)
End Function
_
Public Sub SetQRENCODINGNull()
Me(Me.tableTStyle.QRENCODINGColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsQRLEVELNull() As Boolean
Return Me.IsNull(Me.tableTStyle.QRLEVELColumn)
End Function
_
Public Sub SetQRLEVELNull()
Me(Me.tableTStyle.QRLEVELColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsFILENull() As Boolean
Return Me.IsNull(Me.tableTStyle.FILEColumn)
End Function
_
Public Sub SetFILENull()
Me(Me.tableTStyle.FILEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDESCNull() As Boolean
Return Me.IsNull(Me.tableTStyle.DESCColumn)
End Function
_
Public Sub SetDESCNull()
Me(Me.tableTStyle.DESCColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TPatternRow
Inherits Global.System.Data.DataRow
Private tableTPattern As TPatternDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTPattern = CType(Me.Table, TPatternDataTable)
End Sub
_
Public Property NAME() As String
Get
Return CType(Me(Me.tableTPattern.NAMEColumn), String)
End Get
Set(value As String)
Me(Me.tableTPattern.NAMEColumn) = value
End Set
End Property
_
Public Property Val() As String
Get
Return CType(Me(Me.tableTPattern.ValColumn), String)
End Get
Set(value As String)
Me(Me.tableTPattern.ValColumn) = value
End Set
End Property
_
Public Property OBJ() As String
Get
Try
Return CType(Me(Me.tableTPattern.OBJColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'OBJ' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTPattern.OBJColumn) = value
End Set
End Property
_
Public Property PAT() As String
Get
Try
Return CType(Me(Me.tableTPattern.PATColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'PAT' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTPattern.PATColumn) = value
End Set
End Property
_
Public Property CAT() As String
Get
Try
Return CType(Me(Me.tableTPattern.CATColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'CAT' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTPattern.CATColumn) = value
End Set
End Property
_
Public Property PVAL() As String
Get
Try
Return CType(Me(Me.tableTPattern.PVALColumn), String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'PVAL' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As String)
Me(Me.tableTPattern.PVALColumn) = value
End Set
End Property
_
Public Function IsOBJNull() As Boolean
Return Me.IsNull(Me.tableTPattern.OBJColumn)
End Function
_
Public Sub SetOBJNull()
Me(Me.tableTPattern.OBJColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPATNull() As Boolean
Return Me.IsNull(Me.tableTPattern.PATColumn)
End Function
_
Public Sub SetPATNull()
Me(Me.tableTPattern.PATColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCATNull() As Boolean
Return Me.IsNull(Me.tableTPattern.CATColumn)
End Function
_
Public Sub SetCATNull()
Me(Me.tableTPattern.CATColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPVALNull() As Boolean
Return Me.IsNull(Me.tableTPattern.PVALColumn)
End Function
_
Public Sub SetPVALNull()
Me(Me.tableTPattern.PVALColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TCheckBoxRow
Inherits Global.System.Data.DataRow
Private tableTCheckBox As TCheckBoxDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTCheckBox = CType(Me.Table, TCheckBoxDataTable)
End Sub
_
Public Property Name() As String
Get
Return CType(Me(Me.tableTCheckBox.NameColumn), String)
End Get
Set(value As String)
Me(Me.tableTCheckBox.NameColumn) = value
End Set
End Property
_
Public Property Val() As Boolean
Get
Try
Return CType(Me(Me.tableTCheckBox.ValColumn), Boolean)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("'TCheckBox' 테이블의 'Val' 열의 값이 DBNull입니다.", e)
End Try
End Get
Set(value As Boolean)
Me(Me.tableTCheckBox.ValColumn) = value
End Set
End Property
_
Public Function IsValNull() As Boolean
Return Me.IsNull(Me.tableTCheckBox.ValColumn)
End Function
_
Public Sub SetValNull()
Me(Me.tableTCheckBox.ValColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Row event argument class
'''
_
Public Class TStyleRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TStyleRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As TStyleRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New()
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As TStyleRow
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 TPatternRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TPatternRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As TPatternRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New()
Me.eventRow = row
Me.eventAction = action
End Sub
_
Public ReadOnly Property Row() As TPatternRow
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 TCheckBoxRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TCheckBoxRow
Private eventAction As Global.System.Data.DataRowAction