commit f4a947fe94a4cdd338c4adb70f92d2ddf17041ca Author: rasz Date: Fri Nov 19 22:41:24 2021 -0300 initial commit diff --git a/ProjetoTrabalho.sln b/ProjetoTrabalho.sln new file mode 100755 index 0000000..6ab6ea4 --- /dev/null +++ b/ProjetoTrabalho.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.27703.2018 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ProjetoTrabalho", "ProjetoTrabalho\ProjetoTrabalho.vbproj", "{0CD07180-BDAA-4782-8FB9-C303F18AE0E6}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {0CD07180-BDAA-4782-8FB9-C303F18AE0E6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {0CD07180-BDAA-4782-8FB9-C303F18AE0E6}.Debug|Any CPU.Build.0 = Debug|Any CPU + {0CD07180-BDAA-4782-8FB9-C303F18AE0E6}.Release|Any CPU.ActiveCfg = Release|Any CPU + {0CD07180-BDAA-4782-8FB9-C303F18AE0E6}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {236B27D9-67F6-4891-A1C4-68D74D4E59F9} + EndGlobalSection +EndGlobal diff --git a/ProjetoTrabalho/App.config b/ProjetoTrabalho/App.config new file mode 100755 index 0000000..556f852 --- /dev/null +++ b/ProjetoTrabalho/App.config @@ -0,0 +1,13 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/ProjetoTrabalho/Consultas/FAdm.Designer.vb b/ProjetoTrabalho/Consultas/FAdm.Designer.vb new file mode 100755 index 0000000..7ff0468 --- /dev/null +++ b/ProjetoTrabalho/Consultas/FAdm.Designer.vb @@ -0,0 +1,358 @@ + _ +Partial Class FAdm + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FAdm)) + Dim IdAdminLabel As System.Windows.Forms.Label + Dim NomeAdminLabel As System.Windows.Forms.Label + Dim CidadeAdminLabel As System.Windows.Forms.Label + Dim LoginAdminLabel As System.Windows.Forms.Label + Dim SenhaAdminLabel As System.Windows.Forms.Label + Dim StatusAdminLabel As System.Windows.Forms.Label + Me.Bancouc10DataSet = New ProjetoTrabalho.bancouc10DataSet() + Me.TbAdminBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbAdminTableAdapter = New ProjetoTrabalho.bancouc10DataSetTableAdapters.tbAdminTableAdapter() + Me.TableAdapterManager = New ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager() + Me.TbAdminBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.TbAdminBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdAdminTextBox = New System.Windows.Forms.TextBox() + Me.NomeAdminTextBox = New System.Windows.Forms.TextBox() + Me.CidadeAdminTextBox = New System.Windows.Forms.TextBox() + Me.LoginAdminTextBox = New System.Windows.Forms.TextBox() + Me.SenhaAdminTextBox = New System.Windows.Forms.TextBox() + Me.StatusAdminTextBox = New System.Windows.Forms.TextBox() + IdAdminLabel = New System.Windows.Forms.Label() + NomeAdminLabel = New System.Windows.Forms.Label() + CidadeAdminLabel = New System.Windows.Forms.Label() + LoginAdminLabel = New System.Windows.Forms.Label() + SenhaAdminLabel = New System.Windows.Forms.Label() + StatusAdminLabel = New System.Windows.Forms.Label() + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbAdminBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbAdminBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbAdminBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'Bancouc10DataSet + ' + Me.Bancouc10DataSet.DataSetName = "bancouc10DataSet" + Me.Bancouc10DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbAdminBindingSource + ' + Me.TbAdminBindingSource.DataMember = "tbAdmin" + Me.TbAdminBindingSource.DataSource = Me.Bancouc10DataSet + ' + 'TbAdminTableAdapter + ' + Me.TbAdminTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAdminTableAdapter = Me.TbAdminTableAdapter + Me.TableAdapterManager.tbCadastroTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbAdminBindingNavigator + ' + Me.TbAdminBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbAdminBindingNavigator.BindingSource = Me.TbAdminBindingSource + Me.TbAdminBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbAdminBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbAdminBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TbAdminBindingNavigatorSaveItem}) + Me.TbAdminBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbAdminBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbAdminBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbAdminBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbAdminBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbAdminBindingNavigator.Name = "TbAdminBindingNavigator" + Me.TbAdminBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbAdminBindingNavigator.Size = New System.Drawing.Size(301, 25) + Me.TbAdminBindingNavigator.TabIndex = 0 + Me.TbAdminBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 15) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 6) + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'TbAdminBindingNavigatorSaveItem + ' + Me.TbAdminBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbAdminBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbAdminBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbAdminBindingNavigatorSaveItem.Name = "TbAdminBindingNavigatorSaveItem" + Me.TbAdminBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.TbAdminBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdAdminLabel + ' + IdAdminLabel.AutoSize = True + IdAdminLabel.Location = New System.Drawing.Point(12, 48) + IdAdminLabel.Name = "IdAdminLabel" + IdAdminLabel.Size = New System.Drawing.Size(50, 13) + IdAdminLabel.TabIndex = 1 + IdAdminLabel.Text = "id Admin:" + ' + 'IdAdminTextBox + ' + Me.IdAdminTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAdminBindingSource, "idAdmin", True)) + Me.IdAdminTextBox.Enabled = False + Me.IdAdminTextBox.Location = New System.Drawing.Point(92, 45) + Me.IdAdminTextBox.Name = "IdAdminTextBox" + Me.IdAdminTextBox.Size = New System.Drawing.Size(100, 20) + Me.IdAdminTextBox.TabIndex = 2 + ' + 'NomeAdminLabel + ' + NomeAdminLabel.AutoSize = True + NomeAdminLabel.Location = New System.Drawing.Point(12, 74) + NomeAdminLabel.Name = "NomeAdminLabel" + NomeAdminLabel.Size = New System.Drawing.Size(68, 13) + NomeAdminLabel.TabIndex = 3 + NomeAdminLabel.Text = "nome Admin:" + ' + 'NomeAdminTextBox + ' + Me.NomeAdminTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAdminBindingSource, "nomeAdmin", True)) + Me.NomeAdminTextBox.Location = New System.Drawing.Point(92, 71) + Me.NomeAdminTextBox.Name = "NomeAdminTextBox" + Me.NomeAdminTextBox.Size = New System.Drawing.Size(100, 20) + Me.NomeAdminTextBox.TabIndex = 4 + ' + 'CidadeAdminLabel + ' + CidadeAdminLabel.AutoSize = True + CidadeAdminLabel.Location = New System.Drawing.Point(12, 100) + CidadeAdminLabel.Name = "CidadeAdminLabel" + CidadeAdminLabel.Size = New System.Drawing.Size(74, 13) + CidadeAdminLabel.TabIndex = 5 + CidadeAdminLabel.Text = "cidade Admin:" + ' + 'CidadeAdminTextBox + ' + Me.CidadeAdminTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAdminBindingSource, "cidadeAdmin", True)) + Me.CidadeAdminTextBox.Location = New System.Drawing.Point(92, 97) + Me.CidadeAdminTextBox.Name = "CidadeAdminTextBox" + Me.CidadeAdminTextBox.Size = New System.Drawing.Size(100, 20) + Me.CidadeAdminTextBox.TabIndex = 6 + ' + 'LoginAdminLabel + ' + LoginAdminLabel.AutoSize = True + LoginAdminLabel.Location = New System.Drawing.Point(12, 126) + LoginAdminLabel.Name = "LoginAdminLabel" + LoginAdminLabel.Size = New System.Drawing.Size(64, 13) + LoginAdminLabel.TabIndex = 7 + LoginAdminLabel.Text = "login Admin:" + ' + 'LoginAdminTextBox + ' + Me.LoginAdminTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAdminBindingSource, "loginAdmin", True)) + Me.LoginAdminTextBox.Location = New System.Drawing.Point(92, 123) + Me.LoginAdminTextBox.Name = "LoginAdminTextBox" + Me.LoginAdminTextBox.Size = New System.Drawing.Size(100, 20) + Me.LoginAdminTextBox.TabIndex = 8 + ' + 'SenhaAdminLabel + ' + SenhaAdminLabel.AutoSize = True + SenhaAdminLabel.Location = New System.Drawing.Point(12, 152) + SenhaAdminLabel.Name = "SenhaAdminLabel" + SenhaAdminLabel.Size = New System.Drawing.Size(71, 13) + SenhaAdminLabel.TabIndex = 9 + SenhaAdminLabel.Text = "senha Admin:" + ' + 'SenhaAdminTextBox + ' + Me.SenhaAdminTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAdminBindingSource, "senhaAdmin", True)) + Me.SenhaAdminTextBox.Location = New System.Drawing.Point(92, 149) + Me.SenhaAdminTextBox.Name = "SenhaAdminTextBox" + Me.SenhaAdminTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.SenhaAdminTextBox.Size = New System.Drawing.Size(100, 20) + Me.SenhaAdminTextBox.TabIndex = 10 + ' + 'StatusAdminLabel + ' + StatusAdminLabel.AutoSize = True + StatusAdminLabel.Location = New System.Drawing.Point(12, 178) + StatusAdminLabel.Name = "StatusAdminLabel" + StatusAdminLabel.Size = New System.Drawing.Size(70, 13) + StatusAdminLabel.TabIndex = 11 + StatusAdminLabel.Text = "status Admin:" + ' + 'StatusAdminTextBox + ' + Me.StatusAdminTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAdminBindingSource, "statusAdmin", True)) + Me.StatusAdminTextBox.Location = New System.Drawing.Point(92, 175) + Me.StatusAdminTextBox.Name = "StatusAdminTextBox" + Me.StatusAdminTextBox.Size = New System.Drawing.Size(100, 20) + Me.StatusAdminTextBox.TabIndex = 12 + ' + 'FAdm + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(301, 225) + Me.Controls.Add(IdAdminLabel) + Me.Controls.Add(Me.IdAdminTextBox) + Me.Controls.Add(NomeAdminLabel) + Me.Controls.Add(Me.NomeAdminTextBox) + Me.Controls.Add(CidadeAdminLabel) + Me.Controls.Add(Me.CidadeAdminTextBox) + Me.Controls.Add(LoginAdminLabel) + Me.Controls.Add(Me.LoginAdminTextBox) + Me.Controls.Add(SenhaAdminLabel) + Me.Controls.Add(Me.SenhaAdminTextBox) + Me.Controls.Add(StatusAdminLabel) + Me.Controls.Add(Me.StatusAdminTextBox) + Me.Controls.Add(Me.TbAdminBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FAdm" + Me.Text = "FAdm" + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbAdminBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbAdminBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbAdminBindingNavigator.ResumeLayout(False) + Me.TbAdminBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Bancouc10DataSet As bancouc10DataSet + Friend WithEvents TbAdminBindingSource As BindingSource + Friend WithEvents TbAdminTableAdapter As bancouc10DataSetTableAdapters.tbAdminTableAdapter + Friend WithEvents TableAdapterManager As bancouc10DataSetTableAdapters.TableAdapterManager + Friend WithEvents TbAdminBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents TbAdminBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdAdminTextBox As TextBox + Friend WithEvents NomeAdminTextBox As TextBox + Friend WithEvents CidadeAdminTextBox As TextBox + Friend WithEvents LoginAdminTextBox As TextBox + Friend WithEvents SenhaAdminTextBox As TextBox + Friend WithEvents StatusAdminTextBox As TextBox +End Class diff --git a/ProjetoTrabalho/Consultas/FAdm.resx b/ProjetoTrabalho/Consultas/FAdm.resx new file mode 100755 index 0000000..1a8c519 --- /dev/null +++ b/ProjetoTrabalho/Consultas/FAdm.resx @@ -0,0 +1,226 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 170, 17 + + + 350, 17 + + + 524, 17 + + + 697, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA + jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY + nnX8iGkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE + yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt + BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia + gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh + Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F + GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm + RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ + O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac + Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y + 8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k + 6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/ + v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p + /v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV + /fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf + N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z + 9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W + bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo + pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+ + +5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS + yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj + ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN + IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/ + 6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABMSURBVDhPY6AK+Pbt239SMVQrBIAFgufA8Yf3H+EYWQxE + x0zYh2kIKQaAMMwQqHbSDQBhog1AxshqaGsAMXjUgEFpADkYqp0SwMAAAPRDDFPA2mtzAAAAAElFTkSu + QmCC + + + + False + + + False + + + False + + + False + + + False + + + False + + \ No newline at end of file diff --git a/ProjetoTrabalho/Consultas/FAdm.vb b/ProjetoTrabalho/Consultas/FAdm.vb new file mode 100755 index 0000000..387940f --- /dev/null +++ b/ProjetoTrabalho/Consultas/FAdm.vb @@ -0,0 +1,14 @@ +Public Class FAdm + Private Sub TbAdminBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbAdminBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbAdminBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Bancouc10DataSet) + + End Sub + + Private Sub FAdm_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.tbAdmin'. Você pode movê-la ou removê-la conforme necessário. + Me.TbAdminTableAdapter.Fill(Me.Bancouc10DataSet.tbAdmin) + + End Sub +End Class \ No newline at end of file diff --git a/ProjetoTrabalho/Consultas/FUser.Designer.vb b/ProjetoTrabalho/Consultas/FUser.Designer.vb new file mode 100755 index 0000000..eaca6e8 --- /dev/null +++ b/ProjetoTrabalho/Consultas/FUser.Designer.vb @@ -0,0 +1,401 @@ + _ +Partial Class FUser + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim IdUserLabel As System.Windows.Forms.Label + Dim NomeUserLabel As System.Windows.Forms.Label + Dim CidadeUserLabel As System.Windows.Forms.Label + Dim LoginUserLabel As System.Windows.Forms.Label + Dim SenhaUserLabel As System.Windows.Forms.Label + Dim StatusUserLabel As System.Windows.Forms.Label + Dim IdCadastradorLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FUser)) + Me.Bancouc10DataSet = New ProjetoTrabalho.bancouc10DataSet() + Me.TbCadastroBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbCadastroTableAdapter = New ProjetoTrabalho.bancouc10DataSetTableAdapters.tbCadastroTableAdapter() + Me.TableAdapterManager = New ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager() + Me.TbAdminTableAdapter = New ProjetoTrabalho.bancouc10DataSetTableAdapters.tbAdminTableAdapter() + Me.TbCadastroBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TbCadastroBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdUserTextBox = New System.Windows.Forms.TextBox() + Me.NomeUserTextBox = New System.Windows.Forms.TextBox() + Me.CidadeUserTextBox = New System.Windows.Forms.TextBox() + Me.LoginUserTextBox = New System.Windows.Forms.TextBox() + Me.SenhaUserTextBox = New System.Windows.Forms.TextBox() + Me.IdCadastradorComboBox = New System.Windows.Forms.ComboBox() + Me.TbAdminBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.StatusUserTextBox = New System.Windows.Forms.TextBox() + IdUserLabel = New System.Windows.Forms.Label() + NomeUserLabel = New System.Windows.Forms.Label() + CidadeUserLabel = New System.Windows.Forms.Label() + LoginUserLabel = New System.Windows.Forms.Label() + SenhaUserLabel = New System.Windows.Forms.Label() + StatusUserLabel = New System.Windows.Forms.Label() + IdCadastradorLabel = New System.Windows.Forms.Label() + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbCadastroBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbCadastroBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbCadastroBindingNavigator.SuspendLayout() + CType(Me.TbAdminBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'IdUserLabel + ' + IdUserLabel.AutoSize = True + IdUserLabel.Location = New System.Drawing.Point(28, 58) + IdUserLabel.Name = "IdUserLabel" + IdUserLabel.Size = New System.Drawing.Size(43, 13) + IdUserLabel.TabIndex = 1 + IdUserLabel.Text = "id User:" + ' + 'NomeUserLabel + ' + NomeUserLabel.AutoSize = True + NomeUserLabel.Location = New System.Drawing.Point(28, 84) + NomeUserLabel.Name = "NomeUserLabel" + NomeUserLabel.Size = New System.Drawing.Size(61, 13) + NomeUserLabel.TabIndex = 3 + NomeUserLabel.Text = "nome User:" + ' + 'CidadeUserLabel + ' + CidadeUserLabel.AutoSize = True + CidadeUserLabel.Location = New System.Drawing.Point(28, 110) + CidadeUserLabel.Name = "CidadeUserLabel" + CidadeUserLabel.Size = New System.Drawing.Size(67, 13) + CidadeUserLabel.TabIndex = 5 + CidadeUserLabel.Text = "cidade User:" + ' + 'LoginUserLabel + ' + LoginUserLabel.AutoSize = True + LoginUserLabel.Location = New System.Drawing.Point(28, 136) + LoginUserLabel.Name = "LoginUserLabel" + LoginUserLabel.Size = New System.Drawing.Size(57, 13) + LoginUserLabel.TabIndex = 7 + LoginUserLabel.Text = "login User:" + ' + 'SenhaUserLabel + ' + SenhaUserLabel.AutoSize = True + SenhaUserLabel.Location = New System.Drawing.Point(28, 162) + SenhaUserLabel.Name = "SenhaUserLabel" + SenhaUserLabel.Size = New System.Drawing.Size(64, 13) + SenhaUserLabel.TabIndex = 9 + SenhaUserLabel.Text = "senha User:" + ' + 'StatusUserLabel + ' + StatusUserLabel.AutoSize = True + StatusUserLabel.Location = New System.Drawing.Point(28, 188) + StatusUserLabel.Name = "StatusUserLabel" + StatusUserLabel.Size = New System.Drawing.Size(63, 13) + StatusUserLabel.TabIndex = 11 + StatusUserLabel.Text = "status User:" + ' + 'IdCadastradorLabel + ' + IdCadastradorLabel.AutoSize = True + IdCadastradorLabel.Location = New System.Drawing.Point(28, 214) + IdCadastradorLabel.Name = "IdCadastradorLabel" + IdCadastradorLabel.Size = New System.Drawing.Size(67, 13) + IdCadastradorLabel.TabIndex = 13 + IdCadastradorLabel.Text = "responsável:" + ' + 'Bancouc10DataSet + ' + Me.Bancouc10DataSet.DataSetName = "bancouc10DataSet" + Me.Bancouc10DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbCadastroBindingSource + ' + Me.TbCadastroBindingSource.DataMember = "tbCadastro" + Me.TbCadastroBindingSource.DataSource = Me.Bancouc10DataSet + ' + 'TbCadastroTableAdapter + ' + Me.TbCadastroTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAdminTableAdapter = Me.TbAdminTableAdapter + Me.TableAdapterManager.tbCadastroTableAdapter = Me.TbCadastroTableAdapter + Me.TableAdapterManager.UpdateOrder = ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbAdminTableAdapter + ' + Me.TbAdminTableAdapter.ClearBeforeFill = True + ' + 'TbCadastroBindingNavigator + ' + Me.TbCadastroBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbCadastroBindingNavigator.BindingSource = Me.TbCadastroBindingSource + Me.TbCadastroBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbCadastroBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbCadastroBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TbCadastroBindingNavigatorSaveItem}) + Me.TbCadastroBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbCadastroBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbCadastroBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbCadastroBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbCadastroBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbCadastroBindingNavigator.Name = "TbCadastroBindingNavigator" + Me.TbCadastroBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbCadastroBindingNavigator.Size = New System.Drawing.Size(302, 25) + Me.TbCadastroBindingNavigator.TabIndex = 0 + Me.TbCadastroBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Adicionar novo" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 22) + Me.BindingNavigatorCountItem.Text = "de {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Número total de itens" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Excluir" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Mover primeiro" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Mover anterior" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Posição" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Posição atual" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Mover próximo" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Mover último" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TbCadastroBindingNavigatorSaveItem + ' + Me.TbCadastroBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbCadastroBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbCadastroBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbCadastroBindingNavigatorSaveItem.Name = "TbCadastroBindingNavigatorSaveItem" + Me.TbCadastroBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TbCadastroBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdUserTextBox + ' + Me.IdUserTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbCadastroBindingSource, "idUser", True)) + Me.IdUserTextBox.Enabled = False + Me.IdUserTextBox.Location = New System.Drawing.Point(112, 55) + Me.IdUserTextBox.Name = "IdUserTextBox" + Me.IdUserTextBox.Size = New System.Drawing.Size(121, 20) + Me.IdUserTextBox.TabIndex = 2 + ' + 'NomeUserTextBox + ' + Me.NomeUserTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbCadastroBindingSource, "nomeUser", True)) + Me.NomeUserTextBox.Location = New System.Drawing.Point(112, 81) + Me.NomeUserTextBox.Name = "NomeUserTextBox" + Me.NomeUserTextBox.Size = New System.Drawing.Size(121, 20) + Me.NomeUserTextBox.TabIndex = 4 + ' + 'CidadeUserTextBox + ' + Me.CidadeUserTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbCadastroBindingSource, "cidadeUser", True)) + Me.CidadeUserTextBox.Location = New System.Drawing.Point(112, 107) + Me.CidadeUserTextBox.Name = "CidadeUserTextBox" + Me.CidadeUserTextBox.Size = New System.Drawing.Size(121, 20) + Me.CidadeUserTextBox.TabIndex = 6 + ' + 'LoginUserTextBox + ' + Me.LoginUserTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbCadastroBindingSource, "loginUser", True)) + Me.LoginUserTextBox.Location = New System.Drawing.Point(112, 133) + Me.LoginUserTextBox.Name = "LoginUserTextBox" + Me.LoginUserTextBox.Size = New System.Drawing.Size(121, 20) + Me.LoginUserTextBox.TabIndex = 8 + ' + 'SenhaUserTextBox + ' + Me.SenhaUserTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbCadastroBindingSource, "senhaUser", True)) + Me.SenhaUserTextBox.Location = New System.Drawing.Point(112, 159) + Me.SenhaUserTextBox.Name = "SenhaUserTextBox" + Me.SenhaUserTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.SenhaUserTextBox.Size = New System.Drawing.Size(121, 20) + Me.SenhaUserTextBox.TabIndex = 10 + ' + 'IdCadastradorComboBox + ' + Me.IdCadastradorComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbCadastroBindingSource, "idCadastrador", True)) + Me.IdCadastradorComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedItem", Me.TbAdminBindingSource, "nomeAdmin", True)) + Me.IdCadastradorComboBox.DataSource = Me.TbAdminBindingSource + Me.IdCadastradorComboBox.DisplayMember = "nomeAdmin" + Me.IdCadastradorComboBox.FormattingEnabled = True + Me.IdCadastradorComboBox.Location = New System.Drawing.Point(112, 211) + Me.IdCadastradorComboBox.Name = "IdCadastradorComboBox" + Me.IdCadastradorComboBox.Size = New System.Drawing.Size(121, 21) + Me.IdCadastradorComboBox.TabIndex = 14 + Me.IdCadastradorComboBox.ValueMember = "idAdmin" + ' + 'TbAdminBindingSource + ' + Me.TbAdminBindingSource.DataMember = "tbAdmin" + Me.TbAdminBindingSource.DataSource = Me.Bancouc10DataSet + ' + 'StatusUserTextBox + ' + Me.StatusUserTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbCadastroBindingSource, "statusUser", True)) + Me.StatusUserTextBox.Location = New System.Drawing.Point(112, 185) + Me.StatusUserTextBox.Name = "StatusUserTextBox" + Me.StatusUserTextBox.Size = New System.Drawing.Size(121, 20) + Me.StatusUserTextBox.TabIndex = 15 + ' + 'FUser + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(302, 254) + Me.Controls.Add(Me.StatusUserTextBox) + Me.Controls.Add(IdUserLabel) + Me.Controls.Add(Me.IdUserTextBox) + Me.Controls.Add(NomeUserLabel) + Me.Controls.Add(Me.NomeUserTextBox) + Me.Controls.Add(CidadeUserLabel) + Me.Controls.Add(Me.CidadeUserTextBox) + Me.Controls.Add(LoginUserLabel) + Me.Controls.Add(Me.LoginUserTextBox) + Me.Controls.Add(SenhaUserLabel) + Me.Controls.Add(Me.SenhaUserTextBox) + Me.Controls.Add(StatusUserLabel) + Me.Controls.Add(IdCadastradorLabel) + Me.Controls.Add(Me.IdCadastradorComboBox) + Me.Controls.Add(Me.TbCadastroBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FUser" + Me.Text = "FUser" + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbCadastroBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbCadastroBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbCadastroBindingNavigator.ResumeLayout(False) + Me.TbCadastroBindingNavigator.PerformLayout() + CType(Me.TbAdminBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Bancouc10DataSet As bancouc10DataSet + Friend WithEvents TbCadastroBindingSource As BindingSource + Friend WithEvents TbCadastroTableAdapter As bancouc10DataSetTableAdapters.tbCadastroTableAdapter + Friend WithEvents TableAdapterManager As bancouc10DataSetTableAdapters.TableAdapterManager + Friend WithEvents TbCadastroBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator + Friend WithEvents TbCadastroBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdUserTextBox As TextBox + Friend WithEvents NomeUserTextBox As TextBox + Friend WithEvents CidadeUserTextBox As TextBox + Friend WithEvents LoginUserTextBox As TextBox + Friend WithEvents SenhaUserTextBox As TextBox + Friend WithEvents IdCadastradorComboBox As ComboBox + Friend WithEvents TbAdminTableAdapter As bancouc10DataSetTableAdapters.tbAdminTableAdapter + Friend WithEvents TbAdminBindingSource As BindingSource + Friend WithEvents StatusUserTextBox As TextBox +End Class diff --git a/ProjetoTrabalho/Consultas/FUser.resx b/ProjetoTrabalho/Consultas/FUser.resx new file mode 100755 index 0000000..ead2f06 --- /dev/null +++ b/ProjetoTrabalho/Consultas/FUser.resx @@ -0,0 +1,237 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 170, 17 + + + 363, 17 + + + 550, 17 + + + 197, 56 + + + 723, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 17, 56 + + + 17, 56 + + \ No newline at end of file diff --git a/ProjetoTrabalho/Consultas/FUser.vb b/ProjetoTrabalho/Consultas/FUser.vb new file mode 100755 index 0000000..e647a1d --- /dev/null +++ b/ProjetoTrabalho/Consultas/FUser.vb @@ -0,0 +1,16 @@ +Public Class FUser + Private Sub TbCadastroBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbCadastroBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbCadastroBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Bancouc10DataSet) + + End Sub + + Private Sub FUser_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.tbAdmin'. Você pode movê-la ou removê-la conforme necessário. + Me.TbAdminTableAdapter.Fill(Me.Bancouc10DataSet.tbAdmin) + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.tbCadastro'. Você pode movê-la ou removê-la conforme necessário. + Me.TbCadastroTableAdapter.Fill(Me.Bancouc10DataSet.tbCadastro) + + End Sub +End Class \ No newline at end of file diff --git a/ProjetoTrabalho/FLogin.Designer.vb b/ProjetoTrabalho/FLogin.Designer.vb new file mode 100755 index 0000000..4bff9c2 --- /dev/null +++ b/ProjetoTrabalho/FLogin.Designer.vb @@ -0,0 +1,126 @@ + +Partial Class FLogin + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnLogar = New System.Windows.Forms.Button() + Me.btnSair = New System.Windows.Forms.Button() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(40, 56) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(64, 20) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Usuário" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(40, 96) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(56, 20) + Me.Label2.TabIndex = 3 + Me.Label2.Text = "Senha" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(75, 9) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(165, 20) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "Por favor, faça o login." + ' + 'btnLogar + ' + Me.btnLogar.Location = New System.Drawing.Point(44, 140) + Me.btnLogar.Name = "btnLogar" + Me.btnLogar.Size = New System.Drawing.Size(83, 35) + Me.btnLogar.TabIndex = 5 + Me.btnLogar.Text = "Logar" + Me.btnLogar.UseVisualStyleBackColor = True + ' + 'btnSair + ' + Me.btnSair.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnSair.Location = New System.Drawing.Point(177, 140) + Me.btnSair.Name = "btnSair" + Me.btnSair.Size = New System.Drawing.Size(83, 35) + Me.btnSair.TabIndex = 6 + Me.btnSair.Text = "Sair" + Me.btnSair.UseVisualStyleBackColor = True + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(111, 55) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(149, 26) + Me.TextBox1.TabIndex = 0 + ' + 'TextBox2 + ' + Me.TextBox2.Location = New System.Drawing.Point(111, 93) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.TextBox2.Size = New System.Drawing.Size(149, 26) + Me.TextBox2.TabIndex = 1 + ' + 'FLogin + ' + Me.AcceptButton = Me.btnLogar + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.btnSair + Me.ClientSize = New System.Drawing.Size(302, 225) + Me.Controls.Add(Me.TextBox2) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.btnSair) + Me.Controls.Add(Me.btnLogar) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Margin = New System.Windows.Forms.Padding(5) + Me.Name = "FLogin" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Form1" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents btnLogar As Button + Friend WithEvents btnSair As Button + Friend WithEvents TextBox1 As TextBox + Friend WithEvents TextBox2 As TextBox +End Class diff --git a/ProjetoTrabalho/FLogin.resx b/ProjetoTrabalho/FLogin.resx new file mode 100755 index 0000000..29dcb1b --- /dev/null +++ b/ProjetoTrabalho/FLogin.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ProjetoTrabalho/FLogin.vb b/ProjetoTrabalho/FLogin.vb new file mode 100755 index 0000000..a84b472 --- /dev/null +++ b/ProjetoTrabalho/FLogin.vb @@ -0,0 +1,32 @@ +Public Class FLogin + Private Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click + End + End Sub + + Private Sub btnLogar_Click(sender As Object, e As EventArgs) Handles btnLogar.Click + Dim User, Senha As String + User = "admin" + Senha = "admin" + + TextBox1.Text.ToLower() + TextBox2.Text.ToLower() + + If (TextBox1.Text = User) And (TextBox2.Text = Senha) Then + MsgBox("Bem vindo!", vbInformation, "Sistema de Cadastro/Relatório") + FPrincipal.Show() + Me.Hide() + TextBox1.Clear() + TextBox2.Clear() + TextBox1.Focus() + Else + MsgBox("Usuário/Senha incorretos", vbCritical, "Sistema de Cadastro/Relatório") + TextBox1.Clear() + TextBox2.Clear() + TextBox1.Focus() + End If + End Sub + + Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged + + End Sub +End Class diff --git a/ProjetoTrabalho/FPrincipal.Designer.vb b/ProjetoTrabalho/FPrincipal.Designer.vb new file mode 100755 index 0000000..fad00e6 --- /dev/null +++ b/ProjetoTrabalho/FPrincipal.Designer.vb @@ -0,0 +1,119 @@ + _ +Partial Class FPrincipal + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(15, 101) + Me.Button1.Margin = New System.Windows.Forms.Padding(6) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(210, 79) + Me.Button1.TabIndex = 0 + Me.Button1.Text = "Consulta Cadastros Usuários" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(15, 15) + Me.Button2.Margin = New System.Windows.Forms.Padding(6) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(210, 74) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "Relatório Ativos" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(15, 192) + Me.Button3.Margin = New System.Windows.Forms.Padding(6) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(210, 74) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "Sobre" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(243, 192) + Me.Button4.Margin = New System.Windows.Forms.Padding(6) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(210, 74) + Me.Button4.TabIndex = 3 + Me.Button4.Text = "Sair" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(243, 101) + Me.Button5.Margin = New System.Windows.Forms.Padding(6) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(210, 79) + Me.Button5.TabIndex = 4 + Me.Button5.Text = "Consulta Cadastros Administradores" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(243, 15) + Me.Button6.Margin = New System.Windows.Forms.Padding(6) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(210, 74) + Me.Button6.TabIndex = 5 + Me.Button6.Text = "Relatório Desativados" + Me.Button6.UseVisualStyleBackColor = True + ' + 'FPrincipal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(11.0!, 24.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(470, 287) + Me.Controls.Add(Me.Button6) + Me.Controls.Add(Me.Button5) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(6) + Me.Name = "FPrincipal" + Me.Text = "FPrincipal" + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Button1 As Button + Friend WithEvents Button2 As Button + Friend WithEvents Button3 As Button + Friend WithEvents Button4 As Button + Friend WithEvents Button5 As Button + Friend WithEvents Button6 As Button +End Class diff --git a/ProjetoTrabalho/FPrincipal.resx b/ProjetoTrabalho/FPrincipal.resx new file mode 100755 index 0000000..29dcb1b --- /dev/null +++ b/ProjetoTrabalho/FPrincipal.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ProjetoTrabalho/FPrincipal.vb b/ProjetoTrabalho/FPrincipal.vb new file mode 100755 index 0000000..de56105 --- /dev/null +++ b/ProjetoTrabalho/FPrincipal.vb @@ -0,0 +1,26 @@ +Public Class FPrincipal + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + FLogin.Show() + Me.Hide() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + FSobre.Show() + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + FAdm.Show() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + FUser.Show() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + rAtivos.Show() + End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + rDesativados.Show() + End Sub +End Class \ No newline at end of file diff --git a/ProjetoTrabalho/FSobre.Designer.vb b/ProjetoTrabalho/FSobre.Designer.vb new file mode 100755 index 0000000..b7cf762 --- /dev/null +++ b/ProjetoTrabalho/FSobre.Designer.vb @@ -0,0 +1,81 @@ + _ +Partial Class FSobre + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(295, 24) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Sistema de Cadastros e Relatórios" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Location = New System.Drawing.Point(12, 36) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(291, 140) + Me.GroupBox1.TabIndex = 1 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Sobre" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 16) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(279, 117) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "Versão 1.0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Desenvolvedor: F. Raszeja" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(15)99157-5916" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Desenvolvi" & + "do como requisito parcial de obtenção de nota" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "para Unidade Curricular (UC) 10." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Docente: Leandro Cesari Maschietto" + ' + 'FSobre + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(315, 194) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "FSobre" + Me.Text = "FSobre" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents Label2 As Label +End Class diff --git a/ProjetoTrabalho/FSobre.resx b/ProjetoTrabalho/FSobre.resx new file mode 100755 index 0000000..29dcb1b --- /dev/null +++ b/ProjetoTrabalho/FSobre.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ProjetoTrabalho/FSobre.vb b/ProjetoTrabalho/FSobre.vb new file mode 100755 index 0000000..39dead0 --- /dev/null +++ b/ProjetoTrabalho/FSobre.vb @@ -0,0 +1,3 @@ +Public Class FSobre + +End Class \ No newline at end of file diff --git a/ProjetoTrabalho/My Project/Application.Designer.vb b/ProjetoTrabalho/My Project/Application.Designer.vb new file mode 100755 index 0000000..9fcfbc6 --- /dev/null +++ b/ProjetoTrabalho/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' O código foi gerado por uma ferramenta. +' Versão de Tempo de Execução:4.0.30319.42000 +' +' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se +' o código for gerado novamente. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'OBSERVAÇÃO: Esse arquivo é gerado automaticamente; não o modifique diretamente. Para fazer alterações, + ' ou se você encontrar erros de compilação neste arquivo, vá para o Designer de Projeto + ' (vá para Propriedades do Projeto ou clique duas vezes no nó Meu Projeto em + ' Gerenciador de Soluções) e faça as alterações na guia Aplicativo. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.ProjetoTrabalho.FLogin + End Sub + End Class +End Namespace diff --git a/ProjetoTrabalho/My Project/Application.myapp b/ProjetoTrabalho/My Project/Application.myapp new file mode 100755 index 0000000..3fbf6b7 --- /dev/null +++ b/ProjetoTrabalho/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + FLogin + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/ProjetoTrabalho/My Project/AssemblyInfo.vb b/ProjetoTrabalho/My Project/AssemblyInfo.vb new file mode 100755 index 0000000..b370137 --- /dev/null +++ b/ProjetoTrabalho/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' As informações gerais sobre um assembly são controladas por +' conjunto de atributos. Altere estes valores de atributo para modificar as informações +' associada a um assembly. + +' Revise os valores dos atributos do assembly + + + + + + + + + + +'O GUID a seguir será destinado à ID de typelib se este projeto for exposto para COM + + +' As informações da versão de um assembly consistem nos quatro valores a seguir: +' +' Versão Principal +' Versão Secundária +' Número da Versão +' Revisão +' +' É possível especificar todos os valores ou usar como padrão os Números de Build e da Revisão +' utilizando o "*" como mostrado abaixo: +' + + + diff --git a/ProjetoTrabalho/My Project/Resources.Designer.vb b/ProjetoTrabalho/My Project/Resources.Designer.vb new file mode 100755 index 0000000..6119ee5 --- /dev/null +++ b/ProjetoTrabalho/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' 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 On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ProjetoTrabalho.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/ProjetoTrabalho/My Project/Resources.resx b/ProjetoTrabalho/My Project/Resources.resx new file mode 100755 index 0000000..ffecec8 --- /dev/null +++ b/ProjetoTrabalho/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ProjetoTrabalho/My Project/Settings.Designer.vb b/ProjetoTrabalho/My Project/Settings.Designer.vb new file mode 100755 index 0000000..f873834 --- /dev/null +++ b/ProjetoTrabalho/My Project/Settings.Designer.vb @@ -0,0 +1,83 @@ +'------------------------------------------------------------------------------ +' +' O código foi gerado por uma ferramenta. +' Versão de Tempo de Execução:4.0.30319.42000 +' +' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se +' o código for gerado novamente. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funcionalidade de salvamento automático do My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public ReadOnly Property bancouc10ConnectionString() As String + Get + Return CType(Me("bancouc10ConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ProjetoTrabalho.My.MySettings + Get + Return Global.ProjetoTrabalho.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ProjetoTrabalho/My Project/Settings.settings b/ProjetoTrabalho/My Project/Settings.settings new file mode 100755 index 0000000..2e30a1f --- /dev/null +++ b/ProjetoTrabalho/My Project/Settings.settings @@ -0,0 +1,14 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bancouc10.accdb</ConnectionString> + <ProviderName>System.Data.OleDb</ProviderName> +</SerializableConnectionString> + Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bancouc10.accdb + + + \ No newline at end of file diff --git a/ProjetoTrabalho/ProjetoTrabalho.vbproj b/ProjetoTrabalho/ProjetoTrabalho.vbproj new file mode 100755 index 0000000..20ecab3 --- /dev/null +++ b/ProjetoTrabalho/ProjetoTrabalho.vbproj @@ -0,0 +1,237 @@ + + + + + Debug + AnyCPU + {0CD07180-BDAA-4782-8FB9-C303F18AE0E6} + WinExe + ProjetoTrabalho.My.MyApplication + ProjetoTrabalho + ProjetoTrabalho + 512 + WindowsForms + v4.6.1 + true + false + C:\ProjetoTrabalho\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 1 + 1.0.0.%2a + false + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + ProjetoTrabalho.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + ProjetoTrabalho.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + DC0FADC7D5D6BB93D5853168646CE81819252610 + + + ProjetoTrabalho_TemporaryKey.pfx + + + true + + + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + True + bancouc10DataSet1.xsd + + + FAdm.vb + + + Form + + + FUser.vb + + + Form + + + FLogin.vb + + + Form + + + FPrincipal.vb + + + Form + + + FSobre.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + rAtivos.vb + + + Form + + + rDesativados.vb + + + Form + + + + + FAdm.vb + + + FUser.vb + + + FLogin.vb + + + FPrincipal.vb + + + FSobre.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + rAtivos.vb + + + rDesativados.vb + + + + + bancouc10DataSet1.xsd + + + MSDataSetGenerator + bancouc10DataSet1.Designer.vb + Designer + + + bancouc10DataSet1.xsd + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + False + Microsoft .NET Framework 4.6.1 %28x86 e x64%29 + true + + + False + .NET Framework 3.5 SP1 + false + + + + + Always + + + + \ No newline at end of file diff --git a/ProjetoTrabalho/Relatórios/rAtivos.Designer.vb b/ProjetoTrabalho/Relatórios/rAtivos.Designer.vb new file mode 100755 index 0000000..4fb9c7b --- /dev/null +++ b/ProjetoTrabalho/Relatórios/rAtivos.Designer.vb @@ -0,0 +1,226 @@ + _ +Partial Class rAtivos + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Bancouc10DataSet = New ProjetoTrabalho.bancouc10DataSet() + Me.RAdminAtivoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RAdminAtivoTableAdapter = New ProjetoTrabalho.bancouc10DataSetTableAdapters.rAdminAtivoTableAdapter() + Me.TableAdapterManager = New ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager() + Me.RAdminAtivoDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.RUserAtivoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RUserAtivoTableAdapter = New ProjetoTrabalho.bancouc10DataSetTableAdapters.rUserAtivoTableAdapter() + Me.RUserAtivoDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RAdminAtivoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RAdminAtivoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RUserAtivoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RUserAtivoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Bancouc10DataSet + ' + Me.Bancouc10DataSet.DataSetName = "bancouc10DataSet" + Me.Bancouc10DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RAdminAtivoBindingSource + ' + Me.RAdminAtivoBindingSource.DataMember = "rAdminAtivo" + Me.RAdminAtivoBindingSource.DataSource = Me.Bancouc10DataSet + ' + 'RAdminAtivoTableAdapter + ' + Me.RAdminAtivoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAdminTableAdapter = Nothing + Me.TableAdapterManager.tbCadastroTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RAdminAtivoDataGridView + ' + Me.RAdminAtivoDataGridView.AllowUserToAddRows = False + Me.RAdminAtivoDataGridView.AllowUserToDeleteRows = False + Me.RAdminAtivoDataGridView.AutoGenerateColumns = False + Me.RAdminAtivoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RAdminAtivoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5}) + Me.RAdminAtivoDataGridView.DataSource = Me.RAdminAtivoBindingSource + Me.RAdminAtivoDataGridView.Location = New System.Drawing.Point(12, 12) + Me.RAdminAtivoDataGridView.Name = "RAdminAtivoDataGridView" + Me.RAdminAtivoDataGridView.ReadOnly = True + Me.RAdminAtivoDataGridView.Size = New System.Drawing.Size(684, 260) + Me.RAdminAtivoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeAdmin" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeAdmin" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "cidadeAdmin" + Me.DataGridViewTextBoxColumn2.HeaderText = "cidadeAdmin" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "loginAdmin" + Me.DataGridViewTextBoxColumn3.HeaderText = "loginAdmin" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "senhaAdmin" + Me.DataGridViewTextBoxColumn4.HeaderText = "senhaAdmin" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "statusAdmin" + Me.DataGridViewTextBoxColumn5.HeaderText = "statusAdmin" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'RUserAtivoBindingSource + ' + Me.RUserAtivoBindingSource.DataMember = "rUserAtivo" + Me.RUserAtivoBindingSource.DataSource = Me.Bancouc10DataSet + ' + 'RUserAtivoTableAdapter + ' + Me.RUserAtivoTableAdapter.ClearBeforeFill = True + ' + 'RUserAtivoDataGridView + ' + Me.RUserAtivoDataGridView.AllowUserToAddRows = False + Me.RUserAtivoDataGridView.AllowUserToDeleteRows = False + Me.RUserAtivoDataGridView.AutoGenerateColumns = False + Me.RUserAtivoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RUserAtivoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11}) + Me.RUserAtivoDataGridView.DataSource = Me.RUserAtivoBindingSource + Me.RUserAtivoDataGridView.Location = New System.Drawing.Point(12, 278) + Me.RUserAtivoDataGridView.Name = "RUserAtivoDataGridView" + Me.RUserAtivoDataGridView.ReadOnly = True + Me.RUserAtivoDataGridView.Size = New System.Drawing.Size(684, 279) + Me.RUserAtivoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "nomeUser" + Me.DataGridViewTextBoxColumn6.HeaderText = "nomeUser" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "cidadeUser" + Me.DataGridViewTextBoxColumn7.HeaderText = "cidadeUser" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "loginUser" + Me.DataGridViewTextBoxColumn8.HeaderText = "loginUser" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "senhaUser" + Me.DataGridViewTextBoxColumn9.HeaderText = "senhaUser" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "statusUser" + Me.DataGridViewTextBoxColumn10.HeaderText = "statusUser" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "nomeAdmin" + Me.DataGridViewTextBoxColumn11.HeaderText = "responsável" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + ' + 'rAtivos + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(706, 569) + Me.Controls.Add(Me.RUserAtivoDataGridView) + Me.Controls.Add(Me.RAdminAtivoDataGridView) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rAtivos" + Me.Text = "Relatorios" + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RAdminAtivoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RAdminAtivoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RUserAtivoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RUserAtivoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Bancouc10DataSet As bancouc10DataSet + Friend WithEvents RAdminAtivoBindingSource As BindingSource + Friend WithEvents RAdminAtivoTableAdapter As bancouc10DataSetTableAdapters.rAdminAtivoTableAdapter + Friend WithEvents TableAdapterManager As bancouc10DataSetTableAdapters.TableAdapterManager + Friend WithEvents RAdminAtivoDataGridView As DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn + Friend WithEvents RUserAtivoBindingSource As BindingSource + Friend WithEvents RUserAtivoTableAdapter As bancouc10DataSetTableAdapters.rUserAtivoTableAdapter + Friend WithEvents RUserAtivoDataGridView As DataGridView + Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As DataGridViewTextBoxColumn +End Class diff --git a/ProjetoTrabalho/Relatórios/rAtivos.resx b/ProjetoTrabalho/Relatórios/rAtivos.resx new file mode 100755 index 0000000..aeb38dd --- /dev/null +++ b/ProjetoTrabalho/Relatórios/rAtivos.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 170, 17 + + + 372, 17 + + + 568, 17 + + + 741, 17 + + + 17, 56 + + + 44 + + \ No newline at end of file diff --git a/ProjetoTrabalho/Relatórios/rAtivos.vb b/ProjetoTrabalho/Relatórios/rAtivos.vb new file mode 100755 index 0000000..d3b655b --- /dev/null +++ b/ProjetoTrabalho/Relatórios/rAtivos.vb @@ -0,0 +1,18 @@ +Public Class rAtivos + Private Sub TbAdminBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TableAdapterManager.UpdateAll(Me.Bancouc10DataSet) + + End Sub + + Private Sub Relatorios_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.rUserAtivo'. Você pode movê-la ou removê-la conforme necessário. + Me.RUserAtivoTableAdapter.Fill(Me.Bancouc10DataSet.rUserAtivo) + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.rAdminAtivo'. Você pode movê-la ou removê-la conforme necessário. + Me.RAdminAtivoTableAdapter.Fill(Me.Bancouc10DataSet.rAdminAtivo) + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.rAdminAtivo'. Você pode movê-la ou removê-la conforme necessário. + Me.RAdminAtivoTableAdapter.Fill(Me.Bancouc10DataSet.rAdminAtivo) + + + End Sub +End Class \ No newline at end of file diff --git a/ProjetoTrabalho/Relatórios/rDesativados.Designer.vb b/ProjetoTrabalho/Relatórios/rDesativados.Designer.vb new file mode 100755 index 0000000..c161119 --- /dev/null +++ b/ProjetoTrabalho/Relatórios/rDesativados.Designer.vb @@ -0,0 +1,226 @@ + _ +Partial Class rDesativados + Inherits System.Windows.Forms.Form + + 'Descartar substituições de formulário para limpar a lista de componentes. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Exigido pelo Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer + 'Pode ser modificado usando o Windows Form Designer. + 'Não o modifique usando o editor de códigos. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Bancouc10DataSet = New ProjetoTrabalho.bancouc10DataSet() + Me.RAdminDesativadoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RAdminDesativadoTableAdapter = New ProjetoTrabalho.bancouc10DataSetTableAdapters.rAdminDesativadoTableAdapter() + Me.TableAdapterManager = New ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager() + Me.RAdminDesativadoDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.RUserDesativadoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RUserDesativadoTableAdapter = New ProjetoTrabalho.bancouc10DataSetTableAdapters.rUserDesativadoTableAdapter() + Me.RUserDesativadoDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RAdminDesativadoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RAdminDesativadoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RUserDesativadoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RUserDesativadoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Bancouc10DataSet + ' + Me.Bancouc10DataSet.DataSetName = "bancouc10DataSet" + Me.Bancouc10DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RAdminDesativadoBindingSource + ' + Me.RAdminDesativadoBindingSource.DataMember = "rAdminDesativado" + Me.RAdminDesativadoBindingSource.DataSource = Me.Bancouc10DataSet + ' + 'RAdminDesativadoTableAdapter + ' + Me.RAdminDesativadoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAdminTableAdapter = Nothing + Me.TableAdapterManager.tbCadastroTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = ProjetoTrabalho.bancouc10DataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RAdminDesativadoDataGridView + ' + Me.RAdminDesativadoDataGridView.AllowUserToAddRows = False + Me.RAdminDesativadoDataGridView.AllowUserToDeleteRows = False + Me.RAdminDesativadoDataGridView.AutoGenerateColumns = False + Me.RAdminDesativadoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RAdminDesativadoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5}) + Me.RAdminDesativadoDataGridView.DataSource = Me.RAdminDesativadoBindingSource + Me.RAdminDesativadoDataGridView.Location = New System.Drawing.Point(12, 12) + Me.RAdminDesativadoDataGridView.Name = "RAdminDesativadoDataGridView" + Me.RAdminDesativadoDataGridView.ReadOnly = True + Me.RAdminDesativadoDataGridView.Size = New System.Drawing.Size(776, 256) + Me.RAdminDesativadoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeAdmin" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeAdmin" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "cidadeAdmin" + Me.DataGridViewTextBoxColumn2.HeaderText = "cidadeAdmin" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "loginAdmin" + Me.DataGridViewTextBoxColumn3.HeaderText = "loginAdmin" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "senhaAdmin" + Me.DataGridViewTextBoxColumn4.HeaderText = "senhaAdmin" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "statusAdmin" + Me.DataGridViewTextBoxColumn5.HeaderText = "statusAdmin" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'RUserDesativadoBindingSource + ' + Me.RUserDesativadoBindingSource.DataMember = "rUserDesativado" + Me.RUserDesativadoBindingSource.DataSource = Me.Bancouc10DataSet + ' + 'RUserDesativadoTableAdapter + ' + Me.RUserDesativadoTableAdapter.ClearBeforeFill = True + ' + 'RUserDesativadoDataGridView + ' + Me.RUserDesativadoDataGridView.AllowUserToAddRows = False + Me.RUserDesativadoDataGridView.AllowUserToDeleteRows = False + Me.RUserDesativadoDataGridView.AutoGenerateColumns = False + Me.RUserDesativadoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RUserDesativadoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11}) + Me.RUserDesativadoDataGridView.DataSource = Me.RUserDesativadoBindingSource + Me.RUserDesativadoDataGridView.Location = New System.Drawing.Point(12, 274) + Me.RUserDesativadoDataGridView.Name = "RUserDesativadoDataGridView" + Me.RUserDesativadoDataGridView.ReadOnly = True + Me.RUserDesativadoDataGridView.Size = New System.Drawing.Size(776, 269) + Me.RUserDesativadoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "nomeUser" + Me.DataGridViewTextBoxColumn6.HeaderText = "nomeUser" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "cidadeUser" + Me.DataGridViewTextBoxColumn7.HeaderText = "cidadeUser" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "loginUser" + Me.DataGridViewTextBoxColumn8.HeaderText = "loginUser" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "senhaUser" + Me.DataGridViewTextBoxColumn9.HeaderText = "senhaUser" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "statusUser" + Me.DataGridViewTextBoxColumn10.HeaderText = "statusUser" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "nomeAdmin" + Me.DataGridViewTextBoxColumn11.HeaderText = "responsável" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + ' + 'rDesativados + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(808, 555) + Me.Controls.Add(Me.RUserDesativadoDataGridView) + Me.Controls.Add(Me.RAdminDesativadoDataGridView) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rDesativados" + Me.Text = "Relatorio Usuários Desativados" + CType(Me.Bancouc10DataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RAdminDesativadoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RAdminDesativadoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RUserDesativadoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RUserDesativadoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Bancouc10DataSet As bancouc10DataSet + Friend WithEvents RAdminDesativadoBindingSource As BindingSource + Friend WithEvents RAdminDesativadoTableAdapter As bancouc10DataSetTableAdapters.rAdminDesativadoTableAdapter + Friend WithEvents TableAdapterManager As bancouc10DataSetTableAdapters.TableAdapterManager + Friend WithEvents RAdminDesativadoDataGridView As DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn + Friend WithEvents RUserDesativadoBindingSource As BindingSource + Friend WithEvents RUserDesativadoTableAdapter As bancouc10DataSetTableAdapters.rUserDesativadoTableAdapter + Friend WithEvents RUserDesativadoDataGridView As DataGridView + Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As DataGridViewTextBoxColumn +End Class diff --git a/ProjetoTrabalho/Relatórios/rDesativados.resx b/ProjetoTrabalho/Relatórios/rDesativados.resx new file mode 100755 index 0000000..75648af --- /dev/null +++ b/ProjetoTrabalho/Relatórios/rDesativados.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 170, 17 + + + 404, 17 + + + 633, 17 + + + 17, 56 + + + 240, 56 + + \ No newline at end of file diff --git a/ProjetoTrabalho/Relatórios/rDesativados.vb b/ProjetoTrabalho/Relatórios/rDesativados.vb new file mode 100755 index 0000000..7db7dd6 --- /dev/null +++ b/ProjetoTrabalho/Relatórios/rDesativados.vb @@ -0,0 +1,9 @@ +Public Class rDesativados + Private Sub rDesativados_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.rUserDesativado'. Você pode movê-la ou removê-la conforme necessário. + Me.RUserDesativadoTableAdapter.Fill(Me.Bancouc10DataSet.rUserDesativado) + 'TODO: esta linha de código carrega dados na tabela 'Bancouc10DataSet.rAdminDesativado'. Você pode movê-la ou removê-la conforme necessário. + Me.RAdminDesativadoTableAdapter.Fill(Me.Bancouc10DataSet.rAdminDesativado) + + End Sub +End Class \ No newline at end of file diff --git a/ProjetoTrabalho/bancouc10.accdb b/ProjetoTrabalho/bancouc10.accdb new file mode 100755 index 0000000..557bc71 Binary files /dev/null and b/ProjetoTrabalho/bancouc10.accdb differ diff --git a/ProjetoTrabalho/bancouc10DataSet.Designer.vb b/ProjetoTrabalho/bancouc10DataSet.Designer.vb new file mode 100755 index 0000000..84dda66 --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet.Designer.vb @@ -0,0 +1,6102 @@ +'------------------------------------------------------------------------------ +' +' O código foi gerado por uma ferramenta. +' Versão de Tempo de Execução:4.0.30319.42000 +' +' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se +' o código for gerado novamente. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class bancouc10DataSet + Inherits Global.System.Data.DataSet + + Private tabletbAdmin As tbAdminDataTable + + Private tabletbCadastro As tbCadastroDataTable + + Private tablerAdminAtivo As rAdminAtivoDataTable + + Private tablerAdminDesativado As rAdminDesativadoDataTable + + Private tablerUserAtivo As rUserAtivoDataTable + + Private tablerUserDesativado As rUserDesativadoDataTable + + Private relationtbAdmintbCadastro As Global.System.Data.DataRelation + + 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("tbAdmin")) Is Nothing) Then + MyBase.Tables.Add(New tbAdminDataTable(ds.Tables("tbAdmin"))) + End If + If (Not (ds.Tables("tbCadastro")) Is Nothing) Then + MyBase.Tables.Add(New tbCadastroDataTable(ds.Tables("tbCadastro"))) + End If + If (Not (ds.Tables("rAdminAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rAdminAtivoDataTable(ds.Tables("rAdminAtivo"))) + End If + If (Not (ds.Tables("rAdminDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rAdminDesativadoDataTable(ds.Tables("rAdminDesativado"))) + End If + If (Not (ds.Tables("rUserAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rUserAtivoDataTable(ds.Tables("rUserAtivo"))) + End If + If (Not (ds.Tables("rUserDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rUserDesativadoDataTable(ds.Tables("rUserDesativado"))) + 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 tbAdmin() As tbAdminDataTable + Get + Return Me.tabletbAdmin + End Get + End Property + + _ + Public ReadOnly Property tbCadastro() As tbCadastroDataTable + Get + Return Me.tabletbCadastro + End Get + End Property + + _ + Public ReadOnly Property rAdminAtivo() As rAdminAtivoDataTable + Get + Return Me.tablerAdminAtivo + End Get + End Property + + _ + Public ReadOnly Property rAdminDesativado() As rAdminDesativadoDataTable + Get + Return Me.tablerAdminDesativado + End Get + End Property + + _ + Public ReadOnly Property rUserAtivo() As rUserAtivoDataTable + Get + Return Me.tablerUserAtivo + End Get + End Property + + _ + Public ReadOnly Property rUserDesativado() As rUserDesativadoDataTable + Get + Return Me.tablerUserDesativado + 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 bancouc10DataSet = CType(MyBase.Clone,bancouc10DataSet) + 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("tbAdmin")) Is Nothing) Then + MyBase.Tables.Add(New tbAdminDataTable(ds.Tables("tbAdmin"))) + End If + If (Not (ds.Tables("tbCadastro")) Is Nothing) Then + MyBase.Tables.Add(New tbCadastroDataTable(ds.Tables("tbCadastro"))) + End If + If (Not (ds.Tables("rAdminAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rAdminAtivoDataTable(ds.Tables("rAdminAtivo"))) + End If + If (Not (ds.Tables("rAdminDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rAdminDesativadoDataTable(ds.Tables("rAdminDesativado"))) + End If + If (Not (ds.Tables("rUserAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rUserAtivoDataTable(ds.Tables("rUserAtivo"))) + End If + If (Not (ds.Tables("rUserDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rUserDesativadoDataTable(ds.Tables("rUserDesativado"))) + 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.tabletbAdmin = CType(MyBase.Tables("tbAdmin"),tbAdminDataTable) + If (initTable = true) Then + If (Not (Me.tabletbAdmin) Is Nothing) Then + Me.tabletbAdmin.InitVars + End If + End If + Me.tabletbCadastro = CType(MyBase.Tables("tbCadastro"),tbCadastroDataTable) + If (initTable = true) Then + If (Not (Me.tabletbCadastro) Is Nothing) Then + Me.tabletbCadastro.InitVars + End If + End If + Me.tablerAdminAtivo = CType(MyBase.Tables("rAdminAtivo"),rAdminAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerAdminAtivo) Is Nothing) Then + Me.tablerAdminAtivo.InitVars + End If + End If + Me.tablerAdminDesativado = CType(MyBase.Tables("rAdminDesativado"),rAdminDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerAdminDesativado) Is Nothing) Then + Me.tablerAdminDesativado.InitVars + End If + End If + Me.tablerUserAtivo = CType(MyBase.Tables("rUserAtivo"),rUserAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerUserAtivo) Is Nothing) Then + Me.tablerUserAtivo.InitVars + End If + End If + Me.tablerUserDesativado = CType(MyBase.Tables("rUserDesativado"),rUserDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerUserDesativado) Is Nothing) Then + Me.tablerUserDesativado.InitVars + End If + End If + Me.relationtbAdmintbCadastro = Me.Relations("tbAdmintbCadastro") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "bancouc10DataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/bancouc10DataSet.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tabletbAdmin = New tbAdminDataTable() + MyBase.Tables.Add(Me.tabletbAdmin) + Me.tabletbCadastro = New tbCadastroDataTable() + MyBase.Tables.Add(Me.tabletbCadastro) + Me.tablerAdminAtivo = New rAdminAtivoDataTable() + MyBase.Tables.Add(Me.tablerAdminAtivo) + Me.tablerAdminDesativado = New rAdminDesativadoDataTable() + MyBase.Tables.Add(Me.tablerAdminDesativado) + Me.tablerUserAtivo = New rUserAtivoDataTable() + MyBase.Tables.Add(Me.tablerUserAtivo) + Me.tablerUserDesativado = New rUserDesativadoDataTable() + MyBase.Tables.Add(Me.tablerUserDesativado) + Me.relationtbAdmintbCadastro = New Global.System.Data.DataRelation("tbAdmintbCadastro", New Global.System.Data.DataColumn() {Me.tabletbAdmin.idAdminColumn}, New Global.System.Data.DataColumn() {Me.tabletbCadastro.idCadastradorColumn}, false) + Me.Relations.Add(Me.relationtbAdmintbCadastro) + End Sub + + _ + Private Function ShouldSerializetbAdmin() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbCadastro() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerAdminAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerAdminDesativado() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerUserAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerUserDesativado() 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 bancouc10DataSet = New bancouc10DataSet() + 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 tbAdminRowChangeEventHandler(ByVal sender As Object, ByVal e As tbAdminRowChangeEvent) + + _ + Public Delegate Sub tbCadastroRowChangeEventHandler(ByVal sender As Object, ByVal e As tbCadastroRowChangeEvent) + + _ + Public Delegate Sub rAdminAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rAdminAtivoRowChangeEvent) + + _ + Public Delegate Sub rAdminDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rAdminDesativadoRowChangeEvent) + + _ + Public Delegate Sub rUserAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rUserAtivoRowChangeEvent) + + _ + Public Delegate Sub rUserDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rUserDesativadoRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbAdminDataTable + Inherits Global.System.Data.TypedTableBase(Of tbAdminRow) + + Private columnidAdmin As Global.System.Data.DataColumn + + Private columnnomeAdmin As Global.System.Data.DataColumn + + Private columnfoneAdmin As Global.System.Data.DataColumn + + Private columncidadeAdmin As Global.System.Data.DataColumn + + Private columnloginAdmin As Global.System.Data.DataColumn + + Private columnsenhaAdmin As Global.System.Data.DataColumn + + Private columnstatusAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbAdmin" + 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 idAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidAdmin + End Get + End Property + + _ + Public ReadOnly Property nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + End Get + End Property + + _ + Public ReadOnly Property foneAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfoneAdmin + End Get + End Property + + _ + Public ReadOnly Property cidadeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeAdmin + End Get + End Property + + _ + Public ReadOnly Property loginAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginAdmin + End Get + End Property + + _ + Public ReadOnly Property senhaAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaAdmin + End Get + End Property + + _ + Public ReadOnly Property statusAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusAdmin + 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 tbAdminRow + Get + Return CType(Me.Rows(index),tbAdminRow) + End Get + End Property + + _ + Public Event tbAdminRowChanging As tbAdminRowChangeEventHandler + + _ + Public Event tbAdminRowChanged As tbAdminRowChangeEventHandler + + _ + Public Event tbAdminRowDeleting As tbAdminRowChangeEventHandler + + _ + Public Event tbAdminRowDeleted As tbAdminRowChangeEventHandler + + _ + Public Overloads Sub AddtbAdminRow(ByVal row As tbAdminRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbAdminRow(ByVal nomeAdmin As String, ByVal foneAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As tbAdminRow + Dim rowtbAdminRow As tbAdminRow = CType(Me.NewRow,tbAdminRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin} + rowtbAdminRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbAdminRow) + Return rowtbAdminRow + End Function + + _ + Public Function FindByidAdmin(ByVal idAdmin As Integer) As tbAdminRow + Return CType(Me.Rows.Find(New Object() {idAdmin}),tbAdminRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbAdminDataTable = CType(MyBase.Clone,tbAdminDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbAdminDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidAdmin = MyBase.Columns("idAdmin") + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + Me.columnfoneAdmin = MyBase.Columns("foneAdmin") + Me.columncidadeAdmin = MyBase.Columns("cidadeAdmin") + Me.columnloginAdmin = MyBase.Columns("loginAdmin") + Me.columnsenhaAdmin = MyBase.Columns("senhaAdmin") + Me.columnstatusAdmin = MyBase.Columns("statusAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnidAdmin = New Global.System.Data.DataColumn("idAdmin", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidAdmin) + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columnfoneAdmin = New Global.System.Data.DataColumn("foneAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfoneAdmin) + Me.columncidadeAdmin = New Global.System.Data.DataColumn("cidadeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeAdmin) + Me.columnloginAdmin = New Global.System.Data.DataColumn("loginAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginAdmin) + Me.columnsenhaAdmin = New Global.System.Data.DataColumn("senhaAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaAdmin) + Me.columnstatusAdmin = New Global.System.Data.DataColumn("statusAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusAdmin) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidAdmin}, true)) + Me.columnidAdmin.AutoIncrement = true + Me.columnidAdmin.AutoIncrementSeed = -1 + Me.columnidAdmin.AutoIncrementStep = -1 + Me.columnidAdmin.AllowDBNull = false + Me.columnidAdmin.Unique = true + Me.columnnomeAdmin.MaxLength = 50 + Me.columnfoneAdmin.MaxLength = 11 + Me.columncidadeAdmin.MaxLength = 50 + Me.columnloginAdmin.MaxLength = 10 + Me.columnsenhaAdmin.MaxLength = 16 + Me.columnstatusAdmin.MaxLength = 20 + End Sub + + _ + Public Function NewtbAdminRow() As tbAdminRow + Return CType(Me.NewRow,tbAdminRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbAdminRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbAdminRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbAdminRowChangedEvent) Is Nothing) Then + RaiseEvent tbAdminRowChanged(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbAdminRowChangingEvent) Is Nothing) Then + RaiseEvent tbAdminRowChanging(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbAdminRowDeletedEvent) Is Nothing) Then + RaiseEvent tbAdminRowDeleted(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbAdminRowDeletingEvent) Is Nothing) Then + RaiseEvent tbAdminRowDeleting(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbAdminRow(ByVal row As tbAdminRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "tbAdminDataTable" + 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 tbCadastroDataTable + Inherits Global.System.Data.TypedTableBase(Of tbCadastroRow) + + Private columnidUser As Global.System.Data.DataColumn + + Private columnnomeUser As Global.System.Data.DataColumn + + Private columnfoneUser As Global.System.Data.DataColumn + + Private columncidadeUser As Global.System.Data.DataColumn + + Private columnloginUser As Global.System.Data.DataColumn + + Private columnsenhaUser As Global.System.Data.DataColumn + + Private columnstatusUser As Global.System.Data.DataColumn + + Private columnidCadastrador As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbCadastro" + 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 idUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidUser + End Get + End Property + + _ + Public ReadOnly Property nomeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeUser + End Get + End Property + + _ + Public ReadOnly Property foneUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfoneUser + End Get + End Property + + _ + Public ReadOnly Property cidadeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeUser + End Get + End Property + + _ + Public ReadOnly Property loginUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginUser + End Get + End Property + + _ + Public ReadOnly Property senhaUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaUser + End Get + End Property + + _ + Public ReadOnly Property statusUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusUser + End Get + End Property + + _ + Public ReadOnly Property idCadastradorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidCadastrador + 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 tbCadastroRow + Get + Return CType(Me.Rows(index),tbCadastroRow) + End Get + End Property + + _ + Public Event tbCadastroRowChanging As tbCadastroRowChangeEventHandler + + _ + Public Event tbCadastroRowChanged As tbCadastroRowChangeEventHandler + + _ + Public Event tbCadastroRowDeleting As tbCadastroRowChangeEventHandler + + _ + Public Event tbCadastroRowDeleted As tbCadastroRowChangeEventHandler + + _ + Public Overloads Sub AddtbCadastroRow(ByVal row As tbCadastroRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbCadastroRow(ByVal nomeUser As String, ByVal foneUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal parenttbAdminRowBytbAdmintbCadastro As tbAdminRow) As tbCadastroRow + Dim rowtbCadastroRow As tbCadastroRow = CType(Me.NewRow,tbCadastroRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, Nothing} + If (Not (parenttbAdminRowBytbAdmintbCadastro) Is Nothing) Then + columnValuesArray(7) = parenttbAdminRowBytbAdmintbCadastro(0) + End If + rowtbCadastroRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbCadastroRow) + Return rowtbCadastroRow + End Function + + _ + Public Function FindByidUser(ByVal idUser As Integer) As tbCadastroRow + Return CType(Me.Rows.Find(New Object() {idUser}),tbCadastroRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbCadastroDataTable = CType(MyBase.Clone,tbCadastroDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbCadastroDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidUser = MyBase.Columns("idUser") + Me.columnnomeUser = MyBase.Columns("nomeUser") + Me.columnfoneUser = MyBase.Columns("foneUser") + Me.columncidadeUser = MyBase.Columns("cidadeUser") + Me.columnloginUser = MyBase.Columns("loginUser") + Me.columnsenhaUser = MyBase.Columns("senhaUser") + Me.columnstatusUser = MyBase.Columns("statusUser") + Me.columnidCadastrador = MyBase.Columns("idCadastrador") + End Sub + + _ + Private Sub InitClass() + Me.columnidUser = New Global.System.Data.DataColumn("idUser", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidUser) + Me.columnnomeUser = New Global.System.Data.DataColumn("nomeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeUser) + Me.columnfoneUser = New Global.System.Data.DataColumn("foneUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfoneUser) + Me.columncidadeUser = New Global.System.Data.DataColumn("cidadeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeUser) + Me.columnloginUser = New Global.System.Data.DataColumn("loginUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginUser) + Me.columnsenhaUser = New Global.System.Data.DataColumn("senhaUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaUser) + Me.columnstatusUser = New Global.System.Data.DataColumn("statusUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusUser) + Me.columnidCadastrador = New Global.System.Data.DataColumn("idCadastrador", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidCadastrador) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidUser}, true)) + Me.columnidUser.AutoIncrement = true + Me.columnidUser.AutoIncrementSeed = -1 + Me.columnidUser.AutoIncrementStep = -1 + Me.columnidUser.AllowDBNull = false + Me.columnidUser.Unique = true + Me.columnnomeUser.MaxLength = 50 + Me.columnfoneUser.MaxLength = 11 + Me.columncidadeUser.MaxLength = 50 + Me.columnloginUser.MaxLength = 10 + Me.columnsenhaUser.MaxLength = 16 + Me.columnstatusUser.MaxLength = 20 + End Sub + + _ + Public Function NewtbCadastroRow() As tbCadastroRow + Return CType(Me.NewRow,tbCadastroRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbCadastroRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbCadastroRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbCadastroRowChangedEvent) Is Nothing) Then + RaiseEvent tbCadastroRowChanged(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbCadastroRowChangingEvent) Is Nothing) Then + RaiseEvent tbCadastroRowChanging(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbCadastroRowDeletedEvent) Is Nothing) Then + RaiseEvent tbCadastroRowDeleted(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbCadastroRowDeletingEvent) Is Nothing) Then + RaiseEvent tbCadastroRowDeleting(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbCadastroRow(ByVal row As tbCadastroRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "tbCadastroDataTable" + 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 rAdminAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rAdminAtivoRow) + + Private columnnomeAdmin As Global.System.Data.DataColumn + + Private columnfoneAdmin As Global.System.Data.DataColumn + + Private columncidadeAdmin As Global.System.Data.DataColumn + + Private columnloginAdmin As Global.System.Data.DataColumn + + Private columnsenhaAdmin As Global.System.Data.DataColumn + + Private columnstatusAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rAdminAtivo" + 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 nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + End Get + End Property + + _ + Public ReadOnly Property foneAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfoneAdmin + End Get + End Property + + _ + Public ReadOnly Property cidadeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeAdmin + End Get + End Property + + _ + Public ReadOnly Property loginAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginAdmin + End Get + End Property + + _ + Public ReadOnly Property senhaAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaAdmin + End Get + End Property + + _ + Public ReadOnly Property statusAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusAdmin + 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 rAdminAtivoRow + Get + Return CType(Me.Rows(index),rAdminAtivoRow) + End Get + End Property + + _ + Public Event rAdminAtivoRowChanging As rAdminAtivoRowChangeEventHandler + + _ + Public Event rAdminAtivoRowChanged As rAdminAtivoRowChangeEventHandler + + _ + Public Event rAdminAtivoRowDeleting As rAdminAtivoRowChangeEventHandler + + _ + Public Event rAdminAtivoRowDeleted As rAdminAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrAdminAtivoRow(ByVal row As rAdminAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrAdminAtivoRow(ByVal nomeAdmin As String, ByVal foneAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As rAdminAtivoRow + Dim rowrAdminAtivoRow As rAdminAtivoRow = CType(Me.NewRow,rAdminAtivoRow) + Dim columnValuesArray() As Object = New Object() {nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin} + rowrAdminAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrAdminAtivoRow) + Return rowrAdminAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rAdminAtivoDataTable = CType(MyBase.Clone,rAdminAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rAdminAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + Me.columnfoneAdmin = MyBase.Columns("foneAdmin") + Me.columncidadeAdmin = MyBase.Columns("cidadeAdmin") + Me.columnloginAdmin = MyBase.Columns("loginAdmin") + Me.columnsenhaAdmin = MyBase.Columns("senhaAdmin") + Me.columnstatusAdmin = MyBase.Columns("statusAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columnfoneAdmin = New Global.System.Data.DataColumn("foneAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfoneAdmin) + Me.columncidadeAdmin = New Global.System.Data.DataColumn("cidadeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeAdmin) + Me.columnloginAdmin = New Global.System.Data.DataColumn("loginAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginAdmin) + Me.columnsenhaAdmin = New Global.System.Data.DataColumn("senhaAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaAdmin) + Me.columnstatusAdmin = New Global.System.Data.DataColumn("statusAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusAdmin) + Me.columnnomeAdmin.MaxLength = 50 + Me.columnfoneAdmin.MaxLength = 11 + Me.columncidadeAdmin.MaxLength = 50 + Me.columnloginAdmin.MaxLength = 10 + Me.columnsenhaAdmin.MaxLength = 16 + Me.columnstatusAdmin.MaxLength = 20 + End Sub + + _ + Public Function NewrAdminAtivoRow() As rAdminAtivoRow + Return CType(Me.NewRow,rAdminAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rAdminAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rAdminAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rAdminAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowChanged(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rAdminAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowChanging(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rAdminAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowDeleted(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rAdminAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowDeleting(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverAdminAtivoRow(ByVal row As rAdminAtivoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rAdminAtivoDataTable" + 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 rAdminDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rAdminDesativadoRow) + + Private columnnomeAdmin As Global.System.Data.DataColumn + + Private columnfoneAdmin As Global.System.Data.DataColumn + + Private columncidadeAdmin As Global.System.Data.DataColumn + + Private columnloginAdmin As Global.System.Data.DataColumn + + Private columnsenhaAdmin As Global.System.Data.DataColumn + + Private columnstatusAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rAdminDesativado" + 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 nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + End Get + End Property + + _ + Public ReadOnly Property foneAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfoneAdmin + End Get + End Property + + _ + Public ReadOnly Property cidadeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeAdmin + End Get + End Property + + _ + Public ReadOnly Property loginAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginAdmin + End Get + End Property + + _ + Public ReadOnly Property senhaAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaAdmin + End Get + End Property + + _ + Public ReadOnly Property statusAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusAdmin + 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 rAdminDesativadoRow + Get + Return CType(Me.Rows(index),rAdminDesativadoRow) + End Get + End Property + + _ + Public Event rAdminDesativadoRowChanging As rAdminDesativadoRowChangeEventHandler + + _ + Public Event rAdminDesativadoRowChanged As rAdminDesativadoRowChangeEventHandler + + _ + Public Event rAdminDesativadoRowDeleting As rAdminDesativadoRowChangeEventHandler + + _ + Public Event rAdminDesativadoRowDeleted As rAdminDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrAdminDesativadoRow(ByVal row As rAdminDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrAdminDesativadoRow(ByVal nomeAdmin As String, ByVal foneAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As rAdminDesativadoRow + Dim rowrAdminDesativadoRow As rAdminDesativadoRow = CType(Me.NewRow,rAdminDesativadoRow) + Dim columnValuesArray() As Object = New Object() {nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin} + rowrAdminDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrAdminDesativadoRow) + Return rowrAdminDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rAdminDesativadoDataTable = CType(MyBase.Clone,rAdminDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rAdminDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + Me.columnfoneAdmin = MyBase.Columns("foneAdmin") + Me.columncidadeAdmin = MyBase.Columns("cidadeAdmin") + Me.columnloginAdmin = MyBase.Columns("loginAdmin") + Me.columnsenhaAdmin = MyBase.Columns("senhaAdmin") + Me.columnstatusAdmin = MyBase.Columns("statusAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columnfoneAdmin = New Global.System.Data.DataColumn("foneAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfoneAdmin) + Me.columncidadeAdmin = New Global.System.Data.DataColumn("cidadeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeAdmin) + Me.columnloginAdmin = New Global.System.Data.DataColumn("loginAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginAdmin) + Me.columnsenhaAdmin = New Global.System.Data.DataColumn("senhaAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaAdmin) + Me.columnstatusAdmin = New Global.System.Data.DataColumn("statusAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusAdmin) + Me.columnnomeAdmin.MaxLength = 50 + Me.columnfoneAdmin.MaxLength = 11 + Me.columncidadeAdmin.MaxLength = 50 + Me.columnloginAdmin.MaxLength = 10 + Me.columnsenhaAdmin.MaxLength = 16 + Me.columnstatusAdmin.MaxLength = 20 + End Sub + + _ + Public Function NewrAdminDesativadoRow() As rAdminDesativadoRow + Return CType(Me.NewRow,rAdminDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rAdminDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rAdminDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rAdminDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowChanged(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rAdminDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowChanging(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rAdminDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowDeleted(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rAdminDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowDeleting(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverAdminDesativadoRow(ByVal row As rAdminDesativadoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rAdminDesativadoDataTable" + 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 rUserAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rUserAtivoRow) + + Private columnnomeUser As Global.System.Data.DataColumn + + Private columnfoneUser As Global.System.Data.DataColumn + + Private columncidadeUser As Global.System.Data.DataColumn + + Private columnloginUser As Global.System.Data.DataColumn + + Private columnsenhaUser As Global.System.Data.DataColumn + + Private columnstatusUser As Global.System.Data.DataColumn + + Private columnnomeAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rUserAtivo" + 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 nomeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeUser + End Get + End Property + + _ + Public ReadOnly Property foneUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfoneUser + End Get + End Property + + _ + Public ReadOnly Property cidadeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeUser + End Get + End Property + + _ + Public ReadOnly Property loginUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginUser + End Get + End Property + + _ + Public ReadOnly Property senhaUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaUser + End Get + End Property + + _ + Public ReadOnly Property statusUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusUser + End Get + End Property + + _ + Public ReadOnly Property nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + 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 rUserAtivoRow + Get + Return CType(Me.Rows(index),rUserAtivoRow) + End Get + End Property + + _ + Public Event rUserAtivoRowChanging As rUserAtivoRowChangeEventHandler + + _ + Public Event rUserAtivoRowChanged As rUserAtivoRowChangeEventHandler + + _ + Public Event rUserAtivoRowDeleting As rUserAtivoRowChangeEventHandler + + _ + Public Event rUserAtivoRowDeleted As rUserAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrUserAtivoRow(ByVal row As rUserAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrUserAtivoRow(ByVal nomeUser As String, ByVal foneUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal nomeAdmin As String) As rUserAtivoRow + Dim rowrUserAtivoRow As rUserAtivoRow = CType(Me.NewRow,rUserAtivoRow) + Dim columnValuesArray() As Object = New Object() {nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin} + rowrUserAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrUserAtivoRow) + Return rowrUserAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rUserAtivoDataTable = CType(MyBase.Clone,rUserAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rUserAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeUser = MyBase.Columns("nomeUser") + Me.columnfoneUser = MyBase.Columns("foneUser") + Me.columncidadeUser = MyBase.Columns("cidadeUser") + Me.columnloginUser = MyBase.Columns("loginUser") + Me.columnsenhaUser = MyBase.Columns("senhaUser") + Me.columnstatusUser = MyBase.Columns("statusUser") + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeUser = New Global.System.Data.DataColumn("nomeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeUser) + Me.columnfoneUser = New Global.System.Data.DataColumn("foneUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfoneUser) + Me.columncidadeUser = New Global.System.Data.DataColumn("cidadeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeUser) + Me.columnloginUser = New Global.System.Data.DataColumn("loginUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginUser) + Me.columnsenhaUser = New Global.System.Data.DataColumn("senhaUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaUser) + Me.columnstatusUser = New Global.System.Data.DataColumn("statusUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusUser) + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columnnomeUser.MaxLength = 50 + Me.columnfoneUser.MaxLength = 11 + Me.columncidadeUser.MaxLength = 50 + Me.columnloginUser.MaxLength = 10 + Me.columnsenhaUser.MaxLength = 16 + Me.columnstatusUser.MaxLength = 20 + Me.columnnomeAdmin.MaxLength = 50 + End Sub + + _ + Public Function NewrUserAtivoRow() As rUserAtivoRow + Return CType(Me.NewRow,rUserAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rUserAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rUserAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rUserAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowChanged(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rUserAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowChanging(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rUserAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowDeleted(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rUserAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowDeleting(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverUserAtivoRow(ByVal row As rUserAtivoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rUserAtivoDataTable" + 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 rUserDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rUserDesativadoRow) + + Private columnnomeUser As Global.System.Data.DataColumn + + Private columnfoneUser As Global.System.Data.DataColumn + + Private columncidadeUser As Global.System.Data.DataColumn + + Private columnloginUser As Global.System.Data.DataColumn + + Private columnsenhaUser As Global.System.Data.DataColumn + + Private columnstatusUser As Global.System.Data.DataColumn + + Private columnnomeAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rUserDesativado" + 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 nomeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeUser + End Get + End Property + + _ + Public ReadOnly Property foneUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnfoneUser + End Get + End Property + + _ + Public ReadOnly Property cidadeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeUser + End Get + End Property + + _ + Public ReadOnly Property loginUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginUser + End Get + End Property + + _ + Public ReadOnly Property senhaUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaUser + End Get + End Property + + _ + Public ReadOnly Property statusUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusUser + End Get + End Property + + _ + Public ReadOnly Property nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + 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 rUserDesativadoRow + Get + Return CType(Me.Rows(index),rUserDesativadoRow) + End Get + End Property + + _ + Public Event rUserDesativadoRowChanging As rUserDesativadoRowChangeEventHandler + + _ + Public Event rUserDesativadoRowChanged As rUserDesativadoRowChangeEventHandler + + _ + Public Event rUserDesativadoRowDeleting As rUserDesativadoRowChangeEventHandler + + _ + Public Event rUserDesativadoRowDeleted As rUserDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrUserDesativadoRow(ByVal row As rUserDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrUserDesativadoRow(ByVal nomeUser As String, ByVal foneUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal nomeAdmin As String) As rUserDesativadoRow + Dim rowrUserDesativadoRow As rUserDesativadoRow = CType(Me.NewRow,rUserDesativadoRow) + Dim columnValuesArray() As Object = New Object() {nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin} + rowrUserDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrUserDesativadoRow) + Return rowrUserDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rUserDesativadoDataTable = CType(MyBase.Clone,rUserDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rUserDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeUser = MyBase.Columns("nomeUser") + Me.columnfoneUser = MyBase.Columns("foneUser") + Me.columncidadeUser = MyBase.Columns("cidadeUser") + Me.columnloginUser = MyBase.Columns("loginUser") + Me.columnsenhaUser = MyBase.Columns("senhaUser") + Me.columnstatusUser = MyBase.Columns("statusUser") + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeUser = New Global.System.Data.DataColumn("nomeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeUser) + Me.columnfoneUser = New Global.System.Data.DataColumn("foneUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnfoneUser) + Me.columncidadeUser = New Global.System.Data.DataColumn("cidadeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeUser) + Me.columnloginUser = New Global.System.Data.DataColumn("loginUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginUser) + Me.columnsenhaUser = New Global.System.Data.DataColumn("senhaUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaUser) + Me.columnstatusUser = New Global.System.Data.DataColumn("statusUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusUser) + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columnnomeUser.MaxLength = 50 + Me.columnfoneUser.MaxLength = 11 + Me.columncidadeUser.MaxLength = 50 + Me.columnloginUser.MaxLength = 10 + Me.columnsenhaUser.MaxLength = 16 + Me.columnstatusUser.MaxLength = 20 + Me.columnnomeAdmin.MaxLength = 50 + End Sub + + _ + Public Function NewrUserDesativadoRow() As rUserDesativadoRow + Return CType(Me.NewRow,rUserDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rUserDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rUserDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rUserDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowChanged(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rUserDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowChanging(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rUserDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowDeleted(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rUserDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowDeleting(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverUserDesativadoRow(ByVal row As rUserDesativadoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rUserDesativadoDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbAdminRow + Inherits Global.System.Data.DataRow + + Private tabletbAdmin As tbAdminDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbAdmin = CType(Me.Table,tbAdminDataTable) + End Sub + + _ + Public Property idAdmin() As Integer + Get + Return CType(Me(Me.tabletbAdmin.idAdminColumn),Integer) + End Get + Set + Me(Me.tabletbAdmin.idAdminColumn) = value + End Set + End Property + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.nomeAdminColumn) = value + End Set + End Property + + _ + Public Property foneAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.foneAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'foneAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.foneAdminColumn) = value + End Set + End Property + + _ + Public Property cidadeAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.cidadeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.cidadeAdminColumn) = value + End Set + End Property + + _ + Public Property loginAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.loginAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.loginAdminColumn) = value + End Set + End Property + + _ + Public Property senhaAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.senhaAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.senhaAdminColumn) = value + End Set + End Property + + _ + Public Property statusAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.statusAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.statusAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tabletbAdmin.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfoneAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.foneAdminColumn) + End Function + + _ + Public Sub SetfoneAdminNull() + Me(Me.tabletbAdmin.foneAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.cidadeAdminColumn) + End Function + + _ + Public Sub SetcidadeAdminNull() + Me(Me.tabletbAdmin.cidadeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.loginAdminColumn) + End Function + + _ + Public Sub SetloginAdminNull() + Me(Me.tabletbAdmin.loginAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.senhaAdminColumn) + End Function + + _ + Public Sub SetsenhaAdminNull() + Me(Me.tabletbAdmin.senhaAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.statusAdminColumn) + End Function + + _ + Public Sub SetstatusAdminNull() + Me(Me.tabletbAdmin.statusAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbCadastroRows() As tbCadastroRow() + If (Me.Table.ChildRelations("tbAdmintbCadastro") Is Nothing) Then + Return New tbCadastroRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbAdmintbCadastro")),tbCadastroRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbCadastroRow + Inherits Global.System.Data.DataRow + + Private tabletbCadastro As tbCadastroDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbCadastro = CType(Me.Table,tbCadastroDataTable) + End Sub + + _ + Public Property idUser() As Integer + Get + Return CType(Me(Me.tabletbCadastro.idUserColumn),Integer) + End Get + Set + Me(Me.tabletbCadastro.idUserColumn) = value + End Set + End Property + + _ + Public Property nomeUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.nomeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.nomeUserColumn) = value + End Set + End Property + + _ + Public Property foneUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.foneUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'foneUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.foneUserColumn) = value + End Set + End Property + + _ + Public Property cidadeUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.cidadeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.cidadeUserColumn) = value + End Set + End Property + + _ + Public Property loginUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.loginUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.loginUserColumn) = value + End Set + End Property + + _ + Public Property senhaUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.senhaUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.senhaUserColumn) = value + End Set + End Property + + _ + Public Property statusUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.statusUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.statusUserColumn) = value + End Set + End Property + + _ + Public Property idCadastrador() As Integer + Get + Try + Return CType(Me(Me.tabletbCadastro.idCadastradorColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idCadastrador' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.idCadastradorColumn) = value + End Set + End Property + + _ + Public Property tbAdminRow() As tbAdminRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbAdmintbCadastro")),tbAdminRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbAdmintbCadastro")) + End Set + End Property + + _ + Public Function IsnomeUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.nomeUserColumn) + End Function + + _ + Public Sub SetnomeUserNull() + Me(Me.tabletbCadastro.nomeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfoneUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.foneUserColumn) + End Function + + _ + Public Sub SetfoneUserNull() + Me(Me.tabletbCadastro.foneUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.cidadeUserColumn) + End Function + + _ + Public Sub SetcidadeUserNull() + Me(Me.tabletbCadastro.cidadeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.loginUserColumn) + End Function + + _ + Public Sub SetloginUserNull() + Me(Me.tabletbCadastro.loginUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.senhaUserColumn) + End Function + + _ + Public Sub SetsenhaUserNull() + Me(Me.tabletbCadastro.senhaUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.statusUserColumn) + End Function + + _ + Public Sub SetstatusUserNull() + Me(Me.tabletbCadastro.statusUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidCadastradorNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.idCadastradorColumn) + End Function + + _ + Public Sub SetidCadastradorNull() + Me(Me.tabletbCadastro.idCadastradorColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rAdminAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerAdminAtivo As rAdminAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerAdminAtivo = CType(Me.Table,rAdminAtivoDataTable) + End Sub + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.nomeAdminColumn) = value + End Set + End Property + + _ + Public Property foneAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.foneAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'foneAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.foneAdminColumn) = value + End Set + End Property + + _ + Public Property cidadeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.cidadeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.cidadeAdminColumn) = value + End Set + End Property + + _ + Public Property loginAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.loginAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.loginAdminColumn) = value + End Set + End Property + + _ + Public Property senhaAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.senhaAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.senhaAdminColumn) = value + End Set + End Property + + _ + Public Property statusAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.statusAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.statusAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerAdminAtivo.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfoneAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.foneAdminColumn) + End Function + + _ + Public Sub SetfoneAdminNull() + Me(Me.tablerAdminAtivo.foneAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.cidadeAdminColumn) + End Function + + _ + Public Sub SetcidadeAdminNull() + Me(Me.tablerAdminAtivo.cidadeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.loginAdminColumn) + End Function + + _ + Public Sub SetloginAdminNull() + Me(Me.tablerAdminAtivo.loginAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.senhaAdminColumn) + End Function + + _ + Public Sub SetsenhaAdminNull() + Me(Me.tablerAdminAtivo.senhaAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.statusAdminColumn) + End Function + + _ + Public Sub SetstatusAdminNull() + Me(Me.tablerAdminAtivo.statusAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rAdminDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerAdminDesativado As rAdminDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerAdminDesativado = CType(Me.Table,rAdminDesativadoDataTable) + End Sub + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.nomeAdminColumn) = value + End Set + End Property + + _ + Public Property foneAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.foneAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'foneAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.foneAdminColumn) = value + End Set + End Property + + _ + Public Property cidadeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.cidadeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.cidadeAdminColumn) = value + End Set + End Property + + _ + Public Property loginAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.loginAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.loginAdminColumn) = value + End Set + End Property + + _ + Public Property senhaAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.senhaAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.senhaAdminColumn) = value + End Set + End Property + + _ + Public Property statusAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.statusAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.statusAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerAdminDesativado.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfoneAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.foneAdminColumn) + End Function + + _ + Public Sub SetfoneAdminNull() + Me(Me.tablerAdminDesativado.foneAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.cidadeAdminColumn) + End Function + + _ + Public Sub SetcidadeAdminNull() + Me(Me.tablerAdminDesativado.cidadeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.loginAdminColumn) + End Function + + _ + Public Sub SetloginAdminNull() + Me(Me.tablerAdminDesativado.loginAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.senhaAdminColumn) + End Function + + _ + Public Sub SetsenhaAdminNull() + Me(Me.tablerAdminDesativado.senhaAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.statusAdminColumn) + End Function + + _ + Public Sub SetstatusAdminNull() + Me(Me.tablerAdminDesativado.statusAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rUserAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerUserAtivo As rUserAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerUserAtivo = CType(Me.Table,rUserAtivoDataTable) + End Sub + + _ + Public Property nomeUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.nomeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.nomeUserColumn) = value + End Set + End Property + + _ + Public Property foneUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.foneUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'foneUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.foneUserColumn) = value + End Set + End Property + + _ + Public Property cidadeUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.cidadeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.cidadeUserColumn) = value + End Set + End Property + + _ + Public Property loginUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.loginUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.loginUserColumn) = value + End Set + End Property + + _ + Public Property senhaUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.senhaUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.senhaUserColumn) = value + End Set + End Property + + _ + Public Property statusUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.statusUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.statusUserColumn) = value + End Set + End Property + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.nomeAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.nomeUserColumn) + End Function + + _ + Public Sub SetnomeUserNull() + Me(Me.tablerUserAtivo.nomeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfoneUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.foneUserColumn) + End Function + + _ + Public Sub SetfoneUserNull() + Me(Me.tablerUserAtivo.foneUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.cidadeUserColumn) + End Function + + _ + Public Sub SetcidadeUserNull() + Me(Me.tablerUserAtivo.cidadeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.loginUserColumn) + End Function + + _ + Public Sub SetloginUserNull() + Me(Me.tablerUserAtivo.loginUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.senhaUserColumn) + End Function + + _ + Public Sub SetsenhaUserNull() + Me(Me.tablerUserAtivo.senhaUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.statusUserColumn) + End Function + + _ + Public Sub SetstatusUserNull() + Me(Me.tablerUserAtivo.statusUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerUserAtivo.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rUserDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerUserDesativado As rUserDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerUserDesativado = CType(Me.Table,rUserDesativadoDataTable) + End Sub + + _ + Public Property nomeUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.nomeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.nomeUserColumn) = value + End Set + End Property + + _ + Public Property foneUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.foneUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'foneUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.foneUserColumn) = value + End Set + End Property + + _ + Public Property cidadeUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.cidadeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.cidadeUserColumn) = value + End Set + End Property + + _ + Public Property loginUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.loginUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.loginUserColumn) = value + End Set + End Property + + _ + Public Property senhaUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.senhaUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.senhaUserColumn) = value + End Set + End Property + + _ + Public Property statusUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.statusUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.statusUserColumn) = value + End Set + End Property + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.nomeAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.nomeUserColumn) + End Function + + _ + Public Sub SetnomeUserNull() + Me(Me.tablerUserDesativado.nomeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsfoneUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.foneUserColumn) + End Function + + _ + Public Sub SetfoneUserNull() + Me(Me.tablerUserDesativado.foneUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.cidadeUserColumn) + End Function + + _ + Public Sub SetcidadeUserNull() + Me(Me.tablerUserDesativado.cidadeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.loginUserColumn) + End Function + + _ + Public Sub SetloginUserNull() + Me(Me.tablerUserDesativado.loginUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.senhaUserColumn) + End Function + + _ + Public Sub SetsenhaUserNull() + Me(Me.tablerUserDesativado.senhaUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.statusUserColumn) + End Function + + _ + Public Sub SetstatusUserNull() + Me(Me.tablerUserDesativado.statusUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerUserDesativado.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbAdminRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbAdminRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbAdminRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbAdminRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbCadastroRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbCadastroRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbCadastroRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbCadastroRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rAdminAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rAdminAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rAdminAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rAdminAtivoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rAdminDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rAdminDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rAdminDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rAdminDesativadoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rUserAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rUserAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rUserAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rUserAtivoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rUserDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rUserDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rUserDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rUserDesativadoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace bancouc10DataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbAdminTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbAdmin" + tableMapping.ColumnMappings.Add("idAdmin", "idAdmin") + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + tableMapping.ColumnMappings.Add("foneAdmin", "foneAdmin") + tableMapping.ColumnMappings.Add("cidadeAdmin", "cidadeAdmin") + tableMapping.ColumnMappings.Add("loginAdmin", "loginAdmin") + tableMapping.ColumnMappings.Add("senhaAdmin", "senhaAdmin") + tableMapping.ColumnMappings.Add("statusAdmin", "statusAdmin") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tbAdmin` WHERE ((`idAdmin` = ?) AND ((? = 1 AND `nomeAdmin` IS NULL)"& _ + " OR (`nomeAdmin` = ?)) AND ((? = 1 AND `foneAdmin` IS NULL) OR (`foneAdmin` = ?)"& _ + ") AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cidadeAdmin` = ?)) AND ((? = 1 AND"& _ + " `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND ((? = 1 AND `senhaAdmin` IS NU"& _ + "LL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `statusAdmin` IS NULL) OR (`statusAdm"& _ + "in` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_foneAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_foneAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tbAdmin` (`nomeAdmin`, `foneAdmin`, `cidadeAdmin`, `loginAdmin`, `se"& _ + "nhaAdmin`, `statusAdmin`) VALUES (?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("foneAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tbAdmin` SET `nomeAdmin` = ?, `foneAdmin` = ?, `cidadeAdmin` = ?, `loginA"& _ + "dmin` = ?, `senhaAdmin` = ?, `statusAdmin` = ? WHERE ((`idAdmin` = ?) AND ((? = "& _ + "1 AND `nomeAdmin` IS NULL) OR (`nomeAdmin` = ?)) AND ((? = 1 AND `foneAdmin` IS "& _ + "NULL) OR (`foneAdmin` = ?)) AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cidadeAd"& _ + "min` = ?)) AND ((? = 1 AND `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND ((? "& _ + "= 1 AND `senhaAdmin` IS NULL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `statusAdmi"& _ + "n` IS NULL) OR (`statusAdmin` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("foneAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_foneAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_foneAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idAdmin, nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, status"& _ + "Admin FROM tbAdmin" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.tbAdminDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.tbAdminDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.tbAdminDataTable = New bancouc10DataSet.tbAdminDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bancouc10DataSet.tbAdminDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bancouc10DataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbAdmin") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_idAdmin As Integer, ByVal Original_nomeAdmin As String, ByVal Original_foneAdmin As String, ByVal Original_cidadeAdmin As String, ByVal Original_loginAdmin As String, ByVal Original_senhaAdmin As String, ByVal Original_statusAdmin As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idAdmin,Integer) + If (Original_nomeAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nomeAdmin,String) + End If + If (Original_foneAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_foneAdmin,String) + End If + If (Original_cidadeAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_cidadeAdmin,String) + End If + If (Original_loginAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_loginAdmin,String) + End If + If (Original_senhaAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_senhaAdmin,String) + End If + If (Original_statusAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_statusAdmin,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal nomeAdmin As String, ByVal foneAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As Integer + If (nomeAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeAdmin,String) + End If + If (foneAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(foneAdmin,String) + End If + If (cidadeAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(cidadeAdmin,String) + End If + If (loginAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(loginAdmin,String) + End If + If (senhaAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(senhaAdmin,String) + End If + If (statusAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(statusAdmin,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal nomeAdmin As String, ByVal foneAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String, ByVal Original_idAdmin As Integer, ByVal Original_nomeAdmin As String, ByVal Original_foneAdmin As String, ByVal Original_cidadeAdmin As String, ByVal Original_loginAdmin As String, ByVal Original_senhaAdmin As String, ByVal Original_statusAdmin As String) As Integer + If (nomeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeAdmin,String) + End If + If (foneAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(foneAdmin,String) + End If + If (cidadeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(cidadeAdmin,String) + End If + If (loginAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(loginAdmin,String) + End If + If (senhaAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(senhaAdmin,String) + End If + If (statusAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(statusAdmin,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_idAdmin,Integer) + If (Original_nomeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_nomeAdmin,String) + End If + If (Original_foneAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_foneAdmin,String) + End If + If (Original_cidadeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_cidadeAdmin,String) + End If + If (Original_loginAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_loginAdmin,String) + End If + If (Original_senhaAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_senhaAdmin,String) + End If + If (Original_statusAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_statusAdmin,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbCadastroTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbCadastro" + tableMapping.ColumnMappings.Add("idUser", "idUser") + tableMapping.ColumnMappings.Add("nomeUser", "nomeUser") + tableMapping.ColumnMappings.Add("foneUser", "foneUser") + tableMapping.ColumnMappings.Add("cidadeUser", "cidadeUser") + tableMapping.ColumnMappings.Add("loginUser", "loginUser") + tableMapping.ColumnMappings.Add("senhaUser", "senhaUser") + tableMapping.ColumnMappings.Add("statusUser", "statusUser") + tableMapping.ColumnMappings.Add("idCadastrador", "idCadastrador") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tbCadastro` WHERE ((`idUser` = ?) AND ((? = 1 AND `nomeUser` IS NULL"& _ + ") OR (`nomeUser` = ?)) AND ((? = 1 AND `foneUser` IS NULL) OR (`foneUser` = ?)) "& _ + "AND ((? = 1 AND `cidadeUser` IS NULL) OR (`cidadeUser` = ?)) AND ((? = 1 AND `lo"& _ + "ginUser` IS NULL) OR (`loginUser` = ?)) AND ((? = 1 AND `senhaUser` IS NULL) OR "& _ + "(`senhaUser` = ?)) AND ((? = 1 AND `statusUser` IS NULL) OR (`statusUser` = ?)) "& _ + "AND ((? = 1 AND `idCadastrador` IS NULL) OR (`idCadastrador` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_foneUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_foneUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tbCadastro` (`nomeUser`, `foneUser`, `cidadeUser`, `loginUser`, `sen"& _ + "haUser`, `statusUser`, `idCadastrador`) VALUES (?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("foneUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tbCadastro` SET `nomeUser` = ?, `foneUser` = ?, `cidadeUser` = ?, `loginU"& _ + "ser` = ?, `senhaUser` = ?, `statusUser` = ?, `idCadastrador` = ? WHERE ((`idUser"& _ + "` = ?) AND ((? = 1 AND `nomeUser` IS NULL) OR (`nomeUser` = ?)) AND ((? = 1 AND "& _ + "`foneUser` IS NULL) OR (`foneUser` = ?)) AND ((? = 1 AND `cidadeUser` IS NULL) O"& _ + "R (`cidadeUser` = ?)) AND ((? = 1 AND `loginUser` IS NULL) OR (`loginUser` = ?))"& _ + " AND ((? = 1 AND `senhaUser` IS NULL) OR (`senhaUser` = ?)) AND ((? = 1 AND `sta"& _ + "tusUser` IS NULL) OR (`statusUser` = ?)) AND ((? = 1 AND `idCadastrador` IS NULL"& _ + ") OR (`idCadastrador` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("foneUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_foneUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_foneUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "foneUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idUser, nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, "& _ + "idCadastrador FROM tbCadastro" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.tbCadastroDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.tbCadastroDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.tbCadastroDataTable = New bancouc10DataSet.tbCadastroDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bancouc10DataSet.tbCadastroDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bancouc10DataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbCadastro") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_idUser As Integer, ByVal Original_nomeUser As String, ByVal Original_foneUser As String, ByVal Original_cidadeUser As String, ByVal Original_loginUser As String, ByVal Original_senhaUser As String, ByVal Original_statusUser As String, ByVal Original_idCadastrador As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idUser,Integer) + If (Original_nomeUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nomeUser,String) + End If + If (Original_foneUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_foneUser,String) + End If + If (Original_cidadeUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_cidadeUser,String) + End If + If (Original_loginUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_loginUser,String) + End If + If (Original_senhaUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_senhaUser,String) + End If + If (Original_statusUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_statusUser,String) + End If + If (Original_idCadastrador.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_idCadastrador.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal nomeUser As String, ByVal foneUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal idCadastrador As Global.System.Nullable(Of Integer)) As Integer + If (nomeUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeUser,String) + End If + If (foneUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(foneUser,String) + End If + If (cidadeUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(cidadeUser,String) + End If + If (loginUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(loginUser,String) + End If + If (senhaUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(senhaUser,String) + End If + If (statusUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(statusUser,String) + End If + If (idCadastrador.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(idCadastrador.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal nomeUser As String, ByVal foneUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal idCadastrador As Global.System.Nullable(Of Integer), ByVal Original_idUser As Integer, ByVal Original_nomeUser As String, ByVal Original_foneUser As String, ByVal Original_cidadeUser As String, ByVal Original_loginUser As String, ByVal Original_senhaUser As String, ByVal Original_statusUser As String, ByVal Original_idCadastrador As Global.System.Nullable(Of Integer)) As Integer + If (nomeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeUser,String) + End If + If (foneUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(foneUser,String) + End If + If (cidadeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(cidadeUser,String) + End If + If (loginUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(loginUser,String) + End If + If (senhaUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(senhaUser,String) + End If + If (statusUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(statusUser,String) + End If + If (idCadastrador.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(idCadastrador.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_idUser,Integer) + If (Original_nomeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_nomeUser,String) + End If + If (Original_foneUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_foneUser,String) + End If + If (Original_cidadeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_cidadeUser,String) + End If + If (Original_loginUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_loginUser,String) + End If + If (Original_senhaUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_senhaUser,String) + End If + If (Original_statusUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_statusUser,String) + End If + If (Original_idCadastrador.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_idCadastrador.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rAdminAtivoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rAdminAtivo" + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + tableMapping.ColumnMappings.Add("foneAdmin", "foneAdmin") + tableMapping.ColumnMappings.Add("cidadeAdmin", "cidadeAdmin") + tableMapping.ColumnMappings.Add("loginAdmin", "loginAdmin") + tableMapping.ColumnMappings.Add("senhaAdmin", "senhaAdmin") + tableMapping.ColumnMappings.Add("statusAdmin", "statusAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FRO"& _ + "M rAdminAtivo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rAdminAtivoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rAdminAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rAdminAtivoDataTable = New bancouc10DataSet.rAdminAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rAdminDesativadoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rAdminDesativado" + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + tableMapping.ColumnMappings.Add("foneAdmin", "foneAdmin") + tableMapping.ColumnMappings.Add("cidadeAdmin", "cidadeAdmin") + tableMapping.ColumnMappings.Add("loginAdmin", "loginAdmin") + tableMapping.ColumnMappings.Add("senhaAdmin", "senhaAdmin") + tableMapping.ColumnMappings.Add("statusAdmin", "statusAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FRO"& _ + "M rAdminDesativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rAdminDesativadoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rAdminDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rAdminDesativadoDataTable = New bancouc10DataSet.rAdminDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rUserAtivoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rUserAtivo" + tableMapping.ColumnMappings.Add("nomeUser", "nomeUser") + tableMapping.ColumnMappings.Add("foneUser", "foneUser") + tableMapping.ColumnMappings.Add("cidadeUser", "cidadeUser") + tableMapping.ColumnMappings.Add("loginUser", "loginUser") + tableMapping.ColumnMappings.Add("senhaUser", "senhaUser") + tableMapping.ColumnMappings.Add("statusUser", "statusUser") + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmi"& _ + "n FROM rUserAtivo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rUserAtivoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rUserAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rUserAtivoDataTable = New bancouc10DataSet.rUserAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rUserDesativadoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rUserDesativado" + tableMapping.ColumnMappings.Add("nomeUser", "nomeUser") + tableMapping.ColumnMappings.Add("foneUser", "foneUser") + tableMapping.ColumnMappings.Add("cidadeUser", "cidadeUser") + tableMapping.ColumnMappings.Add("loginUser", "loginUser") + tableMapping.ColumnMappings.Add("senhaUser", "senhaUser") + tableMapping.ColumnMappings.Add("statusUser", "statusUser") + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmi"& _ + "n FROM rUserDesativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rUserDesativadoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rUserDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rUserDesativadoDataTable = New bancouc10DataSet.rUserDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tbAdminTableAdapter As tbAdminTableAdapter + + Private _tbCadastroTableAdapter As tbCadastroTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property tbAdminTableAdapter() As tbAdminTableAdapter + Get + Return Me._tbAdminTableAdapter + End Get + Set + Me._tbAdminTableAdapter = value + End Set + End Property + + _ + Public Property tbCadastroTableAdapter() As tbCadastroTableAdapter + Get + Return Me._tbCadastroTableAdapter + End Get + Set + Me._tbCadastroTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tbAdminTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbAdminTableAdapter.Connection) Is Nothing)) Then + Return Me._tbAdminTableAdapter.Connection + End If + If ((Not (Me._tbCadastroTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbCadastroTableAdapter.Connection) Is Nothing)) Then + Return Me._tbCadastroTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As bancouc10DataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbAdmin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tbAdminTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbCadastro.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tbCadastroTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As bancouc10DataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbAdmin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbAdminTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbCadastro.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbCadastroTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As bancouc10DataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbCadastro.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbCadastroTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbAdmin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbAdminTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As bancouc10DataSet) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tbAdminTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbAdminTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + If ((Not (Me._tbCadastroTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbCadastroTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager não contém informações de conexão. Defina cada propriedade Ta"& _ + "bleAdapter de TableAdapterManager como uma instância válida de TableAdapter.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Não é possível iniciar a transação. Os dados de conexão atuais não oferecem supor"& _ + "te às transações ou o estado atual não permite que a transação inicie.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbAdminTableAdapter, Me._tbAdminTableAdapter.Connection) + Me._tbAdminTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbAdminTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbAdminTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbAdminTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbAdminTableAdapter.Adapter) + End If + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbCadastroTableAdapter, Me._tbCadastroTableAdapter.Connection) + Me._tbCadastroTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbCadastroTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbCadastroTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbCadastroTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbCadastroTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Me._tbAdminTableAdapter.Connection = CType(revertConnections(Me._tbAdminTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbAdminTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Me._tbCadastroTableAdapter.Connection = CType(revertConnections(Me._tbCadastroTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbCadastroTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/ProjetoTrabalho/bancouc10DataSet.vb b/ProjetoTrabalho/bancouc10DataSet.vb new file mode 100755 index 0000000..69f3545 --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet.vb @@ -0,0 +1,2 @@ +Partial Class bancouc10DataSet +End Class diff --git a/ProjetoTrabalho/bancouc10DataSet.xsc b/ProjetoTrabalho/bancouc10DataSet.xsc new file mode 100755 index 0000000..04abcb9 --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet.xsc @@ -0,0 +1,21 @@ + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ProjetoTrabalho/bancouc10DataSet.xsd b/ProjetoTrabalho/bancouc10DataSet.xsd new file mode 100755 index 0000000..f674223 --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet.xsd @@ -0,0 +1,594 @@ + + + + + + + + + + + + + + + DELETE FROM `tbAdmin` WHERE ((`idAdmin` = ?) AND ((? = 1 AND `nomeAdmin` IS NULL) OR (`nomeAdmin` = ?)) AND ((? = 1 AND `foneAdmin` IS NULL) OR (`foneAdmin` = ?)) AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cidadeAdmin` = ?)) AND ((? = 1 AND `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND ((? = 1 AND `senhaAdmin` IS NULL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `statusAdmin` IS NULL) OR (`statusAdmin` = ?))) + + + + + + + + + + + + + + + + + + + + INSERT INTO `tbAdmin` (`nomeAdmin`, `foneAdmin`, `cidadeAdmin`, `loginAdmin`, `senhaAdmin`, `statusAdmin`) VALUES (?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + SELECT idAdmin, nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM tbAdmin + + + + + + UPDATE `tbAdmin` SET `nomeAdmin` = ?, `foneAdmin` = ?, `cidadeAdmin` = ?, `loginAdmin` = ?, `senhaAdmin` = ?, `statusAdmin` = ? WHERE ((`idAdmin` = ?) AND ((? = 1 AND `nomeAdmin` IS NULL) OR (`nomeAdmin` = ?)) AND ((? = 1 AND `foneAdmin` IS NULL) OR (`foneAdmin` = ?)) AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cidadeAdmin` = ?)) AND ((? = 1 AND `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND ((? = 1 AND `senhaAdmin` IS NULL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `statusAdmin` IS NULL) OR (`statusAdmin` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbCadastro` WHERE ((`idUser` = ?) AND ((? = 1 AND `nomeUser` IS NULL) OR (`nomeUser` = ?)) AND ((? = 1 AND `foneUser` IS NULL) OR (`foneUser` = ?)) AND ((? = 1 AND `cidadeUser` IS NULL) OR (`cidadeUser` = ?)) AND ((? = 1 AND `loginUser` IS NULL) OR (`loginUser` = ?)) AND ((? = 1 AND `senhaUser` IS NULL) OR (`senhaUser` = ?)) AND ((? = 1 AND `statusUser` IS NULL) OR (`statusUser` = ?)) AND ((? = 1 AND `idCadastrador` IS NULL) OR (`idCadastrador` = ?))) + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `tbCadastro` (`nomeUser`, `foneUser`, `cidadeUser`, `loginUser`, `senhaUser`, `statusUser`, `idCadastrador`) VALUES (?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + SELECT idUser, nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, idCadastrador FROM tbCadastro + + + + + + UPDATE `tbCadastro` SET `nomeUser` = ?, `foneUser` = ?, `cidadeUser` = ?, `loginUser` = ?, `senhaUser` = ?, `statusUser` = ?, `idCadastrador` = ? WHERE ((`idUser` = ?) AND ((? = 1 AND `nomeUser` IS NULL) OR (`nomeUser` = ?)) AND ((? = 1 AND `foneUser` IS NULL) OR (`foneUser` = ?)) AND ((? = 1 AND `cidadeUser` IS NULL) OR (`cidadeUser` = ?)) AND ((? = 1 AND `loginUser` IS NULL) OR (`loginUser` = ?)) AND ((? = 1 AND `senhaUser` IS NULL) OR (`senhaUser` = ?)) AND ((? = 1 AND `statusUser` IS NULL) OR (`statusUser` = ?)) AND ((? = 1 AND `idCadastrador` IS NULL) OR (`idCadastrador` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM rAdminAtivo + + + + + + + + + + + + + + + + + + + + + SELECT nomeAdmin, foneAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM rAdminDesativado + + + + + + + + + + + + + + + + + + + + + SELECT nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin FROM rUserAtivo + + + + + + + + + + + + + + + + + + + + + + SELECT nomeUser, foneUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin FROM rUserDesativado + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ProjetoTrabalho/bancouc10DataSet.xss b/ProjetoTrabalho/bancouc10DataSet.xss new file mode 100755 index 0000000..dc4a93f --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet.xss @@ -0,0 +1,31 @@ + + + + + + + + + + + + + + + + + 265 + 175 + + + 335 + 175 + + + + + \ No newline at end of file diff --git a/ProjetoTrabalho/bancouc10DataSet1.Designer.vb b/ProjetoTrabalho/bancouc10DataSet1.Designer.vb new file mode 100755 index 0000000..99a9a28 --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet1.Designer.vb @@ -0,0 +1,5787 @@ +'------------------------------------------------------------------------------ +' +' O código foi gerado por uma ferramenta. +' Versão de Tempo de Execução:4.0.30319.42000 +' +' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se +' o código for gerado novamente. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class bancouc10DataSet + Inherits Global.System.Data.DataSet + + Private tabletbAdmin As tbAdminDataTable + + Private tabletbCadastro As tbCadastroDataTable + + Private tablerAdminAtivo As rAdminAtivoDataTable + + Private tablerAdminDesativado As rAdminDesativadoDataTable + + Private tablerUserAtivo As rUserAtivoDataTable + + Private tablerUserDesativado As rUserDesativadoDataTable + + Private relationtbAdmintbCadastro As Global.System.Data.DataRelation + + 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("tbAdmin")) Is Nothing) Then + MyBase.Tables.Add(New tbAdminDataTable(ds.Tables("tbAdmin"))) + End If + If (Not (ds.Tables("tbCadastro")) Is Nothing) Then + MyBase.Tables.Add(New tbCadastroDataTable(ds.Tables("tbCadastro"))) + End If + If (Not (ds.Tables("rAdminAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rAdminAtivoDataTable(ds.Tables("rAdminAtivo"))) + End If + If (Not (ds.Tables("rAdminDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rAdminDesativadoDataTable(ds.Tables("rAdminDesativado"))) + End If + If (Not (ds.Tables("rUserAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rUserAtivoDataTable(ds.Tables("rUserAtivo"))) + End If + If (Not (ds.Tables("rUserDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rUserDesativadoDataTable(ds.Tables("rUserDesativado"))) + 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 tbAdmin() As tbAdminDataTable + Get + Return Me.tabletbAdmin + End Get + End Property + + _ + Public ReadOnly Property tbCadastro() As tbCadastroDataTable + Get + Return Me.tabletbCadastro + End Get + End Property + + _ + Public ReadOnly Property rAdminAtivo() As rAdminAtivoDataTable + Get + Return Me.tablerAdminAtivo + End Get + End Property + + _ + Public ReadOnly Property rAdminDesativado() As rAdminDesativadoDataTable + Get + Return Me.tablerAdminDesativado + End Get + End Property + + _ + Public ReadOnly Property rUserAtivo() As rUserAtivoDataTable + Get + Return Me.tablerUserAtivo + End Get + End Property + + _ + Public ReadOnly Property rUserDesativado() As rUserDesativadoDataTable + Get + Return Me.tablerUserDesativado + 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 bancouc10DataSet = CType(MyBase.Clone,bancouc10DataSet) + 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("tbAdmin")) Is Nothing) Then + MyBase.Tables.Add(New tbAdminDataTable(ds.Tables("tbAdmin"))) + End If + If (Not (ds.Tables("tbCadastro")) Is Nothing) Then + MyBase.Tables.Add(New tbCadastroDataTable(ds.Tables("tbCadastro"))) + End If + If (Not (ds.Tables("rAdminAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rAdminAtivoDataTable(ds.Tables("rAdminAtivo"))) + End If + If (Not (ds.Tables("rAdminDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rAdminDesativadoDataTable(ds.Tables("rAdminDesativado"))) + End If + If (Not (ds.Tables("rUserAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rUserAtivoDataTable(ds.Tables("rUserAtivo"))) + End If + If (Not (ds.Tables("rUserDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rUserDesativadoDataTable(ds.Tables("rUserDesativado"))) + 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.tabletbAdmin = CType(MyBase.Tables("tbAdmin"),tbAdminDataTable) + If (initTable = true) Then + If (Not (Me.tabletbAdmin) Is Nothing) Then + Me.tabletbAdmin.InitVars + End If + End If + Me.tabletbCadastro = CType(MyBase.Tables("tbCadastro"),tbCadastroDataTable) + If (initTable = true) Then + If (Not (Me.tabletbCadastro) Is Nothing) Then + Me.tabletbCadastro.InitVars + End If + End If + Me.tablerAdminAtivo = CType(MyBase.Tables("rAdminAtivo"),rAdminAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerAdminAtivo) Is Nothing) Then + Me.tablerAdminAtivo.InitVars + End If + End If + Me.tablerAdminDesativado = CType(MyBase.Tables("rAdminDesativado"),rAdminDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerAdminDesativado) Is Nothing) Then + Me.tablerAdminDesativado.InitVars + End If + End If + Me.tablerUserAtivo = CType(MyBase.Tables("rUserAtivo"),rUserAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerUserAtivo) Is Nothing) Then + Me.tablerUserAtivo.InitVars + End If + End If + Me.tablerUserDesativado = CType(MyBase.Tables("rUserDesativado"),rUserDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerUserDesativado) Is Nothing) Then + Me.tablerUserDesativado.InitVars + End If + End If + Me.relationtbAdmintbCadastro = Me.Relations("tbAdmintbCadastro") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "bancouc10DataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/bancouc10DataSet1.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tabletbAdmin = New tbAdminDataTable() + MyBase.Tables.Add(Me.tabletbAdmin) + Me.tabletbCadastro = New tbCadastroDataTable() + MyBase.Tables.Add(Me.tabletbCadastro) + Me.tablerAdminAtivo = New rAdminAtivoDataTable() + MyBase.Tables.Add(Me.tablerAdminAtivo) + Me.tablerAdminDesativado = New rAdminDesativadoDataTable() + MyBase.Tables.Add(Me.tablerAdminDesativado) + Me.tablerUserAtivo = New rUserAtivoDataTable() + MyBase.Tables.Add(Me.tablerUserAtivo) + Me.tablerUserDesativado = New rUserDesativadoDataTable() + MyBase.Tables.Add(Me.tablerUserDesativado) + Me.relationtbAdmintbCadastro = New Global.System.Data.DataRelation("tbAdmintbCadastro", New Global.System.Data.DataColumn() {Me.tabletbAdmin.idAdminColumn}, New Global.System.Data.DataColumn() {Me.tabletbCadastro.idCadastradorColumn}, false) + Me.Relations.Add(Me.relationtbAdmintbCadastro) + End Sub + + _ + Private Function ShouldSerializetbAdmin() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbCadastro() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerAdminAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerAdminDesativado() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerUserAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerUserDesativado() 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 bancouc10DataSet = New bancouc10DataSet() + 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 tbAdminRowChangeEventHandler(ByVal sender As Object, ByVal e As tbAdminRowChangeEvent) + + _ + Public Delegate Sub tbCadastroRowChangeEventHandler(ByVal sender As Object, ByVal e As tbCadastroRowChangeEvent) + + _ + Public Delegate Sub rAdminAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rAdminAtivoRowChangeEvent) + + _ + Public Delegate Sub rAdminDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rAdminDesativadoRowChangeEvent) + + _ + Public Delegate Sub rUserAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rUserAtivoRowChangeEvent) + + _ + Public Delegate Sub rUserDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rUserDesativadoRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbAdminDataTable + Inherits Global.System.Data.TypedTableBase(Of tbAdminRow) + + Private columnidAdmin As Global.System.Data.DataColumn + + Private columnnomeAdmin As Global.System.Data.DataColumn + + Private columncidadeAdmin As Global.System.Data.DataColumn + + Private columnloginAdmin As Global.System.Data.DataColumn + + Private columnsenhaAdmin As Global.System.Data.DataColumn + + Private columnstatusAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbAdmin" + 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 idAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidAdmin + End Get + End Property + + _ + Public ReadOnly Property nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + End Get + End Property + + _ + Public ReadOnly Property cidadeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeAdmin + End Get + End Property + + _ + Public ReadOnly Property loginAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginAdmin + End Get + End Property + + _ + Public ReadOnly Property senhaAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaAdmin + End Get + End Property + + _ + Public ReadOnly Property statusAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusAdmin + 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 tbAdminRow + Get + Return CType(Me.Rows(index),tbAdminRow) + End Get + End Property + + _ + Public Event tbAdminRowChanging As tbAdminRowChangeEventHandler + + _ + Public Event tbAdminRowChanged As tbAdminRowChangeEventHandler + + _ + Public Event tbAdminRowDeleting As tbAdminRowChangeEventHandler + + _ + Public Event tbAdminRowDeleted As tbAdminRowChangeEventHandler + + _ + Public Overloads Sub AddtbAdminRow(ByVal row As tbAdminRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbAdminRow(ByVal nomeAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As tbAdminRow + Dim rowtbAdminRow As tbAdminRow = CType(Me.NewRow,tbAdminRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin} + rowtbAdminRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbAdminRow) + Return rowtbAdminRow + End Function + + _ + Public Function FindByidAdmin(ByVal idAdmin As Integer) As tbAdminRow + Return CType(Me.Rows.Find(New Object() {idAdmin}),tbAdminRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbAdminDataTable = CType(MyBase.Clone,tbAdminDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbAdminDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidAdmin = MyBase.Columns("idAdmin") + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + Me.columncidadeAdmin = MyBase.Columns("cidadeAdmin") + Me.columnloginAdmin = MyBase.Columns("loginAdmin") + Me.columnsenhaAdmin = MyBase.Columns("senhaAdmin") + Me.columnstatusAdmin = MyBase.Columns("statusAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnidAdmin = New Global.System.Data.DataColumn("idAdmin", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidAdmin) + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columncidadeAdmin = New Global.System.Data.DataColumn("cidadeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeAdmin) + Me.columnloginAdmin = New Global.System.Data.DataColumn("loginAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginAdmin) + Me.columnsenhaAdmin = New Global.System.Data.DataColumn("senhaAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaAdmin) + Me.columnstatusAdmin = New Global.System.Data.DataColumn("statusAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusAdmin) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidAdmin}, true)) + Me.columnidAdmin.AutoIncrement = true + Me.columnidAdmin.AutoIncrementSeed = -1 + Me.columnidAdmin.AutoIncrementStep = -1 + Me.columnidAdmin.AllowDBNull = false + Me.columnidAdmin.Unique = true + Me.columnnomeAdmin.MaxLength = 50 + Me.columncidadeAdmin.MaxLength = 50 + Me.columnloginAdmin.MaxLength = 10 + Me.columnsenhaAdmin.MaxLength = 16 + Me.columnstatusAdmin.MaxLength = 20 + End Sub + + _ + Public Function NewtbAdminRow() As tbAdminRow + Return CType(Me.NewRow,tbAdminRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbAdminRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbAdminRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbAdminRowChangedEvent) Is Nothing) Then + RaiseEvent tbAdminRowChanged(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbAdminRowChangingEvent) Is Nothing) Then + RaiseEvent tbAdminRowChanging(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbAdminRowDeletedEvent) Is Nothing) Then + RaiseEvent tbAdminRowDeleted(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbAdminRowDeletingEvent) Is Nothing) Then + RaiseEvent tbAdminRowDeleting(Me, New tbAdminRowChangeEvent(CType(e.Row,tbAdminRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbAdminRow(ByVal row As tbAdminRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "tbAdminDataTable" + 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 tbCadastroDataTable + Inherits Global.System.Data.TypedTableBase(Of tbCadastroRow) + + Private columnidUser As Global.System.Data.DataColumn + + Private columnnomeUser As Global.System.Data.DataColumn + + Private columncidadeUser As Global.System.Data.DataColumn + + Private columnloginUser As Global.System.Data.DataColumn + + Private columnsenhaUser As Global.System.Data.DataColumn + + Private columnstatusUser As Global.System.Data.DataColumn + + Private columnidCadastrador As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbCadastro" + 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 idUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidUser + End Get + End Property + + _ + Public ReadOnly Property nomeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeUser + End Get + End Property + + _ + Public ReadOnly Property cidadeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeUser + End Get + End Property + + _ + Public ReadOnly Property loginUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginUser + End Get + End Property + + _ + Public ReadOnly Property senhaUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaUser + End Get + End Property + + _ + Public ReadOnly Property statusUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusUser + End Get + End Property + + _ + Public ReadOnly Property idCadastradorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidCadastrador + 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 tbCadastroRow + Get + Return CType(Me.Rows(index),tbCadastroRow) + End Get + End Property + + _ + Public Event tbCadastroRowChanging As tbCadastroRowChangeEventHandler + + _ + Public Event tbCadastroRowChanged As tbCadastroRowChangeEventHandler + + _ + Public Event tbCadastroRowDeleting As tbCadastroRowChangeEventHandler + + _ + Public Event tbCadastroRowDeleted As tbCadastroRowChangeEventHandler + + _ + Public Overloads Sub AddtbCadastroRow(ByVal row As tbCadastroRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbCadastroRow(ByVal nomeUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal parenttbAdminRowBytbAdmintbCadastro As tbAdminRow) As tbCadastroRow + Dim rowtbCadastroRow As tbCadastroRow = CType(Me.NewRow,tbCadastroRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeUser, cidadeUser, loginUser, senhaUser, statusUser, Nothing} + If (Not (parenttbAdminRowBytbAdmintbCadastro) Is Nothing) Then + columnValuesArray(6) = parenttbAdminRowBytbAdmintbCadastro(0) + End If + rowtbCadastroRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbCadastroRow) + Return rowtbCadastroRow + End Function + + _ + Public Function FindByidUser(ByVal idUser As Integer) As tbCadastroRow + Return CType(Me.Rows.Find(New Object() {idUser}),tbCadastroRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbCadastroDataTable = CType(MyBase.Clone,tbCadastroDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbCadastroDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidUser = MyBase.Columns("idUser") + Me.columnnomeUser = MyBase.Columns("nomeUser") + Me.columncidadeUser = MyBase.Columns("cidadeUser") + Me.columnloginUser = MyBase.Columns("loginUser") + Me.columnsenhaUser = MyBase.Columns("senhaUser") + Me.columnstatusUser = MyBase.Columns("statusUser") + Me.columnidCadastrador = MyBase.Columns("idCadastrador") + End Sub + + _ + Private Sub InitClass() + Me.columnidUser = New Global.System.Data.DataColumn("idUser", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidUser) + Me.columnnomeUser = New Global.System.Data.DataColumn("nomeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeUser) + Me.columncidadeUser = New Global.System.Data.DataColumn("cidadeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeUser) + Me.columnloginUser = New Global.System.Data.DataColumn("loginUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginUser) + Me.columnsenhaUser = New Global.System.Data.DataColumn("senhaUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaUser) + Me.columnstatusUser = New Global.System.Data.DataColumn("statusUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusUser) + Me.columnidCadastrador = New Global.System.Data.DataColumn("idCadastrador", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidCadastrador) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidUser}, true)) + Me.columnidUser.AutoIncrement = true + Me.columnidUser.AutoIncrementSeed = -1 + Me.columnidUser.AutoIncrementStep = -1 + Me.columnidUser.AllowDBNull = false + Me.columnidUser.Unique = true + Me.columnnomeUser.MaxLength = 50 + Me.columncidadeUser.MaxLength = 50 + Me.columnloginUser.MaxLength = 10 + Me.columnsenhaUser.MaxLength = 16 + Me.columnstatusUser.MaxLength = 20 + End Sub + + _ + Public Function NewtbCadastroRow() As tbCadastroRow + Return CType(Me.NewRow,tbCadastroRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbCadastroRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbCadastroRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbCadastroRowChangedEvent) Is Nothing) Then + RaiseEvent tbCadastroRowChanged(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbCadastroRowChangingEvent) Is Nothing) Then + RaiseEvent tbCadastroRowChanging(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbCadastroRowDeletedEvent) Is Nothing) Then + RaiseEvent tbCadastroRowDeleted(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbCadastroRowDeletingEvent) Is Nothing) Then + RaiseEvent tbCadastroRowDeleting(Me, New tbCadastroRowChangeEvent(CType(e.Row,tbCadastroRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbCadastroRow(ByVal row As tbCadastroRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "tbCadastroDataTable" + 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 rAdminAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rAdminAtivoRow) + + Private columnnomeAdmin As Global.System.Data.DataColumn + + Private columncidadeAdmin As Global.System.Data.DataColumn + + Private columnloginAdmin As Global.System.Data.DataColumn + + Private columnsenhaAdmin As Global.System.Data.DataColumn + + Private columnstatusAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rAdminAtivo" + 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 nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + End Get + End Property + + _ + Public ReadOnly Property cidadeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeAdmin + End Get + End Property + + _ + Public ReadOnly Property loginAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginAdmin + End Get + End Property + + _ + Public ReadOnly Property senhaAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaAdmin + End Get + End Property + + _ + Public ReadOnly Property statusAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusAdmin + 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 rAdminAtivoRow + Get + Return CType(Me.Rows(index),rAdminAtivoRow) + End Get + End Property + + _ + Public Event rAdminAtivoRowChanging As rAdminAtivoRowChangeEventHandler + + _ + Public Event rAdminAtivoRowChanged As rAdminAtivoRowChangeEventHandler + + _ + Public Event rAdminAtivoRowDeleting As rAdminAtivoRowChangeEventHandler + + _ + Public Event rAdminAtivoRowDeleted As rAdminAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrAdminAtivoRow(ByVal row As rAdminAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrAdminAtivoRow(ByVal nomeAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As rAdminAtivoRow + Dim rowrAdminAtivoRow As rAdminAtivoRow = CType(Me.NewRow,rAdminAtivoRow) + Dim columnValuesArray() As Object = New Object() {nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin} + rowrAdminAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrAdminAtivoRow) + Return rowrAdminAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rAdminAtivoDataTable = CType(MyBase.Clone,rAdminAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rAdminAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + Me.columncidadeAdmin = MyBase.Columns("cidadeAdmin") + Me.columnloginAdmin = MyBase.Columns("loginAdmin") + Me.columnsenhaAdmin = MyBase.Columns("senhaAdmin") + Me.columnstatusAdmin = MyBase.Columns("statusAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columncidadeAdmin = New Global.System.Data.DataColumn("cidadeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeAdmin) + Me.columnloginAdmin = New Global.System.Data.DataColumn("loginAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginAdmin) + Me.columnsenhaAdmin = New Global.System.Data.DataColumn("senhaAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaAdmin) + Me.columnstatusAdmin = New Global.System.Data.DataColumn("statusAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusAdmin) + Me.columnnomeAdmin.MaxLength = 50 + Me.columncidadeAdmin.MaxLength = 50 + Me.columnloginAdmin.MaxLength = 10 + Me.columnsenhaAdmin.MaxLength = 16 + Me.columnstatusAdmin.MaxLength = 20 + End Sub + + _ + Public Function NewrAdminAtivoRow() As rAdminAtivoRow + Return CType(Me.NewRow,rAdminAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rAdminAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rAdminAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rAdminAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowChanged(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rAdminAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowChanging(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rAdminAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowDeleted(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rAdminAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rAdminAtivoRowDeleting(Me, New rAdminAtivoRowChangeEvent(CType(e.Row,rAdminAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverAdminAtivoRow(ByVal row As rAdminAtivoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rAdminAtivoDataTable" + 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 rAdminDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rAdminDesativadoRow) + + Private columnnomeAdmin As Global.System.Data.DataColumn + + Private columncidadeAdmin As Global.System.Data.DataColumn + + Private columnloginAdmin As Global.System.Data.DataColumn + + Private columnsenhaAdmin As Global.System.Data.DataColumn + + Private columnstatusAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rAdminDesativado" + 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 nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + End Get + End Property + + _ + Public ReadOnly Property cidadeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeAdmin + End Get + End Property + + _ + Public ReadOnly Property loginAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginAdmin + End Get + End Property + + _ + Public ReadOnly Property senhaAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaAdmin + End Get + End Property + + _ + Public ReadOnly Property statusAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusAdmin + 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 rAdminDesativadoRow + Get + Return CType(Me.Rows(index),rAdminDesativadoRow) + End Get + End Property + + _ + Public Event rAdminDesativadoRowChanging As rAdminDesativadoRowChangeEventHandler + + _ + Public Event rAdminDesativadoRowChanged As rAdminDesativadoRowChangeEventHandler + + _ + Public Event rAdminDesativadoRowDeleting As rAdminDesativadoRowChangeEventHandler + + _ + Public Event rAdminDesativadoRowDeleted As rAdminDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrAdminDesativadoRow(ByVal row As rAdminDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrAdminDesativadoRow(ByVal nomeAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As rAdminDesativadoRow + Dim rowrAdminDesativadoRow As rAdminDesativadoRow = CType(Me.NewRow,rAdminDesativadoRow) + Dim columnValuesArray() As Object = New Object() {nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin} + rowrAdminDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrAdminDesativadoRow) + Return rowrAdminDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rAdminDesativadoDataTable = CType(MyBase.Clone,rAdminDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rAdminDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + Me.columncidadeAdmin = MyBase.Columns("cidadeAdmin") + Me.columnloginAdmin = MyBase.Columns("loginAdmin") + Me.columnsenhaAdmin = MyBase.Columns("senhaAdmin") + Me.columnstatusAdmin = MyBase.Columns("statusAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columncidadeAdmin = New Global.System.Data.DataColumn("cidadeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeAdmin) + Me.columnloginAdmin = New Global.System.Data.DataColumn("loginAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginAdmin) + Me.columnsenhaAdmin = New Global.System.Data.DataColumn("senhaAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaAdmin) + Me.columnstatusAdmin = New Global.System.Data.DataColumn("statusAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusAdmin) + Me.columnnomeAdmin.MaxLength = 50 + Me.columncidadeAdmin.MaxLength = 50 + Me.columnloginAdmin.MaxLength = 10 + Me.columnsenhaAdmin.MaxLength = 16 + Me.columnstatusAdmin.MaxLength = 20 + End Sub + + _ + Public Function NewrAdminDesativadoRow() As rAdminDesativadoRow + Return CType(Me.NewRow,rAdminDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rAdminDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rAdminDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rAdminDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowChanged(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rAdminDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowChanging(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rAdminDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowDeleted(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rAdminDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rAdminDesativadoRowDeleting(Me, New rAdminDesativadoRowChangeEvent(CType(e.Row,rAdminDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverAdminDesativadoRow(ByVal row As rAdminDesativadoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rAdminDesativadoDataTable" + 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 rUserAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rUserAtivoRow) + + Private columnnomeUser As Global.System.Data.DataColumn + + Private columncidadeUser As Global.System.Data.DataColumn + + Private columnloginUser As Global.System.Data.DataColumn + + Private columnsenhaUser As Global.System.Data.DataColumn + + Private columnstatusUser As Global.System.Data.DataColumn + + Private columnnomeAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rUserAtivo" + 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 nomeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeUser + End Get + End Property + + _ + Public ReadOnly Property cidadeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeUser + End Get + End Property + + _ + Public ReadOnly Property loginUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginUser + End Get + End Property + + _ + Public ReadOnly Property senhaUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaUser + End Get + End Property + + _ + Public ReadOnly Property statusUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusUser + End Get + End Property + + _ + Public ReadOnly Property nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + 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 rUserAtivoRow + Get + Return CType(Me.Rows(index),rUserAtivoRow) + End Get + End Property + + _ + Public Event rUserAtivoRowChanging As rUserAtivoRowChangeEventHandler + + _ + Public Event rUserAtivoRowChanged As rUserAtivoRowChangeEventHandler + + _ + Public Event rUserAtivoRowDeleting As rUserAtivoRowChangeEventHandler + + _ + Public Event rUserAtivoRowDeleted As rUserAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrUserAtivoRow(ByVal row As rUserAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrUserAtivoRow(ByVal nomeUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal nomeAdmin As String) As rUserAtivoRow + Dim rowrUserAtivoRow As rUserAtivoRow = CType(Me.NewRow,rUserAtivoRow) + Dim columnValuesArray() As Object = New Object() {nomeUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin} + rowrUserAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrUserAtivoRow) + Return rowrUserAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rUserAtivoDataTable = CType(MyBase.Clone,rUserAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rUserAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeUser = MyBase.Columns("nomeUser") + Me.columncidadeUser = MyBase.Columns("cidadeUser") + Me.columnloginUser = MyBase.Columns("loginUser") + Me.columnsenhaUser = MyBase.Columns("senhaUser") + Me.columnstatusUser = MyBase.Columns("statusUser") + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeUser = New Global.System.Data.DataColumn("nomeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeUser) + Me.columncidadeUser = New Global.System.Data.DataColumn("cidadeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeUser) + Me.columnloginUser = New Global.System.Data.DataColumn("loginUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginUser) + Me.columnsenhaUser = New Global.System.Data.DataColumn("senhaUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaUser) + Me.columnstatusUser = New Global.System.Data.DataColumn("statusUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusUser) + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columnnomeUser.MaxLength = 50 + Me.columncidadeUser.MaxLength = 50 + Me.columnloginUser.MaxLength = 10 + Me.columnsenhaUser.MaxLength = 16 + Me.columnstatusUser.MaxLength = 20 + Me.columnnomeAdmin.MaxLength = 50 + End Sub + + _ + Public Function NewrUserAtivoRow() As rUserAtivoRow + Return CType(Me.NewRow,rUserAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rUserAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rUserAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rUserAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowChanged(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rUserAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowChanging(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rUserAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowDeleted(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rUserAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rUserAtivoRowDeleting(Me, New rUserAtivoRowChangeEvent(CType(e.Row,rUserAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverUserAtivoRow(ByVal row As rUserAtivoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rUserAtivoDataTable" + 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 rUserDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rUserDesativadoRow) + + Private columnnomeUser As Global.System.Data.DataColumn + + Private columncidadeUser As Global.System.Data.DataColumn + + Private columnloginUser As Global.System.Data.DataColumn + + Private columnsenhaUser As Global.System.Data.DataColumn + + Private columnstatusUser As Global.System.Data.DataColumn + + Private columnnomeAdmin As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rUserDesativado" + 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 nomeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeUser + End Get + End Property + + _ + Public ReadOnly Property cidadeUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeUser + End Get + End Property + + _ + Public ReadOnly Property loginUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnloginUser + End Get + End Property + + _ + Public ReadOnly Property senhaUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaUser + End Get + End Property + + _ + Public ReadOnly Property statusUserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusUser + End Get + End Property + + _ + Public ReadOnly Property nomeAdminColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAdmin + 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 rUserDesativadoRow + Get + Return CType(Me.Rows(index),rUserDesativadoRow) + End Get + End Property + + _ + Public Event rUserDesativadoRowChanging As rUserDesativadoRowChangeEventHandler + + _ + Public Event rUserDesativadoRowChanged As rUserDesativadoRowChangeEventHandler + + _ + Public Event rUserDesativadoRowDeleting As rUserDesativadoRowChangeEventHandler + + _ + Public Event rUserDesativadoRowDeleted As rUserDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrUserDesativadoRow(ByVal row As rUserDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrUserDesativadoRow(ByVal nomeUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal nomeAdmin As String) As rUserDesativadoRow + Dim rowrUserDesativadoRow As rUserDesativadoRow = CType(Me.NewRow,rUserDesativadoRow) + Dim columnValuesArray() As Object = New Object() {nomeUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin} + rowrUserDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrUserDesativadoRow) + Return rowrUserDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rUserDesativadoDataTable = CType(MyBase.Clone,rUserDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rUserDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeUser = MyBase.Columns("nomeUser") + Me.columncidadeUser = MyBase.Columns("cidadeUser") + Me.columnloginUser = MyBase.Columns("loginUser") + Me.columnsenhaUser = MyBase.Columns("senhaUser") + Me.columnstatusUser = MyBase.Columns("statusUser") + Me.columnnomeAdmin = MyBase.Columns("nomeAdmin") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeUser = New Global.System.Data.DataColumn("nomeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeUser) + Me.columncidadeUser = New Global.System.Data.DataColumn("cidadeUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeUser) + Me.columnloginUser = New Global.System.Data.DataColumn("loginUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnloginUser) + Me.columnsenhaUser = New Global.System.Data.DataColumn("senhaUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaUser) + Me.columnstatusUser = New Global.System.Data.DataColumn("statusUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusUser) + Me.columnnomeAdmin = New Global.System.Data.DataColumn("nomeAdmin", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAdmin) + Me.columnnomeUser.MaxLength = 50 + Me.columncidadeUser.MaxLength = 50 + Me.columnloginUser.MaxLength = 10 + Me.columnsenhaUser.MaxLength = 16 + Me.columnstatusUser.MaxLength = 20 + Me.columnnomeAdmin.MaxLength = 50 + End Sub + + _ + Public Function NewrUserDesativadoRow() As rUserDesativadoRow + Return CType(Me.NewRow,rUserDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rUserDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rUserDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rUserDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowChanged(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rUserDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowChanging(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rUserDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowDeleted(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rUserDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rUserDesativadoRowDeleting(Me, New rUserDesativadoRowChangeEvent(CType(e.Row,rUserDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverUserDesativadoRow(ByVal row As rUserDesativadoRow) + 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 bancouc10DataSet = New bancouc10DataSet() + 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 = "rUserDesativadoDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbAdminRow + Inherits Global.System.Data.DataRow + + Private tabletbAdmin As tbAdminDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbAdmin = CType(Me.Table,tbAdminDataTable) + End Sub + + _ + Public Property idAdmin() As Integer + Get + Return CType(Me(Me.tabletbAdmin.idAdminColumn),Integer) + End Get + Set + Me(Me.tabletbAdmin.idAdminColumn) = value + End Set + End Property + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.nomeAdminColumn) = value + End Set + End Property + + _ + Public Property cidadeAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.cidadeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.cidadeAdminColumn) = value + End Set + End Property + + _ + Public Property loginAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.loginAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.loginAdminColumn) = value + End Set + End Property + + _ + Public Property senhaAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.senhaAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.senhaAdminColumn) = value + End Set + End Property + + _ + Public Property statusAdmin() As String + Get + Try + Return CType(Me(Me.tabletbAdmin.statusAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusAdmin' na tabela 'tbAdmin' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAdmin.statusAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tabletbAdmin.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.cidadeAdminColumn) + End Function + + _ + Public Sub SetcidadeAdminNull() + Me(Me.tabletbAdmin.cidadeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.loginAdminColumn) + End Function + + _ + Public Sub SetloginAdminNull() + Me(Me.tabletbAdmin.loginAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.senhaAdminColumn) + End Function + + _ + Public Sub SetsenhaAdminNull() + Me(Me.tabletbAdmin.senhaAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusAdminNull() As Boolean + Return Me.IsNull(Me.tabletbAdmin.statusAdminColumn) + End Function + + _ + Public Sub SetstatusAdminNull() + Me(Me.tabletbAdmin.statusAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbCadastroRows() As tbCadastroRow() + If (Me.Table.ChildRelations("tbAdmintbCadastro") Is Nothing) Then + Return New tbCadastroRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbAdmintbCadastro")),tbCadastroRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbCadastroRow + Inherits Global.System.Data.DataRow + + Private tabletbCadastro As tbCadastroDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbCadastro = CType(Me.Table,tbCadastroDataTable) + End Sub + + _ + Public Property idUser() As Integer + Get + Return CType(Me(Me.tabletbCadastro.idUserColumn),Integer) + End Get + Set + Me(Me.tabletbCadastro.idUserColumn) = value + End Set + End Property + + _ + Public Property nomeUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.nomeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.nomeUserColumn) = value + End Set + End Property + + _ + Public Property cidadeUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.cidadeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.cidadeUserColumn) = value + End Set + End Property + + _ + Public Property loginUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.loginUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.loginUserColumn) = value + End Set + End Property + + _ + Public Property senhaUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.senhaUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.senhaUserColumn) = value + End Set + End Property + + _ + Public Property statusUser() As String + Get + Try + Return CType(Me(Me.tabletbCadastro.statusUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusUser' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.statusUserColumn) = value + End Set + End Property + + _ + Public Property idCadastrador() As Integer + Get + Try + Return CType(Me(Me.tabletbCadastro.idCadastradorColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idCadastrador' na tabela 'tbCadastro' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCadastro.idCadastradorColumn) = value + End Set + End Property + + _ + Public Property tbAdminRow() As tbAdminRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbAdmintbCadastro")),tbAdminRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbAdmintbCadastro")) + End Set + End Property + + _ + Public Function IsnomeUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.nomeUserColumn) + End Function + + _ + Public Sub SetnomeUserNull() + Me(Me.tabletbCadastro.nomeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.cidadeUserColumn) + End Function + + _ + Public Sub SetcidadeUserNull() + Me(Me.tabletbCadastro.cidadeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.loginUserColumn) + End Function + + _ + Public Sub SetloginUserNull() + Me(Me.tabletbCadastro.loginUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.senhaUserColumn) + End Function + + _ + Public Sub SetsenhaUserNull() + Me(Me.tabletbCadastro.senhaUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusUserNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.statusUserColumn) + End Function + + _ + Public Sub SetstatusUserNull() + Me(Me.tabletbCadastro.statusUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidCadastradorNull() As Boolean + Return Me.IsNull(Me.tabletbCadastro.idCadastradorColumn) + End Function + + _ + Public Sub SetidCadastradorNull() + Me(Me.tabletbCadastro.idCadastradorColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rAdminAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerAdminAtivo As rAdminAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerAdminAtivo = CType(Me.Table,rAdminAtivoDataTable) + End Sub + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.nomeAdminColumn) = value + End Set + End Property + + _ + Public Property cidadeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.cidadeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.cidadeAdminColumn) = value + End Set + End Property + + _ + Public Property loginAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.loginAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.loginAdminColumn) = value + End Set + End Property + + _ + Public Property senhaAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.senhaAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.senhaAdminColumn) = value + End Set + End Property + + _ + Public Property statusAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminAtivo.statusAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusAdmin' na tabela 'rAdminAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminAtivo.statusAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerAdminAtivo.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.cidadeAdminColumn) + End Function + + _ + Public Sub SetcidadeAdminNull() + Me(Me.tablerAdminAtivo.cidadeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.loginAdminColumn) + End Function + + _ + Public Sub SetloginAdminNull() + Me(Me.tablerAdminAtivo.loginAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.senhaAdminColumn) + End Function + + _ + Public Sub SetsenhaAdminNull() + Me(Me.tablerAdminAtivo.senhaAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminAtivo.statusAdminColumn) + End Function + + _ + Public Sub SetstatusAdminNull() + Me(Me.tablerAdminAtivo.statusAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rAdminDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerAdminDesativado As rAdminDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerAdminDesativado = CType(Me.Table,rAdminDesativadoDataTable) + End Sub + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.nomeAdminColumn) = value + End Set + End Property + + _ + Public Property cidadeAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.cidadeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.cidadeAdminColumn) = value + End Set + End Property + + _ + Public Property loginAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.loginAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.loginAdminColumn) = value + End Set + End Property + + _ + Public Property senhaAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.senhaAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.senhaAdminColumn) = value + End Set + End Property + + _ + Public Property statusAdmin() As String + Get + Try + Return CType(Me(Me.tablerAdminDesativado.statusAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusAdmin' na tabela 'rAdminDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerAdminDesativado.statusAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerAdminDesativado.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.cidadeAdminColumn) + End Function + + _ + Public Sub SetcidadeAdminNull() + Me(Me.tablerAdminDesativado.cidadeAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.loginAdminColumn) + End Function + + _ + Public Sub SetloginAdminNull() + Me(Me.tablerAdminDesativado.loginAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.senhaAdminColumn) + End Function + + _ + Public Sub SetsenhaAdminNull() + Me(Me.tablerAdminDesativado.senhaAdminColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusAdminNull() As Boolean + Return Me.IsNull(Me.tablerAdminDesativado.statusAdminColumn) + End Function + + _ + Public Sub SetstatusAdminNull() + Me(Me.tablerAdminDesativado.statusAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rUserAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerUserAtivo As rUserAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerUserAtivo = CType(Me.Table,rUserAtivoDataTable) + End Sub + + _ + Public Property nomeUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.nomeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.nomeUserColumn) = value + End Set + End Property + + _ + Public Property cidadeUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.cidadeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.cidadeUserColumn) = value + End Set + End Property + + _ + Public Property loginUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.loginUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.loginUserColumn) = value + End Set + End Property + + _ + Public Property senhaUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.senhaUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.senhaUserColumn) = value + End Set + End Property + + _ + Public Property statusUser() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.statusUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusUser' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.statusUserColumn) = value + End Set + End Property + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerUserAtivo.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rUserAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserAtivo.nomeAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.nomeUserColumn) + End Function + + _ + Public Sub SetnomeUserNull() + Me(Me.tablerUserAtivo.nomeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.cidadeUserColumn) + End Function + + _ + Public Sub SetcidadeUserNull() + Me(Me.tablerUserAtivo.cidadeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.loginUserColumn) + End Function + + _ + Public Sub SetloginUserNull() + Me(Me.tablerUserAtivo.loginUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.senhaUserColumn) + End Function + + _ + Public Sub SetsenhaUserNull() + Me(Me.tablerUserAtivo.senhaUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusUserNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.statusUserColumn) + End Function + + _ + Public Sub SetstatusUserNull() + Me(Me.tablerUserAtivo.statusUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerUserAtivo.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerUserAtivo.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rUserDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerUserDesativado As rUserDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerUserDesativado = CType(Me.Table,rUserDesativadoDataTable) + End Sub + + _ + Public Property nomeUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.nomeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.nomeUserColumn) = value + End Set + End Property + + _ + Public Property cidadeUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.cidadeUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.cidadeUserColumn) = value + End Set + End Property + + _ + Public Property loginUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.loginUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'loginUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.loginUserColumn) = value + End Set + End Property + + _ + Public Property senhaUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.senhaUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.senhaUserColumn) = value + End Set + End Property + + _ + Public Property statusUser() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.statusUserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusUser' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.statusUserColumn) = value + End Set + End Property + + _ + Public Property nomeAdmin() As String + Get + Try + Return CType(Me(Me.tablerUserDesativado.nomeAdminColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAdmin' na tabela 'rUserDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerUserDesativado.nomeAdminColumn) = value + End Set + End Property + + _ + Public Function IsnomeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.nomeUserColumn) + End Function + + _ + Public Sub SetnomeUserNull() + Me(Me.tablerUserDesativado.nomeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.cidadeUserColumn) + End Function + + _ + Public Sub SetcidadeUserNull() + Me(Me.tablerUserDesativado.cidadeUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsloginUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.loginUserColumn) + End Function + + _ + Public Sub SetloginUserNull() + Me(Me.tablerUserDesativado.loginUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.senhaUserColumn) + End Function + + _ + Public Sub SetsenhaUserNull() + Me(Me.tablerUserDesativado.senhaUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusUserNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.statusUserColumn) + End Function + + _ + Public Sub SetstatusUserNull() + Me(Me.tablerUserDesativado.statusUserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeAdminNull() As Boolean + Return Me.IsNull(Me.tablerUserDesativado.nomeAdminColumn) + End Function + + _ + Public Sub SetnomeAdminNull() + Me(Me.tablerUserDesativado.nomeAdminColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbAdminRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbAdminRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbAdminRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbAdminRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbCadastroRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbCadastroRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbCadastroRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbCadastroRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rAdminAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rAdminAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rAdminAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rAdminAtivoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rAdminDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rAdminDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rAdminDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rAdminDesativadoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rUserAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rUserAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rUserAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rUserAtivoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class rUserDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rUserDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rUserDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rUserDesativadoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace bancouc10DataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbAdminTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbAdmin" + tableMapping.ColumnMappings.Add("idAdmin", "idAdmin") + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + tableMapping.ColumnMappings.Add("cidadeAdmin", "cidadeAdmin") + tableMapping.ColumnMappings.Add("loginAdmin", "loginAdmin") + tableMapping.ColumnMappings.Add("senhaAdmin", "senhaAdmin") + tableMapping.ColumnMappings.Add("statusAdmin", "statusAdmin") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tbAdmin` WHERE ((`idAdmin` = ?) AND ((? = 1 AND `nomeAdmin` IS NULL)"& _ + " OR (`nomeAdmin` = ?)) AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cidadeAdmin` "& _ + "= ?)) AND ((? = 1 AND `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND ((? = 1 A"& _ + "ND `senhaAdmin` IS NULL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `statusAdmin` IS"& _ + " NULL) OR (`statusAdmin` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tbAdmin` (`nomeAdmin`, `cidadeAdmin`, `loginAdmin`, `senhaAdmin`, `s"& _ + "tatusAdmin`) VALUES (?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tbAdmin` SET `nomeAdmin` = ?, `cidadeAdmin` = ?, `loginAdmin` = ?, `senha"& _ + "Admin` = ?, `statusAdmin` = ? WHERE ((`idAdmin` = ?) AND ((? = 1 AND `nomeAdmin`"& _ + " IS NULL) OR (`nomeAdmin` = ?)) AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cida"& _ + "deAdmin` = ?)) AND ((? = 1 AND `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND "& _ + "((? = 1 AND `senhaAdmin` IS NULL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `status"& _ + "Admin` IS NULL) OR (`statusAdmin` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusAdmin", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusAdmin", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusAdmin", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idAdmin, nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM "& _ + "tbAdmin" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.tbAdminDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.tbAdminDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.tbAdminDataTable = New bancouc10DataSet.tbAdminDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bancouc10DataSet.tbAdminDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bancouc10DataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbAdmin") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_idAdmin As Integer, ByVal Original_nomeAdmin As String, ByVal Original_cidadeAdmin As String, ByVal Original_loginAdmin As String, ByVal Original_senhaAdmin As String, ByVal Original_statusAdmin As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idAdmin,Integer) + If (Original_nomeAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nomeAdmin,String) + End If + If (Original_cidadeAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_cidadeAdmin,String) + End If + If (Original_loginAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_loginAdmin,String) + End If + If (Original_senhaAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_senhaAdmin,String) + End If + If (Original_statusAdmin Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_statusAdmin,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal nomeAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String) As Integer + If (nomeAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeAdmin,String) + End If + If (cidadeAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(cidadeAdmin,String) + End If + If (loginAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(loginAdmin,String) + End If + If (senhaAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(senhaAdmin,String) + End If + If (statusAdmin Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(statusAdmin,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal nomeAdmin As String, ByVal cidadeAdmin As String, ByVal loginAdmin As String, ByVal senhaAdmin As String, ByVal statusAdmin As String, ByVal Original_idAdmin As Integer, ByVal Original_nomeAdmin As String, ByVal Original_cidadeAdmin As String, ByVal Original_loginAdmin As String, ByVal Original_senhaAdmin As String, ByVal Original_statusAdmin As String) As Integer + If (nomeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeAdmin,String) + End If + If (cidadeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(cidadeAdmin,String) + End If + If (loginAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(loginAdmin,String) + End If + If (senhaAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(senhaAdmin,String) + End If + If (statusAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(statusAdmin,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_idAdmin,Integer) + If (Original_nomeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_nomeAdmin,String) + End If + If (Original_cidadeAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_cidadeAdmin,String) + End If + If (Original_loginAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_loginAdmin,String) + End If + If (Original_senhaAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_senhaAdmin,String) + End If + If (Original_statusAdmin Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_statusAdmin,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbCadastroTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "tbCadastro" + tableMapping.ColumnMappings.Add("idUser", "idUser") + tableMapping.ColumnMappings.Add("nomeUser", "nomeUser") + tableMapping.ColumnMappings.Add("cidadeUser", "cidadeUser") + tableMapping.ColumnMappings.Add("loginUser", "loginUser") + tableMapping.ColumnMappings.Add("senhaUser", "senhaUser") + tableMapping.ColumnMappings.Add("statusUser", "statusUser") + tableMapping.ColumnMappings.Add("idCadastrador", "idCadastrador") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `tbCadastro` WHERE ((`idUser` = ?) AND ((? = 1 AND `nomeUser` IS NULL"& _ + ") OR (`nomeUser` = ?)) AND ((? = 1 AND `cidadeUser` IS NULL) OR (`cidadeUser` = "& _ + "?)) AND ((? = 1 AND `loginUser` IS NULL) OR (`loginUser` = ?)) AND ((? = 1 AND `"& _ + "senhaUser` IS NULL) OR (`senhaUser` = ?)) AND ((? = 1 AND `statusUser` IS NULL) "& _ + "OR (`statusUser` = ?)) AND ((? = 1 AND `idCadastrador` IS NULL) OR (`idCadastrad"& _ + "or` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `tbCadastro` (`nomeUser`, `cidadeUser`, `loginUser`, `senhaUser`, `st"& _ + "atusUser`, `idCadastrador`) VALUES (?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `tbCadastro` SET `nomeUser` = ?, `cidadeUser` = ?, `loginUser` = ?, `senha"& _ + "User` = ?, `statusUser` = ?, `idCadastrador` = ? WHERE ((`idUser` = ?) AND ((? ="& _ + " 1 AND `nomeUser` IS NULL) OR (`nomeUser` = ?)) AND ((? = 1 AND `cidadeUser` IS "& _ + "NULL) OR (`cidadeUser` = ?)) AND ((? = 1 AND `loginUser` IS NULL) OR (`loginUser"& _ + "` = ?)) AND ((? = 1 AND `senhaUser` IS NULL) OR (`senhaUser` = ?)) AND ((? = 1 A"& _ + "ND `statusUser` IS NULL) OR (`statusUser` = ?)) AND ((? = 1 AND `idCadastrador` "& _ + "IS NULL) OR (`idCadastrador` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_loginUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_loginUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "loginUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusUser", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusUser", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusUser", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCadastrador", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCadastrador", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idUser, nomeUser, cidadeUser, loginUser, senhaUser, statusUser, idCadastra"& _ + "dor FROM tbCadastro" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.tbCadastroDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.tbCadastroDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.tbCadastroDataTable = New bancouc10DataSet.tbCadastroDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As bancouc10DataSet.tbCadastroDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As bancouc10DataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbCadastro") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_idUser As Integer, ByVal Original_nomeUser As String, ByVal Original_cidadeUser As String, ByVal Original_loginUser As String, ByVal Original_senhaUser As String, ByVal Original_statusUser As String, ByVal Original_idCadastrador As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idUser,Integer) + If (Original_nomeUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_nomeUser,String) + End If + If (Original_cidadeUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_cidadeUser,String) + End If + If (Original_loginUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_loginUser,String) + End If + If (Original_senhaUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_senhaUser,String) + End If + If (Original_statusUser Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_statusUser,String) + End If + If (Original_idCadastrador.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_idCadastrador.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal nomeUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal idCadastrador As Global.System.Nullable(Of Integer)) As Integer + If (nomeUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeUser,String) + End If + If (cidadeUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(cidadeUser,String) + End If + If (loginUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(loginUser,String) + End If + If (senhaUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(senhaUser,String) + End If + If (statusUser Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(statusUser,String) + End If + If (idCadastrador.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(idCadastrador.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal nomeUser As String, ByVal cidadeUser As String, ByVal loginUser As String, ByVal senhaUser As String, ByVal statusUser As String, ByVal idCadastrador As Global.System.Nullable(Of Integer), ByVal Original_idUser As Integer, ByVal Original_nomeUser As String, ByVal Original_cidadeUser As String, ByVal Original_loginUser As String, ByVal Original_senhaUser As String, ByVal Original_statusUser As String, ByVal Original_idCadastrador As Global.System.Nullable(Of Integer)) As Integer + If (nomeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeUser,String) + End If + If (cidadeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(cidadeUser,String) + End If + If (loginUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(loginUser,String) + End If + If (senhaUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(senhaUser,String) + End If + If (statusUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(statusUser,String) + End If + If (idCadastrador.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(idCadastrador.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_idUser,Integer) + If (Original_nomeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_nomeUser,String) + End If + If (Original_cidadeUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_cidadeUser,String) + End If + If (Original_loginUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_loginUser,String) + End If + If (Original_senhaUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_senhaUser,String) + End If + If (Original_statusUser Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_statusUser,String) + End If + If (Original_idCadastrador.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_idCadastrador.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rAdminAtivoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rAdminAtivo" + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + tableMapping.ColumnMappings.Add("cidadeAdmin", "cidadeAdmin") + tableMapping.ColumnMappings.Add("loginAdmin", "loginAdmin") + tableMapping.ColumnMappings.Add("senhaAdmin", "senhaAdmin") + tableMapping.ColumnMappings.Add("statusAdmin", "statusAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM rAdminAti"& _ + "vo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rAdminAtivoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rAdminAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rAdminAtivoDataTable = New bancouc10DataSet.rAdminAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rAdminDesativadoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rAdminDesativado" + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + tableMapping.ColumnMappings.Add("cidadeAdmin", "cidadeAdmin") + tableMapping.ColumnMappings.Add("loginAdmin", "loginAdmin") + tableMapping.ColumnMappings.Add("senhaAdmin", "senhaAdmin") + tableMapping.ColumnMappings.Add("statusAdmin", "statusAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM rAdminDes"& _ + "ativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rAdminDesativadoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rAdminDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rAdminDesativadoDataTable = New bancouc10DataSet.rAdminDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rUserAtivoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rUserAtivo" + tableMapping.ColumnMappings.Add("nomeUser", "nomeUser") + tableMapping.ColumnMappings.Add("cidadeUser", "cidadeUser") + tableMapping.ColumnMappings.Add("loginUser", "loginUser") + tableMapping.ColumnMappings.Add("senhaUser", "senhaUser") + tableMapping.ColumnMappings.Add("statusUser", "statusUser") + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin FROM rUs"& _ + "erAtivo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rUserAtivoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rUserAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rUserAtivoDataTable = New bancouc10DataSet.rUserAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rUserDesativadoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "rUserDesativado" + tableMapping.ColumnMappings.Add("nomeUser", "nomeUser") + tableMapping.ColumnMappings.Add("cidadeUser", "cidadeUser") + tableMapping.ColumnMappings.Add("loginUser", "loginUser") + tableMapping.ColumnMappings.Add("senhaUser", "senhaUser") + tableMapping.ColumnMappings.Add("statusUser", "statusUser") + tableMapping.ColumnMappings.Add("nomeAdmin", "nomeAdmin") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.ProjetoTrabalho.My.MySettings.Default.bancouc10ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT nomeUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin FROM rUs"& _ + "erDesativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As bancouc10DataSet.rUserDesativadoDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As bancouc10DataSet.rUserDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As bancouc10DataSet.rUserDesativadoDataTable = New bancouc10DataSet.rUserDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tbAdminTableAdapter As tbAdminTableAdapter + + Private _tbCadastroTableAdapter As tbCadastroTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property tbAdminTableAdapter() As tbAdminTableAdapter + Get + Return Me._tbAdminTableAdapter + End Get + Set + Me._tbAdminTableAdapter = value + End Set + End Property + + _ + Public Property tbCadastroTableAdapter() As tbCadastroTableAdapter + Get + Return Me._tbCadastroTableAdapter + End Get + Set + Me._tbCadastroTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tbAdminTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbAdminTableAdapter.Connection) Is Nothing)) Then + Return Me._tbAdminTableAdapter.Connection + End If + If ((Not (Me._tbCadastroTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbCadastroTableAdapter.Connection) Is Nothing)) Then + Return Me._tbCadastroTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As bancouc10DataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbAdmin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tbAdminTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbCadastro.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tbCadastroTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As bancouc10DataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbAdmin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbAdminTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbCadastro.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbCadastroTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As bancouc10DataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbCadastro.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbCadastroTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbAdmin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbAdminTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As bancouc10DataSet) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tbAdminTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbAdminTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + If ((Not (Me._tbCadastroTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbCadastroTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Todos os TableAdapters gerenciados por um TableAdapterManager devem usar a mesma "& _ + "cadeia de conexão.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager não contém informações de conexão. Defina cada propriedade Ta"& _ + "bleAdapter de TableAdapterManager como uma instância válida de TableAdapter.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Não é possível iniciar a transação. Os dados de conexão atuais não oferecem supor"& _ + "te às transações ou o estado atual não permite que a transação inicie.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbAdminTableAdapter, Me._tbAdminTableAdapter.Connection) + Me._tbAdminTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbAdminTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbAdminTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbAdminTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbAdminTableAdapter.Adapter) + End If + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbCadastroTableAdapter, Me._tbCadastroTableAdapter.Connection) + Me._tbCadastroTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbCadastroTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbCadastroTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbCadastroTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbCadastroTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tbAdminTableAdapter) Is Nothing) Then + Me._tbAdminTableAdapter.Connection = CType(revertConnections(Me._tbAdminTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbAdminTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbCadastroTableAdapter) Is Nothing) Then + Me._tbCadastroTableAdapter.Connection = CType(revertConnections(Me._tbCadastroTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbCadastroTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/ProjetoTrabalho/bancouc10DataSet1.xsc b/ProjetoTrabalho/bancouc10DataSet1.xsc new file mode 100755 index 0000000..98e45eb --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet1.xsc @@ -0,0 +1,32 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ProjetoTrabalho/bancouc10DataSet1.xsd b/ProjetoTrabalho/bancouc10DataSet1.xsd new file mode 100755 index 0000000..36da214 --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet1.xsd @@ -0,0 +1,534 @@ + + + + + + + + + + + + + + + DELETE FROM `tbAdmin` WHERE ((`idAdmin` = ?) AND ((? = 1 AND `nomeAdmin` IS NULL) OR (`nomeAdmin` = ?)) AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cidadeAdmin` = ?)) AND ((? = 1 AND `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND ((? = 1 AND `senhaAdmin` IS NULL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `statusAdmin` IS NULL) OR (`statusAdmin` = ?))) + + + + + + + + + + + + + + + + + + INSERT INTO `tbAdmin` (`nomeAdmin`, `cidadeAdmin`, `loginAdmin`, `senhaAdmin`, `statusAdmin`) VALUES (?, ?, ?, ?, ?) + + + + + + + + + + + + SELECT idAdmin, nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM tbAdmin + + + + + + UPDATE `tbAdmin` SET `nomeAdmin` = ?, `cidadeAdmin` = ?, `loginAdmin` = ?, `senhaAdmin` = ?, `statusAdmin` = ? WHERE ((`idAdmin` = ?) AND ((? = 1 AND `nomeAdmin` IS NULL) OR (`nomeAdmin` = ?)) AND ((? = 1 AND `cidadeAdmin` IS NULL) OR (`cidadeAdmin` = ?)) AND ((? = 1 AND `loginAdmin` IS NULL) OR (`loginAdmin` = ?)) AND ((? = 1 AND `senhaAdmin` IS NULL) OR (`senhaAdmin` = ?)) AND ((? = 1 AND `statusAdmin` IS NULL) OR (`statusAdmin` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbCadastro` WHERE ((`idUser` = ?) AND ((? = 1 AND `nomeUser` IS NULL) OR (`nomeUser` = ?)) AND ((? = 1 AND `cidadeUser` IS NULL) OR (`cidadeUser` = ?)) AND ((? = 1 AND `loginUser` IS NULL) OR (`loginUser` = ?)) AND ((? = 1 AND `senhaUser` IS NULL) OR (`senhaUser` = ?)) AND ((? = 1 AND `statusUser` IS NULL) OR (`statusUser` = ?)) AND ((? = 1 AND `idCadastrador` IS NULL) OR (`idCadastrador` = ?))) + + + + + + + + + + + + + + + + + + + + INSERT INTO `tbCadastro` (`nomeUser`, `cidadeUser`, `loginUser`, `senhaUser`, `statusUser`, `idCadastrador`) VALUES (?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + SELECT idUser, nomeUser, cidadeUser, loginUser, senhaUser, statusUser, idCadastrador FROM tbCadastro + + + + + + UPDATE `tbCadastro` SET `nomeUser` = ?, `cidadeUser` = ?, `loginUser` = ?, `senhaUser` = ?, `statusUser` = ?, `idCadastrador` = ? WHERE ((`idUser` = ?) AND ((? = 1 AND `nomeUser` IS NULL) OR (`nomeUser` = ?)) AND ((? = 1 AND `cidadeUser` IS NULL) OR (`cidadeUser` = ?)) AND ((? = 1 AND `loginUser` IS NULL) OR (`loginUser` = ?)) AND ((? = 1 AND `senhaUser` IS NULL) OR (`senhaUser` = ?)) AND ((? = 1 AND `statusUser` IS NULL) OR (`statusUser` = ?)) AND ((? = 1 AND `idCadastrador` IS NULL) OR (`idCadastrador` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM rAdminAtivo + + + + + + + + + + + + + + + + + + + + SELECT nomeAdmin, cidadeAdmin, loginAdmin, senhaAdmin, statusAdmin FROM rAdminDesativado + + + + + + + + + + + + + + + + + + + + SELECT nomeUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin FROM rUserAtivo + + + + + + + + + + + + + + + + + + + + + SELECT nomeUser, cidadeUser, loginUser, senhaUser, statusUser, nomeAdmin FROM rUserDesativado + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/ProjetoTrabalho/bancouc10DataSet1.xss b/ProjetoTrabalho/bancouc10DataSet1.xss new file mode 100755 index 0000000..5f28270 --- /dev/null +++ b/ProjetoTrabalho/bancouc10DataSet1.xss @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/README.md b/README.md new file mode 100644 index 0000000..79989d6 --- /dev/null +++ b/README.md @@ -0,0 +1,4 @@ +# VB.Net project meant for some partial grade(?) +# Authors F. Raszeja + +for archival purposes only diff --git a/bancouc10.accdb b/bancouc10.accdb new file mode 100755 index 0000000..36cfd7f Binary files /dev/null and b/bancouc10.accdb differ