1 '------------------------------------------------------------------------------

2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.42000
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14
15
16 '''<summary>
17 '''Represents a strongly typed in-memory cache of data.
18 '''</summary>
19 <Global.System.Serializable(), _
20 Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21 Global.System.ComponentModel.ToolboxItem(true), _
22 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23 Global.System.Xml.Serialization.XmlRootAttribute("warehouseDataSet"), _
24 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25 Partial Public Class warehouseDataSet
26 Inherits Global.System.Data.DataSet
27
28 Private tableHISTORY As HISTORYDataTable
29
30 Private tableinventory As inventoryDataTable
31
32 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode =
Global.System.Data.SchemaSerializationMode.IncludeSchema
33
34 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
35 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
36 Public Sub New()
37 MyBase.New
38 Me.BeginInit
39 Me.InitClass
40 Dim schemaChangedHandler As
Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf
Me.SchemaChanged
41 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
42 AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
43 Me.EndInit
44 End Sub
45
46 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
47 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
48 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo
, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
49 MyBase.New(info, context, false)
50 If (Me.IsBinarySerialized(info, context) = true) Then
51 Me.InitVars(false)
52 Dim schemaChangedHandler1 As
Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf
Me.SchemaChanged
53 AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
54 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
55 Return
56 End If
57 Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),
String)
58 If (Me.DetermineSchemaSerializationMode(info, context) =
Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
59 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
 60 ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New
Global.System.IO.StringReader(strSchema)))
61 If (Not (ds.Tables("HISTORY")) Is Nothing) Then
62 MyBase.Tables.Add(New HISTORYDataTable(ds.Tables("HISTORY")))
63 End If
64 If (Not (ds.Tables("inventory")) Is Nothing) Then
65 MyBase.Tables.Add(New inventoryDataTable(ds.Tables("inventory")))
66 End If
67 Me.DataSetName = ds.DataSetName
68 Me.Prefix = ds.Prefix
69 Me.Namespace = ds.Namespace
70 Me.Locale = ds.Locale
71 Me.CaseSensitive = ds.CaseSensitive
72 Me.EnforceConstraints = ds.EnforceConstraints
73 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
74 Me.InitVars
75 Else
76 Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New
Global.System.IO.StringReader(strSchema)))
77 End If
78 Me.GetSerializationData(info, context)
79 Dim schemaChangedHandler As
Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf
Me.SchemaChanged
80 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
81 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
82 End Sub
83
84 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
85 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
86 Global.System.ComponentModel.Browsable(false), _
87 Global.System.ComponentModel.DesignerSerializationVisibility(
Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
88 Public ReadOnly Property HISTORY() As HISTORYDataTable
89 Get
90 Return Me.tableHISTORY
91 End Get
92 End Property
93
94 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
95 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
96 Global.System.ComponentModel.Browsable(false), _
97 Global.System.ComponentModel.DesignerSerializationVisibility(
Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
98 Public ReadOnly Property inventory() As inventoryDataTable
99 Get
100 Return Me.tableinventory
101 End Get
102 End Property
103
104 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
105 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
106 Global.System.ComponentModel.BrowsableAttribute(true), _
107 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(
Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
108 Public Overrides Property SchemaSerializationMode() As
Global.System.Data.SchemaSerializationMode
109 Get
110 Return Me._schemaSerializationMode
111 End Get
112 Set
113 Me._schemaSerializationMode = value
114 End Set
115 End Property
116
117 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
118 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
119 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(
Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
120 Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
121 Get
122 Return MyBase.Tables
123 End Get
124 End Property
125
126 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
127 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
128 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(
Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
129 Public Shadows ReadOnly Property Relations() As
Global.System.Data.DataRelationCollection
130 Get
131 Return MyBase.Relations
132 End Get
133 End Property
134
135 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
136 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
137 Protected Overrides Sub InitializeDerivedDataSet()
138 Me.BeginInit
139 Me.InitClass
140 Me.EndInit
141 End Sub
142
143 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
144 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
145 Public Overrides Function Clone() As Global.System.Data.DataSet
146 Dim cln As warehouseDataSet = CType(MyBase.Clone,warehouseDataSet)
147 cln.InitVars
148 cln.SchemaSerializationMode = Me.SchemaSerializationMode
149 Return cln
150 End Function
151
152 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
153 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
154 Protected Overrides Function ShouldSerializeTables() As Boolean
155 Return false
156 End Function
157
158 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
159 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
160 Protected Overrides Function ShouldSerializeRelations() As Boolean
161 Return false
162 End Function
163
164 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
165 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
166 Protected Overrides Sub ReadXmlSerializable(ByVal reader As
Global.System.Xml.XmlReader)
167 If (Me.DetermineSchemaSerializationMode(reader) =
Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
168 Me.Reset
169 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
170 ds.ReadXml(reader)
171 If (Not (ds.Tables("HISTORY")) Is Nothing) Then
172 MyBase.Tables.Add(New HISTORYDataTable(ds.Tables("HISTORY")))
173 End If
174 If (Not (ds.Tables("inventory")) Is Nothing) Then
175 MyBase.Tables.Add(New inventoryDataTable(ds.Tables("inventory")))
176 End If
177 Me.DataSetName = ds.DataSetName
178 Me.Prefix = ds.Prefix
179 Me.Namespace = ds.Namespace
180 Me.Locale = ds.Locale
181 Me.CaseSensitive = ds.CaseSensitive
182 Me.EnforceConstraints = ds.EnforceConstraints
183 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
184 Me.InitVars
185 Else
186 Me.ReadXml(reader)
187 Me.InitVars
188 End If
189 End Sub
190
191 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
192 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
193 Protected Overrides Function GetSchemaSerializable() As
Global.System.Xml.Schema.XmlSchema
194 Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
195 Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
196 stream.Position = 0
197 Return Global.System.Xml.Schema.XmlSchema.Read(New
Global.System.Xml.XmlTextReader(stream), Nothing)
198 End Function
199
200 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
201 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
202 Friend Overloads Sub InitVars()
203 Me.InitVars(true)
204 End Sub
205
206 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
207 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
208 Friend Overloads Sub InitVars(ByVal initTable As Boolean)
209 Me.tableHISTORY = CType(MyBase.Tables("HISTORY"),HISTORYDataTable)
210 If (initTable = true) Then
211 If (Not (Me.tableHISTORY) Is Nothing) Then
212 Me.tableHISTORY.InitVars
213 End If
214 End If
215 Me.tableinventory = CType(MyBase.Tables("inventory"),inventoryDataTable)
216 If (initTable = true) Then
217 If (Not (Me.tableinventory) Is Nothing) Then
218 Me.tableinventory.InitVars
219 End If
220 End If
221 End Sub
222
223 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
224 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
225 Private Sub InitClass()
226 Me.DataSetName = "warehouseDataSet"
227 Me.Prefix = ""
228 Me.Namespace = "http://tempuri.org/warehouseDataSet.xsd"
229 Me.EnforceConstraints = true
230 Me.SchemaSerializationMode =
Global.System.Data.SchemaSerializationMode.IncludeSchema
231 Me.tableHISTORY = New HISTORYDataTable()
232 MyBase.Tables.Add(Me.tableHISTORY)
233 Me.tableinventory = New inventoryDataTable()
234 MyBase.Tables.Add(Me.tableinventory)
235 End Sub
236
237 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
238 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
239 Private Function ShouldSerializeHISTORY() As Boolean
240 Return false
241 End Function
242
243 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
244 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
245 Private Function ShouldSerializeinventory() As Boolean
246 Return false
247 End Function
248
249 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
250 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
251 Private Sub SchemaChanged(ByVal sender As Object, ByVal e As
Global.System.ComponentModel.CollectionChangeEventArgs)
252 If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
253 Me.InitVars
254 End If
255 End Sub
256
257 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
258 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
259 Public Shared Function GetTypedDataSetSchema(ByVal xs As
Global.System.Xml.Schema.XmlSchemaSet) As
Global.System.Xml.Schema.XmlSchemaComplexType
260 Dim ds As warehouseDataSet = New warehouseDataSet()
261 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New
Global.System.Xml.Schema.XmlSchemaComplexType()
262 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New
Global.System.Xml.Schema.XmlSchemaSequence()
263 Dim any As Global.System.Xml.Schema.XmlSchemaAny = New
Global.System.Xml.Schema.XmlSchemaAny()
264 any.Namespace = ds.Namespace
265 sequence.Items.Add(any)
266 type.Particle = sequence
267 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
268 If xs.Contains(dsSchema.TargetNamespace) Then
269 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
270 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
271 Try
272 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
273 dsSchema.Write(s1)
274 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(
dsSchema.TargetNamespace).GetEnumerator
275 Do While schemas.MoveNext
276 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
277 s2.SetLength(0)
278 schema.Write(s2)
279 If (s1.Length = s2.Length) Then
280 s1.Position = 0
281 s2.Position = 0
282
283 Do While ((s1.Position <> s1.Length) _
284 AndAlso (s1.ReadByte = s2.ReadByte))
285
286
287 Loop
288 If (s1.Position = s1.Length) Then
289 Return type
290 End If
291 End If
292
293 Loop
294 Finally
295 If (Not (s1) Is Nothing) Then
296 s1.Close
297 End If
298 If (Not (s2) Is Nothing) Then
299 s2.Close
300 End If
301 End Try
302 End If
303 xs.Add(dsSchema)
304 Return type
305 End Function
306
307 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
308 Public Delegate Sub HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As
HISTORYRowChangeEvent)
309
310 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
311 Public Delegate Sub inventoryRowChangeEventHandler(ByVal sender As Object, ByVal e As
inventoryRowChangeEvent)
312
313 '''<summary>
314 '''Represents the strongly named DataTable class.
315 '''</summary>
316 <Global.System.Serializable(), _
317 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")>
_
318 Partial Public Class HISTORYDataTable
319 Inherits Global.System.Data.TypedTableBase(Of HISTORYRow)
320
321 Private columnID As Global.System.Data.DataColumn
322
323 Private columnITEM_NUMBER As Global.System.Data.DataColumn
324
325 Private columnDESCRIPTION As Global.System.Data.DataColumn
326
327 Private columnQUANTITY As Global.System.Data.DataColumn
328
329 Private columnUNIT_PRICE As Global.System.Data.DataColumn
330
331 Private columnDATE_RELEASED As Global.System.Data.DataColumn
332
333 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
334 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
335 Public Sub New()
336 MyBase.New
337 Me.TableName = "HISTORY"
338 Me.BeginInit
339 Me.InitClass
340 Me.EndInit
341 End Sub
342
343 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
344 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
345 Friend Sub New(ByVal table As Global.System.Data.DataTable)
346 MyBase.New
347 Me.TableName = table.TableName
348 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
349 Me.CaseSensitive = table.CaseSensitive
350 End If
351 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
352 Me.Locale = table.Locale
353 End If
354 If (table.Namespace <> table.DataSet.Namespace) Then
355 Me.Namespace = table.Namespace
356 End If
357 Me.Prefix = table.Prefix
358 Me.MinimumCapacity = table.MinimumCapacity
359 End Sub
360
361 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
362 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
363 Protected Sub New(ByVal info As
Global.System.Runtime.Serialization.SerializationInfo, ByVal context As
Global.System.Runtime.Serialization.StreamingContext)
364 MyBase.New(info, context)
365 Me.InitVars
366 End Sub
367
368 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
369 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
370 Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
371 Get
372 Return Me.columnID
373 End Get
374 End Property
375
376 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
377 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
378 Public ReadOnly Property ITEM_NUMBERColumn() As Global.System.Data.DataColumn
379 Get
380 Return Me.columnITEM_NUMBER
381 End Get
382 End Property
383
384 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
385 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
386 Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn
387 Get
388 Return Me.columnDESCRIPTION
389 End Get
390 End Property
391
392 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
393 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
394 Public ReadOnly Property QUANTITYColumn() As Global.System.Data.DataColumn
395 Get
396 Return Me.columnQUANTITY
397 End Get
398 End Property
399
400 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
401 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
402 Public ReadOnly Property UNIT_PRICEColumn() As Global.System.Data.DataColumn
403 Get
404 Return Me.columnUNIT_PRICE
405 End Get
406 End Property
407
408 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
409 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
410 Public ReadOnly Property DATE_RELEASEDColumn() As Global.System.Data.DataColumn
411 Get
412 Return Me.columnDATE_RELEASED
413 End Get
414 End Property
415
416 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
417 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
418 Global.System.ComponentModel.Browsable(false)> _
419 Public ReadOnly Property Count() As Integer
420 Get
421 Return Me.Rows.Count
422 End Get
423 End Property
424
425 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
426 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
427 Public Default ReadOnly Property Item(ByVal index As Integer) As HISTORYRow
428 Get
429 Return CType(Me.Rows(index),HISTORYRow)
430 End Get
431 End Property
432
433 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
434 Public Event HISTORYRowChanging As HISTORYRowChangeEventHandler
435
436 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
437 Public Event HISTORYRowChanged As HISTORYRowChangeEventHandler
438
439 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
440 Public Event HISTORYRowDeleting As HISTORYRowChangeEventHandler
441
442 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
443 Public Event HISTORYRowDeleted As HISTORYRowChangeEventHandler
444
445 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
446 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
447 Public Overloads Sub AddHISTORYRow(ByVal row As HISTORYRow)
448 Me.Rows.Add(row)
449 End Sub
450
451 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
452 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
453 Public Overloads Function AddHISTORYRow(ByVal ITEM_NUMBER As String, ByVal
DESCRIPTION As String, ByVal QUANTITY As Integer, ByVal UNIT_PRICE As Integer,
ByVal DATE_RELEASED As Date) As HISTORYRow
454 Dim rowHISTORYRow As HISTORYRow = CType(Me.NewRow,HISTORYRow)
455 Dim columnValuesArray() As Object = New Object() {Nothing, ITEM_NUMBER,
DESCRIPTION, QUANTITY, UNIT_PRICE, DATE_RELEASED}
456 rowHISTORYRow.ItemArray = columnValuesArray
457 Me.Rows.Add(rowHISTORYRow)
458 Return rowHISTORYRow
459 End Function
460
461 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
462 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
463 Public Function FindByID(ByVal ID As Integer) As HISTORYRow
464 Return CType(Me.Rows.Find(New Object() {ID}),HISTORYRow)
465 End Function
466
467 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
468 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
469 Public Overrides Function Clone() As Global.System.Data.DataTable
470 Dim cln As HISTORYDataTable = CType(MyBase.Clone,HISTORYDataTable)
471 cln.InitVars
472 Return cln
473 End Function
474
475 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
476 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
477 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
478 Return New HISTORYDataTable()
479 End Function
480
481 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
482 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
483 Friend Sub InitVars()
484 Me.columnID = MyBase.Columns("ID")
485 Me.columnITEM_NUMBER = MyBase.Columns("ITEM NUMBER")
486 Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
487 Me.columnQUANTITY = MyBase.Columns("QUANTITY")
488 Me.columnUNIT_PRICE = MyBase.Columns("UNIT PRICE")
489 Me.columnDATE_RELEASED = MyBase.Columns("DATE RELEASED")
490 End Sub
491
492 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
493 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
494 Private Sub InitClass()
495 Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer),
Nothing, Global.System.Data.MappingType.Element)
496 MyBase.Columns.Add(Me.columnID)
497 Me.columnITEM_NUMBER = New Global.System.Data.DataColumn("ITEM NUMBER",
GetType(String), Nothing, Global.System.Data.MappingType.Element)
498 MyBase.Columns.Add(Me.columnITEM_NUMBER)
499 Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION",
GetType(String), Nothing, Global.System.Data.MappingType.Element)
500 MyBase.Columns.Add(Me.columnDESCRIPTION)
501 Me.columnQUANTITY = New Global.System.Data.DataColumn("QUANTITY", GetType(
Integer), Nothing, Global.System.Data.MappingType.Element)
502 MyBase.Columns.Add(Me.columnQUANTITY)
503 Me.columnUNIT_PRICE = New Global.System.Data.DataColumn("UNIT PRICE", GetType
(Integer), Nothing, Global.System.Data.MappingType.Element)
504 MyBase.Columns.Add(Me.columnUNIT_PRICE)
505 Me.columnDATE_RELEASED = New Global.System.Data.DataColumn("DATE RELEASED",
GetType(Date), Nothing, Global.System.Data.MappingType.Element)
506 MyBase.Columns.Add(Me.columnDATE_RELEASED)
507 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New
Global.System.Data.DataColumn() {Me.columnID}, true))
508 Me.columnID.AutoIncrement = true
509 Me.columnID.AutoIncrementSeed = -1
510 Me.columnID.AutoIncrementStep = -1
511 Me.columnID.AllowDBNull = false
512 Me.columnID.Unique = true
513 Me.columnITEM_NUMBER.MaxLength = 255
514 Me.columnDESCRIPTION.MaxLength = 255
515 End Sub
516
517 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
518 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
519 Public Function NewHISTORYRow() As HISTORYRow
520 Return CType(Me.NewRow,HISTORYRow)
521 End Function
522
523 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
524 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
525 Protected Overrides Function NewRowFromBuilder(ByVal builder As
Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
526 Return New HISTORYRow(builder)
527 End Function
528
529 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
530 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
531 Protected Overrides Function GetRowType() As Global.System.Type
532 Return GetType(HISTORYRow)
533 End Function
534
535 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
536 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
537 Protected Overrides Sub OnRowChanged(ByVal e As
Global.System.Data.DataRowChangeEventArgs)
538 MyBase.OnRowChanged(e)
539 If (Not (Me.HISTORYRowChangedEvent) Is Nothing) Then
540 RaiseEvent HISTORYRowChanged(Me, New HISTORYRowChangeEvent(CType(e.Row,
HISTORYRow), e.Action))
541 End If
542 End Sub
543
544 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
545 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
546 Protected Overrides Sub OnRowChanging(ByVal e As
Global.System.Data.DataRowChangeEventArgs)
547 MyBase.OnRowChanging(e)
548 If (Not (Me.HISTORYRowChangingEvent) Is Nothing) Then
549 RaiseEvent HISTORYRowChanging(Me, New HISTORYRowChangeEvent(CType(e.Row,
HISTORYRow), e.Action))
550 End If
551 End Sub
552
553 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
554 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
555 Protected Overrides Sub OnRowDeleted(ByVal e As
Global.System.Data.DataRowChangeEventArgs)
556 MyBase.OnRowDeleted(e)
557 If (Not (Me.HISTORYRowDeletedEvent) Is Nothing) Then
558 RaiseEvent HISTORYRowDeleted(Me, New HISTORYRowChangeEvent(CType(e.Row,
HISTORYRow), e.Action))
559 End If
560 End Sub
561
562 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
563 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
564 Protected Overrides Sub OnRowDeleting(ByVal e As
Global.System.Data.DataRowChangeEventArgs)
565 MyBase.OnRowDeleting(e)
566 If (Not (Me.HISTORYRowDeletingEvent) Is Nothing) Then
567 RaiseEvent HISTORYRowDeleting(Me, New HISTORYRowChangeEvent(CType(e.Row,
HISTORYRow), e.Action))
568 End If
569 End Sub
570
571 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
572 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
573 Public Sub RemoveHISTORYRow(ByVal row As HISTORYRow)
574 Me.Rows.Remove(row)
575 End Sub
576
577 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
578 Global.System.CodeDom.Compiler.GeneratedCodeAttribute(
"System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
579 Public Shared Function GetTypedTableSchema(ByVal xs As
Global.System.Xml.Schema.XmlSchemaSet) As
Global.System.Xml.Schema.XmlSchemaComplexType
580 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New