'------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class caragavotersdbDataSet
Inherits Global.System.Data.DataSet
Private tablefull_data As full_dataDataTable
Private tablefull_data_entry As full_data_entryDataTable
Private tablebcc As bccDataTable
Private tablehhl As hhlDataTable
Private tablepco As pcoDataTable
Private tablepurok As purokDataTable
Private tableDataTable1 As DataTable1DataTable
Private tableDataTable2 As DataTable2DataTable
Private tableDataTable4 As DataTable4DataTable
Private tablebccdetails As bccdetailsDataTable
Private tablepccdetails As pccdetailsDataTable
Private tablehlldetails As hlldetailsDataTable
Private tableNotRecruited As NotRecruitedDataTable
Private tableDataTable3 As DataTable3DataTable
Private tableDataTable5 As DataTable5DataTable
Private tableDataTable6 As DataTable6DataTable
Private tableBCCcard As BCCcardDataTable
Private tablePCCcard As PCCcardDataTable
Private tableHHLcard As HHLcardDataTable
Private tableMEMcard As MEMcardDataTable
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("full_data")) Is Nothing) Then
MyBase.Tables.Add(New full_dataDataTable(ds.Tables("full_data")))
End If
If (Not (ds.Tables("full_data_entry")) Is Nothing) Then
MyBase.Tables.Add(New full_data_entryDataTable(ds.Tables("full_data_entry")))
End If
If (Not (ds.Tables("bcc")) Is Nothing) Then
MyBase.Tables.Add(New bccDataTable(ds.Tables("bcc")))
End If
If (Not (ds.Tables("hhl")) Is Nothing) Then
MyBase.Tables.Add(New hhlDataTable(ds.Tables("hhl")))
End If
If (Not (ds.Tables("pco")) Is Nothing) Then
MyBase.Tables.Add(New pcoDataTable(ds.Tables("pco")))
End If
If (Not (ds.Tables("purok")) Is Nothing) Then
MyBase.Tables.Add(New purokDataTable(ds.Tables("purok")))
End If
If (Not (ds.Tables("DataTable1")) Is Nothing) Then
MyBase.Tables.Add(New DataTable1DataTable(ds.Tables("DataTable1")))
End If
If (Not (ds.Tables("DataTable2")) Is Nothing) Then
MyBase.Tables.Add(New DataTable2DataTable(ds.Tables("DataTable2")))
End If
If (Not (ds.Tables("DataTable4")) Is Nothing) Then
MyBase.Tables.Add(New DataTable4DataTable(ds.Tables("DataTable4")))
End If
If (Not (ds.Tables("bccdetails")) Is Nothing) Then
MyBase.Tables.Add(New bccdetailsDataTable(ds.Tables("bccdetails")))
End If
If (Not (ds.Tables("pccdetails")) Is Nothing) Then
MyBase.Tables.Add(New pccdetailsDataTable(ds.Tables("pccdetails")))
End If
If (Not (ds.Tables("hlldetails")) Is Nothing) Then
MyBase.Tables.Add(New hlldetailsDataTable(ds.Tables("hlldetails")))
End If
If (Not (ds.Tables("NotRecruited")) Is Nothing) Then
MyBase.Tables.Add(New NotRecruitedDataTable(ds.Tables("NotRecruited")))
End If
If (Not (ds.Tables("DataTable3")) Is Nothing) Then
MyBase.Tables.Add(New DataTable3DataTable(ds.Tables("DataTable3")))
End If
If (Not (ds.Tables("DataTable5")) Is Nothing) Then
MyBase.Tables.Add(New DataTable5DataTable(ds.Tables("DataTable5")))
End If
If (Not (ds.Tables("DataTable6")) Is Nothing) Then
MyBase.Tables.Add(New DataTable6DataTable(ds.Tables("DataTable6")))
End If
If (Not (ds.Tables("BCCcard")) Is Nothing) Then
MyBase.Tables.Add(New BCCcardDataTable(ds.Tables("BCCcard")))
End If
If (Not (ds.Tables("PCCcard")) Is Nothing) Then
MyBase.Tables.Add(New PCCcardDataTable(ds.Tables("PCCcard")))
End If
If (Not (ds.Tables("HHLcard")) Is Nothing) Then
MyBase.Tables.Add(New HHLcardDataTable(ds.Tables("HHLcard")))
End If
If (Not (ds.Tables("MEMcard")) Is Nothing) Then
MyBase.Tables.Add(New MEMcardDataTable(ds.Tables("MEMcard")))
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 full_data() As full_dataDataTable
Get
Return Me.tablefull_data
End Get
End Property
_
Public ReadOnly Property full_data_entry() As full_data_entryDataTable
Get
Return Me.tablefull_data_entry
End Get
End Property
_
Public ReadOnly Property bcc() As bccDataTable
Get
Return Me.tablebcc
End Get
End Property
_
Public ReadOnly Property hhl() As hhlDataTable
Get
Return Me.tablehhl
End Get
End Property
_
Public ReadOnly Property pco() As pcoDataTable
Get
Return Me.tablepco
End Get
End Property
_
Public ReadOnly Property purok() As purokDataTable
Get
Return Me.tablepurok
End Get
End Property
_
Public ReadOnly Property DataTable1() As DataTable1DataTable
Get
Return Me.tableDataTable1
End Get
End Property
_
Public ReadOnly Property DataTable2() As DataTable2DataTable
Get
Return Me.tableDataTable2
End Get
End Property
_
Public ReadOnly Property DataTable4() As DataTable4DataTable
Get
Return Me.tableDataTable4
End Get
End Property
_
Public ReadOnly Property bccdetails() As bccdetailsDataTable
Get
Return Me.tablebccdetails
End Get
End Property
_
Public ReadOnly Property pccdetails() As pccdetailsDataTable
Get
Return Me.tablepccdetails
End Get
End Property
_
Public ReadOnly Property hlldetails() As hlldetailsDataTable
Get
Return Me.tablehlldetails
End Get
End Property
_
Public ReadOnly Property NotRecruited() As NotRecruitedDataTable
Get
Return Me.tableNotRecruited
End Get
End Property
_
Public ReadOnly Property DataTable3() As DataTable3DataTable
Get
Return Me.tableDataTable3
End Get
End Property
_
Public ReadOnly Property DataTable5() As DataTable5DataTable
Get
Return Me.tableDataTable5
End Get
End Property
_
Public ReadOnly Property DataTable6() As DataTable6DataTable
Get
Return Me.tableDataTable6
End Get
End Property
_
Public ReadOnly Property BCCcard() As BCCcardDataTable
Get
Return Me.tableBCCcard
End Get
End Property
_
Public ReadOnly Property PCCcard() As PCCcardDataTable
Get
Return Me.tablePCCcard
End Get
End Property
_
Public ReadOnly Property HHLcard() As HHLcardDataTable
Get
Return Me.tableHHLcard
End Get
End Property
_
Public ReadOnly Property MEMcard() As MEMcardDataTable
Get
Return Me.tableMEMcard
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 caragavotersdbDataSet = CType(MyBase.Clone,caragavotersdbDataSet)
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("full_data")) Is Nothing) Then
MyBase.Tables.Add(New full_dataDataTable(ds.Tables("full_data")))
End If
If (Not (ds.Tables("full_data_entry")) Is Nothing) Then
MyBase.Tables.Add(New full_data_entryDataTable(ds.Tables("full_data_entry")))
End If
If (Not (ds.Tables("bcc")) Is Nothing) Then
MyBase.Tables.Add(New bccDataTable(ds.Tables("bcc")))
End If
If (Not (ds.Tables("hhl")) Is Nothing) Then
MyBase.Tables.Add(New hhlDataTable(ds.Tables("hhl")))
End If
If (Not (ds.Tables("pco")) Is Nothing) Then
MyBase.Tables.Add(New pcoDataTable(ds.Tables("pco")))
End If
If (Not (ds.Tables("purok")) Is Nothing) Then
MyBase.Tables.Add(New purokDataTable(ds.Tables("purok")))
End If
If (Not (ds.Tables("DataTable1")) Is Nothing) Then
MyBase.Tables.Add(New DataTable1DataTable(ds.Tables("DataTable1")))
End If
If (Not (ds.Tables("DataTable2")) Is Nothing) Then
MyBase.Tables.Add(New DataTable2DataTable(ds.Tables("DataTable2")))
End If
If (Not (ds.Tables("DataTable4")) Is Nothing) Then
MyBase.Tables.Add(New DataTable4DataTable(ds.Tables("DataTable4")))
End If
If (Not (ds.Tables("bccdetails")) Is Nothing) Then
MyBase.Tables.Add(New bccdetailsDataTable(ds.Tables("bccdetails")))
End If
If (Not (ds.Tables("pccdetails")) Is Nothing) Then
MyBase.Tables.Add(New pccdetailsDataTable(ds.Tables("pccdetails")))
End If
If (Not (ds.Tables("hlldetails")) Is Nothing) Then
MyBase.Tables.Add(New hlldetailsDataTable(ds.Tables("hlldetails")))
End If
If (Not (ds.Tables("NotRecruited")) Is Nothing) Then
MyBase.Tables.Add(New NotRecruitedDataTable(ds.Tables("NotRecruited")))
End If
If (Not (ds.Tables("DataTable3")) Is Nothing) Then
MyBase.Tables.Add(New DataTable3DataTable(ds.Tables("DataTable3")))
End If
If (Not (ds.Tables("DataTable5")) Is Nothing) Then
MyBase.Tables.Add(New DataTable5DataTable(ds.Tables("DataTable5")))
End If
If (Not (ds.Tables("DataTable6")) Is Nothing) Then
MyBase.Tables.Add(New DataTable6DataTable(ds.Tables("DataTable6")))
End If
If (Not (ds.Tables("BCCcard")) Is Nothing) Then
MyBase.Tables.Add(New BCCcardDataTable(ds.Tables("BCCcard")))
End If
If (Not (ds.Tables("PCCcard")) Is Nothing) Then
MyBase.Tables.Add(New PCCcardDataTable(ds.Tables("PCCcard")))
End If
If (Not (ds.Tables("HHLcard")) Is Nothing) Then
MyBase.Tables.Add(New HHLcardDataTable(ds.Tables("HHLcard")))
End If
If (Not (ds.Tables("MEMcard")) Is Nothing) Then
MyBase.Tables.Add(New MEMcardDataTable(ds.Tables("MEMcard")))
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.tablefull_data = CType(MyBase.Tables("full_data"),full_dataDataTable)
If (initTable = true) Then
If (Not (Me.tablefull_data) Is Nothing) Then
Me.tablefull_data.InitVars
End If
End If
Me.tablefull_data_entry = CType(MyBase.Tables("full_data_entry"),full_data_entryDataTable)
If (initTable = true) Then
If (Not (Me.tablefull_data_entry) Is Nothing) Then
Me.tablefull_data_entry.InitVars
End If
End If
Me.tablebcc = CType(MyBase.Tables("bcc"),bccDataTable)
If (initTable = true) Then
If (Not (Me.tablebcc) Is Nothing) Then
Me.tablebcc.InitVars
End If
End If
Me.tablehhl = CType(MyBase.Tables("hhl"),hhlDataTable)
If (initTable = true) Then
If (Not (Me.tablehhl) Is Nothing) Then
Me.tablehhl.InitVars
End If
End If
Me.tablepco = CType(MyBase.Tables("pco"),pcoDataTable)
If (initTable = true) Then
If (Not (Me.tablepco) Is Nothing) Then
Me.tablepco.InitVars
End If
End If
Me.tablepurok = CType(MyBase.Tables("purok"),purokDataTable)
If (initTable = true) Then
If (Not (Me.tablepurok) Is Nothing) Then
Me.tablepurok.InitVars
End If
End If
Me.tableDataTable1 = CType(MyBase.Tables("DataTable1"),DataTable1DataTable)
If (initTable = true) Then
If (Not (Me.tableDataTable1) Is Nothing) Then
Me.tableDataTable1.InitVars
End If
End If
Me.tableDataTable2 = CType(MyBase.Tables("DataTable2"),DataTable2DataTable)
If (initTable = true) Then
If (Not (Me.tableDataTable2) Is Nothing) Then
Me.tableDataTable2.InitVars
End If
End If
Me.tableDataTable4 = CType(MyBase.Tables("DataTable4"),DataTable4DataTable)
If (initTable = true) Then
If (Not (Me.tableDataTable4) Is Nothing) Then
Me.tableDataTable4.InitVars
End If
End If
Me.tablebccdetails = CType(MyBase.Tables("bccdetails"),bccdetailsDataTable)
If (initTable = true) Then
If (Not (Me.tablebccdetails) Is Nothing) Then
Me.tablebccdetails.InitVars
End If
End If
Me.tablepccdetails = CType(MyBase.Tables("pccdetails"),pccdetailsDataTable)
If (initTable = true) Then
If (Not (Me.tablepccdetails) Is Nothing) Then
Me.tablepccdetails.InitVars
End If
End If
Me.tablehlldetails = CType(MyBase.Tables("hlldetails"),hlldetailsDataTable)
If (initTable = true) Then
If (Not (Me.tablehlldetails) Is Nothing) Then
Me.tablehlldetails.InitVars
End If
End If
Me.tableNotRecruited = CType(MyBase.Tables("NotRecruited"),NotRecruitedDataTable)
If (initTable = true) Then
If (Not (Me.tableNotRecruited) Is Nothing) Then
Me.tableNotRecruited.InitVars
End If
End If
Me.tableDataTable3 = CType(MyBase.Tables("DataTable3"),DataTable3DataTable)
If (initTable = true) Then
If (Not (Me.tableDataTable3) Is Nothing) Then
Me.tableDataTable3.InitVars
End If
End If
Me.tableDataTable5 = CType(MyBase.Tables("DataTable5"),DataTable5DataTable)
If (initTable = true) Then
If (Not (Me.tableDataTable5) Is Nothing) Then
Me.tableDataTable5.InitVars
End If
End If
Me.tableDataTable6 = CType(MyBase.Tables("DataTable6"),DataTable6DataTable)
If (initTable = true) Then
If (Not (Me.tableDataTable6) Is Nothing) Then
Me.tableDataTable6.InitVars
End If
End If
Me.tableBCCcard = CType(MyBase.Tables("BCCcard"),BCCcardDataTable)
If (initTable = true) Then
If (Not (Me.tableBCCcard) Is Nothing) Then
Me.tableBCCcard.InitVars
End If
End If
Me.tablePCCcard = CType(MyBase.Tables("PCCcard"),PCCcardDataTable)
If (initTable = true) Then
If (Not (Me.tablePCCcard) Is Nothing) Then
Me.tablePCCcard.InitVars
End If
End If
Me.tableHHLcard = CType(MyBase.Tables("HHLcard"),HHLcardDataTable)
If (initTable = true) Then
If (Not (Me.tableHHLcard) Is Nothing) Then
Me.tableHHLcard.InitVars
End If
End If
Me.tableMEMcard = CType(MyBase.Tables("MEMcard"),MEMcardDataTable)
If (initTable = true) Then
If (Not (Me.tableMEMcard) Is Nothing) Then
Me.tableMEMcard.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "caragavotersdbDataSet"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/caragavotersdbDataSet.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tablefull_data = New full_dataDataTable()
MyBase.Tables.Add(Me.tablefull_data)
Me.tablefull_data_entry = New full_data_entryDataTable()
MyBase.Tables.Add(Me.tablefull_data_entry)
Me.tablebcc = New bccDataTable()
MyBase.Tables.Add(Me.tablebcc)
Me.tablehhl = New hhlDataTable()
MyBase.Tables.Add(Me.tablehhl)
Me.tablepco = New pcoDataTable()
MyBase.Tables.Add(Me.tablepco)
Me.tablepurok = New purokDataTable()
MyBase.Tables.Add(Me.tablepurok)
Me.tableDataTable1 = New DataTable1DataTable()
MyBase.Tables.Add(Me.tableDataTable1)
Me.tableDataTable2 = New DataTable2DataTable()
MyBase.Tables.Add(Me.tableDataTable2)
Me.tableDataTable4 = New DataTable4DataTable()
MyBase.Tables.Add(Me.tableDataTable4)
Me.tablebccdetails = New bccdetailsDataTable()
MyBase.Tables.Add(Me.tablebccdetails)
Me.tablepccdetails = New pccdetailsDataTable()
MyBase.Tables.Add(Me.tablepccdetails)
Me.tablehlldetails = New hlldetailsDataTable()
MyBase.Tables.Add(Me.tablehlldetails)
Me.tableNotRecruited = New NotRecruitedDataTable()
MyBase.Tables.Add(Me.tableNotRecruited)
Me.tableDataTable3 = New DataTable3DataTable()
MyBase.Tables.Add(Me.tableDataTable3)
Me.tableDataTable5 = New DataTable5DataTable()
MyBase.Tables.Add(Me.tableDataTable5)
Me.tableDataTable6 = New DataTable6DataTable()
MyBase.Tables.Add(Me.tableDataTable6)
Me.tableBCCcard = New BCCcardDataTable()
MyBase.Tables.Add(Me.tableBCCcard)
Me.tablePCCcard = New PCCcardDataTable()
MyBase.Tables.Add(Me.tablePCCcard)
Me.tableHHLcard = New HHLcardDataTable()
MyBase.Tables.Add(Me.tableHHLcard)
Me.tableMEMcard = New MEMcardDataTable()
MyBase.Tables.Add(Me.tableMEMcard)
End Sub
_
Private Function ShouldSerializefull_data() As Boolean
Return false
End Function
_
Private Function ShouldSerializefull_data_entry() As Boolean
Return false
End Function
_
Private Function ShouldSerializebcc() As Boolean
Return false
End Function
_
Private Function ShouldSerializehhl() As Boolean
Return false
End Function
_
Private Function ShouldSerializepco() As Boolean
Return false
End Function
_
Private Function ShouldSerializepurok() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDataTable1() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDataTable2() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDataTable4() As Boolean
Return false
End Function
_
Private Function ShouldSerializebccdetails() As Boolean
Return false
End Function
_
Private Function ShouldSerializepccdetails() As Boolean
Return false
End Function
_
Private Function ShouldSerializehlldetails() As Boolean
Return false
End Function
_
Private Function ShouldSerializeNotRecruited() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDataTable3() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDataTable5() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDataTable6() As Boolean
Return false
End Function
_
Private Function ShouldSerializeBCCcard() As Boolean
Return false
End Function
_
Private Function ShouldSerializePCCcard() As Boolean
Return false
End Function
_
Private Function ShouldSerializeHHLcard() As Boolean
Return false
End Function
_
Private Function ShouldSerializeMEMcard() 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 caragavotersdbDataSet = New caragavotersdbDataSet()
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 full_dataRowChangeEventHandler(ByVal sender As Object, ByVal e As full_dataRowChangeEvent)
_
Public Delegate Sub full_data_entryRowChangeEventHandler(ByVal sender As Object, ByVal e As full_data_entryRowChangeEvent)
_
Public Delegate Sub bccRowChangeEventHandler(ByVal sender As Object, ByVal e As bccRowChangeEvent)
_
Public Delegate Sub hhlRowChangeEventHandler(ByVal sender As Object, ByVal e As hhlRowChangeEvent)
_
Public Delegate Sub pcoRowChangeEventHandler(ByVal sender As Object, ByVal e As pcoRowChangeEvent)
_
Public Delegate Sub purokRowChangeEventHandler(ByVal sender As Object, ByVal e As purokRowChangeEvent)
_
Public Delegate Sub DataTable1RowChangeEventHandler(ByVal sender As Object, ByVal e As DataTable1RowChangeEvent)
_
Public Delegate Sub DataTable2RowChangeEventHandler(ByVal sender As Object, ByVal e As DataTable2RowChangeEvent)
_
Public Delegate Sub DataTable4RowChangeEventHandler(ByVal sender As Object, ByVal e As DataTable4RowChangeEvent)
_
Public Delegate Sub bccdetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As bccdetailsRowChangeEvent)
_
Public Delegate Sub pccdetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As pccdetailsRowChangeEvent)
_
Public Delegate Sub hlldetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As hlldetailsRowChangeEvent)
_
Public Delegate Sub NotRecruitedRowChangeEventHandler(ByVal sender As Object, ByVal e As NotRecruitedRowChangeEvent)
_
Public Delegate Sub DataTable3RowChangeEventHandler(ByVal sender As Object, ByVal e As DataTable3RowChangeEvent)
_
Public Delegate Sub DataTable5RowChangeEventHandler(ByVal sender As Object, ByVal e As DataTable5RowChangeEvent)
_
Public Delegate Sub DataTable6RowChangeEventHandler(ByVal sender As Object, ByVal e As DataTable6RowChangeEvent)
_
Public Delegate Sub BCCcardRowChangeEventHandler(ByVal sender As Object, ByVal e As BCCcardRowChangeEvent)
_
Public Delegate Sub PCCcardRowChangeEventHandler(ByVal sender As Object, ByVal e As PCCcardRowChangeEvent)
_
Public Delegate Sub HHLcardRowChangeEventHandler(ByVal sender As Object, ByVal e As HHLcardRowChangeEvent)
_
Public Delegate Sub MEMcardRowChangeEventHandler(ByVal sender As Object, ByVal e As MEMcardRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class full_dataDataTable
Inherits Global.System.Data.TypedTableBase(Of full_dataRow)
Private columnid As Global.System.Data.DataColumn
Private columnnumber As Global.System.Data.DataColumn
Private columnname As Global.System.Data.DataColumn
Private columnaddress As Global.System.Data.DataColumn
Private columnbirthday As Global.System.Data.DataColumn
Private columnGender As Global.System.Data.DataColumn
Private columnprecinct_number As Global.System.Data.DataColumn
Private columnbarangay As Global.System.Data.DataColumn
Private columnmunicipality As Global.System.Data.DataColumn
Private columnprovince As Global.System.Data.DataColumn
Private columnlegend As Global.System.Data.DataColumn
Private columnd_ As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "full_data"
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 numberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnumber
End Get
End Property
_
Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnname
End Get
End Property
_
Public ReadOnly Property addressColumn() As Global.System.Data.DataColumn
Get
Return Me.columnaddress
End Get
End Property
_
Public ReadOnly Property birthdayColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbirthday
End Get
End Property
_
Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGender
End Get
End Property
_
Public ReadOnly Property precinct_numberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnprecinct_number
End Get
End Property
_
Public ReadOnly Property barangayColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbarangay
End Get
End Property
_
Public ReadOnly Property municipalityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnmunicipality
End Get
End Property
_
Public ReadOnly Property provinceColumn() As Global.System.Data.DataColumn
Get
Return Me.columnprovince
End Get
End Property
_
Public ReadOnly Property legendColumn() As Global.System.Data.DataColumn
Get
Return Me.columnlegend
End Get
End Property
_
Public ReadOnly Property d_Column() As Global.System.Data.DataColumn
Get
Return Me.columnd_
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 full_dataRow
Get
Return CType(Me.Rows(index),full_dataRow)
End Get
End Property
_
Public Event full_dataRowChanging As full_dataRowChangeEventHandler
_
Public Event full_dataRowChanged As full_dataRowChangeEventHandler
_
Public Event full_dataRowDeleting As full_dataRowChangeEventHandler
_
Public Event full_dataRowDeleted As full_dataRowChangeEventHandler
_
Public Overloads Sub Addfull_dataRow(ByVal row As full_dataRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function Addfull_dataRow(ByVal number As Integer, ByVal name As String, ByVal address As String, ByVal birthday As String, ByVal Gender As String, ByVal precinct_number As String, ByVal barangay As String, ByVal municipality As String, ByVal province As String, ByVal legend As String, ByVal d_ As String) As full_dataRow
Dim rowfull_dataRow As full_dataRow = CType(Me.NewRow,full_dataRow)
Dim columnValuesArray() As Object = New Object() {Nothing, number, name, address, birthday, Gender, precinct_number, barangay, municipality, province, legend, d_}
rowfull_dataRow.ItemArray = columnValuesArray
Me.Rows.Add(rowfull_dataRow)
Return rowfull_dataRow
End Function
_
Public Function FindByid(ByVal id As Integer) As full_dataRow
Return CType(Me.Rows.Find(New Object() {id}),full_dataRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As full_dataDataTable = CType(MyBase.Clone,full_dataDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New full_dataDataTable()
End Function
_
Friend Sub InitVars()
Me.columnid = MyBase.Columns("id")
Me.columnnumber = MyBase.Columns("number")
Me.columnname = MyBase.Columns("name")
Me.columnaddress = MyBase.Columns("address")
Me.columnbirthday = MyBase.Columns("birthday")
Me.columnGender = MyBase.Columns("Gender")
Me.columnprecinct_number = MyBase.Columns("precinct_number")
Me.columnbarangay = MyBase.Columns("barangay")
Me.columnmunicipality = MyBase.Columns("municipality")
Me.columnprovince = MyBase.Columns("province")
Me.columnlegend = MyBase.Columns("legend")
Me.columnd_ = MyBase.Columns("d_")
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.columnnumber = New Global.System.Data.DataColumn("number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnnumber)
Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnname)
Me.columnaddress = New Global.System.Data.DataColumn("address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnaddress)
Me.columnbirthday = New Global.System.Data.DataColumn("birthday", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbirthday)
Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGender)
Me.columnprecinct_number = New Global.System.Data.DataColumn("precinct_number", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnprecinct_number)
Me.columnbarangay = New Global.System.Data.DataColumn("barangay", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbarangay)
Me.columnmunicipality = New Global.System.Data.DataColumn("municipality", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnmunicipality)
Me.columnprovince = New Global.System.Data.DataColumn("province", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnprovince)
Me.columnlegend = New Global.System.Data.DataColumn("legend", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnlegend)
Me.columnd_ = New Global.System.Data.DataColumn("d_", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnd_)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid}, true))
Me.columnid.AutoIncrement = true
Me.columnid.AutoIncrementSeed = -1
Me.columnid.AutoIncrementStep = -1
Me.columnid.AllowDBNull = false
Me.columnid.Unique = true
Me.columnnumber.AllowDBNull = false
Me.columnname.AllowDBNull = false
Me.columnname.MaxLength = 255
Me.columnaddress.AllowDBNull = false
Me.columnaddress.MaxLength = 255
Me.columnbirthday.AllowDBNull = false
Me.columnbirthday.MaxLength = 255
Me.columnGender.AllowDBNull = false
Me.columnGender.MaxLength = 255
Me.columnprecinct_number.AllowDBNull = false
Me.columnprecinct_number.MaxLength = 255
Me.columnbarangay.AllowDBNull = false
Me.columnbarangay.MaxLength = 255
Me.columnmunicipality.AllowDBNull = false
Me.columnmunicipality.MaxLength = 255
Me.columnprovince.AllowDBNull = false
Me.columnprovince.MaxLength = 255
Me.columnlegend.AllowDBNull = false
Me.columnlegend.MaxLength = 255
Me.columnd_.AllowDBNull = false
Me.columnd_.MaxLength = 50
End Sub
_
Public Function Newfull_dataRow() As full_dataRow
Return CType(Me.NewRow,full_dataRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New full_dataRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(full_dataRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.full_dataRowChangedEvent) Is Nothing) Then
RaiseEvent full_dataRowChanged(Me, New full_dataRowChangeEvent(CType(e.Row,full_dataRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.full_dataRowChangingEvent) Is Nothing) Then
RaiseEvent full_dataRowChanging(Me, New full_dataRowChangeEvent(CType(e.Row,full_dataRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.full_dataRowDeletedEvent) Is Nothing) Then
RaiseEvent full_dataRowDeleted(Me, New full_dataRowChangeEvent(CType(e.Row,full_dataRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.full_dataRowDeletingEvent) Is Nothing) Then
RaiseEvent full_dataRowDeleting(Me, New full_dataRowChangeEvent(CType(e.Row,full_dataRow), e.Action))
End If
End Sub
_
Public Sub Removefull_dataRow(ByVal row As full_dataRow)
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 caragavotersdbDataSet = New caragavotersdbDataSet()
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 = "full_dataDataTable"
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 full_data_entryDataTable
Inherits Global.System.Data.TypedTableBase(Of full_data_entryRow)
Private columnid As Global.System.Data.DataColumn
Private columnnumber As Global.System.Data.DataColumn
Private columnname As Global.System.Data.DataColumn
Private columnaddress As Global.System.Data.DataColumn
Private columnbirthday As Global.System.Data.DataColumn
Private columnGender As Global.System.Data.DataColumn
Private columnprecinct_number As Global.System.Data.DataColumn
Private columnbarangay As Global.System.Data.DataColumn
Private columnmunicipality As Global.System.Data.DataColumn
Private columnprovince As Global.System.Data.DataColumn
Private columnstatusv As Global.System.Data.DataColumn
Private columnpco As Global.System.Data.DataColumn
Private columncardno As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "full_data_entry"
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 numberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnumber
End Get
End Property
_
Public ReadOnly Property nameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnname
End Get
End Property
_
Public ReadOnly Property addressColumn() As Global.System.Data.DataColumn
Get
Return Me.columnaddress
End Get
End Property
_
Public ReadOnly Property birthdayColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbirthday
End Get
End Property
_
Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGender
End Get
End Property
_
Public ReadOnly Property precinct_numberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnprecinct_number
End Get
End Property
_
Public ReadOnly Property barangayColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbarangay
End Get
End Property
_
Public ReadOnly Property municipalityColumn() As Global.System.Data.DataColumn
Get
Return Me.columnmunicipality
End Get
End Property
_
Public ReadOnly Property provinceColumn() As Global.System.Data.DataColumn
Get
Return Me.columnprovince
End Get
End Property
_
Public ReadOnly Property statusvColumn() As Global.System.Data.DataColumn
Get
Return Me.columnstatusv
End Get
End Property
_
Public ReadOnly Property pcoColumn() As Global.System.Data.DataColumn
Get
Return Me.columnpco
End Get
End Property
_
Public ReadOnly Property cardnoColumn() As Global.System.Data.DataColumn
Get
Return Me.columncardno
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 full_data_entryRow
Get
Return CType(Me.Rows(index),full_data_entryRow)
End Get
End Property
_
Public Event full_data_entryRowChanging As full_data_entryRowChangeEventHandler
_
Public Event full_data_entryRowChanged As full_data_entryRowChangeEventHandler
_
Public Event full_data_entryRowDeleting As full_data_entryRowChangeEventHandler
_
Public Event full_data_entryRowDeleted As full_data_entryRowChangeEventHandler
_
Public Overloads Sub Addfull_data_entryRow(ByVal row As full_data_entryRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function Addfull_data_entryRow(ByVal number As Integer, ByVal name As String, ByVal address As String, ByVal birthday As String, ByVal Gender As String, ByVal precinct_number As String, ByVal barangay As String, ByVal municipality As String, ByVal province As String, ByVal statusv As String, ByVal pco As String, ByVal cardno As String) As full_data_entryRow
Dim rowfull_data_entryRow As full_data_entryRow = CType(Me.NewRow,full_data_entryRow)
Dim columnValuesArray() As Object = New Object() {Nothing, number, name, address, birthday, Gender, precinct_number, barangay, municipality, province, statusv, pco, cardno}
rowfull_data_entryRow.ItemArray = columnValuesArray
Me.Rows.Add(rowfull_data_entryRow)
Return rowfull_data_entryRow
End Function
_
Public Function FindByid(ByVal id As Integer) As full_data_entryRow
Return CType(Me.Rows.Find(New Object() {id}),full_data_entryRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As full_data_entryDataTable = CType(MyBase.Clone,full_data_entryDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New full_data_entryDataTable()
End Function
_
Friend Sub InitVars()
Me.columnid = MyBase.Columns("id")
Me.columnnumber = MyBase.Columns("number")
Me.columnname = MyBase.Columns("name")
Me.columnaddress = MyBase.Columns("address")
Me.columnbirthday = MyBase.Columns("birthday")
Me.columnGender = MyBase.Columns("Gender")
Me.columnprecinct_number = MyBase.Columns("precinct_number")
Me.columnbarangay = MyBase.Columns("barangay")
Me.columnmunicipality = MyBase.Columns("municipality")
Me.columnprovince = MyBase.Columns("province")
Me.columnstatusv = MyBase.Columns("statusv")
Me.columnpco = MyBase.Columns("pco")
Me.columncardno = MyBase.Columns("cardno")
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.columnnumber = New Global.System.Data.DataColumn("number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnnumber)
Me.columnname = New Global.System.Data.DataColumn("name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnname)
Me.columnaddress = New Global.System.Data.DataColumn("address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnaddress)
Me.columnbirthday = New Global.System.Data.DataColumn("birthday", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbirthday)
Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGender)
Me.columnprecinct_number = New Global.System.Data.DataColumn("precinct_number", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnprecinct_number)
Me.columnbarangay = New Global.System.Data.DataColumn("barangay", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbarangay)
Me.columnmunicipality = New Global.System.Data.DataColumn("municipality", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnmunicipality)
Me.columnprovince = New Global.System.Data.DataColumn("province", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnprovince)
Me.columnstatusv = New Global.System.Data.DataColumn("statusv", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnstatusv)
Me.columnpco = New Global.System.Data.DataColumn("pco", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnpco)
Me.columncardno = New Global.System.Data.DataColumn("cardno", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columncardno)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid}, true))
Me.columnid.AutoIncrement = true
Me.columnid.AutoIncrementSeed = -1
Me.columnid.AutoIncrementStep = -1
Me.columnid.AllowDBNull = false
Me.columnid.Unique = true
Me.columnnumber.AllowDBNull = false
Me.columnname.AllowDBNull = false
Me.columnname.MaxLength = 255
Me.columnaddress.AllowDBNull = false
Me.columnaddress.MaxLength = 255
Me.columnbirthday.AllowDBNull = false
Me.columnbirthday.MaxLength = 255
Me.columnGender.AllowDBNull = false
Me.columnGender.MaxLength = 255
Me.columnprecinct_number.AllowDBNull = false
Me.columnprecinct_number.MaxLength = 255
Me.columnbarangay.AllowDBNull = false
Me.columnbarangay.MaxLength = 255
Me.columnmunicipality.AllowDBNull = false
Me.columnmunicipality.MaxLength = 255
Me.columnprovince.AllowDBNull = false
Me.columnprovince.MaxLength = 255
Me.columnstatusv.AllowDBNull = false
Me.columnstatusv.MaxLength = 255
Me.columnpco.AllowDBNull = false
Me.columnpco.MaxLength = 50
Me.columncardno.MaxLength = 50
End Sub
_
Public Function Newfull_data_entryRow() As full_data_entryRow
Return CType(Me.NewRow,full_data_entryRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New full_data_entryRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(full_data_entryRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.full_data_entryRowChangedEvent) Is Nothing) Then
RaiseEvent full_data_entryRowChanged(Me, New full_data_entryRowChangeEvent(CType(e.Row,full_data_entryRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.full_data_entryRowChangingEvent) Is Nothing) Then
RaiseEvent full_data_entryRowChanging(Me, New full_data_entryRowChangeEvent(CType(e.Row,full_data_entryRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.full_data_entryRowDeletedEvent) Is Nothing) Then
RaiseEvent full_data_entryRowDeleted(Me, New full_data_entryRowChangeEvent(CType(e.Row,full_data_entryRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.full_data_entryRowDeletingEvent) Is Nothing) Then
RaiseEvent full_data_entryRowDeleting(Me, New full_data_entryRowChangeEvent(CType(e.Row,full_data_entryRow), e.Action))
End If
End Sub
_
Public Sub Removefull_data_entryRow(ByVal row As full_data_entryRow)
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 caragavotersdbDataSet = New caragavotersdbDataSet()
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 = "full_data_entryDataTable"
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 bccDataTable
Inherits Global.System.Data.TypedTableBase(Of bccRow)
Private columnid As Global.System.Data.DataColumn
Private columnnames As Global.System.Data.DataColumn
Private columnpurok As Global.System.Data.DataColumn
Private columnbarangay As Global.System.Data.DataColumn
Private columnboo As Global.System.Data.DataColumn
Private columncontact As Global.System.Data.DataColumn
Private columnstatus As Global.System.Data.DataColumn
Private columnprecint As Global.System.Data.DataColumn
Private columncardno As Global.System.Data.DataColumn
Private columnnumber As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "bcc"
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 namesColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnames
End Get
End Property
_
Public ReadOnly Property purokColumn() As Global.System.Data.DataColumn
Get
Return Me.columnpurok
End Get
End Property
_
Public ReadOnly Property barangayColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbarangay
End Get
End Property
_
Public ReadOnly Property booColumn() As Global.System.Data.DataColumn
Get
Return Me.columnboo
End Get
End Property
_
Public ReadOnly Property contactColumn() As Global.System.Data.DataColumn
Get
Return Me.columncontact
End Get
End Property
_
Public ReadOnly Property statusColumn() As Global.System.Data.DataColumn
Get
Return Me.columnstatus
End Get
End Property
_
Public ReadOnly Property precintColumn() As Global.System.Data.DataColumn
Get
Return Me.columnprecint
End Get
End Property
_
Public ReadOnly Property cardnoColumn() As Global.System.Data.DataColumn
Get
Return Me.columncardno
End Get
End Property
_
Public ReadOnly Property numberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnumber
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 bccRow
Get
Return CType(Me.Rows(index),bccRow)
End Get
End Property
_
Public Event bccRowChanging As bccRowChangeEventHandler
_
Public Event bccRowChanged As bccRowChangeEventHandler
_
Public Event bccRowDeleting As bccRowChangeEventHandler
_
Public Event bccRowDeleted As bccRowChangeEventHandler
_
Public Overloads Sub AddbccRow(ByVal row As bccRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddbccRow(ByVal names As String, ByVal purok As String, ByVal barangay As String, ByVal boo As String, ByVal contact As String, ByVal status As String, ByVal precint As String, ByVal cardno As String, ByVal number As Integer) As bccRow
Dim rowbccRow As bccRow = CType(Me.NewRow,bccRow)
Dim columnValuesArray() As Object = New Object() {Nothing, names, purok, barangay, boo, contact, status, precint, cardno, number}
rowbccRow.ItemArray = columnValuesArray
Me.Rows.Add(rowbccRow)
Return rowbccRow
End Function
_
Public Function FindByid(ByVal id As Integer) As bccRow
Return CType(Me.Rows.Find(New Object() {id}),bccRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As bccDataTable = CType(MyBase.Clone,bccDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New bccDataTable()
End Function
_
Friend Sub InitVars()
Me.columnid = MyBase.Columns("id")
Me.columnnames = MyBase.Columns("names")
Me.columnpurok = MyBase.Columns("purok")
Me.columnbarangay = MyBase.Columns("barangay")
Me.columnboo = MyBase.Columns("boo")
Me.columncontact = MyBase.Columns("contact")
Me.columnstatus = MyBase.Columns("status")
Me.columnprecint = MyBase.Columns("precint")
Me.columncardno = MyBase.Columns("cardno")
Me.columnnumber = MyBase.Columns("number")
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.columnnames = New Global.System.Data.DataColumn("names", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnnames)
Me.columnpurok = New Global.System.Data.DataColumn("purok", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnpurok)
Me.columnbarangay = New Global.System.Data.DataColumn("barangay", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbarangay)
Me.columnboo = New Global.System.Data.DataColumn("boo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnboo)
Me.columncontact = New Global.System.Data.DataColumn("contact", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columncontact)
Me.columnstatus = New Global.System.Data.DataColumn("status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnstatus)
Me.columnprecint = New Global.System.Data.DataColumn("precint", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnprecint)
Me.columncardno = New Global.System.Data.DataColumn("cardno", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columncardno)
Me.columnnumber = New Global.System.Data.DataColumn("number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnnumber)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid}, true))
Me.columnid.AutoIncrement = true
Me.columnid.AutoIncrementSeed = -1
Me.columnid.AutoIncrementStep = -1
Me.columnid.AllowDBNull = false
Me.columnid.Unique = true
Me.columnnames.AllowDBNull = false
Me.columnnames.MaxLength = 255
Me.columnpurok.AllowDBNull = false
Me.columnpurok.MaxLength = 255
Me.columnbarangay.AllowDBNull = false
Me.columnbarangay.MaxLength = 255
Me.columnboo.AllowDBNull = false
Me.columnboo.MaxLength = 255
Me.columncontact.AllowDBNull = false
Me.columncontact.MaxLength = 255
Me.columnstatus.AllowDBNull = false
Me.columnstatus.MaxLength = 255
Me.columnprecint.AllowDBNull = false
Me.columnprecint.MaxLength = 50
Me.columncardno.AllowDBNull = false
Me.columncardno.MaxLength = 50
Me.columnnumber.AllowDBNull = false
End Sub
_
Public Function NewbccRow() As bccRow
Return CType(Me.NewRow,bccRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New bccRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(bccRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.bccRowChangedEvent) Is Nothing) Then
RaiseEvent bccRowChanged(Me, New bccRowChangeEvent(CType(e.Row,bccRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.bccRowChangingEvent) Is Nothing) Then
RaiseEvent bccRowChanging(Me, New bccRowChangeEvent(CType(e.Row,bccRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.bccRowDeletedEvent) Is Nothing) Then
RaiseEvent bccRowDeleted(Me, New bccRowChangeEvent(CType(e.Row,bccRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.bccRowDeletingEvent) Is Nothing) Then
RaiseEvent bccRowDeleting(Me, New bccRowChangeEvent(CType(e.Row,bccRow), e.Action))
End If
End Sub
_
Public Sub RemovebccRow(ByVal row As bccRow)
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 caragavotersdbDataSet = New caragavotersdbDataSet()
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 = "bccDataTable"
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 hhlDataTable
Inherits Global.System.Data.TypedTableBase(Of hhlRow)
Private columnid As Global.System.Data.DataColumn
Private columnnames As Global.System.Data.DataColumn
Private columnpurok As Global.System.Data.DataColumn
Private columnbarangay As Global.System.Data.DataColumn
Private columnpcc As Global.System.Data.DataColumn
Private columnboo As Global.System.Data.DataColumn
Private columncontact As Global.System.Data.DataColumn
Private columnstatus As Global.System.Data.DataColumn
Private columnprecint As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "hhl"
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 namesColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnames
End Get
End Property
_
Public ReadOnly Property purokColumn() As Global.System.Data.DataColumn
Get
Return Me.columnpurok
End Get
End Property
_
Public ReadOnly Property barangayColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbarangay
End Get
End Property
_
Public ReadOnly Property pccColumn() As Global.System.Data.DataColumn
Get
Return Me.columnpcc
End Get
End Property
_
Public ReadOnly Property booColumn() As Global.System.Data.DataColumn
Get
Return Me.columnboo
End Get
End Property
_
Public ReadOnly Property contactColumn() As Global.System.Data.DataColumn
Get
Return Me.columncontact
End Get
End Property
_
Public ReadOnly Property statusColumn() As Global.System.Data.DataColumn
Get
Return Me.columnstatus
End Get
End Property
_
Public ReadOnly Property precintColumn() As Global.System.Data.DataColumn
Get
Return Me.columnprecint
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 hhlRow
Get
Return CType(Me.Rows(index),hhlRow)
End Get
End Property
_
Public Event hhlRowChanging As hhlRowChangeEventHandler
_
Public Event hhlRowChanged As hhlRowChangeEventHandler
_
Public Event hhlRowDeleting As hhlRowChangeEventHandler
_
Public Event hhlRowDeleted As hhlRowChangeEventHandler
_
Public Overloads Sub AddhhlRow(ByVal row As hhlRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddhhlRow(ByVal names As String, ByVal purok As String, ByVal barangay As String, ByVal pcc As String, ByVal boo As String, ByVal contact As String, ByVal status As String, ByVal precint As String) As hhlRow
Dim rowhhlRow As hhlRow = CType(Me.NewRow,hhlRow)
Dim columnValuesArray() As Object = New Object() {Nothing, names, purok, barangay, pcc, boo, contact, status, precint}
rowhhlRow.ItemArray = columnValuesArray
Me.Rows.Add(rowhhlRow)
Return rowhhlRow
End Function
_
Public Function FindByid(ByVal id As Integer) As hhlRow
Return CType(Me.Rows.Find(New Object() {id}),hhlRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As hhlDataTable = CType(MyBase.Clone,hhlDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New hhlDataTable()
End Function
_
Friend Sub InitVars()
Me.columnid = MyBase.Columns("id")
Me.columnnames = MyBase.Columns("names")
Me.columnpurok = MyBase.Columns("purok")
Me.columnbarangay = MyBase.Columns("barangay")
Me.columnpcc = MyBase.Columns("pcc")
Me.columnboo = MyBase.Columns("boo")
Me.columncontact = MyBase.Columns("contact")
Me.columnstatus = MyBase.Columns("status")
Me.columnprecint = MyBase.Columns("precint")
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.columnnames = New Global.System.Data.DataColumn("names", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnnames)
Me.columnpurok = New Global.System.Data.DataColumn("purok", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnpurok)
Me.columnbarangay = New Global.System.Data.DataColumn("barangay", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbarangay)
Me.columnpcc = New Global.System.Data.DataColumn("pcc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnpcc)
Me.columnboo = New Global.System.Data.DataColumn("boo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnboo)
Me.columncontact = New Global.System.Data.DataColumn("contact", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columncontact)
Me.columnstatus = New Global.System.Data.DataColumn("status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnstatus)
Me.columnprecint = New Global.System.Data.DataColumn("precint", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnprecint)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid}, true))
Me.columnid.AutoIncrement = true
Me.columnid.AutoIncrementSeed = -1
Me.columnid.AutoIncrementStep = -1
Me.columnid.AllowDBNull = false
Me.columnid.Unique = true
Me.columnnames.AllowDBNull = false
Me.columnnames.MaxLength = 255
Me.columnpurok.AllowDBNull = false
Me.columnpurok.MaxLength = 255
Me.columnbarangay.AllowDBNull = false
Me.columnbarangay.MaxLength = 255
Me.columnpcc.AllowDBNull = false
Me.columnpcc.MaxLength = 255
Me.columnboo.AllowDBNull = false
Me.columnboo.MaxLength = 255
Me.columncontact.AllowDBNull = false
Me.columncontact.MaxLength = 255
Me.columnstatus.AllowDBNull = false
Me.columnstatus.MaxLength = 255
Me.columnprecint.AllowDBNull = false
Me.columnprecint.MaxLength = 50
End Sub
_
Public Function NewhhlRow() As hhlRow
Return CType(Me.NewRow,hhlRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New hhlRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(hhlRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.hhlRowChangedEvent) Is Nothing) Then
RaiseEvent hhlRowChanged(Me, New hhlRowChangeEvent(CType(e.Row,hhlRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.hhlRowChangingEvent) Is Nothing) Then
RaiseEvent hhlRowChanging(Me, New hhlRowChangeEvent(CType(e.Row,hhlRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.hhlRowDeletedEvent) Is Nothing) Then
RaiseEvent hhlRowDeleted(Me, New hhlRowChangeEvent(CType(e.Row,hhlRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.hhlRowDeletingEvent) Is Nothing) Then
RaiseEvent hhlRowDeleting(Me, New hhlRowChangeEvent(CType(e.Row,hhlRow), e.Action))
End If
End Sub
_
Public Sub RemovehhlRow(ByVal row As hhlRow)
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 caragavotersdbDataSet = New caragavotersdbDataSet()
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 = "hhlDataTable"
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 pcoDataTable
Inherits Global.System.Data.TypedTableBase(Of pcoRow)
Private columnid As Global.System.Data.DataColumn
Private columnnames As Global.System.Data.DataColumn
Private columnpurok As Global.System.Data.DataColumn
Private columnbarangay As Global.System.Data.DataColumn
Private columnbcc As Global.System.Data.DataColumn
Private columnboo As Global.System.Data.DataColumn
Private columncontact As Global.System.Data.DataColumn
Private columnstatus As Global.System.Data.DataColumn
Private columnprecint As Global.System.Data.DataColumn
Private columncardno As Global.System.Data.DataColumn
Private columnnumber As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "pco"
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 namesColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnames
End Get
End Property
_
Public ReadOnly Property purokColumn() As Global.System.Data.DataColumn
Get
Return Me.columnpurok
End Get
End Property
_
Public ReadOnly Property barangayColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbarangay
End Get
End Property
_
Public ReadOnly Property bccColumn() As Global.System.Data.DataColumn
Get
Return Me.columnbcc
End Get
End Property
_
Public ReadOnly Property booColumn() As Global.System.Data.DataColumn
Get
Return Me.columnboo
End Get
End Property
_
Public ReadOnly Property contactColumn() As Global.System.Data.DataColumn
Get
Return Me.columncontact
End Get
End Property
_
Public ReadOnly Property statusColumn() As Global.System.Data.DataColumn
Get
Return Me.columnstatus
End Get
End Property
_
Public ReadOnly Property precintColumn() As Global.System.Data.DataColumn
Get
Return Me.columnprecint
End Get
End Property
_
Public ReadOnly Property cardnoColumn() As Global.System.Data.DataColumn
Get
Return Me.columncardno
End Get
End Property
_
Public ReadOnly Property numberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnumber
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 pcoRow
Get
Return CType(Me.Rows(index),pcoRow)
End Get
End Property
_
Public Event pcoRowChanging As pcoRowChangeEventHandler
_
Public Event pcoRowChanged As pcoRowChangeEventHandler
_
Public Event pcoRowDeleting As pcoRowChangeEventHandler
_
Public Event pcoRowDeleted As pcoRowChangeEventHandler
_
Public Overloads Sub AddpcoRow(ByVal row As pcoRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddpcoRow(ByVal names As String, ByVal purok As String, ByVal barangay As String, ByVal bcc As String, ByVal boo As String, ByVal contact As String, ByVal status As String, ByVal precint As String, ByVal cardno As String, ByVal number As Integer) As pcoRow
Dim rowpcoRow As pcoRow = CType(Me.NewRow,pcoRow)
Dim columnValuesArray() As Object = New Object() {Nothing, names, purok, barangay, bcc, boo, contact, status, precint, cardno, number}
rowpcoRow.ItemArray = columnValuesArray
Me.Rows.Add(rowpcoRow)
Return rowpcoRow
End Function
_
Public Function FindByid(ByVal id As Integer) As pcoRow
Return CType(Me.Rows.Find(New Object() {id}),pcoRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As pcoDataTable = CType(MyBase.Clone,pcoDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New pcoDataTable()
End Function
_
Friend Sub InitVars()
Me.columnid = MyBase.Columns("id")
Me.columnnames = MyBase.Columns("names")
Me.columnpurok = MyBase.Columns("purok")
Me.columnbarangay = MyBase.Columns("barangay")
Me.columnbcc = MyBase.Columns("bcc")
Me.columnboo = MyBase.Columns("boo")
Me.columncontact = MyBase.Columns("contact")
Me.columnstatus = MyBase.Columns("status")
Me.columnprecint = MyBase.Columns("precint")
Me.columncardno = MyBase.Columns("cardno")
Me.columnnumber = MyBase.Columns("number")
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.columnnames = New Global.System.Data.DataColumn("names", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnnames)
Me.columnpurok = New Global.System.Data.DataColumn("purok", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnpurok)
Me.columnbarangay = New Global.System.Data.DataColumn("barangay", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbarangay)
Me.columnbcc = New Global.System.Data.DataColumn("bcc", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnbcc)
Me.columnboo = New Global.System.Data.DataColumn("boo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnboo)
Me.columncontact = New Global.System.Data.DataColumn("contact", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columncontact)
Me.columnstatus = New Global.System.Data.DataColumn("status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnstatus)
Me.columnprecint = New Global.System.Data.DataColumn("precint", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnprecint)
Me.columncardno = New Global.System.Data.DataColumn("cardno", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columncardno)
Me.columnnumber = New Global.System.Data.DataColumn("number", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnnumber)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnid}, true))
Me.columnid.AutoIncrement = true
Me.columnid.AutoIncrementSeed = -1
Me.columnid.AutoIncrementStep = -1
Me.columnid.AllowDBNull = false
Me.columnid.Unique = true
Me.columnnames.AllowDBNull = false
Me.columnnames.MaxLength = 255
Me.columnpurok.AllowDBNull = false
Me.columnpurok.MaxLength = 255
Me.columnbarangay.AllowDBNull = false
Me.columnbarangay.MaxLength = 255
Me.columnbcc.AllowDBNull = false
Me.columnbcc.MaxLength = 255
Me.columnboo.AllowDBNull = false
Me.columnboo.MaxLength = 255
Me.columncontact.AllowDBNull = false
Me.columncontact.MaxLength = 255
Me.columnstatus.AllowDBNull = false
Me.columnstatus.MaxLength = 255
Me.columnprecint.AllowDBNull = false
Me.columnprecint.MaxLength = 50
Me.columncardno.AllowDBNull = false
Me.columncardno.MaxLength = 50
Me.columnnumber.AllowDBNull = false
End Sub