commit 426ce09b867da4218bc41ef84efdc777440c1119 Author: rasz Date: Fri Nov 19 22:42:08 2021 -0300 first commit diff --git a/README.md b/README.md new file mode 100644 index 0000000..5329a1f --- /dev/null +++ b/README.md @@ -0,0 +1,4 @@ +# VB.Net Library System +# Authors F. Raszeja + +for archival purposes only diff --git a/projetoBiblioteca05.sln b/projetoBiblioteca05.sln new file mode 100755 index 0000000..6788dcc --- /dev/null +++ b/projetoBiblioteca05.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.27428.2005 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "projetoBiblioteca05", "projetoBiblioteca05\projetoBiblioteca05.vbproj", "{3142A623-0702-46B1-A53F-9D7F8744802F}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {3142A623-0702-46B1-A53F-9D7F8744802F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {3142A623-0702-46B1-A53F-9D7F8744802F}.Debug|Any CPU.Build.0 = Debug|Any CPU + {3142A623-0702-46B1-A53F-9D7F8744802F}.Release|Any CPU.ActiveCfg = Release|Any CPU + {3142A623-0702-46B1-A53F-9D7F8744802F}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {62E08C5C-D197-46C2-B8BF-F3A6DBDA1F70} + EndGlobalSection +EndGlobal diff --git a/projetoBiblioteca05/App.config b/projetoBiblioteca05/App.config new file mode 100755 index 0000000..ae77edf --- /dev/null +++ b/projetoBiblioteca05/App.config @@ -0,0 +1,13 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/projetoBiblioteca05/FLogin.Designer.vb b/projetoBiblioteca05/FLogin.Designer.vb new file mode 100755 index 0000000..738dd7e --- /dev/null +++ b/projetoBiblioteca05/FLogin.Designer.vb @@ -0,0 +1,159 @@ + _ +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.components = New System.ComponentModel.Container() + Dim UsuarioFuncLabel As System.Windows.Forms.Label + Dim SenhaFuncLabel As System.Windows.Forms.Label + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbFuncionarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbFuncionarioTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbFuncionarioTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.UsuarioFuncTextBox = New System.Windows.Forms.TextBox() + Me.SenhaFuncTextBox = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + UsuarioFuncLabel = New System.Windows.Forms.Label() + SenhaFuncLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'UsuarioFuncLabel + ' + UsuarioFuncLabel.AutoSize = True + UsuarioFuncLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + UsuarioFuncLabel.Location = New System.Drawing.Point(51, 69) + UsuarioFuncLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + UsuarioFuncLabel.Name = "UsuarioFuncLabel" + UsuarioFuncLabel.Size = New System.Drawing.Size(64, 20) + UsuarioFuncLabel.TabIndex = 1 + UsuarioFuncLabel.Text = "Usuário" + ' + 'SenhaFuncLabel + ' + SenhaFuncLabel.AutoSize = True + SenhaFuncLabel.Location = New System.Drawing.Point(51, 104) + SenhaFuncLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + SenhaFuncLabel.Name = "SenhaFuncLabel" + SenhaFuncLabel.Size = New System.Drawing.Size(56, 20) + SenhaFuncLabel.TabIndex = 3 + SenhaFuncLabel.Text = "Senha" + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbFuncionarioBindingSource + ' + Me.TbFuncionarioBindingSource.DataMember = "tbFuncionario" + Me.TbFuncionarioBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbFuncionarioTableAdapter + ' + Me.TbFuncionarioTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Me.TbFuncionarioTableAdapter + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'UsuarioFuncTextBox + ' + Me.UsuarioFuncTextBox.Location = New System.Drawing.Point(123, 66) + Me.UsuarioFuncTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsuarioFuncTextBox.Name = "UsuarioFuncTextBox" + Me.UsuarioFuncTextBox.Size = New System.Drawing.Size(251, 26) + Me.UsuarioFuncTextBox.TabIndex = 2 + ' + 'SenhaFuncTextBox + ' + Me.SenhaFuncTextBox.Location = New System.Drawing.Point(123, 102) + Me.SenhaFuncTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.SenhaFuncTextBox.Name = "SenhaFuncTextBox" + Me.SenhaFuncTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.SenhaFuncTextBox.Size = New System.Drawing.Size(251, 26) + Me.SenhaFuncTextBox.TabIndex = 4 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(55, 143) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(155, 40) + Me.Button1.TabIndex = 5 + Me.Button1.Text = "ENTRAR" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(216, 143) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(158, 40) + Me.Button2.TabIndex = 6 + Me.Button2.Text = "SAIR" + Me.Button2.UseVisualStyleBackColor = True + ' + 'FLogin + ' + Me.AcceptButton = Me.Button1 + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Button2 + Me.ClientSize = New System.Drawing.Size(427, 242) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(SenhaFuncLabel) + Me.Controls.Add(Me.SenhaFuncTextBox) + Me.Controls.Add(UsuarioFuncLabel) + Me.Controls.Add(Me.UsuarioFuncTextBox) + 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(4, 5, 4, 5) + Me.Name = "FLogin" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "FLogin" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbFuncionarioBindingSource As BindingSource + Friend WithEvents TbFuncionarioTableAdapter As dbBibliotecaDataSetTableAdapters.tbFuncionarioTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents UsuarioFuncTextBox As TextBox + Friend WithEvents SenhaFuncTextBox As TextBox + Friend WithEvents Button1 As Button + Friend WithEvents Button2 As Button +End Class diff --git a/projetoBiblioteca05/FLogin.resx b/projetoBiblioteca05/FLogin.resx new file mode 100755 index 0000000..74cd488 --- /dev/null +++ b/projetoBiblioteca05/FLogin.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 + + + False + + + False + + + 17, 17 + + + 180, 17 + + + 388, 17 + + + 590, 17 + + \ No newline at end of file diff --git a/projetoBiblioteca05/FLogin.vb b/projetoBiblioteca05/FLogin.vb new file mode 100755 index 0000000..c300772 --- /dev/null +++ b/projetoBiblioteca05/FLogin.vb @@ -0,0 +1,38 @@ +Public Class FLogin + Private Sub TbFuncionarioBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TbFuncionarioBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbFuncionario'. Você pode movê-la ou removê-la conforme necessário. + Me.TbFuncionarioTableAdapter.Fill(Me.DbBibliotecaDataSet.tbFuncionario) + + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + End + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim USER, PSS + USER = UsuarioFuncTextBox.Text() + PSS = SenhaFuncTextBox.Text() + + If TbFuncionarioTableAdapter.ScalarQueryLogin(USER, PSS) Then + MsgBox("Bem vindo!", vbInformation, "Sistema Biblioteca") + UsuarioFuncTextBox.Clear() + SenhaFuncTextBox.Clear() + UsuarioFuncTextBox.Focus() + Me.Hide() + FPrincipal.Show() + Else + MsgBox("Usuário/Senha incorretos", vbCritical, "Sistema Biblioteca") + UsuarioFuncTextBox.Clear() + SenhaFuncTextBox.Clear() + UsuarioFuncTextBox.Focus() + End If + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/FPrincipal.Designer.vb b/projetoBiblioteca05/FPrincipal.Designer.vb new file mode 100755 index 0000000..31a5e79 --- /dev/null +++ b/projetoBiblioteca05/FPrincipal.Designer.vb @@ -0,0 +1,327 @@ + +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.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.EmpréstimoDevoluçãoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.RelatóriosToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.UsuáriosToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ClAtivos = New System.Windows.Forms.ToolStripMenuItem() + Me.ClDesativos = New System.Windows.Forms.ToolStripMenuItem() + Me.EmpréstimosToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FuncAtivos = New System.Windows.Forms.ToolStripMenuItem() + Me.FuncDesativo = New System.Windows.Forms.ToolStripMenuItem() + Me.EmpréstimosToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.EmpAtivos = New System.Windows.Forms.ToolStripMenuItem() + Me.EmpDesativos = New System.Windows.Forms.ToolStripMenuItem() + Me.ItensToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ItnAtivo = New System.Windows.Forms.ToolStripMenuItem() + Me.ItnDesativo = New System.Windows.Forms.ToolStripMenuItem() + Me.Label1 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.CadastrosToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ClientesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FuncionáriosToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ItensToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.CadastroDeItemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CadastroDeGêneroToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CadastroDeTipoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SobreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SairToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CadastroDeAutorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CadastroDeEditoraToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EmpréstimoDevoluçãoToolStripMenuItem, Me.RelatóriosToolStripMenuItem, Me.CadastrosToolStripMenuItem, Me.SobreToolStripMenuItem, Me.SairToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(491, 24) + Me.MenuStrip1.TabIndex = 0 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'EmpréstimoDevoluçãoToolStripMenuItem + ' + Me.EmpréstimoDevoluçãoToolStripMenuItem.Name = "EmpréstimoDevoluçãoToolStripMenuItem" + Me.EmpréstimoDevoluçãoToolStripMenuItem.Size = New System.Drawing.Size(150, 20) + Me.EmpréstimoDevoluçãoToolStripMenuItem.Text = "Empréstimo / Devolução" + ' + 'RelatóriosToolStripMenuItem + ' + Me.RelatóriosToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UsuáriosToolStripMenuItem, Me.EmpréstimosToolStripMenuItem, Me.EmpréstimosToolStripMenuItem1, Me.ItensToolStripMenuItem}) + Me.RelatóriosToolStripMenuItem.Name = "RelatóriosToolStripMenuItem" + Me.RelatóriosToolStripMenuItem.Size = New System.Drawing.Size(71, 20) + Me.RelatóriosToolStripMenuItem.Text = "Relatórios" + ' + 'UsuáriosToolStripMenuItem + ' + Me.UsuáriosToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClAtivos, Me.ClDesativos}) + Me.UsuáriosToolStripMenuItem.Name = "UsuáriosToolStripMenuItem" + Me.UsuáriosToolStripMenuItem.Size = New System.Drawing.Size(143, 22) + Me.UsuáriosToolStripMenuItem.Text = "Usuários" + ' + 'ClAtivos + ' + Me.ClAtivos.Name = "ClAtivos" + Me.ClAtivos.Size = New System.Drawing.Size(137, 22) + Me.ClAtivos.Text = "Ativos" + ' + 'ClDesativos + ' + Me.ClDesativos.Name = "ClDesativos" + Me.ClDesativos.Size = New System.Drawing.Size(137, 22) + Me.ClDesativos.Text = "Desativados" + ' + 'EmpréstimosToolStripMenuItem + ' + Me.EmpréstimosToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FuncAtivos, Me.FuncDesativo}) + Me.EmpréstimosToolStripMenuItem.Name = "EmpréstimosToolStripMenuItem" + Me.EmpréstimosToolStripMenuItem.Size = New System.Drawing.Size(143, 22) + Me.EmpréstimosToolStripMenuItem.Text = "Funcionários" + ' + 'FuncAtivos + ' + Me.FuncAtivos.Name = "FuncAtivos" + Me.FuncAtivos.Size = New System.Drawing.Size(137, 22) + Me.FuncAtivos.Text = "Ativos" + ' + 'FuncDesativo + ' + Me.FuncDesativo.Name = "FuncDesativo" + Me.FuncDesativo.Size = New System.Drawing.Size(137, 22) + Me.FuncDesativo.Text = "Desativados" + ' + 'EmpréstimosToolStripMenuItem1 + ' + Me.EmpréstimosToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EmpAtivos, Me.EmpDesativos}) + Me.EmpréstimosToolStripMenuItem1.Name = "EmpréstimosToolStripMenuItem1" + Me.EmpréstimosToolStripMenuItem1.Size = New System.Drawing.Size(143, 22) + Me.EmpréstimosToolStripMenuItem1.Text = "Empréstimos" + ' + 'EmpAtivos + ' + Me.EmpAtivos.Name = "EmpAtivos" + Me.EmpAtivos.Size = New System.Drawing.Size(142, 22) + Me.EmpAtivos.Text = "Emprestados" + ' + 'EmpDesativos + ' + Me.EmpDesativos.Name = "EmpDesativos" + Me.EmpDesativos.Size = New System.Drawing.Size(142, 22) + Me.EmpDesativos.Text = "Devolvidos" + ' + 'ItensToolStripMenuItem + ' + Me.ItensToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ItnAtivo, Me.ItnDesativo}) + Me.ItensToolStripMenuItem.Name = "ItensToolStripMenuItem" + Me.ItensToolStripMenuItem.Size = New System.Drawing.Size(143, 22) + Me.ItensToolStripMenuItem.Text = "Itens" + ' + 'ItnAtivo + ' + Me.ItnAtivo.Name = "ItnAtivo" + Me.ItnAtivo.Size = New System.Drawing.Size(137, 22) + Me.ItnAtivo.Text = "Ativos" + ' + 'ItnDesativo + ' + Me.ItnDesativo.Name = "ItnDesativo" + Me.ItnDesativo.Size = New System.Drawing.Size(137, 22) + Me.ItnDesativo.Text = "Desativados" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(34, 253) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(445, 25) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "SGB - Sistema Gerenciador de Biblioteca" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(12, 27) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(112, 64) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "Empréstimo" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(366, 27) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(112, 64) + Me.Button2.TabIndex = 3 + Me.Button2.Text = "Item" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(130, 27) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(112, 64) + Me.Button5.TabIndex = 6 + Me.Button5.Text = "Clientes" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(248, 27) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(112, 64) + Me.Button6.TabIndex = 7 + Me.Button6.Text = "Funcionários" + Me.Button6.UseVisualStyleBackColor = True + ' + 'CadastrosToolStripMenuItem + ' + Me.CadastrosToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClientesToolStripMenuItem, Me.FuncionáriosToolStripMenuItem, Me.ItensToolStripMenuItem1}) + Me.CadastrosToolStripMenuItem.Name = "CadastrosToolStripMenuItem" + Me.CadastrosToolStripMenuItem.Size = New System.Drawing.Size(71, 20) + Me.CadastrosToolStripMenuItem.Text = "Cadastros" + ' + 'ClientesToolStripMenuItem + ' + Me.ClientesToolStripMenuItem.Name = "ClientesToolStripMenuItem" + Me.ClientesToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ClientesToolStripMenuItem.Text = "Clientes" + ' + 'FuncionáriosToolStripMenuItem + ' + Me.FuncionáriosToolStripMenuItem.Name = "FuncionáriosToolStripMenuItem" + Me.FuncionáriosToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.FuncionáriosToolStripMenuItem.Text = "Funcionários" + ' + 'ItensToolStripMenuItem1 + ' + Me.ItensToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CadastroDeItemToolStripMenuItem, Me.CadastroDeGêneroToolStripMenuItem, Me.CadastroDeTipoToolStripMenuItem, Me.CadastroDeAutorToolStripMenuItem, Me.CadastroDeEditoraToolStripMenuItem}) + Me.ItensToolStripMenuItem1.Name = "ItensToolStripMenuItem1" + Me.ItensToolStripMenuItem1.Size = New System.Drawing.Size(180, 22) + Me.ItensToolStripMenuItem1.Text = "Itens" + ' + 'CadastroDeItemToolStripMenuItem + ' + Me.CadastroDeItemToolStripMenuItem.Name = "CadastroDeItemToolStripMenuItem" + Me.CadastroDeItemToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.CadastroDeItemToolStripMenuItem.Text = "Cadastro de Item" + ' + 'CadastroDeGêneroToolStripMenuItem + ' + Me.CadastroDeGêneroToolStripMenuItem.Name = "CadastroDeGêneroToolStripMenuItem" + Me.CadastroDeGêneroToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.CadastroDeGêneroToolStripMenuItem.Text = "Cadastro de Gênero" + ' + 'CadastroDeTipoToolStripMenuItem + ' + Me.CadastroDeTipoToolStripMenuItem.Name = "CadastroDeTipoToolStripMenuItem" + Me.CadastroDeTipoToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.CadastroDeTipoToolStripMenuItem.Text = "Cadastro de Tipo" + ' + 'SobreToolStripMenuItem + ' + Me.SobreToolStripMenuItem.Name = "SobreToolStripMenuItem" + Me.SobreToolStripMenuItem.Size = New System.Drawing.Size(49, 20) + Me.SobreToolStripMenuItem.Text = "Sobre" + ' + 'SairToolStripMenuItem + ' + Me.SairToolStripMenuItem.Name = "SairToolStripMenuItem" + Me.SairToolStripMenuItem.Size = New System.Drawing.Size(38, 20) + Me.SairToolStripMenuItem.Text = "Sair" + ' + 'CadastroDeAutorToolStripMenuItem + ' + Me.CadastroDeAutorToolStripMenuItem.Name = "CadastroDeAutorToolStripMenuItem" + Me.CadastroDeAutorToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.CadastroDeAutorToolStripMenuItem.Text = "Cadastro de Autor" + ' + 'CadastroDeEditoraToolStripMenuItem + ' + Me.CadastroDeEditoraToolStripMenuItem.Name = "CadastroDeEditoraToolStripMenuItem" + Me.CadastroDeEditoraToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.CadastroDeEditoraToolStripMenuItem.Text = "Cadastro de Editora" + ' + 'FPrincipal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(491, 287) + Me.Controls.Add(Me.Button6) + Me.Controls.Add(Me.Button5) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.MenuStrip1) + 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.FixedToolWindow + Me.MainMenuStrip = Me.MenuStrip1 + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FPrincipal" + Me.Text = "FPrincipal" + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents EmpréstimoDevoluçãoToolStripMenuItem As ToolStripMenuItem + Friend WithEvents RelatóriosToolStripMenuItem As ToolStripMenuItem + Friend WithEvents UsuáriosToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ClAtivos As ToolStripMenuItem + Friend WithEvents ClDesativos As ToolStripMenuItem + Friend WithEvents EmpréstimosToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FuncAtivos As ToolStripMenuItem + Friend WithEvents FuncDesativo As ToolStripMenuItem + Friend WithEvents EmpréstimosToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents EmpAtivos As ToolStripMenuItem + Friend WithEvents EmpDesativos As ToolStripMenuItem + Friend WithEvents ItensToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ItnAtivo As ToolStripMenuItem + Friend WithEvents ItnDesativo As ToolStripMenuItem + Friend WithEvents Label1 As Label + Friend WithEvents Button1 As Button + Friend WithEvents Button2 As Button + Friend WithEvents Button5 As Button + Friend WithEvents Button6 As Button + Friend WithEvents CadastrosToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ClientesToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FuncionáriosToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ItensToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents CadastroDeItemToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CadastroDeGêneroToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CadastroDeTipoToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SobreToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SairToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CadastroDeAutorToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CadastroDeEditoraToolStripMenuItem As ToolStripMenuItem +End Class diff --git a/projetoBiblioteca05/FPrincipal.resx b/projetoBiblioteca05/FPrincipal.resx new file mode 100755 index 0000000..bf63593 --- /dev/null +++ b/projetoBiblioteca05/FPrincipal.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/projetoBiblioteca05/FPrincipal.vb b/projetoBiblioteca05/FPrincipal.vb new file mode 100755 index 0000000..b103757 --- /dev/null +++ b/projetoBiblioteca05/FPrincipal.vb @@ -0,0 +1,107 @@ +Public Class FPrincipal + Private Sub FPrincipal_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + + Private Sub EmpréstimoDevoluçãoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmpréstimoDevoluçãoToolStripMenuItem.Click + FEmprestimo.Show() + End Sub + + Private Sub SairToolStripMenuItem_Click(sender As Object, e As EventArgs) + Me.Hide() + FLogin.Show() + End Sub + + Private Sub AtivosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClAtivos.Click + rClientAtivo.Show() + End Sub + + Private Sub DesativadosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClDesativos.Click + rClientDesatv.Show() + End Sub + + Private Sub FuncAtivos_Click(sender As Object, e As EventArgs) Handles FuncAtivos.Click + rFuncAtivo.Show() + End Sub + + Private Sub FuncDesativo_Click(sender As Object, e As EventArgs) Handles FuncDesativo.Click + rFuncDesatv.Show() + End Sub + + Private Sub EmpAtivos_Click(sender As Object, e As EventArgs) Handles EmpAtivos.Click + rEmpAtivo.Show() + End Sub + + Private Sub EmpDesativos_Click(sender As Object, e As EventArgs) Handles EmpDesativos.Click + rEmpDesatv.Show() + End Sub + + Private Sub ItnAtivo_Click(sender As Object, e As EventArgs) Handles ItnAtivo.Click + rItemAtivo.Show() + End Sub + + Private Sub ItnDesativo_Click(sender As Object, e As EventArgs) Handles ItnDesativo.Click + rItemDesatv.Show() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + FEmprestimo.Show() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + FItem.Show() + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + FCliente.Show() + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) + FGenero.Show() + End Sub + + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + FFunc.Show() + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) + FAutor.Show() + End Sub + + Private Sub ClientesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientesToolStripMenuItem.Click + FCliente.Show() + End Sub + + Private Sub FuncionáriosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FuncionáriosToolStripMenuItem.Click + FFunc.Show() + End Sub + + Private Sub CadastroDeItemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CadastroDeItemToolStripMenuItem.Click + FItem.Show() + End Sub + + Private Sub CadastroDeGêneroToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CadastroDeGêneroToolStripMenuItem.Click + FGenero.Show() + End Sub + + Private Sub CadastroDeTipoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CadastroDeTipoToolStripMenuItem.Click + FTipo.Show() + End Sub + + Private Sub SobreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SobreToolStripMenuItem.Click + FSobre.Show() + End Sub + + Private Sub SairToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles SairToolStripMenuItem.Click + Me.Hide() + FLogin.Show() + End Sub + + Private Sub CadastroDeAutorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CadastroDeAutorToolStripMenuItem.Click + FAutor.Show() + End Sub + + Private Sub CadastroDeEditoraToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CadastroDeEditoraToolStripMenuItem.Click + FEditora.Show() + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/FSobre.Designer.vb b/projetoBiblioteca05/FSobre.Designer.vb new file mode 100755 index 0000000..7c3d39b --- /dev/null +++ b/projetoBiblioteca05/FSobre.Designer.vb @@ -0,0 +1,178 @@ + _ +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 + + Friend WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel + Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox + Friend WithEvents LabelProductName As System.Windows.Forms.Label + Friend WithEvents LabelVersion As System.Windows.Forms.Label + Friend WithEvents LabelCompanyName As System.Windows.Forms.Label + Friend WithEvents TextBoxDescription As System.Windows.Forms.TextBox + Friend WithEvents OKButton As System.Windows.Forms.Button + Friend WithEvents LabelCopyright As System.Windows.Forms.Label + + '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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FSobre)) + Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel() + Me.LogoPictureBox = New System.Windows.Forms.PictureBox() + Me.LabelProductName = New System.Windows.Forms.Label() + Me.LabelVersion = New System.Windows.Forms.Label() + Me.LabelCopyright = New System.Windows.Forms.Label() + Me.LabelCompanyName = New System.Windows.Forms.Label() + Me.TextBoxDescription = New System.Windows.Forms.TextBox() + Me.OKButton = New System.Windows.Forms.Button() + Me.TableLayoutPanel.SuspendLayout() + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TableLayoutPanel + ' + Me.TableLayoutPanel.ColumnCount = 2 + Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.0!)) + Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.0!)) + Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0) + Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0) + Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1) + Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2) + Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3) + Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4) + Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 5) + Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel.Location = New System.Drawing.Point(9, 9) + Me.TableLayoutPanel.Name = "TableLayoutPanel" + Me.TableLayoutPanel.RowCount = 6 + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.Size = New System.Drawing.Size(396, 258) + Me.TableLayoutPanel.TabIndex = 0 + ' + 'LogoPictureBox + ' + Me.LogoPictureBox.BackColor = System.Drawing.Color.Gray + Me.LogoPictureBox.Dock = System.Windows.Forms.DockStyle.Fill + Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3) + Me.LogoPictureBox.Name = "LogoPictureBox" + Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 6) + Me.LogoPictureBox.Size = New System.Drawing.Size(124, 252) + Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.LogoPictureBox.TabIndex = 0 + Me.LogoPictureBox.TabStop = False + ' + 'LabelProductName + ' + Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelProductName.Location = New System.Drawing.Point(136, 0) + Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelProductName.Name = "LabelProductName" + Me.LabelProductName.Size = New System.Drawing.Size(257, 17) + Me.LabelProductName.TabIndex = 0 + Me.LabelProductName.Text = "Nome do Produto" + Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelVersion + ' + Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelVersion.Location = New System.Drawing.Point(136, 25) + Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelVersion.Name = "LabelVersion" + Me.LabelVersion.Size = New System.Drawing.Size(257, 17) + Me.LabelVersion.TabIndex = 0 + Me.LabelVersion.Text = "Versão" + Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelCopyright + ' + Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelCopyright.Location = New System.Drawing.Point(136, 50) + Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelCopyright.Name = "LabelCopyright" + Me.LabelCopyright.Size = New System.Drawing.Size(257, 17) + Me.LabelCopyright.TabIndex = 0 + Me.LabelCopyright.Text = "Copyright" + Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelCompanyName + ' + Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelCompanyName.Location = New System.Drawing.Point(136, 75) + Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0) + Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 17) + Me.LabelCompanyName.Name = "LabelCompanyName" + Me.LabelCompanyName.Size = New System.Drawing.Size(257, 17) + Me.LabelCompanyName.TabIndex = 0 + Me.LabelCompanyName.Text = "Nome da Companhia" + Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TextBoxDescription + ' + Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBoxDescription.Location = New System.Drawing.Point(136, 103) + Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(6, 3, 3, 3) + Me.TextBoxDescription.Multiline = True + Me.TextBoxDescription.Name = "TextBoxDescription" + Me.TextBoxDescription.ReadOnly = True + Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.TextBoxDescription.Size = New System.Drawing.Size(257, 123) + Me.TextBoxDescription.TabIndex = 0 + Me.TextBoxDescription.TabStop = False + Me.TextBoxDescription.Text = resources.GetString("TextBoxDescription.Text") + ' + 'OKButton + ' + Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.OKButton.Location = New System.Drawing.Point(318, 232) + Me.OKButton.Name = "OKButton" + Me.OKButton.Size = New System.Drawing.Size(75, 23) + Me.OKButton.TabIndex = 0 + Me.OKButton.Text = "&OK" + ' + 'FSobre + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.OKButton + Me.ClientSize = New System.Drawing.Size(414, 276) + Me.Controls.Add(Me.TableLayoutPanel) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "FSobre" + Me.Padding = New System.Windows.Forms.Padding(9) + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "AboutBox1" + Me.TableLayoutPanel.ResumeLayout(False) + Me.TableLayoutPanel.PerformLayout() + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/projetoBiblioteca05/FSobre.resx b/projetoBiblioteca05/FSobre.resx new file mode 100755 index 0000000..ca24935 --- /dev/null +++ b/projetoBiblioteca05/FSobre.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + Descrição : + +(Em tempo de execução, os textos dos rótulos serão substituídos com informações do assembly da aplicação. +Personalize as informações do assembly da aplicação no painel Application do Project Designer.) + + \ No newline at end of file diff --git a/projetoBiblioteca05/FSobre.vb b/projetoBiblioteca05/FSobre.vb new file mode 100755 index 0000000..eb14886 --- /dev/null +++ b/projetoBiblioteca05/FSobre.vb @@ -0,0 +1,25 @@ +Public NotInheritable Class FSobre + + Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + ' Configura o titulo do formulário. + Dim ApplicationTitle As String + If My.Application.Info.Title <> "" Then + ApplicationTitle = My.Application.Info.Title + Else + ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName) + End If + Me.Text = String.Format("Sobre {0}", ApplicationTitle) + ' Inicializa todo o texto exibido na About Box. + ' TODO: Personalize o assembly da aplicação no painel "Application" das propriedades do projeto + ' (abaixo do menu"Project"). + Me.LabelProductName.Text = My.Application.Info.ProductName + Me.LabelVersion.Text = String.Format("Versão {0}", My.Application.Info.Version.ToString) + Me.LabelCopyright.Text = My.Application.Info.Copyright + Me.LabelCompanyName.Text = My.Application.Info.CompanyName + Me.TextBoxDescription.Text = My.Application.Info.Description + End Sub + + Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click + Me.Close() + End Sub +End Class diff --git a/projetoBiblioteca05/Formulários/FAutor.Designer.vb b/projetoBiblioteca05/Formulários/FAutor.Designer.vb new file mode 100755 index 0000000..eef22a1 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FAutor.Designer.vb @@ -0,0 +1,273 @@ + _ +Partial Class FAutor + 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(FAutor)) + Dim IdAutorLabel As System.Windows.Forms.Label + Dim NomeAutorLabel As System.Windows.Forms.Label + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbAutorBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbAutorTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbAutorTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbAutorBindingNavigator = 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.TbAutorBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdAutorTextBox = New System.Windows.Forms.TextBox() + Me.NomeAutorTextBox = New System.Windows.Forms.TextBox() + IdAutorLabel = New System.Windows.Forms.Label() + NomeAutorLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbAutorBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbAutorBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbAutorBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbAutorBindingSource + ' + Me.TbAutorBindingSource.DataMember = "tbAutor" + Me.TbAutorBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbAutorTableAdapter + ' + Me.TbAutorTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Me.TbAutorTableAdapter + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbAutorBindingNavigator + ' + Me.TbAutorBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbAutorBindingNavigator.BindingSource = Me.TbAutorBindingSource + Me.TbAutorBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbAutorBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbAutorBindingNavigator.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.TbAutorBindingNavigatorSaveItem}) + Me.TbAutorBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbAutorBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbAutorBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbAutorBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbAutorBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbAutorBindingNavigator.Name = "TbAutorBindingNavigator" + Me.TbAutorBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbAutorBindingNavigator.Size = New System.Drawing.Size(344, 25) + Me.TbAutorBindingNavigator.TabIndex = 0 + Me.TbAutorBindingNavigator.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" + ' + 'TbAutorBindingNavigatorSaveItem + ' + Me.TbAutorBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbAutorBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbAutorBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbAutorBindingNavigatorSaveItem.Name = "TbAutorBindingNavigatorSaveItem" + Me.TbAutorBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.TbAutorBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdAutorLabel + ' + IdAutorLabel.AutoSize = True + IdAutorLabel.Location = New System.Drawing.Point(25, 41) + IdAutorLabel.Name = "IdAutorLabel" + IdAutorLabel.Size = New System.Drawing.Size(18, 20) + IdAutorLabel.TabIndex = 1 + IdAutorLabel.Text = "#" + ' + 'IdAutorTextBox + ' + Me.IdAutorTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAutorBindingSource, "idAutor", True)) + Me.IdAutorTextBox.Enabled = False + Me.IdAutorTextBox.Location = New System.Drawing.Point(49, 38) + Me.IdAutorTextBox.Name = "IdAutorTextBox" + Me.IdAutorTextBox.Size = New System.Drawing.Size(26, 26) + Me.IdAutorTextBox.TabIndex = 2 + ' + 'NomeAutorLabel + ' + NomeAutorLabel.AutoSize = True + NomeAutorLabel.Location = New System.Drawing.Point(25, 73) + NomeAutorLabel.Name = "NomeAutorLabel" + NomeAutorLabel.Size = New System.Drawing.Size(52, 20) + NomeAutorLabel.TabIndex = 3 + NomeAutorLabel.Text = "Autor:" + ' + 'NomeAutorTextBox + ' + Me.NomeAutorTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbAutorBindingSource, "nomeAutor", True)) + Me.NomeAutorTextBox.Location = New System.Drawing.Point(83, 70) + Me.NomeAutorTextBox.Name = "NomeAutorTextBox" + Me.NomeAutorTextBox.Size = New System.Drawing.Size(225, 26) + Me.NomeAutorTextBox.TabIndex = 4 + ' + 'FAutor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(344, 117) + Me.Controls.Add(IdAutorLabel) + Me.Controls.Add(Me.IdAutorTextBox) + Me.Controls.Add(NomeAutorLabel) + Me.Controls.Add(Me.NomeAutorTextBox) + Me.Controls.Add(Me.TbAutorBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FAutor" + Me.Text = "FAutor" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbAutorBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbAutorBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbAutorBindingNavigator.ResumeLayout(False) + Me.TbAutorBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbAutorBindingSource As BindingSource + Friend WithEvents TbAutorTableAdapter As dbBibliotecaDataSetTableAdapters.tbAutorTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbAutorBindingNavigator 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 TbAutorBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdAutorTextBox As TextBox + Friend WithEvents NomeAutorTextBox As TextBox +End Class diff --git a/projetoBiblioteca05/Formulários/FAutor.resx b/projetoBiblioteca05/Formulários/FAutor.resx new file mode 100755 index 0000000..2e6e3e1 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FAutor.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 355, 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 + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FAutor.vb b/projetoBiblioteca05/Formulários/FAutor.vb new file mode 100755 index 0000000..3b5e3f8 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FAutor.vb @@ -0,0 +1,23 @@ +Public Class FAutor + Private Sub TbAutorBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TbAutorBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FAutor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbAutor'. Você pode movê-la ou removê-la conforme necessário. + Me.TbAutorTableAdapter.Fill(Me.DbBibliotecaDataSet.tbAutor) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbAutor'. Você pode movê-la ou removê-la conforme necessário. + Me.TbAutorTableAdapter.Fill(Me.DbBibliotecaDataSet.tbAutor) + + End Sub + + Private Sub TbAutorBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles TbAutorBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbAutorBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FCliente.Designer.vb b/projetoBiblioteca05/Formulários/FCliente.Designer.vb new file mode 100755 index 0000000..070842c --- /dev/null +++ b/projetoBiblioteca05/Formulários/FCliente.Designer.vb @@ -0,0 +1,487 @@ + _ +Partial Class FCliente + 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 NomeClienteLabel As System.Windows.Forms.Label + Dim RgClienteLabel As System.Windows.Forms.Label + Dim CpfClienteLabel As System.Windows.Forms.Label + Dim TelClienteLabel As System.Windows.Forms.Label + Dim CelClienteLabel As System.Windows.Forms.Label + Dim RuaClienteLabel As System.Windows.Forms.Label + Dim NumeroClienteLabel As System.Windows.Forms.Label + Dim CidadeClienteLabel As System.Windows.Forms.Label + Dim StatusClienteLabel As System.Windows.Forms.Label + Dim Label1 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FCliente)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbClienteBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbClienteTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbClienteTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbClienteBindingNavigator = 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.TbClienteBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdClienteTextBox = New System.Windows.Forms.TextBox() + Me.NomeClienteTextBox = New System.Windows.Forms.TextBox() + Me.TelClienteMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.CelClienteMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.RuaClienteTextBox = New System.Windows.Forms.TextBox() + Me.NumeroClienteTextBox = New System.Windows.Forms.TextBox() + Me.CidadeClienteTextBox = New System.Windows.Forms.TextBox() + Me.StatusEmprestimoComboBox = New System.Windows.Forms.ComboBox() + Me.RgClienteMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.CpfClienteMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + NomeClienteLabel = New System.Windows.Forms.Label() + RgClienteLabel = New System.Windows.Forms.Label() + CpfClienteLabel = New System.Windows.Forms.Label() + TelClienteLabel = New System.Windows.Forms.Label() + CelClienteLabel = New System.Windows.Forms.Label() + RuaClienteLabel = New System.Windows.Forms.Label() + NumeroClienteLabel = New System.Windows.Forms.Label() + CidadeClienteLabel = New System.Windows.Forms.Label() + StatusClienteLabel = New System.Windows.Forms.Label() + Label1 = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbClienteBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbClienteBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'NomeClienteLabel + ' + NomeClienteLabel.AutoSize = True + NomeClienteLabel.Location = New System.Drawing.Point(15, 94) + NomeClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + NomeClienteLabel.Name = "NomeClienteLabel" + NomeClienteLabel.Size = New System.Drawing.Size(55, 20) + NomeClienteLabel.TabIndex = 3 + NomeClienteLabel.Text = "Nome:" + ' + 'RgClienteLabel + ' + RgClienteLabel.AutoSize = True + RgClienteLabel.Location = New System.Drawing.Point(392, 94) + RgClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + RgClienteLabel.Name = "RgClienteLabel" + RgClienteLabel.Size = New System.Drawing.Size(38, 20) + RgClienteLabel.TabIndex = 5 + RgClienteLabel.Text = "RG:" + ' + 'CpfClienteLabel + ' + CpfClienteLabel.AutoSize = True + CpfClienteLabel.Location = New System.Drawing.Point(574, 94) + CpfClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + CpfClienteLabel.Name = "CpfClienteLabel" + CpfClienteLabel.Size = New System.Drawing.Size(44, 20) + CpfClienteLabel.TabIndex = 7 + CpfClienteLabel.Text = "CPF:" + ' + 'TelClienteLabel + ' + TelClienteLabel.AutoSize = True + TelClienteLabel.Location = New System.Drawing.Point(241, 130) + TelClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + TelClienteLabel.Name = "TelClienteLabel" + TelClienteLabel.Size = New System.Drawing.Size(75, 20) + TelClienteLabel.TabIndex = 9 + TelClienteLabel.Text = "Telefone:" + ' + 'CelClienteLabel + ' + CelClienteLabel.AutoSize = True + CelClienteLabel.Location = New System.Drawing.Point(15, 130) + CelClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + CelClienteLabel.Name = "CelClienteLabel" + CelClienteLabel.Size = New System.Drawing.Size(62, 20) + CelClienteLabel.TabIndex = 11 + CelClienteLabel.Text = "Celular:" + ' + 'RuaClienteLabel + ' + RuaClienteLabel.AutoSize = True + RuaClienteLabel.Location = New System.Drawing.Point(15, 169) + RuaClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + RuaClienteLabel.Name = "RuaClienteLabel" + RuaClienteLabel.Size = New System.Drawing.Size(43, 20) + RuaClienteLabel.TabIndex = 13 + RuaClienteLabel.Text = "Rua:" + ' + 'NumeroClienteLabel + ' + NumeroClienteLabel.AutoSize = True + NumeroClienteLabel.Location = New System.Drawing.Point(672, 166) + NumeroClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + NumeroClienteLabel.Name = "NumeroClienteLabel" + NumeroClienteLabel.Size = New System.Drawing.Size(69, 20) + NumeroClienteLabel.TabIndex = 15 + NumeroClienteLabel.Text = "Número:" + ' + 'CidadeClienteLabel + ' + CidadeClienteLabel.AutoSize = True + CidadeClienteLabel.Location = New System.Drawing.Point(392, 166) + CidadeClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + CidadeClienteLabel.Name = "CidadeClienteLabel" + CidadeClienteLabel.Size = New System.Drawing.Size(63, 20) + CidadeClienteLabel.TabIndex = 17 + CidadeClienteLabel.Text = "Cidade:" + ' + 'StatusClienteLabel + ' + StatusClienteLabel.AutoSize = True + StatusClienteLabel.Location = New System.Drawing.Point(15, 205) + StatusClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + StatusClienteLabel.Name = "StatusClienteLabel" + StatusClienteLabel.Size = New System.Drawing.Size(60, 20) + StatusClienteLabel.TabIndex = 19 + StatusClienteLabel.Text = "Status:" + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.Location = New System.Drawing.Point(15, 54) + Label1.Margin = New System.Windows.Forms.Padding(6, 0, 6, 0) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(18, 20) + Label1.TabIndex = 22 + Label1.Text = "#" + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbClienteBindingSource + ' + Me.TbClienteBindingSource.DataMember = "tbCliente" + Me.TbClienteBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbClienteTableAdapter + ' + Me.TbClienteTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Me.TbClienteTableAdapter + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbClienteBindingNavigator + ' + Me.TbClienteBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbClienteBindingNavigator.BindingSource = Me.TbClienteBindingSource + Me.TbClienteBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbClienteBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbClienteBindingNavigator.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.TbClienteBindingNavigatorSaveItem}) + Me.TbClienteBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbClienteBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbClienteBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbClienteBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbClienteBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbClienteBindingNavigator.Name = "TbClienteBindingNavigator" + Me.TbClienteBindingNavigator.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.TbClienteBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbClienteBindingNavigator.Size = New System.Drawing.Size(842, 25) + Me.TbClienteBindingNavigator.TabIndex = 0 + Me.TbClienteBindingNavigator.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) + ' + 'TbClienteBindingNavigatorSaveItem + ' + Me.TbClienteBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbClienteBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbClienteBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbClienteBindingNavigatorSaveItem.Name = "TbClienteBindingNavigatorSaveItem" + Me.TbClienteBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TbClienteBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdClienteTextBox + ' + Me.IdClienteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "idCliente", True)) + Me.IdClienteTextBox.Enabled = False + Me.IdClienteTextBox.Location = New System.Drawing.Point(43, 51) + Me.IdClienteTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.IdClienteTextBox.Name = "IdClienteTextBox" + Me.IdClienteTextBox.Size = New System.Drawing.Size(31, 26) + Me.IdClienteTextBox.TabIndex = 0 + ' + 'NomeClienteTextBox + ' + Me.NomeClienteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "nomeCliente", True)) + Me.NomeClienteTextBox.Location = New System.Drawing.Point(85, 91) + Me.NomeClienteTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.NomeClienteTextBox.Name = "NomeClienteTextBox" + Me.NomeClienteTextBox.Size = New System.Drawing.Size(299, 26) + Me.NomeClienteTextBox.TabIndex = 1 + ' + 'TelClienteMaskedTextBox + ' + Me.TelClienteMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "telCliente", True)) + Me.TelClienteMaskedTextBox.Location = New System.Drawing.Point(324, 127) + Me.TelClienteMaskedTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.TelClienteMaskedTextBox.Mask = "(##)####-####" + Me.TelClienteMaskedTextBox.Name = "TelClienteMaskedTextBox" + Me.TelClienteMaskedTextBox.Size = New System.Drawing.Size(148, 26) + Me.TelClienteMaskedTextBox.TabIndex = 5 + Me.TelClienteMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'CelClienteMaskedTextBox + ' + Me.CelClienteMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "celCliente", True)) + Me.CelClienteMaskedTextBox.Location = New System.Drawing.Point(85, 127) + Me.CelClienteMaskedTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.CelClienteMaskedTextBox.Mask = "(##)#####-####" + Me.CelClienteMaskedTextBox.Name = "CelClienteMaskedTextBox" + Me.CelClienteMaskedTextBox.Size = New System.Drawing.Size(148, 26) + Me.CelClienteMaskedTextBox.TabIndex = 4 + Me.CelClienteMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'RuaClienteTextBox + ' + Me.RuaClienteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "ruaCliente", True)) + Me.RuaClienteTextBox.Location = New System.Drawing.Point(85, 163) + Me.RuaClienteTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.RuaClienteTextBox.Name = "RuaClienteTextBox" + Me.RuaClienteTextBox.Size = New System.Drawing.Size(299, 26) + Me.RuaClienteTextBox.TabIndex = 6 + ' + 'NumeroClienteTextBox + ' + Me.NumeroClienteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "numeroCliente", True)) + Me.NumeroClienteTextBox.Location = New System.Drawing.Point(749, 163) + Me.NumeroClienteTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.NumeroClienteTextBox.Name = "NumeroClienteTextBox" + Me.NumeroClienteTextBox.Size = New System.Drawing.Size(60, 26) + Me.NumeroClienteTextBox.TabIndex = 8 + ' + 'CidadeClienteTextBox + ' + Me.CidadeClienteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "cidadeCliente", True)) + Me.CidadeClienteTextBox.Location = New System.Drawing.Point(463, 163) + Me.CidadeClienteTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.CidadeClienteTextBox.Name = "CidadeClienteTextBox" + Me.CidadeClienteTextBox.Size = New System.Drawing.Size(201, 26) + Me.CidadeClienteTextBox.TabIndex = 7 + ' + 'StatusEmprestimoComboBox + ' + Me.StatusEmprestimoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbClienteBindingSource, "statusCliente", True)) + Me.StatusEmprestimoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "statusCliente", True)) + Me.StatusEmprestimoComboBox.FormattingEnabled = True + Me.StatusEmprestimoComboBox.Items.AddRange(New Object() {"ATIVO", "DESATIVADO"}) + Me.StatusEmprestimoComboBox.Location = New System.Drawing.Point(85, 202) + Me.StatusEmprestimoComboBox.Margin = New System.Windows.Forms.Padding(6, 8, 6, 8) + Me.StatusEmprestimoComboBox.Name = "StatusEmprestimoComboBox" + Me.StatusEmprestimoComboBox.Size = New System.Drawing.Size(154, 28) + Me.StatusEmprestimoComboBox.TabIndex = 9 + ' + 'RgClienteMaskedTextBox + ' + Me.RgClienteMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "rgCliente", True)) + Me.RgClienteMaskedTextBox.Location = New System.Drawing.Point(437, 91) + Me.RgClienteMaskedTextBox.Mask = "##,###,###-#" + Me.RgClienteMaskedTextBox.Name = "RgClienteMaskedTextBox" + Me.RgClienteMaskedTextBox.Size = New System.Drawing.Size(130, 26) + Me.RgClienteMaskedTextBox.TabIndex = 23 + Me.RgClienteMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'CpfClienteMaskedTextBox + ' + Me.CpfClienteMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbClienteBindingSource, "cpfCliente", True)) + Me.CpfClienteMaskedTextBox.Location = New System.Drawing.Point(625, 91) + Me.CpfClienteMaskedTextBox.Mask = "###,###,###-##" + Me.CpfClienteMaskedTextBox.Name = "CpfClienteMaskedTextBox" + Me.CpfClienteMaskedTextBox.Size = New System.Drawing.Size(184, 26) + Me.CpfClienteMaskedTextBox.TabIndex = 24 + Me.CpfClienteMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'FCliente + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(842, 282) + Me.Controls.Add(Me.CpfClienteMaskedTextBox) + Me.Controls.Add(Me.RgClienteMaskedTextBox) + Me.Controls.Add(Label1) + Me.Controls.Add(Me.StatusEmprestimoComboBox) + Me.Controls.Add(Me.IdClienteTextBox) + Me.Controls.Add(NomeClienteLabel) + Me.Controls.Add(Me.NomeClienteTextBox) + Me.Controls.Add(RgClienteLabel) + Me.Controls.Add(CpfClienteLabel) + Me.Controls.Add(TelClienteLabel) + Me.Controls.Add(Me.TelClienteMaskedTextBox) + Me.Controls.Add(CelClienteLabel) + Me.Controls.Add(Me.CelClienteMaskedTextBox) + Me.Controls.Add(RuaClienteLabel) + Me.Controls.Add(Me.RuaClienteTextBox) + Me.Controls.Add(NumeroClienteLabel) + Me.Controls.Add(Me.NumeroClienteTextBox) + Me.Controls.Add(CidadeClienteLabel) + Me.Controls.Add(Me.CidadeClienteTextBox) + Me.Controls.Add(StatusClienteLabel) + Me.Controls.Add(Me.TbClienteBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FCliente" + Me.Text = "FCliente" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbClienteBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbClienteBindingNavigator.ResumeLayout(False) + Me.TbClienteBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbClienteBindingSource As BindingSource + Friend WithEvents TbClienteTableAdapter As dbBibliotecaDataSetTableAdapters.tbClienteTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbClienteBindingNavigator 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 TbClienteBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdClienteTextBox As TextBox + Friend WithEvents NomeClienteTextBox As TextBox + Friend WithEvents TelClienteMaskedTextBox As MaskedTextBox + Friend WithEvents CelClienteMaskedTextBox As MaskedTextBox + Friend WithEvents RuaClienteTextBox As TextBox + Friend WithEvents NumeroClienteTextBox As TextBox + Friend WithEvents CidadeClienteTextBox As TextBox + Friend WithEvents StatusEmprestimoComboBox As ComboBox + Friend WithEvents RgClienteMaskedTextBox As MaskedTextBox + Friend WithEvents CpfClienteMaskedTextBox As MaskedTextBox +End Class diff --git a/projetoBiblioteca05/Formulários/FCliente.resx b/projetoBiblioteca05/Formulários/FCliente.resx new file mode 100755 index 0000000..2af8837 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FCliente.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 + + + False + + + False + + + False + + + 17, 17 + + + 180, 17 + + + 362, 17 + + + 538, 17 + + + 711, 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FCliente.vb b/projetoBiblioteca05/Formulários/FCliente.vb new file mode 100755 index 0000000..b870a38 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FCliente.vb @@ -0,0 +1,23 @@ +Public Class FCliente + Private Sub TbClienteBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TbClienteBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FCliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbCliente'. Você pode movê-la ou removê-la conforme necessário. + Me.TbClienteTableAdapter.Fill(Me.DbBibliotecaDataSet.tbCliente) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbCliente'. Você pode movê-la ou removê-la conforme necessário. + Me.TbClienteTableAdapter.Fill(Me.DbBibliotecaDataSet.tbCliente) + + End Sub + + Private Sub TbClienteBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles TbClienteBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbClienteBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FEditora.Designer.vb b/projetoBiblioteca05/Formulários/FEditora.Designer.vb new file mode 100755 index 0000000..3859457 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FEditora.Designer.vb @@ -0,0 +1,273 @@ + _ +Partial Class FEditora + 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(FEditora)) + Dim IdEditoraLabel As System.Windows.Forms.Label + Dim NomeEditoraLabel As System.Windows.Forms.Label + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbEditoraBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbEditoraTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbEditoraTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbEditoraBindingNavigator = 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.TbEditoraBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdEditoraTextBox = New System.Windows.Forms.TextBox() + Me.NomeEditoraTextBox = New System.Windows.Forms.TextBox() + IdEditoraLabel = New System.Windows.Forms.Label() + NomeEditoraLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbEditoraBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbEditoraBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbEditoraBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbEditoraBindingSource + ' + Me.TbEditoraBindingSource.DataMember = "tbEditora" + Me.TbEditoraBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbEditoraTableAdapter + ' + Me.TbEditoraTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Me.TbEditoraTableAdapter + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbEditoraBindingNavigator + ' + Me.TbEditoraBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbEditoraBindingNavigator.BindingSource = Me.TbEditoraBindingSource + Me.TbEditoraBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbEditoraBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbEditoraBindingNavigator.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.TbEditoraBindingNavigatorSaveItem}) + Me.TbEditoraBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbEditoraBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbEditoraBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbEditoraBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbEditoraBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbEditoraBindingNavigator.Name = "TbEditoraBindingNavigator" + Me.TbEditoraBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbEditoraBindingNavigator.Size = New System.Drawing.Size(362, 25) + Me.TbEditoraBindingNavigator.TabIndex = 0 + Me.TbEditoraBindingNavigator.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" + ' + 'TbEditoraBindingNavigatorSaveItem + ' + Me.TbEditoraBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbEditoraBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbEditoraBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbEditoraBindingNavigatorSaveItem.Name = "TbEditoraBindingNavigatorSaveItem" + Me.TbEditoraBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.TbEditoraBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdEditoraLabel + ' + IdEditoraLabel.AutoSize = True + IdEditoraLabel.Location = New System.Drawing.Point(25, 41) + IdEditoraLabel.Name = "IdEditoraLabel" + IdEditoraLabel.Size = New System.Drawing.Size(18, 20) + IdEditoraLabel.TabIndex = 1 + IdEditoraLabel.Text = "#" + ' + 'IdEditoraTextBox + ' + Me.IdEditoraTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbEditoraBindingSource, "idEditora", True)) + Me.IdEditoraTextBox.Enabled = False + Me.IdEditoraTextBox.Location = New System.Drawing.Point(49, 38) + Me.IdEditoraTextBox.Name = "IdEditoraTextBox" + Me.IdEditoraTextBox.Size = New System.Drawing.Size(40, 26) + Me.IdEditoraTextBox.TabIndex = 2 + ' + 'NomeEditoraLabel + ' + NomeEditoraLabel.AutoSize = True + NomeEditoraLabel.Location = New System.Drawing.Point(25, 73) + NomeEditoraLabel.Name = "NomeEditoraLabel" + NomeEditoraLabel.Size = New System.Drawing.Size(64, 20) + NomeEditoraLabel.TabIndex = 3 + NomeEditoraLabel.Text = "Editora:" + ' + 'NomeEditoraTextBox + ' + Me.NomeEditoraTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbEditoraBindingSource, "nomeEditora", True)) + Me.NomeEditoraTextBox.Location = New System.Drawing.Point(95, 70) + Me.NomeEditoraTextBox.Name = "NomeEditoraTextBox" + Me.NomeEditoraTextBox.Size = New System.Drawing.Size(236, 26) + Me.NomeEditoraTextBox.TabIndex = 4 + ' + 'FEditora + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(362, 111) + Me.Controls.Add(IdEditoraLabel) + Me.Controls.Add(Me.IdEditoraTextBox) + Me.Controls.Add(NomeEditoraLabel) + Me.Controls.Add(Me.NomeEditoraTextBox) + Me.Controls.Add(Me.TbEditoraBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FEditora" + Me.Text = "FEditora" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbEditoraBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbEditoraBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbEditoraBindingNavigator.ResumeLayout(False) + Me.TbEditoraBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbEditoraBindingSource As BindingSource + Friend WithEvents TbEditoraTableAdapter As dbBibliotecaDataSetTableAdapters.tbEditoraTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbEditoraBindingNavigator 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 TbEditoraBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdEditoraTextBox As TextBox + Friend WithEvents NomeEditoraTextBox As TextBox +End Class diff --git a/projetoBiblioteca05/Formulários/FEditora.resx b/projetoBiblioteca05/Formulários/FEditora.resx new file mode 100755 index 0000000..f6af12a --- /dev/null +++ b/projetoBiblioteca05/Formulários/FEditora.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 363, 17 + + + 540, 17 + + + 713, 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 + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FEditora.vb b/projetoBiblioteca05/Formulários/FEditora.vb new file mode 100755 index 0000000..d7a8f22 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FEditora.vb @@ -0,0 +1,14 @@ +Public Class FEditora + Private Sub TbEditoraBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbEditoraBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbEditoraBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FEditora_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbEditora'. Você pode movê-la ou removê-la conforme necessário. + Me.TbEditoraTableAdapter.Fill(Me.DbBibliotecaDataSet.tbEditora) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FEmprestimo.Designer.vb b/projetoBiblioteca05/Formulários/FEmprestimo.Designer.vb new file mode 100755 index 0000000..82c72da --- /dev/null +++ b/projetoBiblioteca05/Formulários/FEmprestimo.Designer.vb @@ -0,0 +1,457 @@ + +Partial Class FEmprestimo + 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 IdEmprestimoLabel As System.Windows.Forms.Label + Dim IdFuncLabel As System.Windows.Forms.Label + Dim IdClienteLabel As System.Windows.Forms.Label + Dim IdItemLabel As System.Windows.Forms.Label + Dim DataEmprestimoLabel As System.Windows.Forms.Label + Dim DataDevolucaoLabel As System.Windows.Forms.Label + Dim StatusEmprestimoLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FEmprestimo)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbEmprestimoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbEmprestimoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbEmprestimoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbEmprestimoBindingNavigator = 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.TbEmprestimoBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdEmprestimoTextBox = New System.Windows.Forms.TextBox() + Me.DataEmprestimoDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.DataDevolucaoDateTimePicker = New System.Windows.Forms.DateTimePicker() + Me.IdFuncComboBox = New System.Windows.Forms.ComboBox() + Me.IdClienteComboBox = New System.Windows.Forms.ComboBox() + Me.IdItemComboBox = New System.Windows.Forms.ComboBox() + Me.TbFuncionarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbFuncionarioTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbFuncionarioTableAdapter() + Me.TbClienteBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbClienteTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbClienteTableAdapter() + Me.TbItemBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbItemTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbItemTableAdapter() + Me.StatusEmprestimoComboBox = New System.Windows.Forms.ComboBox() + IdEmprestimoLabel = New System.Windows.Forms.Label() + IdFuncLabel = New System.Windows.Forms.Label() + IdClienteLabel = New System.Windows.Forms.Label() + IdItemLabel = New System.Windows.Forms.Label() + DataEmprestimoLabel = New System.Windows.Forms.Label() + DataDevolucaoLabel = New System.Windows.Forms.Label() + StatusEmprestimoLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbEmprestimoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbEmprestimoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbEmprestimoBindingNavigator.SuspendLayout() + CType(Me.TbFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbItemBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'IdEmprestimoLabel + ' + IdEmprestimoLabel.AutoSize = True + IdEmprestimoLabel.Location = New System.Drawing.Point(17, 40) + IdEmprestimoLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdEmprestimoLabel.Name = "IdEmprestimoLabel" + IdEmprestimoLabel.Size = New System.Drawing.Size(18, 20) + IdEmprestimoLabel.TabIndex = 1 + IdEmprestimoLabel.Text = "#" + ' + 'IdFuncLabel + ' + IdFuncLabel.AutoSize = True + IdFuncLabel.Location = New System.Drawing.Point(17, 79) + IdFuncLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdFuncLabel.Name = "IdFuncLabel" + IdFuncLabel.Size = New System.Drawing.Size(96, 20) + IdFuncLabel.TabIndex = 3 + IdFuncLabel.Text = "Funcionário:" + ' + 'IdClienteLabel + ' + IdClienteLabel.AutoSize = True + IdClienteLabel.Location = New System.Drawing.Point(17, 120) + IdClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdClienteLabel.Name = "IdClienteLabel" + IdClienteLabel.Size = New System.Drawing.Size(62, 20) + IdClienteLabel.TabIndex = 5 + IdClienteLabel.Text = "Cliente:" + ' + 'IdItemLabel + ' + IdItemLabel.AutoSize = True + IdItemLabel.Location = New System.Drawing.Point(17, 162) + IdItemLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdItemLabel.Name = "IdItemLabel" + IdItemLabel.Size = New System.Drawing.Size(45, 20) + IdItemLabel.TabIndex = 7 + IdItemLabel.Text = "Item:" + ' + 'DataEmprestimoLabel + ' + DataEmprestimoLabel.AutoSize = True + DataEmprestimoLabel.Location = New System.Drawing.Point(17, 205) + DataEmprestimoLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + DataEmprestimoLabel.Name = "DataEmprestimoLabel" + DataEmprestimoLabel.Size = New System.Drawing.Size(137, 20) + DataEmprestimoLabel.TabIndex = 9 + DataEmprestimoLabel.Text = "Data Empréstimo:" + ' + 'DataDevolucaoLabel + ' + DataDevolucaoLabel.AutoSize = True + DataDevolucaoLabel.Location = New System.Drawing.Point(17, 245) + DataDevolucaoLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + DataDevolucaoLabel.Name = "DataDevolucaoLabel" + DataDevolucaoLabel.Size = New System.Drawing.Size(127, 20) + DataDevolucaoLabel.TabIndex = 11 + DataDevolucaoLabel.Text = "Data Devolução:" + ' + 'StatusEmprestimoLabel + ' + StatusEmprestimoLabel.AutoSize = True + StatusEmprestimoLabel.Location = New System.Drawing.Point(17, 283) + StatusEmprestimoLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + StatusEmprestimoLabel.Name = "StatusEmprestimoLabel" + StatusEmprestimoLabel.Size = New System.Drawing.Size(60, 20) + StatusEmprestimoLabel.TabIndex = 13 + StatusEmprestimoLabel.Text = "Status:" + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbEmprestimoBindingSource + ' + Me.TbEmprestimoBindingSource.DataMember = "tbEmprestimo" + Me.TbEmprestimoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbEmprestimoTableAdapter + ' + Me.TbEmprestimoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Me.TbEmprestimoTableAdapter + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbEmprestimoBindingNavigator + ' + Me.TbEmprestimoBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbEmprestimoBindingNavigator.BindingSource = Me.TbEmprestimoBindingSource + Me.TbEmprestimoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbEmprestimoBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbEmprestimoBindingNavigator.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.TbEmprestimoBindingNavigatorSaveItem}) + Me.TbEmprestimoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbEmprestimoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbEmprestimoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbEmprestimoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbEmprestimoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbEmprestimoBindingNavigator.Name = "TbEmprestimoBindingNavigator" + Me.TbEmprestimoBindingNavigator.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.TbEmprestimoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbEmprestimoBindingNavigator.Size = New System.Drawing.Size(314, 25) + Me.TbEmprestimoBindingNavigator.TabIndex = 0 + Me.TbEmprestimoBindingNavigator.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(73, 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) + ' + 'TbEmprestimoBindingNavigatorSaveItem + ' + Me.TbEmprestimoBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbEmprestimoBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbEmprestimoBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbEmprestimoBindingNavigatorSaveItem.Name = "TbEmprestimoBindingNavigatorSaveItem" + Me.TbEmprestimoBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TbEmprestimoBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdEmprestimoTextBox + ' + Me.IdEmprestimoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbEmprestimoBindingSource, "idEmprestimo", True)) + Me.IdEmprestimoTextBox.Enabled = False + Me.IdEmprestimoTextBox.Location = New System.Drawing.Point(43, 37) + Me.IdEmprestimoTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.IdEmprestimoTextBox.Name = "IdEmprestimoTextBox" + Me.IdEmprestimoTextBox.Size = New System.Drawing.Size(32, 26) + Me.IdEmprestimoTextBox.TabIndex = 2 + ' + 'DataEmprestimoDateTimePicker + ' + Me.DataEmprestimoDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TbEmprestimoBindingSource, "dataEmprestimo", True)) + Me.DataEmprestimoDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DataEmprestimoDateTimePicker.Location = New System.Drawing.Point(169, 199) + Me.DataEmprestimoDateTimePicker.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.DataEmprestimoDateTimePicker.Name = "DataEmprestimoDateTimePicker" + Me.DataEmprestimoDateTimePicker.Size = New System.Drawing.Size(123, 26) + Me.DataEmprestimoDateTimePicker.TabIndex = 10 + ' + 'DataDevolucaoDateTimePicker + ' + Me.DataDevolucaoDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TbEmprestimoBindingSource, "dataDevolucao", True)) + Me.DataDevolucaoDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DataDevolucaoDateTimePicker.Location = New System.Drawing.Point(169, 239) + Me.DataDevolucaoDateTimePicker.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.DataDevolucaoDateTimePicker.Name = "DataDevolucaoDateTimePicker" + Me.DataDevolucaoDateTimePicker.Size = New System.Drawing.Size(123, 26) + Me.DataDevolucaoDateTimePicker.TabIndex = 12 + ' + 'IdFuncComboBox + ' + Me.IdFuncComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbEmprestimoBindingSource, "idFunc", True)) + Me.IdFuncComboBox.DataSource = Me.TbFuncionarioBindingSource + Me.IdFuncComboBox.DisplayMember = "nomeFunc" + Me.IdFuncComboBox.FormattingEnabled = True + Me.IdFuncComboBox.Location = New System.Drawing.Point(120, 76) + Me.IdFuncComboBox.Name = "IdFuncComboBox" + Me.IdFuncComboBox.Size = New System.Drawing.Size(172, 28) + Me.IdFuncComboBox.TabIndex = 14 + Me.IdFuncComboBox.ValueMember = "idFunc" + ' + 'IdClienteComboBox + ' + Me.IdClienteComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbEmprestimoBindingSource, "idCliente", True)) + Me.IdClienteComboBox.DataSource = Me.TbClienteBindingSource + Me.IdClienteComboBox.DisplayMember = "nomeCliente" + Me.IdClienteComboBox.FormattingEnabled = True + Me.IdClienteComboBox.Location = New System.Drawing.Point(120, 117) + Me.IdClienteComboBox.Name = "IdClienteComboBox" + Me.IdClienteComboBox.Size = New System.Drawing.Size(172, 28) + Me.IdClienteComboBox.TabIndex = 15 + Me.IdClienteComboBox.ValueMember = "idCliente" + ' + 'IdItemComboBox + ' + Me.IdItemComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbEmprestimoBindingSource, "idItem", True)) + Me.IdItemComboBox.DataSource = Me.TbItemBindingSource + Me.IdItemComboBox.DisplayMember = "nomeItem" + Me.IdItemComboBox.FormattingEnabled = True + Me.IdItemComboBox.Location = New System.Drawing.Point(120, 159) + Me.IdItemComboBox.Name = "IdItemComboBox" + Me.IdItemComboBox.Size = New System.Drawing.Size(172, 28) + Me.IdItemComboBox.TabIndex = 16 + Me.IdItemComboBox.ValueMember = "idItem" + ' + 'TbFuncionarioBindingSource + ' + Me.TbFuncionarioBindingSource.DataMember = "tbFuncionario" + Me.TbFuncionarioBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbFuncionarioTableAdapter + ' + Me.TbFuncionarioTableAdapter.ClearBeforeFill = True + ' + 'TbClienteBindingSource + ' + Me.TbClienteBindingSource.DataMember = "tbCliente" + Me.TbClienteBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbClienteTableAdapter + ' + Me.TbClienteTableAdapter.ClearBeforeFill = True + ' + 'TbItemBindingSource + ' + Me.TbItemBindingSource.DataMember = "tbItem" + Me.TbItemBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbItemTableAdapter + ' + Me.TbItemTableAdapter.ClearBeforeFill = True + ' + 'StatusEmprestimoComboBox + ' + Me.StatusEmprestimoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedItem", Me.TbEmprestimoBindingSource, "statusEmprestimo", True)) + Me.StatusEmprestimoComboBox.FormattingEnabled = True + Me.StatusEmprestimoComboBox.Items.AddRange(New Object() {"ATIVO", "DESATIVADO"}) + Me.StatusEmprestimoComboBox.Location = New System.Drawing.Point(120, 280) + Me.StatusEmprestimoComboBox.Name = "StatusEmprestimoComboBox" + Me.StatusEmprestimoComboBox.Size = New System.Drawing.Size(172, 28) + Me.StatusEmprestimoComboBox.TabIndex = 17 + ' + 'FEmprestimo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(314, 345) + Me.Controls.Add(Me.StatusEmprestimoComboBox) + Me.Controls.Add(Me.IdItemComboBox) + Me.Controls.Add(Me.IdClienteComboBox) + Me.Controls.Add(Me.IdFuncComboBox) + Me.Controls.Add(IdEmprestimoLabel) + Me.Controls.Add(Me.IdEmprestimoTextBox) + Me.Controls.Add(IdFuncLabel) + Me.Controls.Add(IdClienteLabel) + Me.Controls.Add(IdItemLabel) + Me.Controls.Add(DataEmprestimoLabel) + Me.Controls.Add(Me.DataEmprestimoDateTimePicker) + Me.Controls.Add(DataDevolucaoLabel) + Me.Controls.Add(Me.DataDevolucaoDateTimePicker) + Me.Controls.Add(StatusEmprestimoLabel) + Me.Controls.Add(Me.TbEmprestimoBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FEmprestimo" + Me.Text = "FEmprestimo" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbEmprestimoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbEmprestimoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbEmprestimoBindingNavigator.ResumeLayout(False) + Me.TbEmprestimoBindingNavigator.PerformLayout() + CType(Me.TbFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbClienteBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbItemBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbEmprestimoBindingSource As BindingSource + Friend WithEvents TbEmprestimoTableAdapter As dbBibliotecaDataSetTableAdapters.tbEmprestimoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbEmprestimoBindingNavigator 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 TbEmprestimoBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdEmprestimoTextBox As TextBox + Friend WithEvents DataEmprestimoDateTimePicker As DateTimePicker + Friend WithEvents DataDevolucaoDateTimePicker As DateTimePicker + Friend WithEvents IdFuncComboBox As ComboBox + Friend WithEvents IdClienteComboBox As ComboBox + Friend WithEvents IdItemComboBox As ComboBox + Friend WithEvents TbFuncionarioBindingSource As BindingSource + Friend WithEvents TbFuncionarioTableAdapter As dbBibliotecaDataSetTableAdapters.tbFuncionarioTableAdapter + Friend WithEvents TbClienteBindingSource As BindingSource + Friend WithEvents TbClienteTableAdapter As dbBibliotecaDataSetTableAdapters.tbClienteTableAdapter + Friend WithEvents TbItemBindingSource As BindingSource + Friend WithEvents TbItemTableAdapter As dbBibliotecaDataSetTableAdapters.tbItemTableAdapter + Friend WithEvents StatusEmprestimoComboBox As ComboBox +End Class diff --git a/projetoBiblioteca05/Formulários/FEmprestimo.resx b/projetoBiblioteca05/Formulários/FEmprestimo.resx new file mode 100755 index 0000000..912433f --- /dev/null +++ b/projetoBiblioteca05/Formulários/FEmprestimo.resx @@ -0,0 +1,258 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 389, 17 + + + 593, 17 + + + 766, 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 + + + 427, 56 + + + 785, 56 + + + 17, 56 + + + 225, 56 + + + 427, 56 + + + 609, 56 + + + 785, 56 + + + 17, 95 + + + 252 + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FEmprestimo.vb b/projetoBiblioteca05/Formulários/FEmprestimo.vb new file mode 100755 index 0000000..00e9ff8 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FEmprestimo.vb @@ -0,0 +1,26 @@ +Public Class FEmprestimo + Private Sub TbEmprestimoBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbEmprestimoBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbEmprestimoBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FEmprestimo_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbItem'. Você pode movê-la ou removê-la conforme necessário. + Me.TbItemTableAdapter.Fill(Me.DbBibliotecaDataSet.tbItem) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbCliente'. Você pode movê-la ou removê-la conforme necessário. + Me.TbClienteTableAdapter.Fill(Me.DbBibliotecaDataSet.tbCliente) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbFuncionario'. Você pode movê-la ou removê-la conforme necessário. + Me.TbFuncionarioTableAdapter.Fill(Me.DbBibliotecaDataSet.tbFuncionario) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbItem'. Você pode movê-la ou removê-la conforme necessário. + Me.TbItemTableAdapter.Fill(Me.DbBibliotecaDataSet.tbItem) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbCliente'. Você pode movê-la ou removê-la conforme necessário. + Me.TbClienteTableAdapter.Fill(Me.DbBibliotecaDataSet.tbCliente) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbFuncionario'. Você pode movê-la ou removê-la conforme necessário. + Me.TbFuncionarioTableAdapter.Fill(Me.DbBibliotecaDataSet.tbFuncionario) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbEmprestimo'. Você pode movê-la ou removê-la conforme necessário. + Me.TbEmprestimoTableAdapter.Fill(Me.DbBibliotecaDataSet.tbEmprestimo) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FFunc.Designer.vb b/projetoBiblioteca05/Formulários/FFunc.Designer.vb new file mode 100755 index 0000000..e43c8bd --- /dev/null +++ b/projetoBiblioteca05/Formulários/FFunc.Designer.vb @@ -0,0 +1,540 @@ + +Partial Class FFunc + 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 Label1 As System.Windows.Forms.Label + Dim NomeClienteLabel As System.Windows.Forms.Label + Dim RgClienteLabel As System.Windows.Forms.Label + Dim CpfClienteLabel As System.Windows.Forms.Label + Dim TelClienteLabel As System.Windows.Forms.Label + Dim CelClienteLabel As System.Windows.Forms.Label + Dim RuaClienteLabel As System.Windows.Forms.Label + Dim NumeroClienteLabel As System.Windows.Forms.Label + Dim CidadeClienteLabel As System.Windows.Forms.Label + Dim StatusClienteLabel As System.Windows.Forms.Label + Dim UsuarioFuncLabel As System.Windows.Forms.Label + Dim SenhaFuncLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FFunc)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbFuncionarioBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbFuncionarioTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbFuncionarioTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbFuncionarioBindingNavigator = 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.TbFuncionarioBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.StatusEmprestimoComboBox = New System.Windows.Forms.ComboBox() + Me.IdFuncTextBox = New System.Windows.Forms.TextBox() + Me.NomeFuncTextBox = New System.Windows.Forms.TextBox() + Me.TelFuncMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.CelFuncMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.RuaFuncTextBox = New System.Windows.Forms.TextBox() + Me.NumeroFuncTextBox = New System.Windows.Forms.TextBox() + Me.CidadeFuncTextBox = New System.Windows.Forms.TextBox() + Me.UsuarioFuncTextBox = New System.Windows.Forms.TextBox() + Me.SenhaFuncTextBox = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.CpfFuncMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.RgFuncMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Label1 = New System.Windows.Forms.Label() + NomeClienteLabel = New System.Windows.Forms.Label() + RgClienteLabel = New System.Windows.Forms.Label() + CpfClienteLabel = New System.Windows.Forms.Label() + TelClienteLabel = New System.Windows.Forms.Label() + CelClienteLabel = New System.Windows.Forms.Label() + RuaClienteLabel = New System.Windows.Forms.Label() + NumeroClienteLabel = New System.Windows.Forms.Label() + CidadeClienteLabel = New System.Windows.Forms.Label() + StatusClienteLabel = New System.Windows.Forms.Label() + UsuarioFuncLabel = New System.Windows.Forms.Label() + SenhaFuncLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbFuncionarioBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbFuncionarioBindingNavigator.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Label1.AutoSize = True + Label1.Location = New System.Drawing.Point(17, 43) + Label1.Margin = New System.Windows.Forms.Padding(6, 0, 6, 0) + Label1.Name = "Label1" + Label1.Size = New System.Drawing.Size(18, 20) + Label1.TabIndex = 61 + Label1.Text = "#" + ' + 'NomeClienteLabel + ' + NomeClienteLabel.AutoSize = True + NomeClienteLabel.Location = New System.Drawing.Point(17, 83) + NomeClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + NomeClienteLabel.Name = "NomeClienteLabel" + NomeClienteLabel.Size = New System.Drawing.Size(55, 20) + NomeClienteLabel.TabIndex = 43 + NomeClienteLabel.Text = "Nome:" + ' + 'RgClienteLabel + ' + RgClienteLabel.AutoSize = True + RgClienteLabel.Location = New System.Drawing.Point(394, 83) + RgClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + RgClienteLabel.Name = "RgClienteLabel" + RgClienteLabel.Size = New System.Drawing.Size(38, 20) + RgClienteLabel.TabIndex = 45 + RgClienteLabel.Text = "RG:" + ' + 'CpfClienteLabel + ' + CpfClienteLabel.AutoSize = True + CpfClienteLabel.Location = New System.Drawing.Point(576, 83) + CpfClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + CpfClienteLabel.Name = "CpfClienteLabel" + CpfClienteLabel.Size = New System.Drawing.Size(44, 20) + CpfClienteLabel.TabIndex = 47 + CpfClienteLabel.Text = "CPF:" + ' + 'TelClienteLabel + ' + TelClienteLabel.AutoSize = True + TelClienteLabel.Location = New System.Drawing.Point(243, 119) + TelClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + TelClienteLabel.Name = "TelClienteLabel" + TelClienteLabel.Size = New System.Drawing.Size(75, 20) + TelClienteLabel.TabIndex = 49 + TelClienteLabel.Text = "Telefone:" + ' + 'CelClienteLabel + ' + CelClienteLabel.AutoSize = True + CelClienteLabel.Location = New System.Drawing.Point(17, 119) + CelClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + CelClienteLabel.Name = "CelClienteLabel" + CelClienteLabel.Size = New System.Drawing.Size(62, 20) + CelClienteLabel.TabIndex = 51 + CelClienteLabel.Text = "Celular:" + ' + 'RuaClienteLabel + ' + RuaClienteLabel.AutoSize = True + RuaClienteLabel.Location = New System.Drawing.Point(17, 158) + RuaClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + RuaClienteLabel.Name = "RuaClienteLabel" + RuaClienteLabel.Size = New System.Drawing.Size(43, 20) + RuaClienteLabel.TabIndex = 53 + RuaClienteLabel.Text = "Rua:" + ' + 'NumeroClienteLabel + ' + NumeroClienteLabel.AutoSize = True + NumeroClienteLabel.Location = New System.Drawing.Point(674, 158) + NumeroClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + NumeroClienteLabel.Name = "NumeroClienteLabel" + NumeroClienteLabel.Size = New System.Drawing.Size(69, 20) + NumeroClienteLabel.TabIndex = 55 + NumeroClienteLabel.Text = "Número:" + ' + 'CidadeClienteLabel + ' + CidadeClienteLabel.AutoSize = True + CidadeClienteLabel.Location = New System.Drawing.Point(394, 158) + CidadeClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + CidadeClienteLabel.Name = "CidadeClienteLabel" + CidadeClienteLabel.Size = New System.Drawing.Size(63, 20) + CidadeClienteLabel.TabIndex = 57 + CidadeClienteLabel.Text = "Cidade:" + ' + 'StatusClienteLabel + ' + StatusClienteLabel.AutoSize = True + StatusClienteLabel.Location = New System.Drawing.Point(17, 194) + StatusClienteLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + StatusClienteLabel.Name = "StatusClienteLabel" + StatusClienteLabel.Size = New System.Drawing.Size(60, 20) + StatusClienteLabel.TabIndex = 59 + StatusClienteLabel.Text = "Status:" + ' + 'UsuarioFuncLabel + ' + UsuarioFuncLabel.AutoSize = True + UsuarioFuncLabel.Location = New System.Drawing.Point(26, 28) + UsuarioFuncLabel.Name = "UsuarioFuncLabel" + UsuarioFuncLabel.Size = New System.Drawing.Size(68, 20) + UsuarioFuncLabel.TabIndex = 81 + UsuarioFuncLabel.Text = "Usuário:" + ' + 'SenhaFuncLabel + ' + SenhaFuncLabel.AutoSize = True + SenhaFuncLabel.Location = New System.Drawing.Point(28, 60) + SenhaFuncLabel.Name = "SenhaFuncLabel" + SenhaFuncLabel.Size = New System.Drawing.Size(60, 20) + SenhaFuncLabel.TabIndex = 83 + SenhaFuncLabel.Text = "Senha:" + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbFuncionarioBindingSource + ' + Me.TbFuncionarioBindingSource.DataMember = "tbFuncionario" + Me.TbFuncionarioBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbFuncionarioTableAdapter + ' + Me.TbFuncionarioTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Me.TbFuncionarioTableAdapter + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbFuncionarioBindingNavigator + ' + Me.TbFuncionarioBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbFuncionarioBindingNavigator.BindingSource = Me.TbFuncionarioBindingSource + Me.TbFuncionarioBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbFuncionarioBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbFuncionarioBindingNavigator.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.TbFuncionarioBindingNavigatorSaveItem}) + Me.TbFuncionarioBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbFuncionarioBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbFuncionarioBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbFuncionarioBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbFuncionarioBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbFuncionarioBindingNavigator.Name = "TbFuncionarioBindingNavigator" + Me.TbFuncionarioBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbFuncionarioBindingNavigator.Size = New System.Drawing.Size(824, 25) + Me.TbFuncionarioBindingNavigator.TabIndex = 41 + Me.TbFuncionarioBindingNavigator.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) + ' + 'TbFuncionarioBindingNavigatorSaveItem + ' + Me.TbFuncionarioBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbFuncionarioBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbFuncionarioBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbFuncionarioBindingNavigatorSaveItem.Name = "TbFuncionarioBindingNavigatorSaveItem" + Me.TbFuncionarioBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TbFuncionarioBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'StatusEmprestimoComboBox + ' + Me.StatusEmprestimoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbFuncionarioBindingSource, "statusFunc", True)) + Me.StatusEmprestimoComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "statusFunc", True)) + Me.StatusEmprestimoComboBox.FormattingEnabled = True + Me.StatusEmprestimoComboBox.Items.AddRange(New Object() {"ATIVO", "DESATIVADO"}) + Me.StatusEmprestimoComboBox.Location = New System.Drawing.Point(79, 191) + Me.StatusEmprestimoComboBox.Margin = New System.Windows.Forms.Padding(6, 8, 6, 8) + Me.StatusEmprestimoComboBox.Name = "StatusEmprestimoComboBox" + Me.StatusEmprestimoComboBox.Size = New System.Drawing.Size(154, 28) + Me.StatusEmprestimoComboBox.TabIndex = 60 + ' + 'IdFuncTextBox + ' + Me.IdFuncTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "idFunc", True)) + Me.IdFuncTextBox.Enabled = False + Me.IdFuncTextBox.Location = New System.Drawing.Point(44, 40) + Me.IdFuncTextBox.Name = "IdFuncTextBox" + Me.IdFuncTextBox.Size = New System.Drawing.Size(35, 26) + Me.IdFuncTextBox.TabIndex = 62 + ' + 'NomeFuncTextBox + ' + Me.NomeFuncTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "nomeFunc", True)) + Me.NomeFuncTextBox.Location = New System.Drawing.Point(79, 80) + Me.NomeFuncTextBox.Name = "NomeFuncTextBox" + Me.NomeFuncTextBox.Size = New System.Drawing.Size(308, 26) + Me.NomeFuncTextBox.TabIndex = 64 + ' + 'TelFuncMaskedTextBox + ' + Me.TelFuncMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "telFunc", True)) + Me.TelFuncMaskedTextBox.Location = New System.Drawing.Point(325, 116) + Me.TelFuncMaskedTextBox.Mask = "(##)####-####" + Me.TelFuncMaskedTextBox.Name = "TelFuncMaskedTextBox" + Me.TelFuncMaskedTextBox.Size = New System.Drawing.Size(132, 26) + Me.TelFuncMaskedTextBox.TabIndex = 70 + Me.TelFuncMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'CelFuncMaskedTextBox + ' + Me.CelFuncMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "celFunc", True)) + Me.CelFuncMaskedTextBox.Location = New System.Drawing.Point(79, 116) + Me.CelFuncMaskedTextBox.Mask = "(##)#####-####" + Me.CelFuncMaskedTextBox.Name = "CelFuncMaskedTextBox" + Me.CelFuncMaskedTextBox.Size = New System.Drawing.Size(154, 26) + Me.CelFuncMaskedTextBox.TabIndex = 72 + Me.CelFuncMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'RuaFuncTextBox + ' + Me.RuaFuncTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "ruaFunc", True)) + Me.RuaFuncTextBox.Location = New System.Drawing.Point(79, 155) + Me.RuaFuncTextBox.Name = "RuaFuncTextBox" + Me.RuaFuncTextBox.Size = New System.Drawing.Size(308, 26) + Me.RuaFuncTextBox.TabIndex = 74 + ' + 'NumeroFuncTextBox + ' + Me.NumeroFuncTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "numeroFunc", True)) + Me.NumeroFuncTextBox.Location = New System.Drawing.Point(750, 155) + Me.NumeroFuncTextBox.Name = "NumeroFuncTextBox" + Me.NumeroFuncTextBox.Size = New System.Drawing.Size(43, 26) + Me.NumeroFuncTextBox.TabIndex = 76 + ' + 'CidadeFuncTextBox + ' + Me.CidadeFuncTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "cidadeFunc", True)) + Me.CidadeFuncTextBox.Location = New System.Drawing.Point(464, 155) + Me.CidadeFuncTextBox.Name = "CidadeFuncTextBox" + Me.CidadeFuncTextBox.Size = New System.Drawing.Size(203, 26) + Me.CidadeFuncTextBox.TabIndex = 78 + ' + 'UsuarioFuncTextBox + ' + Me.UsuarioFuncTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "usuarioFunc", True)) + Me.UsuarioFuncTextBox.Location = New System.Drawing.Point(97, 25) + Me.UsuarioFuncTextBox.Name = "UsuarioFuncTextBox" + Me.UsuarioFuncTextBox.Size = New System.Drawing.Size(145, 26) + Me.UsuarioFuncTextBox.TabIndex = 82 + ' + 'SenhaFuncTextBox + ' + Me.SenhaFuncTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "senhaFunc", True)) + Me.SenhaFuncTextBox.Location = New System.Drawing.Point(97, 57) + Me.SenhaFuncTextBox.Name = "SenhaFuncTextBox" + Me.SenhaFuncTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.SenhaFuncTextBox.Size = New System.Drawing.Size(145, 26) + Me.SenhaFuncTextBox.TabIndex = 84 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.UsuarioFuncTextBox) + Me.GroupBox1.Controls.Add(Me.SenhaFuncTextBox) + Me.GroupBox1.Controls.Add(SenhaFuncLabel) + Me.GroupBox1.Controls.Add(UsuarioFuncLabel) + Me.GroupBox1.Location = New System.Drawing.Point(21, 230) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(277, 97) + Me.GroupBox1.TabIndex = 85 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Área Restrita" + ' + 'CpfFuncMaskedTextBox + ' + Me.CpfFuncMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "cpfFunc", True)) + Me.CpfFuncMaskedTextBox.Location = New System.Drawing.Point(627, 80) + Me.CpfFuncMaskedTextBox.Mask = "###,###,###-#" + Me.CpfFuncMaskedTextBox.Name = "CpfFuncMaskedTextBox" + Me.CpfFuncMaskedTextBox.Size = New System.Drawing.Size(116, 26) + Me.CpfFuncMaskedTextBox.TabIndex = 68 + Me.CpfFuncMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'RgFuncMaskedTextBox + ' + Me.RgFuncMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbFuncionarioBindingSource, "rgFunc", True)) + Me.RgFuncMaskedTextBox.Location = New System.Drawing.Point(439, 80) + Me.RgFuncMaskedTextBox.Mask = "##,###,###-#" + Me.RgFuncMaskedTextBox.Name = "RgFuncMaskedTextBox" + Me.RgFuncMaskedTextBox.Size = New System.Drawing.Size(130, 26) + Me.RgFuncMaskedTextBox.TabIndex = 66 + Me.RgFuncMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'FFunc + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(824, 336) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.IdFuncTextBox) + Me.Controls.Add(Me.NomeFuncTextBox) + Me.Controls.Add(Me.RgFuncMaskedTextBox) + Me.Controls.Add(Me.CpfFuncMaskedTextBox) + Me.Controls.Add(Me.TelFuncMaskedTextBox) + Me.Controls.Add(Me.CelFuncMaskedTextBox) + Me.Controls.Add(Me.RuaFuncTextBox) + Me.Controls.Add(Me.NumeroFuncTextBox) + Me.Controls.Add(Me.CidadeFuncTextBox) + Me.Controls.Add(Label1) + Me.Controls.Add(Me.StatusEmprestimoComboBox) + Me.Controls.Add(NomeClienteLabel) + Me.Controls.Add(RgClienteLabel) + Me.Controls.Add(CpfClienteLabel) + Me.Controls.Add(TelClienteLabel) + Me.Controls.Add(CelClienteLabel) + Me.Controls.Add(RuaClienteLabel) + Me.Controls.Add(NumeroClienteLabel) + Me.Controls.Add(CidadeClienteLabel) + Me.Controls.Add(StatusClienteLabel) + Me.Controls.Add(Me.TbFuncionarioBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FFunc" + Me.Text = "FFunc" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbFuncionarioBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbFuncionarioBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbFuncionarioBindingNavigator.ResumeLayout(False) + Me.TbFuncionarioBindingNavigator.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbFuncionarioBindingSource As BindingSource + Friend WithEvents TbFuncionarioTableAdapter As dbBibliotecaDataSetTableAdapters.tbFuncionarioTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbFuncionarioBindingNavigator 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 TbFuncionarioBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents StatusEmprestimoComboBox As ComboBox + Friend WithEvents IdFuncTextBox As TextBox + Friend WithEvents NomeFuncTextBox As TextBox + Friend WithEvents TelFuncMaskedTextBox As MaskedTextBox + Friend WithEvents CelFuncMaskedTextBox As MaskedTextBox + Friend WithEvents RuaFuncTextBox As TextBox + Friend WithEvents NumeroFuncTextBox As TextBox + Friend WithEvents CidadeFuncTextBox As TextBox + Friend WithEvents UsuarioFuncTextBox As TextBox + Friend WithEvents SenhaFuncTextBox As TextBox + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents CpfFuncMaskedTextBox As MaskedTextBox + Friend WithEvents RgFuncMaskedTextBox As MaskedTextBox +End Class diff --git a/projetoBiblioteca05/Formulários/FFunc.resx b/projetoBiblioteca05/Formulários/FFunc.resx new file mode 100755 index 0000000..fb0afa7 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FFunc.resx @@ -0,0 +1,243 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 180, 17 + + + 388, 17 + + + 590, 17 + + + 763, 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FFunc.vb b/projetoBiblioteca05/Formulários/FFunc.vb new file mode 100755 index 0000000..20d5581 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FFunc.vb @@ -0,0 +1,14 @@ +Public Class FFunc + Private Sub TbFuncionarioBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbFuncionarioBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbFuncionarioBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FFunc_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbFuncionario'. Você pode movê-la ou removê-la conforme necessário. + Me.TbFuncionarioTableAdapter.Fill(Me.DbBibliotecaDataSet.tbFuncionario) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FGenero.Designer.vb b/projetoBiblioteca05/Formulários/FGenero.Designer.vb new file mode 100755 index 0000000..bed3676 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FGenero.Designer.vb @@ -0,0 +1,278 @@ + _ +Partial Class FGenero + 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(FGenero)) + Dim IdGeneroLabel As System.Windows.Forms.Label + Dim NomeGeneroLabel As System.Windows.Forms.Label + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbGeneroBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbGeneroTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbGeneroTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbGeneroBindingNavigator = 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.TbGeneroBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdGeneroTextBox = New System.Windows.Forms.TextBox() + Me.NomeGeneroTextBox = New System.Windows.Forms.TextBox() + IdGeneroLabel = New System.Windows.Forms.Label() + NomeGeneroLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbGeneroBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbGeneroBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbGeneroBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbGeneroBindingSource + ' + Me.TbGeneroBindingSource.DataMember = "tbGenero" + Me.TbGeneroBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbGeneroTableAdapter + ' + Me.TbGeneroTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Me.TbGeneroTableAdapter + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbGeneroBindingNavigator + ' + Me.TbGeneroBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbGeneroBindingNavigator.BindingSource = Me.TbGeneroBindingSource + Me.TbGeneroBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbGeneroBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbGeneroBindingNavigator.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.TbGeneroBindingNavigatorSaveItem}) + Me.TbGeneroBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbGeneroBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbGeneroBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbGeneroBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbGeneroBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbGeneroBindingNavigator.Name = "TbGeneroBindingNavigator" + Me.TbGeneroBindingNavigator.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.TbGeneroBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbGeneroBindingNavigator.Size = New System.Drawing.Size(359, 25) + Me.TbGeneroBindingNavigator.TabIndex = 0 + Me.TbGeneroBindingNavigator.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" + ' + 'TbGeneroBindingNavigatorSaveItem + ' + Me.TbGeneroBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbGeneroBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbGeneroBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbGeneroBindingNavigatorSaveItem.Name = "TbGeneroBindingNavigatorSaveItem" + Me.TbGeneroBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.TbGeneroBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdGeneroLabel + ' + IdGeneroLabel.AutoSize = True + IdGeneroLabel.Location = New System.Drawing.Point(13, 41) + IdGeneroLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdGeneroLabel.Name = "IdGeneroLabel" + IdGeneroLabel.Size = New System.Drawing.Size(18, 20) + IdGeneroLabel.TabIndex = 1 + IdGeneroLabel.Text = "#" + ' + 'IdGeneroTextBox + ' + Me.IdGeneroTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbGeneroBindingSource, "idGenero", True)) + Me.IdGeneroTextBox.Enabled = False + Me.IdGeneroTextBox.Location = New System.Drawing.Point(39, 38) + Me.IdGeneroTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.IdGeneroTextBox.Name = "IdGeneroTextBox" + Me.IdGeneroTextBox.Size = New System.Drawing.Size(31, 26) + Me.IdGeneroTextBox.TabIndex = 2 + ' + 'NomeGeneroLabel + ' + NomeGeneroLabel.AutoSize = True + NomeGeneroLabel.Location = New System.Drawing.Point(13, 69) + NomeGeneroLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + NomeGeneroLabel.Name = "NomeGeneroLabel" + NomeGeneroLabel.Size = New System.Drawing.Size(67, 20) + NomeGeneroLabel.TabIndex = 3 + NomeGeneroLabel.Text = "Gênero:" + ' + 'NomeGeneroTextBox + ' + Me.NomeGeneroTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbGeneroBindingSource, "nomeGenero", True)) + Me.NomeGeneroTextBox.Location = New System.Drawing.Point(88, 66) + Me.NomeGeneroTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.NomeGeneroTextBox.Name = "NomeGeneroTextBox" + Me.NomeGeneroTextBox.Size = New System.Drawing.Size(212, 26) + Me.NomeGeneroTextBox.TabIndex = 4 + ' + 'FGenero + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(359, 110) + Me.Controls.Add(IdGeneroLabel) + Me.Controls.Add(Me.IdGeneroTextBox) + Me.Controls.Add(NomeGeneroLabel) + Me.Controls.Add(Me.NomeGeneroTextBox) + Me.Controls.Add(Me.TbGeneroBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FGenero" + Me.Text = "FGenero" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbGeneroBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbGeneroBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbGeneroBindingNavigator.ResumeLayout(False) + Me.TbGeneroBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbGeneroBindingSource As BindingSource + Friend WithEvents TbGeneroTableAdapter As dbBibliotecaDataSetTableAdapters.tbGeneroTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbGeneroBindingNavigator 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 TbGeneroBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdGeneroTextBox As TextBox + Friend WithEvents NomeGeneroTextBox As TextBox +End Class diff --git a/projetoBiblioteca05/Formulários/FGenero.resx b/projetoBiblioteca05/Formulários/FGenero.resx new file mode 100755 index 0000000..e2778a5 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FGenero.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 364, 17 + + + 542, 17 + + + 715, 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 + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FGenero.vb b/projetoBiblioteca05/Formulários/FGenero.vb new file mode 100755 index 0000000..b739ed7 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FGenero.vb @@ -0,0 +1,14 @@ +Public Class FGenero + Private Sub TbGeneroBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbGeneroBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbGeneroBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FGenero_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbGenero'. Você pode movê-la ou removê-la conforme necessário. + Me.TbGeneroTableAdapter.Fill(Me.DbBibliotecaDataSet.tbGenero) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FItem.Designer.vb b/projetoBiblioteca05/Formulários/FItem.Designer.vb new file mode 100755 index 0000000..d00fb54 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FItem.Designer.vb @@ -0,0 +1,502 @@ + _ +Partial Class FItem + 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 IdItemLabel As System.Windows.Forms.Label + Dim NomeItemLabel As System.Windows.Forms.Label + Dim IdAutorLabel As System.Windows.Forms.Label + Dim GeneroItemLabel As System.Windows.Forms.Label + Dim TipoItemLabel As System.Windows.Forms.Label + Dim IsbnItemLabel As System.Windows.Forms.Label + Dim StatusItemLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FItem)) + Dim EditoraItemLabel As System.Windows.Forms.Label + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbItemBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbItemTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbItemTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbItemBindingNavigator = 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.TbItemBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdItemTextBox = New System.Windows.Forms.TextBox() + Me.NomeItemTextBox = New System.Windows.Forms.TextBox() + Me.IsbnItemMaskedTextBox = New System.Windows.Forms.MaskedTextBox() + Me.IdAutorComboBox = New System.Windows.Forms.ComboBox() + Me.StatusItemComboBox = New System.Windows.Forms.ComboBox() + Me.TipoItemComboBox = New System.Windows.Forms.ComboBox() + Me.EditoraItemComboBox = New System.Windows.Forms.ComboBox() + Me.TbAutorBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbAutorTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbAutorTableAdapter() + Me.TbTipoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbTipoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbTipoTableAdapter() + Me.TbEditoraBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbEditoraTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbEditoraTableAdapter() + Me.GeneroItemComboBox = New System.Windows.Forms.ComboBox() + Me.TbGeneroBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbGeneroTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbGeneroTableAdapter() + IdItemLabel = New System.Windows.Forms.Label() + NomeItemLabel = New System.Windows.Forms.Label() + IdAutorLabel = New System.Windows.Forms.Label() + GeneroItemLabel = New System.Windows.Forms.Label() + TipoItemLabel = New System.Windows.Forms.Label() + IsbnItemLabel = New System.Windows.Forms.Label() + StatusItemLabel = New System.Windows.Forms.Label() + EditoraItemLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbItemBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbItemBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbItemBindingNavigator.SuspendLayout() + CType(Me.TbAutorBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbTipoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbEditoraBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbGeneroBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'IdItemLabel + ' + IdItemLabel.AutoSize = True + IdItemLabel.Location = New System.Drawing.Point(38, 48) + IdItemLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdItemLabel.Name = "IdItemLabel" + IdItemLabel.Size = New System.Drawing.Size(18, 20) + IdItemLabel.TabIndex = 1 + IdItemLabel.Text = "#" + ' + 'NomeItemLabel + ' + NomeItemLabel.AutoSize = True + NomeItemLabel.Location = New System.Drawing.Point(38, 88) + NomeItemLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + NomeItemLabel.Name = "NomeItemLabel" + NomeItemLabel.Size = New System.Drawing.Size(45, 20) + NomeItemLabel.TabIndex = 3 + NomeItemLabel.Text = "Item:" + ' + 'IdAutorLabel + ' + IdAutorLabel.AutoSize = True + IdAutorLabel.Location = New System.Drawing.Point(340, 88) + IdAutorLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdAutorLabel.Name = "IdAutorLabel" + IdAutorLabel.Size = New System.Drawing.Size(52, 20) + IdAutorLabel.TabIndex = 5 + IdAutorLabel.Text = "Autor:" + ' + 'GeneroItemLabel + ' + GeneroItemLabel.AutoSize = True + GeneroItemLabel.Location = New System.Drawing.Point(38, 122) + GeneroItemLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + GeneroItemLabel.Name = "GeneroItemLabel" + GeneroItemLabel.Size = New System.Drawing.Size(67, 20) + GeneroItemLabel.TabIndex = 7 + GeneroItemLabel.Text = "Gênero:" + ' + 'TipoItemLabel + ' + TipoItemLabel.AutoSize = True + TipoItemLabel.Location = New System.Drawing.Point(340, 122) + TipoItemLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + TipoItemLabel.Name = "TipoItemLabel" + TipoItemLabel.Size = New System.Drawing.Size(43, 20) + TipoItemLabel.TabIndex = 9 + TipoItemLabel.Text = "Tipo:" + ' + 'IsbnItemLabel + ' + IsbnItemLabel.AutoSize = True + IsbnItemLabel.Location = New System.Drawing.Point(38, 158) + IsbnItemLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IsbnItemLabel.Name = "IsbnItemLabel" + IsbnItemLabel.Size = New System.Drawing.Size(51, 20) + IsbnItemLabel.TabIndex = 11 + IsbnItemLabel.Text = "ISBN:" + ' + 'StatusItemLabel + ' + StatusItemLabel.AutoSize = True + StatusItemLabel.Location = New System.Drawing.Point(38, 197) + StatusItemLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + StatusItemLabel.Name = "StatusItemLabel" + StatusItemLabel.Size = New System.Drawing.Size(60, 20) + StatusItemLabel.TabIndex = 13 + StatusItemLabel.Text = "Status:" + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbItemBindingSource + ' + Me.TbItemBindingSource.DataMember = "tbItem" + Me.TbItemBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbItemTableAdapter + ' + Me.TbItemTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Me.TbItemTableAdapter + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbItemBindingNavigator + ' + Me.TbItemBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbItemBindingNavigator.BindingSource = Me.TbItemBindingSource + Me.TbItemBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbItemBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbItemBindingNavigator.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.TbItemBindingNavigatorSaveItem}) + Me.TbItemBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbItemBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbItemBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbItemBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbItemBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbItemBindingNavigator.Name = "TbItemBindingNavigator" + Me.TbItemBindingNavigator.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.TbItemBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbItemBindingNavigator.Size = New System.Drawing.Size(569, 25) + Me.TbItemBindingNavigator.TabIndex = 0 + Me.TbItemBindingNavigator.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(73, 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) + ' + 'TbItemBindingNavigatorSaveItem + ' + Me.TbItemBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbItemBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbItemBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbItemBindingNavigatorSaveItem.Name = "TbItemBindingNavigatorSaveItem" + Me.TbItemBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TbItemBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdItemTextBox + ' + Me.IdItemTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbItemBindingSource, "idItem", True)) + Me.IdItemTextBox.Enabled = False + Me.IdItemTextBox.Location = New System.Drawing.Point(64, 45) + Me.IdItemTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.IdItemTextBox.Name = "IdItemTextBox" + Me.IdItemTextBox.Size = New System.Drawing.Size(42, 26) + Me.IdItemTextBox.TabIndex = 2 + ' + 'NomeItemTextBox + ' + Me.NomeItemTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbItemBindingSource, "nomeItem", True)) + Me.NomeItemTextBox.Location = New System.Drawing.Point(113, 85) + Me.NomeItemTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.NomeItemTextBox.Name = "NomeItemTextBox" + Me.NomeItemTextBox.Size = New System.Drawing.Size(152, 26) + Me.NomeItemTextBox.TabIndex = 4 + ' + 'IsbnItemMaskedTextBox + ' + Me.IsbnItemMaskedTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbItemBindingSource, "isbnItem", True)) + Me.IsbnItemMaskedTextBox.Location = New System.Drawing.Point(113, 155) + Me.IsbnItemMaskedTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.IsbnItemMaskedTextBox.Mask = "###-##-###-####-#" + Me.IsbnItemMaskedTextBox.Name = "IsbnItemMaskedTextBox" + Me.IsbnItemMaskedTextBox.Size = New System.Drawing.Size(152, 26) + Me.IsbnItemMaskedTextBox.TabIndex = 12 + Me.IsbnItemMaskedTextBox.TextMaskFormat = System.Windows.Forms.MaskFormat.ExcludePromptAndLiterals + ' + 'IdAutorComboBox + ' + Me.IdAutorComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbItemBindingSource, "idAutor", True)) + Me.IdAutorComboBox.DataSource = Me.TbAutorBindingSource + Me.IdAutorComboBox.DisplayMember = "nomeAutor" + Me.IdAutorComboBox.FormattingEnabled = True + Me.IdAutorComboBox.Location = New System.Drawing.Point(399, 85) + Me.IdAutorComboBox.Name = "IdAutorComboBox" + Me.IdAutorComboBox.Size = New System.Drawing.Size(152, 28) + Me.IdAutorComboBox.TabIndex = 65 + Me.IdAutorComboBox.ValueMember = "idAutor" + ' + 'EditoraItemLabel + ' + EditoraItemLabel.AutoSize = True + EditoraItemLabel.Location = New System.Drawing.Point(328, 155) + EditoraItemLabel.Name = "EditoraItemLabel" + EditoraItemLabel.Size = New System.Drawing.Size(64, 20) + EditoraItemLabel.TabIndex = 65 + EditoraItemLabel.Text = "Editora:" + ' + 'StatusItemComboBox + ' + Me.StatusItemComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedItem", Me.TbItemBindingSource, "statusItem", True)) + Me.StatusItemComboBox.FormattingEnabled = True + Me.StatusItemComboBox.Items.AddRange(New Object() {"ATIVO", "DESATIVADO"}) + Me.StatusItemComboBox.Location = New System.Drawing.Point(113, 194) + Me.StatusItemComboBox.Name = "StatusItemComboBox" + Me.StatusItemComboBox.Size = New System.Drawing.Size(152, 28) + Me.StatusItemComboBox.TabIndex = 66 + ' + 'TipoItemComboBox + ' + Me.TipoItemComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbItemBindingSource, "tipoItem", True)) + Me.TipoItemComboBox.DataSource = Me.TbTipoBindingSource + Me.TipoItemComboBox.DisplayMember = "nomeTipo" + Me.TipoItemComboBox.FormattingEnabled = True + Me.TipoItemComboBox.Location = New System.Drawing.Point(399, 119) + Me.TipoItemComboBox.Name = "TipoItemComboBox" + Me.TipoItemComboBox.Size = New System.Drawing.Size(152, 28) + Me.TipoItemComboBox.TabIndex = 67 + Me.TipoItemComboBox.ValueMember = "idTipo" + ' + 'EditoraItemComboBox + ' + Me.EditoraItemComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbItemBindingSource, "editoraItem", True)) + Me.EditoraItemComboBox.DataSource = Me.TbEditoraBindingSource + Me.EditoraItemComboBox.DisplayMember = "nomeEditora" + Me.EditoraItemComboBox.FormattingEnabled = True + Me.EditoraItemComboBox.Location = New System.Drawing.Point(399, 155) + Me.EditoraItemComboBox.Name = "EditoraItemComboBox" + Me.EditoraItemComboBox.Size = New System.Drawing.Size(152, 28) + Me.EditoraItemComboBox.TabIndex = 68 + Me.EditoraItemComboBox.ValueMember = "idEditora" + ' + 'TbAutorBindingSource + ' + Me.TbAutorBindingSource.DataMember = "tbAutor" + Me.TbAutorBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbAutorTableAdapter + ' + Me.TbAutorTableAdapter.ClearBeforeFill = True + ' + 'TbTipoBindingSource + ' + Me.TbTipoBindingSource.DataMember = "tbTipo" + Me.TbTipoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbTipoTableAdapter + ' + Me.TbTipoTableAdapter.ClearBeforeFill = True + ' + 'TbEditoraBindingSource + ' + Me.TbEditoraBindingSource.DataMember = "tbEditora" + Me.TbEditoraBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbEditoraTableAdapter + ' + Me.TbEditoraTableAdapter.ClearBeforeFill = True + ' + 'GeneroItemComboBox + ' + Me.GeneroItemComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TbItemBindingSource, "generoItem", True)) + Me.GeneroItemComboBox.DataSource = Me.TbGeneroBindingSource + Me.GeneroItemComboBox.DisplayMember = "nomeGenero" + Me.GeneroItemComboBox.FormattingEnabled = True + Me.GeneroItemComboBox.Location = New System.Drawing.Point(113, 119) + Me.GeneroItemComboBox.Name = "GeneroItemComboBox" + Me.GeneroItemComboBox.Size = New System.Drawing.Size(152, 28) + Me.GeneroItemComboBox.TabIndex = 69 + Me.GeneroItemComboBox.ValueMember = "idGenero" + ' + 'TbGeneroBindingSource + ' + Me.TbGeneroBindingSource.DataMember = "tbGenero" + Me.TbGeneroBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbGeneroTableAdapter + ' + Me.TbGeneroTableAdapter.ClearBeforeFill = True + ' + 'FItem + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(569, 245) + Me.Controls.Add(Me.GeneroItemComboBox) + Me.Controls.Add(Me.EditoraItemComboBox) + Me.Controls.Add(Me.TipoItemComboBox) + Me.Controls.Add(Me.StatusItemComboBox) + Me.Controls.Add(EditoraItemLabel) + Me.Controls.Add(Me.IdAutorComboBox) + Me.Controls.Add(IdItemLabel) + Me.Controls.Add(Me.IdItemTextBox) + Me.Controls.Add(NomeItemLabel) + Me.Controls.Add(Me.NomeItemTextBox) + Me.Controls.Add(IdAutorLabel) + Me.Controls.Add(GeneroItemLabel) + Me.Controls.Add(TipoItemLabel) + Me.Controls.Add(IsbnItemLabel) + Me.Controls.Add(Me.IsbnItemMaskedTextBox) + Me.Controls.Add(StatusItemLabel) + Me.Controls.Add(Me.TbItemBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FItem" + Me.Text = "FLivro" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbItemBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbItemBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbItemBindingNavigator.ResumeLayout(False) + Me.TbItemBindingNavigator.PerformLayout() + CType(Me.TbAutorBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbTipoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbEditoraBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbGeneroBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbItemBindingSource As BindingSource + Friend WithEvents TbItemTableAdapter As dbBibliotecaDataSetTableAdapters.tbItemTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbItemBindingNavigator 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 TbItemBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdItemTextBox As TextBox + Friend WithEvents NomeItemTextBox As TextBox + Friend WithEvents IsbnItemMaskedTextBox As MaskedTextBox + Friend WithEvents IdAutorComboBox As ComboBox + Friend WithEvents StatusItemComboBox As ComboBox + Friend WithEvents TipoItemComboBox As ComboBox + Friend WithEvents EditoraItemComboBox As ComboBox + Friend WithEvents TbAutorBindingSource As BindingSource + Friend WithEvents TbAutorTableAdapter As dbBibliotecaDataSetTableAdapters.tbAutorTableAdapter + Friend WithEvents TbTipoBindingSource As BindingSource + Friend WithEvents TbTipoTableAdapter As dbBibliotecaDataSetTableAdapters.tbTipoTableAdapter + Friend WithEvents TbEditoraBindingSource As BindingSource + Friend WithEvents TbEditoraTableAdapter As dbBibliotecaDataSetTableAdapters.tbEditoraTableAdapter + Friend WithEvents GeneroItemComboBox As ComboBox + Friend WithEvents TbGeneroBindingSource As BindingSource + Friend WithEvents TbGeneroTableAdapter As dbBibliotecaDataSetTableAdapters.tbGeneroTableAdapter +End Class diff --git a/projetoBiblioteca05/Formulários/FItem.resx b/projetoBiblioteca05/Formulários/FItem.resx new file mode 100755 index 0000000..62180c2 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FItem.resx @@ -0,0 +1,267 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 349, 17 + + + 512, 17 + + + 685, 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= + + + + 379, 95 + + + False + + + 723, 95 + + + 179, 134 + + + 379, 95 + + + 554, 95 + + + 723, 95 + + + 17, 134 + + + 179, 134 + + + 362, 134 + + + 539, 134 + + + 723, 134 + + + 142 + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FItem.vb b/projetoBiblioteca05/Formulários/FItem.vb new file mode 100755 index 0000000..11ac1d6 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FItem.vb @@ -0,0 +1,28 @@ +Public Class FItem + Private Sub TbItemBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbItemBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbItemBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FItem_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbGenero'. Você pode movê-la ou removê-la conforme necessário. + Me.TbGeneroTableAdapter.Fill(Me.DbBibliotecaDataSet.tbGenero) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbGenero'. Você pode movê-la ou removê-la conforme necessário. + Me.TbGeneroTableAdapter.Fill(Me.DbBibliotecaDataSet.tbGenero) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbEditora'. Você pode movê-la ou removê-la conforme necessário. + Me.TbEditoraTableAdapter.Fill(Me.DbBibliotecaDataSet.tbEditora) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbTipo'. Você pode movê-la ou removê-la conforme necessário. + Me.TbTipoTableAdapter.Fill(Me.DbBibliotecaDataSet.tbTipo) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbAutor'. Você pode movê-la ou removê-la conforme necessário. + Me.TbAutorTableAdapter.Fill(Me.DbBibliotecaDataSet.tbAutor) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbItem'. Você pode movê-la ou removê-la conforme necessário. + Me.TbItemTableAdapter.Fill(Me.DbBibliotecaDataSet.tbItem) + + End Sub + + Private Sub GeneroItemComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FTipo.Designer.vb b/projetoBiblioteca05/Formulários/FTipo.Designer.vb new file mode 100755 index 0000000..1c1da55 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FTipo.Designer.vb @@ -0,0 +1,278 @@ + _ +Partial Class FTipo + 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(FTipo)) + Dim IdTipoLabel As System.Windows.Forms.Label + Dim NomeTipoLabel As System.Windows.Forms.Label + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.TbTipoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TbTipoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.tbTipoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.TbTipoBindingNavigator = 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.TbTipoBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.IdTipoTextBox = New System.Windows.Forms.TextBox() + Me.NomeTipoTextBox = New System.Windows.Forms.TextBox() + IdTipoLabel = New System.Windows.Forms.Label() + NomeTipoLabel = New System.Windows.Forms.Label() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbTipoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TbTipoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TbTipoBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TbTipoBindingSource + ' + Me.TbTipoBindingSource.DataMember = "tbTipo" + Me.TbTipoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'TbTipoTableAdapter + ' + Me.TbTipoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Me.TbTipoTableAdapter + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TbTipoBindingNavigator + ' + Me.TbTipoBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TbTipoBindingNavigator.BindingSource = Me.TbTipoBindingSource + Me.TbTipoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TbTipoBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TbTipoBindingNavigator.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.TbTipoBindingNavigatorSaveItem}) + Me.TbTipoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TbTipoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TbTipoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TbTipoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TbTipoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TbTipoBindingNavigator.Name = "TbTipoBindingNavigator" + Me.TbTipoBindingNavigator.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.TbTipoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TbTipoBindingNavigator.Size = New System.Drawing.Size(304, 25) + Me.TbTipoBindingNavigator.TabIndex = 0 + Me.TbTipoBindingNavigator.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" + ' + 'TbTipoBindingNavigatorSaveItem + ' + Me.TbTipoBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TbTipoBindingNavigatorSaveItem.Image = CType(resources.GetObject("TbTipoBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TbTipoBindingNavigatorSaveItem.Name = "TbTipoBindingNavigatorSaveItem" + Me.TbTipoBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 23) + Me.TbTipoBindingNavigatorSaveItem.Text = "Salvar Dados" + ' + 'IdTipoLabel + ' + IdTipoLabel.AutoSize = True + IdTipoLabel.Location = New System.Drawing.Point(13, 46) + IdTipoLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + IdTipoLabel.Name = "IdTipoLabel" + IdTipoLabel.Size = New System.Drawing.Size(18, 20) + IdTipoLabel.TabIndex = 1 + IdTipoLabel.Text = "#" + ' + 'IdTipoTextBox + ' + Me.IdTipoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbTipoBindingSource, "idTipo", True)) + Me.IdTipoTextBox.Enabled = False + Me.IdTipoTextBox.Location = New System.Drawing.Point(39, 43) + Me.IdTipoTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.IdTipoTextBox.Name = "IdTipoTextBox" + Me.IdTipoTextBox.Size = New System.Drawing.Size(34, 26) + Me.IdTipoTextBox.TabIndex = 2 + ' + 'NomeTipoLabel + ' + NomeTipoLabel.AutoSize = True + NomeTipoLabel.Location = New System.Drawing.Point(13, 83) + NomeTipoLabel.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + NomeTipoLabel.Name = "NomeTipoLabel" + NomeTipoLabel.Size = New System.Drawing.Size(43, 20) + NomeTipoLabel.TabIndex = 3 + NomeTipoLabel.Text = "Tipo:" + ' + 'NomeTipoTextBox + ' + Me.NomeTipoTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TbTipoBindingSource, "nomeTipo", True)) + Me.NomeTipoTextBox.Location = New System.Drawing.Point(64, 80) + Me.NomeTipoTextBox.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.NomeTipoTextBox.Name = "NomeTipoTextBox" + Me.NomeTipoTextBox.Size = New System.Drawing.Size(227, 26) + Me.NomeTipoTextBox.TabIndex = 4 + ' + 'FTipo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(304, 129) + Me.Controls.Add(IdTipoLabel) + Me.Controls.Add(Me.IdTipoTextBox) + Me.Controls.Add(NomeTipoLabel) + Me.Controls.Add(Me.NomeTipoTextBox) + Me.Controls.Add(Me.TbTipoBindingNavigator) + 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.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Name = "FTipo" + Me.Text = "FTipo" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbTipoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TbTipoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TbTipoBindingNavigator.ResumeLayout(False) + Me.TbTipoBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents TbTipoBindingSource As BindingSource + Friend WithEvents TbTipoTableAdapter As dbBibliotecaDataSetTableAdapters.tbTipoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents TbTipoBindingNavigator 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 TbTipoBindingNavigatorSaveItem As ToolStripButton + Friend WithEvents IdTipoTextBox As TextBox + Friend WithEvents NomeTipoTextBox As TextBox +End Class diff --git a/projetoBiblioteca05/Formulários/FTipo.resx b/projetoBiblioteca05/Formulários/FTipo.resx new file mode 100755 index 0000000..fb36b1c --- /dev/null +++ b/projetoBiblioteca05/Formulários/FTipo.resx @@ -0,0 +1,214 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 348, 17 + + + 510, 17 + + + 683, 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 + + \ No newline at end of file diff --git a/projetoBiblioteca05/Formulários/FTipo.vb b/projetoBiblioteca05/Formulários/FTipo.vb new file mode 100755 index 0000000..f900db0 --- /dev/null +++ b/projetoBiblioteca05/Formulários/FTipo.vb @@ -0,0 +1,23 @@ +Public Class FTipo + Private Sub TbTipoBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TbTipoBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub + + Private Sub FTipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbTipo'. Você pode movê-la ou removê-la conforme necessário. + Me.TbTipoTableAdapter.Fill(Me.DbBibliotecaDataSet.tbTipo) + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.tbTipo'. Você pode movê-la ou removê-la conforme necessário. + Me.TbTipoTableAdapter.Fill(Me.DbBibliotecaDataSet.tbTipo) + + End Sub + + Private Sub TbTipoBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles TbTipoBindingNavigatorSaveItem.Click + Me.Validate() + Me.TbTipoBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DbBibliotecaDataSet) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/My Project/Application.Designer.vb b/projetoBiblioteca05/My Project/Application.Designer.vb new file mode 100755 index 0000000..26e9f94 --- /dev/null +++ b/projetoBiblioteca05/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.projetoBiblioteca05.FLogin + End Sub + End Class +End Namespace diff --git a/projetoBiblioteca05/My Project/Application.myapp b/projetoBiblioteca05/My Project/Application.myapp new file mode 100755 index 0000000..3fbf6b7 --- /dev/null +++ b/projetoBiblioteca05/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + FLogin + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/projetoBiblioteca05/My Project/AssemblyInfo.vb b/projetoBiblioteca05/My Project/AssemblyInfo.vb new file mode 100755 index 0000000..d8b3fef --- /dev/null +++ b/projetoBiblioteca05/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/projetoBiblioteca05/My Project/Resources.Designer.vb b/projetoBiblioteca05/My Project/Resources.Designer.vb new file mode 100755 index 0000000..cba7da8 --- /dev/null +++ b/projetoBiblioteca05/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("projetoBiblioteca05.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/projetoBiblioteca05/My Project/Resources.resx b/projetoBiblioteca05/My Project/Resources.resx new file mode 100755 index 0000000..ffecec8 --- /dev/null +++ b/projetoBiblioteca05/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/projetoBiblioteca05/My Project/Settings.Designer.vb b/projetoBiblioteca05/My Project/Settings.Designer.vb new file mode 100755 index 0000000..9b9f4cb --- /dev/null +++ b/projetoBiblioteca05/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 dbBibliotecaConnectionString() As String + Get + Return CType(Me("dbBibliotecaConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.projetoBiblioteca05.My.MySettings + Get + Return Global.projetoBiblioteca05.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/projetoBiblioteca05/My Project/Settings.settings b/projetoBiblioteca05/My Project/Settings.settings new file mode 100755 index 0000000..17469d9 --- /dev/null +++ b/projetoBiblioteca05/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|\dbBiblioteca.accdb</ConnectionString> + <ProviderName>System.Data.OleDb</ProviderName> +</SerializableConnectionString> + Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\dbBiblioteca.accdb + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rClientAtivo.Designer.vb b/projetoBiblioteca05/Relatórios/rClientAtivo.Designer.vb new file mode 100755 index 0000000..56a3eec --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rClientAtivo.Designer.vb @@ -0,0 +1,294 @@ + _ +Partial Class rClientAtivo + 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(rClientAtivo)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.RClienteAtivoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RClienteAtivoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rClienteAtivoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.RClienteAtivoBindingNavigator = 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.RClienteAtivoDataGridView = 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.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() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RClienteAtivoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RClienteAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.RClienteAtivoBindingNavigator.SuspendLayout() + CType(Me.RClienteAtivoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RClienteAtivoBindingSource + ' + Me.RClienteAtivoBindingSource.DataMember = "rClienteAtivo" + Me.RClienteAtivoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'RClienteAtivoTableAdapter + ' + Me.RClienteAtivoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RClienteAtivoBindingNavigator + ' + Me.RClienteAtivoBindingNavigator.AddNewItem = Nothing + Me.RClienteAtivoBindingNavigator.BindingSource = Me.RClienteAtivoBindingSource + Me.RClienteAtivoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.RClienteAtivoBindingNavigator.DeleteItem = Nothing + Me.RClienteAtivoBindingNavigator.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.RClienteAtivoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.RClienteAtivoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.RClienteAtivoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.RClienteAtivoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.RClienteAtivoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.RClienteAtivoBindingNavigator.Name = "RClienteAtivoBindingNavigator" + Me.RClienteAtivoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.RClienteAtivoBindingNavigator.Size = New System.Drawing.Size(983, 25) + Me.RClienteAtivoBindingNavigator.TabIndex = 0 + Me.RClienteAtivoBindingNavigator.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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'RClienteAtivoDataGridView + ' + Me.RClienteAtivoDataGridView.AllowUserToAddRows = False + Me.RClienteAtivoDataGridView.AllowUserToDeleteRows = False + Me.RClienteAtivoDataGridView.AutoGenerateColumns = False + Me.RClienteAtivoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RClienteAtivoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) + Me.RClienteAtivoDataGridView.DataSource = Me.RClienteAtivoBindingSource + Me.RClienteAtivoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.RClienteAtivoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.RClienteAtivoDataGridView.Name = "RClienteAtivoDataGridView" + Me.RClienteAtivoDataGridView.ReadOnly = True + Me.RClienteAtivoDataGridView.Size = New System.Drawing.Size(983, 425) + Me.RClienteAtivoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeCliente" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeCliente" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "rgCliente" + Me.DataGridViewTextBoxColumn2.HeaderText = "rgCliente" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "cpfCliente" + Me.DataGridViewTextBoxColumn3.HeaderText = "cpfCliente" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "telCliente" + Me.DataGridViewTextBoxColumn4.HeaderText = "telCliente" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "celCliente" + Me.DataGridViewTextBoxColumn5.HeaderText = "celCliente" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "ruaCliente" + Me.DataGridViewTextBoxColumn6.HeaderText = "ruaCliente" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "numeroCliente" + Me.DataGridViewTextBoxColumn7.HeaderText = "numeroCliente" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "cidadeCliente" + Me.DataGridViewTextBoxColumn8.HeaderText = "cidadeCliente" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "statusCliente" + Me.DataGridViewTextBoxColumn9.HeaderText = "statusCliente" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'rClientAtivo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(983, 450) + Me.Controls.Add(Me.RClienteAtivoDataGridView) + Me.Controls.Add(Me.RClienteAtivoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rClientAtivo" + Me.Text = "rClientAtivo" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RClienteAtivoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RClienteAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.RClienteAtivoBindingNavigator.ResumeLayout(False) + Me.RClienteAtivoBindingNavigator.PerformLayout() + CType(Me.RClienteAtivoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents RClienteAtivoBindingSource As BindingSource + Friend WithEvents RClienteAtivoTableAdapter As dbBibliotecaDataSetTableAdapters.rClienteAtivoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents RClienteAtivoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 RClienteAtivoDataGridView 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 DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn +End Class diff --git a/projetoBiblioteca05/Relatórios/rClientAtivo.resx b/projetoBiblioteca05/Relatórios/rClientAtivo.resx new file mode 100755 index 0000000..87bf4e8 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rClientAtivo.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 384, 17 + + + 582, 17 + + + 755, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rClientAtivo.vb b/projetoBiblioteca05/Relatórios/rClientAtivo.vb new file mode 100755 index 0000000..06a54c4 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rClientAtivo.vb @@ -0,0 +1,7 @@ +Public Class rClientAtivo + Private Sub rClientAtivo_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rClienteAtivo'. Você pode movê-la ou removê-la conforme necessário. + Me.RClienteAtivoTableAdapter.Fill(Me.DbBibliotecaDataSet.rClienteAtivo) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rClientDesatv.Designer.vb b/projetoBiblioteca05/Relatórios/rClientDesatv.Designer.vb new file mode 100755 index 0000000..c53b827 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rClientDesatv.Designer.vb @@ -0,0 +1,294 @@ + _ +Partial Class rClientDesatv + 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(rClientDesatv)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.RClienteDesativadoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RClienteDesativadoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rClienteDesativadoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.RClienteDesativadoBindingNavigator = 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.RClienteDesativadoDataGridView = 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.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() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RClienteDesativadoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RClienteDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.RClienteDesativadoBindingNavigator.SuspendLayout() + CType(Me.RClienteDesativadoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RClienteDesativadoBindingSource + ' + Me.RClienteDesativadoBindingSource.DataMember = "rClienteDesativado" + Me.RClienteDesativadoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'RClienteDesativadoTableAdapter + ' + Me.RClienteDesativadoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RClienteDesativadoBindingNavigator + ' + Me.RClienteDesativadoBindingNavigator.AddNewItem = Nothing + Me.RClienteDesativadoBindingNavigator.BindingSource = Me.RClienteDesativadoBindingSource + Me.RClienteDesativadoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.RClienteDesativadoBindingNavigator.DeleteItem = Nothing + Me.RClienteDesativadoBindingNavigator.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.RClienteDesativadoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.RClienteDesativadoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.RClienteDesativadoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.RClienteDesativadoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.RClienteDesativadoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.RClienteDesativadoBindingNavigator.Name = "RClienteDesativadoBindingNavigator" + Me.RClienteDesativadoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.RClienteDesativadoBindingNavigator.Size = New System.Drawing.Size(974, 25) + Me.RClienteDesativadoBindingNavigator.TabIndex = 0 + Me.RClienteDesativadoBindingNavigator.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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'RClienteDesativadoDataGridView + ' + Me.RClienteDesativadoDataGridView.AllowUserToAddRows = False + Me.RClienteDesativadoDataGridView.AllowUserToDeleteRows = False + Me.RClienteDesativadoDataGridView.AutoGenerateColumns = False + Me.RClienteDesativadoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RClienteDesativadoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) + Me.RClienteDesativadoDataGridView.DataSource = Me.RClienteDesativadoBindingSource + Me.RClienteDesativadoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.RClienteDesativadoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.RClienteDesativadoDataGridView.Name = "RClienteDesativadoDataGridView" + Me.RClienteDesativadoDataGridView.ReadOnly = True + Me.RClienteDesativadoDataGridView.Size = New System.Drawing.Size(974, 425) + Me.RClienteDesativadoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeCliente" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeCliente" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "rgCliente" + Me.DataGridViewTextBoxColumn2.HeaderText = "rgCliente" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "cpfCliente" + Me.DataGridViewTextBoxColumn3.HeaderText = "cpfCliente" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "telCliente" + Me.DataGridViewTextBoxColumn4.HeaderText = "telCliente" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "celCliente" + Me.DataGridViewTextBoxColumn5.HeaderText = "celCliente" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "ruaCliente" + Me.DataGridViewTextBoxColumn6.HeaderText = "ruaCliente" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "numeroCliente" + Me.DataGridViewTextBoxColumn7.HeaderText = "numeroCliente" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "cidadeCliente" + Me.DataGridViewTextBoxColumn8.HeaderText = "cidadeCliente" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "statusCliente" + Me.DataGridViewTextBoxColumn9.HeaderText = "statusCliente" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'rClientDesatv + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(974, 450) + Me.Controls.Add(Me.RClienteDesativadoDataGridView) + Me.Controls.Add(Me.RClienteDesativadoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rClientDesatv" + Me.Text = "rClientDesatv" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RClienteDesativadoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RClienteDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.RClienteDesativadoBindingNavigator.ResumeLayout(False) + Me.RClienteDesativadoBindingNavigator.PerformLayout() + CType(Me.RClienteDesativadoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents RClienteDesativadoBindingSource As BindingSource + Friend WithEvents RClienteDesativadoTableAdapter As dbBibliotecaDataSetTableAdapters.rClienteDesativadoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents RClienteDesativadoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 RClienteDesativadoDataGridView 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 DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn +End Class diff --git a/projetoBiblioteca05/Relatórios/rClientDesatv.resx b/projetoBiblioteca05/Relatórios/rClientDesatv.resx new file mode 100755 index 0000000..0acc07d --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rClientDesatv.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 416, 17 + + + 646, 17 + + + 819, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rClientDesatv.vb b/projetoBiblioteca05/Relatórios/rClientDesatv.vb new file mode 100755 index 0000000..011d24a --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rClientDesatv.vb @@ -0,0 +1,7 @@ +Public Class rClientDesatv + Private Sub rClientDesatv_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rClienteDesativado'. Você pode movê-la ou removê-la conforme necessário. + Me.RClienteDesativadoTableAdapter.Fill(Me.DbBibliotecaDataSet.rClienteDesativado) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rEmpAtivo.Designer.vb b/projetoBiblioteca05/Relatórios/rEmpAtivo.Designer.vb new file mode 100755 index 0000000..ebc8ba1 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rEmpAtivo.Designer.vb @@ -0,0 +1,285 @@ + _ +Partial Class rEmpAtivo + 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(rEmpAtivo)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.REmprestimosAtivoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.REmprestimosAtivoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rEmprestimosAtivoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.REmprestimosAtivoBindingNavigator = 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.REmprestimosAtivoDataGridView = 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.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.REmprestimosAtivoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.REmprestimosAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.REmprestimosAtivoBindingNavigator.SuspendLayout() + CType(Me.REmprestimosAtivoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'REmprestimosAtivoBindingSource + ' + Me.REmprestimosAtivoBindingSource.DataMember = "rEmprestimosAtivo" + Me.REmprestimosAtivoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'REmprestimosAtivoTableAdapter + ' + Me.REmprestimosAtivoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'REmprestimosAtivoBindingNavigator + ' + Me.REmprestimosAtivoBindingNavigator.AddNewItem = Nothing + Me.REmprestimosAtivoBindingNavigator.BindingSource = Me.REmprestimosAtivoBindingSource + Me.REmprestimosAtivoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.REmprestimosAtivoBindingNavigator.DeleteItem = Nothing + Me.REmprestimosAtivoBindingNavigator.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.REmprestimosAtivoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.REmprestimosAtivoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.REmprestimosAtivoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.REmprestimosAtivoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.REmprestimosAtivoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.REmprestimosAtivoBindingNavigator.Name = "REmprestimosAtivoBindingNavigator" + Me.REmprestimosAtivoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.REmprestimosAtivoBindingNavigator.Size = New System.Drawing.Size(879, 25) + Me.REmprestimosAtivoBindingNavigator.TabIndex = 0 + Me.REmprestimosAtivoBindingNavigator.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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'REmprestimosAtivoDataGridView + ' + Me.REmprestimosAtivoDataGridView.AllowUserToAddRows = False + Me.REmprestimosAtivoDataGridView.AllowUserToDeleteRows = False + Me.REmprestimosAtivoDataGridView.AutoGenerateColumns = False + Me.REmprestimosAtivoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.REmprestimosAtivoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8}) + Me.REmprestimosAtivoDataGridView.DataSource = Me.REmprestimosAtivoBindingSource + Me.REmprestimosAtivoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.REmprestimosAtivoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.REmprestimosAtivoDataGridView.Name = "REmprestimosAtivoDataGridView" + Me.REmprestimosAtivoDataGridView.ReadOnly = True + Me.REmprestimosAtivoDataGridView.Size = New System.Drawing.Size(879, 425) + Me.REmprestimosAtivoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "idEmprestimo" + Me.DataGridViewTextBoxColumn1.HeaderText = "idEmprestimo" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "nomeFunc" + Me.DataGridViewTextBoxColumn2.HeaderText = "nomeFunc" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "nomeCliente" + Me.DataGridViewTextBoxColumn3.HeaderText = "nomeCliente" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "nomeItem" + Me.DataGridViewTextBoxColumn4.HeaderText = "nomeItem" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "nomeTipo" + Me.DataGridViewTextBoxColumn5.HeaderText = "nomeTipo" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "dataEmprestimo" + Me.DataGridViewTextBoxColumn6.HeaderText = "dataEmprestimo" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "dataDevolucao" + Me.DataGridViewTextBoxColumn7.HeaderText = "dataDevolucao" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "statusEmprestimo" + Me.DataGridViewTextBoxColumn8.HeaderText = "statusEmprestimo" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'rEmpAtivo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(879, 450) + Me.Controls.Add(Me.REmprestimosAtivoDataGridView) + Me.Controls.Add(Me.REmprestimosAtivoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rEmpAtivo" + Me.Text = "rEmpAtivo" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.REmprestimosAtivoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.REmprestimosAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.REmprestimosAtivoBindingNavigator.ResumeLayout(False) + Me.REmprestimosAtivoBindingNavigator.PerformLayout() + CType(Me.REmprestimosAtivoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents REmprestimosAtivoBindingSource As BindingSource + Friend WithEvents REmprestimosAtivoTableAdapter As dbBibliotecaDataSetTableAdapters.rEmprestimosAtivoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents REmprestimosAtivoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 REmprestimosAtivoDataGridView 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 DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn +End Class diff --git a/projetoBiblioteca05/Relatórios/rEmpAtivo.resx b/projetoBiblioteca05/Relatórios/rEmpAtivo.resx new file mode 100755 index 0000000..80349e3 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rEmpAtivo.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 417, 17 + + + 648, 17 + + + 821, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rEmpAtivo.vb b/projetoBiblioteca05/Relatórios/rEmpAtivo.vb new file mode 100755 index 0000000..5df8795 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rEmpAtivo.vb @@ -0,0 +1,7 @@ +Public Class rEmpAtivo + Private Sub rEmpAtivo_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rEmprestimosAtivo'. Você pode movê-la ou removê-la conforme necessário. + Me.REmprestimosAtivoTableAdapter.Fill(Me.DbBibliotecaDataSet.rEmprestimosAtivo) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rEmpDesatv.Designer.vb b/projetoBiblioteca05/Relatórios/rEmpDesatv.Designer.vb new file mode 100755 index 0000000..539e984 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rEmpDesatv.Designer.vb @@ -0,0 +1,285 @@ + _ +Partial Class rEmpDesatv + 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(rEmpDesatv)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.REmprestimosDesativadoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.REmprestimosDesativadoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rEmprestimosDesativadoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.REmprestimosDesativadoBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + 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.REmprestimosDesativadoDataGridView = 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.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.REmprestimosDesativadoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.REmprestimosDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.REmprestimosDesativadoBindingNavigator.SuspendLayout() + CType(Me.REmprestimosDesativadoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'REmprestimosDesativadoBindingSource + ' + Me.REmprestimosDesativadoBindingSource.DataMember = "rEmprestimosDesativado" + Me.REmprestimosDesativadoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'REmprestimosDesativadoTableAdapter + ' + Me.REmprestimosDesativadoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'REmprestimosDesativadoBindingNavigator + ' + Me.REmprestimosDesativadoBindingNavigator.AddNewItem = Nothing + Me.REmprestimosDesativadoBindingNavigator.BindingSource = Me.REmprestimosDesativadoBindingSource + Me.REmprestimosDesativadoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.REmprestimosDesativadoBindingNavigator.DeleteItem = Nothing + Me.REmprestimosDesativadoBindingNavigator.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.REmprestimosDesativadoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.REmprestimosDesativadoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.REmprestimosDesativadoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.REmprestimosDesativadoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.REmprestimosDesativadoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.REmprestimosDesativadoBindingNavigator.Name = "REmprestimosDesativadoBindingNavigator" + Me.REmprestimosDesativadoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.REmprestimosDesativadoBindingNavigator.Size = New System.Drawing.Size(873, 25) + Me.REmprestimosDesativadoBindingNavigator.TabIndex = 0 + Me.REmprestimosDesativadoBindingNavigator.Text = "BindingNavigator1" + ' + '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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'REmprestimosDesativadoDataGridView + ' + Me.REmprestimosDesativadoDataGridView.AllowUserToAddRows = False + Me.REmprestimosDesativadoDataGridView.AllowUserToDeleteRows = False + Me.REmprestimosDesativadoDataGridView.AutoGenerateColumns = False + Me.REmprestimosDesativadoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.REmprestimosDesativadoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8}) + Me.REmprestimosDesativadoDataGridView.DataSource = Me.REmprestimosDesativadoBindingSource + Me.REmprestimosDesativadoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.REmprestimosDesativadoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.REmprestimosDesativadoDataGridView.Name = "REmprestimosDesativadoDataGridView" + Me.REmprestimosDesativadoDataGridView.ReadOnly = True + Me.REmprestimosDesativadoDataGridView.Size = New System.Drawing.Size(873, 425) + Me.REmprestimosDesativadoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "idEmprestimo" + Me.DataGridViewTextBoxColumn1.HeaderText = "idEmprestimo" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "nomeFunc" + Me.DataGridViewTextBoxColumn2.HeaderText = "nomeFunc" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "nomeCliente" + Me.DataGridViewTextBoxColumn3.HeaderText = "nomeCliente" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "nomeItem" + Me.DataGridViewTextBoxColumn4.HeaderText = "nomeItem" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "nomeTipo" + Me.DataGridViewTextBoxColumn5.HeaderText = "nomeTipo" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "dataEmprestimo" + Me.DataGridViewTextBoxColumn6.HeaderText = "dataEmprestimo" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "dataDevolucao" + Me.DataGridViewTextBoxColumn7.HeaderText = "dataDevolucao" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "statusEmprestimo" + Me.DataGridViewTextBoxColumn8.HeaderText = "statusEmprestimo" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + '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" + ' + 'rEmpDesatv + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(873, 450) + Me.Controls.Add(Me.REmprestimosDesativadoDataGridView) + Me.Controls.Add(Me.REmprestimosDesativadoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rEmpDesatv" + Me.Text = "rEmpDesatv" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.REmprestimosDesativadoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.REmprestimosDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.REmprestimosDesativadoBindingNavigator.ResumeLayout(False) + Me.REmprestimosDesativadoBindingNavigator.PerformLayout() + CType(Me.REmprestimosDesativadoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents REmprestimosDesativadoBindingSource As BindingSource + Friend WithEvents REmprestimosDesativadoTableAdapter As dbBibliotecaDataSetTableAdapters.rEmprestimosDesativadoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents REmprestimosDesativadoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 REmprestimosDesativadoDataGridView 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 DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn + Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton +End Class diff --git a/projetoBiblioteca05/Relatórios/rEmpDesatv.resx b/projetoBiblioteca05/Relatórios/rEmpDesatv.resx new file mode 100755 index 0000000..3efae40 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rEmpDesatv.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 449, 17 + + + 712, 17 + + + 885, 17 + + + + + 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/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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rEmpDesatv.vb b/projetoBiblioteca05/Relatórios/rEmpDesatv.vb new file mode 100755 index 0000000..4ef06b9 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rEmpDesatv.vb @@ -0,0 +1,7 @@ +Public Class rEmpDesatv + Private Sub rEmpDesatv_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rEmprestimosDesativado'. Você pode movê-la ou removê-la conforme necessário. + Me.REmprestimosDesativadoTableAdapter.Fill(Me.DbBibliotecaDataSet.rEmprestimosDesativado) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rFuncAtivo.Designer.vb b/projetoBiblioteca05/Relatórios/rFuncAtivo.Designer.vb new file mode 100755 index 0000000..9907539 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rFuncAtivo.Designer.vb @@ -0,0 +1,312 @@ + _ +Partial Class rFuncAtivo + 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(rFuncAtivo)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.RFuncAtivoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RFuncAtivoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rFuncAtivoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.RFuncAtivoBindingNavigator = 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.RFuncAtivoDataGridView = 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.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.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RFuncAtivoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RFuncAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.RFuncAtivoBindingNavigator.SuspendLayout() + CType(Me.RFuncAtivoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RFuncAtivoBindingSource + ' + Me.RFuncAtivoBindingSource.DataMember = "rFuncAtivo" + Me.RFuncAtivoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'RFuncAtivoTableAdapter + ' + Me.RFuncAtivoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RFuncAtivoBindingNavigator + ' + Me.RFuncAtivoBindingNavigator.AddNewItem = Nothing + Me.RFuncAtivoBindingNavigator.BindingSource = Me.RFuncAtivoBindingSource + Me.RFuncAtivoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.RFuncAtivoBindingNavigator.DeleteItem = Nothing + Me.RFuncAtivoBindingNavigator.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.RFuncAtivoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.RFuncAtivoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.RFuncAtivoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.RFuncAtivoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.RFuncAtivoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.RFuncAtivoBindingNavigator.Name = "RFuncAtivoBindingNavigator" + Me.RFuncAtivoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.RFuncAtivoBindingNavigator.Size = New System.Drawing.Size(1166, 25) + Me.RFuncAtivoBindingNavigator.TabIndex = 0 + Me.RFuncAtivoBindingNavigator.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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'RFuncAtivoDataGridView + ' + Me.RFuncAtivoDataGridView.AllowUserToAddRows = False + Me.RFuncAtivoDataGridView.AllowUserToDeleteRows = False + Me.RFuncAtivoDataGridView.AutoGenerateColumns = False + Me.RFuncAtivoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RFuncAtivoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11}) + Me.RFuncAtivoDataGridView.DataSource = Me.RFuncAtivoBindingSource + Me.RFuncAtivoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.RFuncAtivoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.RFuncAtivoDataGridView.Name = "RFuncAtivoDataGridView" + Me.RFuncAtivoDataGridView.ReadOnly = True + Me.RFuncAtivoDataGridView.Size = New System.Drawing.Size(1166, 425) + Me.RFuncAtivoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeFunc" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeFunc" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "rgFunc" + Me.DataGridViewTextBoxColumn2.HeaderText = "rgFunc" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "cpfFunc" + Me.DataGridViewTextBoxColumn3.HeaderText = "cpfFunc" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "telFunc" + Me.DataGridViewTextBoxColumn4.HeaderText = "telFunc" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "celFunc" + Me.DataGridViewTextBoxColumn5.HeaderText = "celFunc" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "ruaFunc" + Me.DataGridViewTextBoxColumn6.HeaderText = "ruaFunc" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "numeroFunc" + Me.DataGridViewTextBoxColumn7.HeaderText = "numeroFunc" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "cidadeFunc" + Me.DataGridViewTextBoxColumn8.HeaderText = "cidadeFunc" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "usuarioFunc" + Me.DataGridViewTextBoxColumn9.HeaderText = "usuarioFunc" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "senhaFunc" + Me.DataGridViewTextBoxColumn10.HeaderText = "senhaFunc" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "statusFunc" + Me.DataGridViewTextBoxColumn11.HeaderText = "statusFunc" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + ' + 'rFuncAtivo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1166, 450) + Me.Controls.Add(Me.RFuncAtivoDataGridView) + Me.Controls.Add(Me.RFuncAtivoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rFuncAtivo" + Me.Text = "rUsuario" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RFuncAtivoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RFuncAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.RFuncAtivoBindingNavigator.ResumeLayout(False) + Me.RFuncAtivoBindingNavigator.PerformLayout() + CType(Me.RFuncAtivoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents RFuncAtivoBindingSource As BindingSource + Friend WithEvents RFuncAtivoTableAdapter As dbBibliotecaDataSetTableAdapters.rFuncAtivoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents RFuncAtivoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 RFuncAtivoDataGridView 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 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/projetoBiblioteca05/Relatórios/rFuncAtivo.resx b/projetoBiblioteca05/Relatórios/rFuncAtivo.resx new file mode 100755 index 0000000..b3858e9 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rFuncAtivo.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 372, 17 + + + 558, 17 + + + 731, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rFuncAtivo.vb b/projetoBiblioteca05/Relatórios/rFuncAtivo.vb new file mode 100755 index 0000000..36218a5 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rFuncAtivo.vb @@ -0,0 +1,6 @@ +Public Class rFuncAtivo + Private Sub rFunc_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rFuncAtivo'. Você pode movê-la ou removê-la conforme necessário. + Me.RFuncAtivoTableAdapter.Fill(Me.DbBibliotecaDataSet.rFuncAtivo) + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rFuncDesatv.Designer.vb b/projetoBiblioteca05/Relatórios/rFuncDesatv.Designer.vb new file mode 100755 index 0000000..65729a7 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rFuncDesatv.Designer.vb @@ -0,0 +1,312 @@ + _ +Partial Class rFuncDesatv + 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(rFuncDesatv)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.RFuncDesativadoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RFuncDesativadoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rFuncDesativadoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.RFuncDesativadoBindingNavigator = 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.RFuncDesativadoDataGridView = 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.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.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RFuncDesativadoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RFuncDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.RFuncDesativadoBindingNavigator.SuspendLayout() + CType(Me.RFuncDesativadoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RFuncDesativadoBindingSource + ' + Me.RFuncDesativadoBindingSource.DataMember = "rFuncDesativado" + Me.RFuncDesativadoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'RFuncDesativadoTableAdapter + ' + Me.RFuncDesativadoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RFuncDesativadoBindingNavigator + ' + Me.RFuncDesativadoBindingNavigator.AddNewItem = Nothing + Me.RFuncDesativadoBindingNavigator.BindingSource = Me.RFuncDesativadoBindingSource + Me.RFuncDesativadoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.RFuncDesativadoBindingNavigator.DeleteItem = Nothing + Me.RFuncDesativadoBindingNavigator.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.RFuncDesativadoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.RFuncDesativadoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.RFuncDesativadoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.RFuncDesativadoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.RFuncDesativadoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.RFuncDesativadoBindingNavigator.Name = "RFuncDesativadoBindingNavigator" + Me.RFuncDesativadoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.RFuncDesativadoBindingNavigator.Size = New System.Drawing.Size(1167, 25) + Me.RFuncDesativadoBindingNavigator.TabIndex = 0 + Me.RFuncDesativadoBindingNavigator.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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'RFuncDesativadoDataGridView + ' + Me.RFuncDesativadoDataGridView.AllowUserToAddRows = False + Me.RFuncDesativadoDataGridView.AllowUserToDeleteRows = False + Me.RFuncDesativadoDataGridView.AutoGenerateColumns = False + Me.RFuncDesativadoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RFuncDesativadoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11}) + Me.RFuncDesativadoDataGridView.DataSource = Me.RFuncDesativadoBindingSource + Me.RFuncDesativadoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.RFuncDesativadoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.RFuncDesativadoDataGridView.Name = "RFuncDesativadoDataGridView" + Me.RFuncDesativadoDataGridView.ReadOnly = True + Me.RFuncDesativadoDataGridView.Size = New System.Drawing.Size(1167, 425) + Me.RFuncDesativadoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeFunc" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeFunc" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "rgFunc" + Me.DataGridViewTextBoxColumn2.HeaderText = "rgFunc" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "cpfFunc" + Me.DataGridViewTextBoxColumn3.HeaderText = "cpfFunc" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "telFunc" + Me.DataGridViewTextBoxColumn4.HeaderText = "telFunc" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "celFunc" + Me.DataGridViewTextBoxColumn5.HeaderText = "celFunc" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "ruaFunc" + Me.DataGridViewTextBoxColumn6.HeaderText = "ruaFunc" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "numeroFunc" + Me.DataGridViewTextBoxColumn7.HeaderText = "numeroFunc" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "cidadeFunc" + Me.DataGridViewTextBoxColumn8.HeaderText = "cidadeFunc" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "usuarioFunc" + Me.DataGridViewTextBoxColumn9.HeaderText = "usuarioFunc" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.DataPropertyName = "senhaFunc" + Me.DataGridViewTextBoxColumn10.HeaderText = "senhaFunc" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.ReadOnly = True + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.DataPropertyName = "statusFunc" + Me.DataGridViewTextBoxColumn11.HeaderText = "statusFunc" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.ReadOnly = True + ' + 'rFuncDesatv + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1167, 450) + Me.Controls.Add(Me.RFuncDesativadoDataGridView) + Me.Controls.Add(Me.RFuncDesativadoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rFuncDesatv" + Me.Text = "rFuncDesatv" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RFuncDesativadoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RFuncDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.RFuncDesativadoBindingNavigator.ResumeLayout(False) + Me.RFuncDesativadoBindingNavigator.PerformLayout() + CType(Me.RFuncDesativadoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents RFuncDesativadoBindingSource As BindingSource + Friend WithEvents RFuncDesativadoTableAdapter As dbBibliotecaDataSetTableAdapters.rFuncDesativadoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents RFuncDesativadoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 RFuncDesativadoDataGridView 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 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/projetoBiblioteca05/Relatórios/rFuncDesatv.resx b/projetoBiblioteca05/Relatórios/rFuncDesatv.resx new file mode 100755 index 0000000..b991342 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rFuncDesatv.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 404, 17 + + + 622, 17 + + + 795, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rFuncDesatv.vb b/projetoBiblioteca05/Relatórios/rFuncDesatv.vb new file mode 100755 index 0000000..d2b188a --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rFuncDesatv.vb @@ -0,0 +1,7 @@ +Public Class rFuncDesatv + Private Sub rFuncDesatv_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rFuncDesativado'. Você pode movê-la ou removê-la conforme necessário. + Me.RFuncDesativadoTableAdapter.Fill(Me.DbBibliotecaDataSet.rFuncDesativado) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rItemAtivo.Designer.vb b/projetoBiblioteca05/Relatórios/rItemAtivo.Designer.vb new file mode 100755 index 0000000..4da79f4 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rItemAtivo.Designer.vb @@ -0,0 +1,267 @@ + _ +Partial Class rItemAtivo + 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(rItemAtivo)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.RItemAtivoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RItemAtivoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rItemAtivoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.RItemAtivoBindingNavigator = 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.RItemAtivoDataGridView = 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.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RItemAtivoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RItemAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.RItemAtivoBindingNavigator.SuspendLayout() + CType(Me.RItemAtivoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RItemAtivoBindingSource + ' + Me.RItemAtivoBindingSource.DataMember = "rItemAtivo" + Me.RItemAtivoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'RItemAtivoTableAdapter + ' + Me.RItemAtivoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RItemAtivoBindingNavigator + ' + Me.RItemAtivoBindingNavigator.AddNewItem = Nothing + Me.RItemAtivoBindingNavigator.BindingSource = Me.RItemAtivoBindingSource + Me.RItemAtivoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.RItemAtivoBindingNavigator.DeleteItem = Nothing + Me.RItemAtivoBindingNavigator.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.RItemAtivoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.RItemAtivoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.RItemAtivoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.RItemAtivoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.RItemAtivoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.RItemAtivoBindingNavigator.Name = "RItemAtivoBindingNavigator" + Me.RItemAtivoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.RItemAtivoBindingNavigator.Size = New System.Drawing.Size(681, 25) + Me.RItemAtivoBindingNavigator.TabIndex = 0 + Me.RItemAtivoBindingNavigator.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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'RItemAtivoDataGridView + ' + Me.RItemAtivoDataGridView.AllowUserToAddRows = False + Me.RItemAtivoDataGridView.AllowUserToDeleteRows = False + Me.RItemAtivoDataGridView.AutoGenerateColumns = False + Me.RItemAtivoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RItemAtivoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6}) + Me.RItemAtivoDataGridView.DataSource = Me.RItemAtivoBindingSource + Me.RItemAtivoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.RItemAtivoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.RItemAtivoDataGridView.Name = "RItemAtivoDataGridView" + Me.RItemAtivoDataGridView.ReadOnly = True + Me.RItemAtivoDataGridView.Size = New System.Drawing.Size(681, 425) + Me.RItemAtivoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeItem" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeItem" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "nomeTipo" + Me.DataGridViewTextBoxColumn2.HeaderText = "nomeTipo" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "nomeGenero" + Me.DataGridViewTextBoxColumn3.HeaderText = "nomeGenero" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "nomeAutor" + Me.DataGridViewTextBoxColumn4.HeaderText = "nomeAutor" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "isbnItem" + Me.DataGridViewTextBoxColumn5.HeaderText = "isbnItem" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "statusItem" + Me.DataGridViewTextBoxColumn6.HeaderText = "statusItem" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'rItemAtivo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(681, 450) + Me.Controls.Add(Me.RItemAtivoDataGridView) + Me.Controls.Add(Me.RItemAtivoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rItemAtivo" + Me.Text = "rItemAtivo" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RItemAtivoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RItemAtivoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.RItemAtivoBindingNavigator.ResumeLayout(False) + Me.RItemAtivoBindingNavigator.PerformLayout() + CType(Me.RItemAtivoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents RItemAtivoBindingSource As BindingSource + Friend WithEvents RItemAtivoTableAdapter As dbBibliotecaDataSetTableAdapters.rItemAtivoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents RItemAtivoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 RItemAtivoDataGridView 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 DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn +End Class diff --git a/projetoBiblioteca05/Relatórios/rItemAtivo.resx b/projetoBiblioteca05/Relatórios/rItemAtivo.resx new file mode 100755 index 0000000..2597867 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rItemAtivo.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 371, 17 + + + 556, 17 + + + 729, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rItemAtivo.vb b/projetoBiblioteca05/Relatórios/rItemAtivo.vb new file mode 100755 index 0000000..296cd06 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rItemAtivo.vb @@ -0,0 +1,7 @@ +Public Class rItemAtivo + Private Sub rItemAtivo_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rItemAtivo'. Você pode movê-la ou removê-la conforme necessário. + Me.RItemAtivoTableAdapter.Fill(Me.DbBibliotecaDataSet.rItemAtivo) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rItemDesatv.Designer.vb b/projetoBiblioteca05/Relatórios/rItemDesatv.Designer.vb new file mode 100755 index 0000000..e47da91 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rItemDesatv.Designer.vb @@ -0,0 +1,267 @@ + _ +Partial Class rItemDesatv + 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(rItemDesatv)) + Me.DbBibliotecaDataSet = New projetoBiblioteca05.dbBibliotecaDataSet() + Me.RItemDesativadoBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.RItemDesativadoTableAdapter = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.rItemDesativadoTableAdapter() + Me.TableAdapterManager = New projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager() + Me.RItemDesativadoBindingNavigator = 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.RItemDesativadoDataGridView = 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.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RItemDesativadoBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RItemDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.RItemDesativadoBindingNavigator.SuspendLayout() + CType(Me.RItemDesativadoDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'DbBibliotecaDataSet + ' + Me.DbBibliotecaDataSet.DataSetName = "dbBibliotecaDataSet" + Me.DbBibliotecaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'RItemDesativadoBindingSource + ' + Me.RItemDesativadoBindingSource.DataMember = "rItemDesativado" + Me.RItemDesativadoBindingSource.DataSource = Me.DbBibliotecaDataSet + ' + 'RItemDesativadoTableAdapter + ' + Me.RItemDesativadoTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.tbAutorTableAdapter = Nothing + Me.TableAdapterManager.tbClienteTableAdapter = Nothing + Me.TableAdapterManager.tbEditoraTableAdapter = Nothing + Me.TableAdapterManager.tbEmprestimoTableAdapter = Nothing + Me.TableAdapterManager.tbFuncionarioTableAdapter = Nothing + Me.TableAdapterManager.tbGeneroTableAdapter = Nothing + Me.TableAdapterManager.tbItemTableAdapter = Nothing + Me.TableAdapterManager.tbTipoTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = projetoBiblioteca05.dbBibliotecaDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'RItemDesativadoBindingNavigator + ' + Me.RItemDesativadoBindingNavigator.AddNewItem = Nothing + Me.RItemDesativadoBindingNavigator.BindingSource = Me.RItemDesativadoBindingSource + Me.RItemDesativadoBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.RItemDesativadoBindingNavigator.DeleteItem = Nothing + Me.RItemDesativadoBindingNavigator.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.RItemDesativadoBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.RItemDesativadoBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.RItemDesativadoBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.RItemDesativadoBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.RItemDesativadoBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.RItemDesativadoBindingNavigator.Name = "RItemDesativadoBindingNavigator" + Me.RItemDesativadoBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.RItemDesativadoBindingNavigator.Size = New System.Drawing.Size(695, 25) + Me.RItemDesativadoBindingNavigator.TabIndex = 0 + Me.RItemDesativadoBindingNavigator.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, 22) + 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, 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 = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'RItemDesativadoDataGridView + ' + Me.RItemDesativadoDataGridView.AllowUserToAddRows = False + Me.RItemDesativadoDataGridView.AllowUserToDeleteRows = False + Me.RItemDesativadoDataGridView.AutoGenerateColumns = False + Me.RItemDesativadoDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.RItemDesativadoDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6}) + Me.RItemDesativadoDataGridView.DataSource = Me.RItemDesativadoBindingSource + Me.RItemDesativadoDataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.RItemDesativadoDataGridView.Location = New System.Drawing.Point(0, 25) + Me.RItemDesativadoDataGridView.Name = "RItemDesativadoDataGridView" + Me.RItemDesativadoDataGridView.ReadOnly = True + Me.RItemDesativadoDataGridView.Size = New System.Drawing.Size(695, 425) + Me.RItemDesativadoDataGridView.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "nomeItem" + Me.DataGridViewTextBoxColumn1.HeaderText = "nomeItem" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "nomeTipo" + Me.DataGridViewTextBoxColumn2.HeaderText = "nomeTipo" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "nomeGenero" + Me.DataGridViewTextBoxColumn3.HeaderText = "nomeGenero" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "nomeAutor" + Me.DataGridViewTextBoxColumn4.HeaderText = "nomeAutor" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "isbnItem" + Me.DataGridViewTextBoxColumn5.HeaderText = "isbnItem" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "statusItem" + Me.DataGridViewTextBoxColumn6.HeaderText = "statusItem" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'rItemDesatv + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(695, 450) + Me.Controls.Add(Me.RItemDesativadoDataGridView) + Me.Controls.Add(Me.RItemDesativadoBindingNavigator) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "rItemDesatv" + Me.Text = "rItemDesatv" + CType(Me.DbBibliotecaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RItemDesativadoBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RItemDesativadoBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.RItemDesativadoBindingNavigator.ResumeLayout(False) + Me.RItemDesativadoBindingNavigator.PerformLayout() + CType(Me.RItemDesativadoDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents DbBibliotecaDataSet As dbBibliotecaDataSet + Friend WithEvents RItemDesativadoBindingSource As BindingSource + Friend WithEvents RItemDesativadoTableAdapter As dbBibliotecaDataSetTableAdapters.rItemDesativadoTableAdapter + Friend WithEvents TableAdapterManager As dbBibliotecaDataSetTableAdapters.TableAdapterManager + Friend WithEvents RItemDesativadoBindingNavigator As BindingNavigator + Friend WithEvents BindingNavigatorCountItem As ToolStripLabel + 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 RItemDesativadoDataGridView 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 DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn +End Class diff --git a/projetoBiblioteca05/Relatórios/rItemDesatv.resx b/projetoBiblioteca05/Relatórios/rItemDesatv.resx new file mode 100755 index 0000000..db99a1b --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rItemDesatv.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 180, 17 + + + 403, 17 + + + 620, 17 + + + 793, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/projetoBiblioteca05/Relatórios/rItemDesatv.vb b/projetoBiblioteca05/Relatórios/rItemDesatv.vb new file mode 100755 index 0000000..9578ca5 --- /dev/null +++ b/projetoBiblioteca05/Relatórios/rItemDesatv.vb @@ -0,0 +1,7 @@ +Public Class rItemDesatv + Private Sub rItemDesatv_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: esta linha de código carrega dados na tabela 'DbBibliotecaDataSet.rItemDesativado'. Você pode movê-la ou removê-la conforme necessário. + Me.RItemDesativadoTableAdapter.Fill(Me.DbBibliotecaDataSet.rItemDesativado) + + End Sub +End Class \ No newline at end of file diff --git a/projetoBiblioteca05/dbBiblioteca.accdb b/projetoBiblioteca05/dbBiblioteca.accdb new file mode 100755 index 0000000..380ebaf Binary files /dev/null and b/projetoBiblioteca05/dbBiblioteca.accdb differ diff --git a/projetoBiblioteca05/dbBibliotecaDataSet.Designer.vb b/projetoBiblioteca05/dbBibliotecaDataSet.Designer.vb new file mode 100755 index 0000000..7101c17 --- /dev/null +++ b/projetoBiblioteca05/dbBibliotecaDataSet.Designer.vb @@ -0,0 +1,16119 @@ +'------------------------------------------------------------------------------ +' +' 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 dbBibliotecaDataSet + Inherits Global.System.Data.DataSet + + Private tabletbAutor As tbAutorDataTable + + Private tabletbCliente As tbClienteDataTable + + Private tabletbEmprestimo As tbEmprestimoDataTable + + Private tabletbFuncionario As tbFuncionarioDataTable + + Private tabletbGenero As tbGeneroDataTable + + Private tabletbItem As tbItemDataTable + + Private tabletbTipo As tbTipoDataTable + + Private tablerClienteAtivo As rClienteAtivoDataTable + + Private tablerClienteDesativado As rClienteDesativadoDataTable + + Private tablerEmprestimosAtivo As rEmprestimosAtivoDataTable + + Private tablerEmprestimosDesativado As rEmprestimosDesativadoDataTable + + Private tablerFuncAtivo As rFuncAtivoDataTable + + Private tablerFuncDesativado As rFuncDesativadoDataTable + + Private tablerItemAtivo As rItemAtivoDataTable + + Private tablerItemDesativado As rItemDesativadoDataTable + + Private tabletbEditora As tbEditoraDataTable + + Private relationtbClientetbEmprestimo As Global.System.Data.DataRelation + + Private relationtbFuncionariotbEmprestimo As Global.System.Data.DataRelation + + Private relationtbItemtbEmprestimo As Global.System.Data.DataRelation + + Private relationtbAutortbItem As Global.System.Data.DataRelation + + Private relationtbGenerotbItem As Global.System.Data.DataRelation + + Private relationtbTipotbItem As Global.System.Data.DataRelation + + Private relationtbEditoratbItem 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("tbAutor")) Is Nothing) Then + MyBase.Tables.Add(New tbAutorDataTable(ds.Tables("tbAutor"))) + End If + If (Not (ds.Tables("tbCliente")) Is Nothing) Then + MyBase.Tables.Add(New tbClienteDataTable(ds.Tables("tbCliente"))) + End If + If (Not (ds.Tables("tbEmprestimo")) Is Nothing) Then + MyBase.Tables.Add(New tbEmprestimoDataTable(ds.Tables("tbEmprestimo"))) + End If + If (Not (ds.Tables("tbFuncionario")) Is Nothing) Then + MyBase.Tables.Add(New tbFuncionarioDataTable(ds.Tables("tbFuncionario"))) + End If + If (Not (ds.Tables("tbGenero")) Is Nothing) Then + MyBase.Tables.Add(New tbGeneroDataTable(ds.Tables("tbGenero"))) + End If + If (Not (ds.Tables("tbItem")) Is Nothing) Then + MyBase.Tables.Add(New tbItemDataTable(ds.Tables("tbItem"))) + End If + If (Not (ds.Tables("tbTipo")) Is Nothing) Then + MyBase.Tables.Add(New tbTipoDataTable(ds.Tables("tbTipo"))) + End If + If (Not (ds.Tables("rClienteAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rClienteAtivoDataTable(ds.Tables("rClienteAtivo"))) + End If + If (Not (ds.Tables("rClienteDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rClienteDesativadoDataTable(ds.Tables("rClienteDesativado"))) + End If + If (Not (ds.Tables("rEmprestimosAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rEmprestimosAtivoDataTable(ds.Tables("rEmprestimosAtivo"))) + End If + If (Not (ds.Tables("rEmprestimosDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rEmprestimosDesativadoDataTable(ds.Tables("rEmprestimosDesativado"))) + End If + If (Not (ds.Tables("rFuncAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rFuncAtivoDataTable(ds.Tables("rFuncAtivo"))) + End If + If (Not (ds.Tables("rFuncDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rFuncDesativadoDataTable(ds.Tables("rFuncDesativado"))) + End If + If (Not (ds.Tables("rItemAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rItemAtivoDataTable(ds.Tables("rItemAtivo"))) + End If + If (Not (ds.Tables("rItemDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rItemDesativadoDataTable(ds.Tables("rItemDesativado"))) + End If + If (Not (ds.Tables("tbEditora")) Is Nothing) Then + MyBase.Tables.Add(New tbEditoraDataTable(ds.Tables("tbEditora"))) + 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 tbAutor() As tbAutorDataTable + Get + Return Me.tabletbAutor + End Get + End Property + + _ + Public ReadOnly Property tbCliente() As tbClienteDataTable + Get + Return Me.tabletbCliente + End Get + End Property + + _ + Public ReadOnly Property tbEmprestimo() As tbEmprestimoDataTable + Get + Return Me.tabletbEmprestimo + End Get + End Property + + _ + Public ReadOnly Property tbFuncionario() As tbFuncionarioDataTable + Get + Return Me.tabletbFuncionario + End Get + End Property + + _ + Public ReadOnly Property tbGenero() As tbGeneroDataTable + Get + Return Me.tabletbGenero + End Get + End Property + + _ + Public ReadOnly Property tbItem() As tbItemDataTable + Get + Return Me.tabletbItem + End Get + End Property + + _ + Public ReadOnly Property tbTipo() As tbTipoDataTable + Get + Return Me.tabletbTipo + End Get + End Property + + _ + Public ReadOnly Property rClienteAtivo() As rClienteAtivoDataTable + Get + Return Me.tablerClienteAtivo + End Get + End Property + + _ + Public ReadOnly Property rClienteDesativado() As rClienteDesativadoDataTable + Get + Return Me.tablerClienteDesativado + End Get + End Property + + _ + Public ReadOnly Property rEmprestimosAtivo() As rEmprestimosAtivoDataTable + Get + Return Me.tablerEmprestimosAtivo + End Get + End Property + + _ + Public ReadOnly Property rEmprestimosDesativado() As rEmprestimosDesativadoDataTable + Get + Return Me.tablerEmprestimosDesativado + End Get + End Property + + _ + Public ReadOnly Property rFuncAtivo() As rFuncAtivoDataTable + Get + Return Me.tablerFuncAtivo + End Get + End Property + + _ + Public ReadOnly Property rFuncDesativado() As rFuncDesativadoDataTable + Get + Return Me.tablerFuncDesativado + End Get + End Property + + _ + Public ReadOnly Property rItemAtivo() As rItemAtivoDataTable + Get + Return Me.tablerItemAtivo + End Get + End Property + + _ + Public ReadOnly Property rItemDesativado() As rItemDesativadoDataTable + Get + Return Me.tablerItemDesativado + End Get + End Property + + _ + Public ReadOnly Property tbEditora() As tbEditoraDataTable + Get + Return Me.tabletbEditora + 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 dbBibliotecaDataSet = CType(MyBase.Clone,dbBibliotecaDataSet) + 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("tbAutor")) Is Nothing) Then + MyBase.Tables.Add(New tbAutorDataTable(ds.Tables("tbAutor"))) + End If + If (Not (ds.Tables("tbCliente")) Is Nothing) Then + MyBase.Tables.Add(New tbClienteDataTable(ds.Tables("tbCliente"))) + End If + If (Not (ds.Tables("tbEmprestimo")) Is Nothing) Then + MyBase.Tables.Add(New tbEmprestimoDataTable(ds.Tables("tbEmprestimo"))) + End If + If (Not (ds.Tables("tbFuncionario")) Is Nothing) Then + MyBase.Tables.Add(New tbFuncionarioDataTable(ds.Tables("tbFuncionario"))) + End If + If (Not (ds.Tables("tbGenero")) Is Nothing) Then + MyBase.Tables.Add(New tbGeneroDataTable(ds.Tables("tbGenero"))) + End If + If (Not (ds.Tables("tbItem")) Is Nothing) Then + MyBase.Tables.Add(New tbItemDataTable(ds.Tables("tbItem"))) + End If + If (Not (ds.Tables("tbTipo")) Is Nothing) Then + MyBase.Tables.Add(New tbTipoDataTable(ds.Tables("tbTipo"))) + End If + If (Not (ds.Tables("rClienteAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rClienteAtivoDataTable(ds.Tables("rClienteAtivo"))) + End If + If (Not (ds.Tables("rClienteDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rClienteDesativadoDataTable(ds.Tables("rClienteDesativado"))) + End If + If (Not (ds.Tables("rEmprestimosAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rEmprestimosAtivoDataTable(ds.Tables("rEmprestimosAtivo"))) + End If + If (Not (ds.Tables("rEmprestimosDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rEmprestimosDesativadoDataTable(ds.Tables("rEmprestimosDesativado"))) + End If + If (Not (ds.Tables("rFuncAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rFuncAtivoDataTable(ds.Tables("rFuncAtivo"))) + End If + If (Not (ds.Tables("rFuncDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rFuncDesativadoDataTable(ds.Tables("rFuncDesativado"))) + End If + If (Not (ds.Tables("rItemAtivo")) Is Nothing) Then + MyBase.Tables.Add(New rItemAtivoDataTable(ds.Tables("rItemAtivo"))) + End If + If (Not (ds.Tables("rItemDesativado")) Is Nothing) Then + MyBase.Tables.Add(New rItemDesativadoDataTable(ds.Tables("rItemDesativado"))) + End If + If (Not (ds.Tables("tbEditora")) Is Nothing) Then + MyBase.Tables.Add(New tbEditoraDataTable(ds.Tables("tbEditora"))) + 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.tabletbAutor = CType(MyBase.Tables("tbAutor"),tbAutorDataTable) + If (initTable = true) Then + If (Not (Me.tabletbAutor) Is Nothing) Then + Me.tabletbAutor.InitVars + End If + End If + Me.tabletbCliente = CType(MyBase.Tables("tbCliente"),tbClienteDataTable) + If (initTable = true) Then + If (Not (Me.tabletbCliente) Is Nothing) Then + Me.tabletbCliente.InitVars + End If + End If + Me.tabletbEmprestimo = CType(MyBase.Tables("tbEmprestimo"),tbEmprestimoDataTable) + If (initTable = true) Then + If (Not (Me.tabletbEmprestimo) Is Nothing) Then + Me.tabletbEmprestimo.InitVars + End If + End If + Me.tabletbFuncionario = CType(MyBase.Tables("tbFuncionario"),tbFuncionarioDataTable) + If (initTable = true) Then + If (Not (Me.tabletbFuncionario) Is Nothing) Then + Me.tabletbFuncionario.InitVars + End If + End If + Me.tabletbGenero = CType(MyBase.Tables("tbGenero"),tbGeneroDataTable) + If (initTable = true) Then + If (Not (Me.tabletbGenero) Is Nothing) Then + Me.tabletbGenero.InitVars + End If + End If + Me.tabletbItem = CType(MyBase.Tables("tbItem"),tbItemDataTable) + If (initTable = true) Then + If (Not (Me.tabletbItem) Is Nothing) Then + Me.tabletbItem.InitVars + End If + End If + Me.tabletbTipo = CType(MyBase.Tables("tbTipo"),tbTipoDataTable) + If (initTable = true) Then + If (Not (Me.tabletbTipo) Is Nothing) Then + Me.tabletbTipo.InitVars + End If + End If + Me.tablerClienteAtivo = CType(MyBase.Tables("rClienteAtivo"),rClienteAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerClienteAtivo) Is Nothing) Then + Me.tablerClienteAtivo.InitVars + End If + End If + Me.tablerClienteDesativado = CType(MyBase.Tables("rClienteDesativado"),rClienteDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerClienteDesativado) Is Nothing) Then + Me.tablerClienteDesativado.InitVars + End If + End If + Me.tablerEmprestimosAtivo = CType(MyBase.Tables("rEmprestimosAtivo"),rEmprestimosAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerEmprestimosAtivo) Is Nothing) Then + Me.tablerEmprestimosAtivo.InitVars + End If + End If + Me.tablerEmprestimosDesativado = CType(MyBase.Tables("rEmprestimosDesativado"),rEmprestimosDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerEmprestimosDesativado) Is Nothing) Then + Me.tablerEmprestimosDesativado.InitVars + End If + End If + Me.tablerFuncAtivo = CType(MyBase.Tables("rFuncAtivo"),rFuncAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerFuncAtivo) Is Nothing) Then + Me.tablerFuncAtivo.InitVars + End If + End If + Me.tablerFuncDesativado = CType(MyBase.Tables("rFuncDesativado"),rFuncDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerFuncDesativado) Is Nothing) Then + Me.tablerFuncDesativado.InitVars + End If + End If + Me.tablerItemAtivo = CType(MyBase.Tables("rItemAtivo"),rItemAtivoDataTable) + If (initTable = true) Then + If (Not (Me.tablerItemAtivo) Is Nothing) Then + Me.tablerItemAtivo.InitVars + End If + End If + Me.tablerItemDesativado = CType(MyBase.Tables("rItemDesativado"),rItemDesativadoDataTable) + If (initTable = true) Then + If (Not (Me.tablerItemDesativado) Is Nothing) Then + Me.tablerItemDesativado.InitVars + End If + End If + Me.tabletbEditora = CType(MyBase.Tables("tbEditora"),tbEditoraDataTable) + If (initTable = true) Then + If (Not (Me.tabletbEditora) Is Nothing) Then + Me.tabletbEditora.InitVars + End If + End If + Me.relationtbClientetbEmprestimo = Me.Relations("tbClientetbEmprestimo") + Me.relationtbFuncionariotbEmprestimo = Me.Relations("tbFuncionariotbEmprestimo") + Me.relationtbItemtbEmprestimo = Me.Relations("tbItemtbEmprestimo") + Me.relationtbAutortbItem = Me.Relations("tbAutortbItem") + Me.relationtbGenerotbItem = Me.Relations("tbGenerotbItem") + Me.relationtbTipotbItem = Me.Relations("tbTipotbItem") + Me.relationtbEditoratbItem = Me.Relations("tbEditoratbItem") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "dbBibliotecaDataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/dbBibliotecaDataSet.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tabletbAutor = New tbAutorDataTable() + MyBase.Tables.Add(Me.tabletbAutor) + Me.tabletbCliente = New tbClienteDataTable() + MyBase.Tables.Add(Me.tabletbCliente) + Me.tabletbEmprestimo = New tbEmprestimoDataTable() + MyBase.Tables.Add(Me.tabletbEmprestimo) + Me.tabletbFuncionario = New tbFuncionarioDataTable() + MyBase.Tables.Add(Me.tabletbFuncionario) + Me.tabletbGenero = New tbGeneroDataTable() + MyBase.Tables.Add(Me.tabletbGenero) + Me.tabletbItem = New tbItemDataTable() + MyBase.Tables.Add(Me.tabletbItem) + Me.tabletbTipo = New tbTipoDataTable() + MyBase.Tables.Add(Me.tabletbTipo) + Me.tablerClienteAtivo = New rClienteAtivoDataTable() + MyBase.Tables.Add(Me.tablerClienteAtivo) + Me.tablerClienteDesativado = New rClienteDesativadoDataTable() + MyBase.Tables.Add(Me.tablerClienteDesativado) + Me.tablerEmprestimosAtivo = New rEmprestimosAtivoDataTable() + MyBase.Tables.Add(Me.tablerEmprestimosAtivo) + Me.tablerEmprestimosDesativado = New rEmprestimosDesativadoDataTable() + MyBase.Tables.Add(Me.tablerEmprestimosDesativado) + Me.tablerFuncAtivo = New rFuncAtivoDataTable() + MyBase.Tables.Add(Me.tablerFuncAtivo) + Me.tablerFuncDesativado = New rFuncDesativadoDataTable() + MyBase.Tables.Add(Me.tablerFuncDesativado) + Me.tablerItemAtivo = New rItemAtivoDataTable() + MyBase.Tables.Add(Me.tablerItemAtivo) + Me.tablerItemDesativado = New rItemDesativadoDataTable() + MyBase.Tables.Add(Me.tablerItemDesativado) + Me.tabletbEditora = New tbEditoraDataTable() + MyBase.Tables.Add(Me.tabletbEditora) + Me.relationtbClientetbEmprestimo = New Global.System.Data.DataRelation("tbClientetbEmprestimo", New Global.System.Data.DataColumn() {Me.tabletbCliente.idClienteColumn}, New Global.System.Data.DataColumn() {Me.tabletbEmprestimo.idClienteColumn}, false) + Me.Relations.Add(Me.relationtbClientetbEmprestimo) + Me.relationtbFuncionariotbEmprestimo = New Global.System.Data.DataRelation("tbFuncionariotbEmprestimo", New Global.System.Data.DataColumn() {Me.tabletbFuncionario.idFuncColumn}, New Global.System.Data.DataColumn() {Me.tabletbEmprestimo.idFuncColumn}, false) + Me.Relations.Add(Me.relationtbFuncionariotbEmprestimo) + Me.relationtbItemtbEmprestimo = New Global.System.Data.DataRelation("tbItemtbEmprestimo", New Global.System.Data.DataColumn() {Me.tabletbItem.idItemColumn}, New Global.System.Data.DataColumn() {Me.tabletbEmprestimo.idItemColumn}, false) + Me.Relations.Add(Me.relationtbItemtbEmprestimo) + Me.relationtbAutortbItem = New Global.System.Data.DataRelation("tbAutortbItem", New Global.System.Data.DataColumn() {Me.tabletbAutor.idAutorColumn}, New Global.System.Data.DataColumn() {Me.tabletbItem.idAutorColumn}, false) + Me.Relations.Add(Me.relationtbAutortbItem) + Me.relationtbGenerotbItem = New Global.System.Data.DataRelation("tbGenerotbItem", New Global.System.Data.DataColumn() {Me.tabletbGenero.idGeneroColumn}, New Global.System.Data.DataColumn() {Me.tabletbItem.generoItemColumn}, false) + Me.Relations.Add(Me.relationtbGenerotbItem) + Me.relationtbTipotbItem = New Global.System.Data.DataRelation("tbTipotbItem", New Global.System.Data.DataColumn() {Me.tabletbTipo.idTipoColumn}, New Global.System.Data.DataColumn() {Me.tabletbItem.tipoItemColumn}, false) + Me.Relations.Add(Me.relationtbTipotbItem) + Me.relationtbEditoratbItem = New Global.System.Data.DataRelation("tbEditoratbItem", New Global.System.Data.DataColumn() {Me.tabletbEditora.idEditoraColumn}, New Global.System.Data.DataColumn() {Me.tabletbItem.editoraItemColumn}, false) + Me.Relations.Add(Me.relationtbEditoratbItem) + End Sub + + _ + Private Function ShouldSerializetbAutor() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbCliente() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbEmprestimo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbFuncionario() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbGenero() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbItem() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbTipo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerClienteAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerClienteDesativado() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerEmprestimosAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerEmprestimosDesativado() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerFuncAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerFuncDesativado() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerItemAtivo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializerItemDesativado() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializetbEditora() 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 tbAutorRowChangeEventHandler(ByVal sender As Object, ByVal e As tbAutorRowChangeEvent) + + _ + Public Delegate Sub tbClienteRowChangeEventHandler(ByVal sender As Object, ByVal e As tbClienteRowChangeEvent) + + _ + Public Delegate Sub tbEmprestimoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbEmprestimoRowChangeEvent) + + _ + Public Delegate Sub tbFuncionarioRowChangeEventHandler(ByVal sender As Object, ByVal e As tbFuncionarioRowChangeEvent) + + _ + Public Delegate Sub tbGeneroRowChangeEventHandler(ByVal sender As Object, ByVal e As tbGeneroRowChangeEvent) + + _ + Public Delegate Sub tbItemRowChangeEventHandler(ByVal sender As Object, ByVal e As tbItemRowChangeEvent) + + _ + Public Delegate Sub tbTipoRowChangeEventHandler(ByVal sender As Object, ByVal e As tbTipoRowChangeEvent) + + _ + Public Delegate Sub rClienteAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rClienteAtivoRowChangeEvent) + + _ + Public Delegate Sub rClienteDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rClienteDesativadoRowChangeEvent) + + _ + Public Delegate Sub rEmprestimosAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rEmprestimosAtivoRowChangeEvent) + + _ + Public Delegate Sub rEmprestimosDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rEmprestimosDesativadoRowChangeEvent) + + _ + Public Delegate Sub rFuncAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rFuncAtivoRowChangeEvent) + + _ + Public Delegate Sub rFuncDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rFuncDesativadoRowChangeEvent) + + _ + Public Delegate Sub rItemAtivoRowChangeEventHandler(ByVal sender As Object, ByVal e As rItemAtivoRowChangeEvent) + + _ + Public Delegate Sub rItemDesativadoRowChangeEventHandler(ByVal sender As Object, ByVal e As rItemDesativadoRowChangeEvent) + + _ + Public Delegate Sub tbEditoraRowChangeEventHandler(ByVal sender As Object, ByVal e As tbEditoraRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class tbAutorDataTable + Inherits Global.System.Data.TypedTableBase(Of tbAutorRow) + + Private columnidAutor As Global.System.Data.DataColumn + + Private columnnomeAutor As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbAutor" + 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 idAutorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidAutor + End Get + End Property + + _ + Public ReadOnly Property nomeAutorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAutor + 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 tbAutorRow + Get + Return CType(Me.Rows(index),tbAutorRow) + End Get + End Property + + _ + Public Event tbAutorRowChanging As tbAutorRowChangeEventHandler + + _ + Public Event tbAutorRowChanged As tbAutorRowChangeEventHandler + + _ + Public Event tbAutorRowDeleting As tbAutorRowChangeEventHandler + + _ + Public Event tbAutorRowDeleted As tbAutorRowChangeEventHandler + + _ + Public Overloads Sub AddtbAutorRow(ByVal row As tbAutorRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbAutorRow(ByVal nomeAutor As String) As tbAutorRow + Dim rowtbAutorRow As tbAutorRow = CType(Me.NewRow,tbAutorRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeAutor} + rowtbAutorRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbAutorRow) + Return rowtbAutorRow + End Function + + _ + Public Function FindByidAutor(ByVal idAutor As Integer) As tbAutorRow + Return CType(Me.Rows.Find(New Object() {idAutor}),tbAutorRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbAutorDataTable = CType(MyBase.Clone,tbAutorDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbAutorDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidAutor = MyBase.Columns("idAutor") + Me.columnnomeAutor = MyBase.Columns("nomeAutor") + End Sub + + _ + Private Sub InitClass() + Me.columnidAutor = New Global.System.Data.DataColumn("idAutor", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidAutor) + Me.columnnomeAutor = New Global.System.Data.DataColumn("nomeAutor", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAutor) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidAutor}, true)) + Me.columnidAutor.AutoIncrement = true + Me.columnidAutor.AutoIncrementSeed = -1 + Me.columnidAutor.AutoIncrementStep = -1 + Me.columnidAutor.AllowDBNull = false + Me.columnidAutor.Unique = true + Me.columnnomeAutor.MaxLength = 50 + End Sub + + _ + Public Function NewtbAutorRow() As tbAutorRow + Return CType(Me.NewRow,tbAutorRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbAutorRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbAutorRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbAutorRowChangedEvent) Is Nothing) Then + RaiseEvent tbAutorRowChanged(Me, New tbAutorRowChangeEvent(CType(e.Row,tbAutorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbAutorRowChangingEvent) Is Nothing) Then + RaiseEvent tbAutorRowChanging(Me, New tbAutorRowChangeEvent(CType(e.Row,tbAutorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbAutorRowDeletedEvent) Is Nothing) Then + RaiseEvent tbAutorRowDeleted(Me, New tbAutorRowChangeEvent(CType(e.Row,tbAutorRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbAutorRowDeletingEvent) Is Nothing) Then + RaiseEvent tbAutorRowDeleting(Me, New tbAutorRowChangeEvent(CType(e.Row,tbAutorRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbAutorRow(ByVal row As tbAutorRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbAutorDataTable" + 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 tbClienteDataTable + Inherits Global.System.Data.TypedTableBase(Of tbClienteRow) + + Private columnidCliente As Global.System.Data.DataColumn + + Private columnnomeCliente As Global.System.Data.DataColumn + + Private columnrgCliente As Global.System.Data.DataColumn + + Private columncpfCliente As Global.System.Data.DataColumn + + Private columntelCliente As Global.System.Data.DataColumn + + Private columncelCliente As Global.System.Data.DataColumn + + Private columnruaCliente As Global.System.Data.DataColumn + + Private columnnumeroCliente As Global.System.Data.DataColumn + + Private columncidadeCliente As Global.System.Data.DataColumn + + Private columnstatusCliente As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbCliente" + 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 idClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidCliente + End Get + End Property + + _ + Public ReadOnly Property nomeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeCliente + End Get + End Property + + _ + Public ReadOnly Property rgClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrgCliente + End Get + End Property + + _ + Public ReadOnly Property cpfClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncpfCliente + End Get + End Property + + _ + Public ReadOnly Property telClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columntelCliente + End Get + End Property + + _ + Public ReadOnly Property celClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncelCliente + End Get + End Property + + _ + Public ReadOnly Property ruaClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnruaCliente + End Get + End Property + + _ + Public ReadOnly Property numeroClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnumeroCliente + End Get + End Property + + _ + Public ReadOnly Property cidadeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeCliente + End Get + End Property + + _ + Public ReadOnly Property statusClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusCliente + 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 tbClienteRow + Get + Return CType(Me.Rows(index),tbClienteRow) + End Get + End Property + + _ + Public Event tbClienteRowChanging As tbClienteRowChangeEventHandler + + _ + Public Event tbClienteRowChanged As tbClienteRowChangeEventHandler + + _ + Public Event tbClienteRowDeleting As tbClienteRowChangeEventHandler + + _ + Public Event tbClienteRowDeleted As tbClienteRowChangeEventHandler + + _ + Public Overloads Sub AddtbClienteRow(ByVal row As tbClienteRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbClienteRow(ByVal nomeCliente As String, ByVal rgCliente As String, ByVal cpfCliente As String, ByVal telCliente As String, ByVal celCliente As String, ByVal ruaCliente As String, ByVal numeroCliente As String, ByVal cidadeCliente As String, ByVal statusCliente As String) As tbClienteRow + Dim rowtbClienteRow As tbClienteRow = CType(Me.NewRow,tbClienteRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, numeroCliente, cidadeCliente, statusCliente} + rowtbClienteRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbClienteRow) + Return rowtbClienteRow + End Function + + _ + Public Function FindByidCliente(ByVal idCliente As Integer) As tbClienteRow + Return CType(Me.Rows.Find(New Object() {idCliente}),tbClienteRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbClienteDataTable = CType(MyBase.Clone,tbClienteDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbClienteDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidCliente = MyBase.Columns("idCliente") + Me.columnnomeCliente = MyBase.Columns("nomeCliente") + Me.columnrgCliente = MyBase.Columns("rgCliente") + Me.columncpfCliente = MyBase.Columns("cpfCliente") + Me.columntelCliente = MyBase.Columns("telCliente") + Me.columncelCliente = MyBase.Columns("celCliente") + Me.columnruaCliente = MyBase.Columns("ruaCliente") + Me.columnnumeroCliente = MyBase.Columns("numeroCliente") + Me.columncidadeCliente = MyBase.Columns("cidadeCliente") + Me.columnstatusCliente = MyBase.Columns("statusCliente") + End Sub + + _ + Private Sub InitClass() + Me.columnidCliente = New Global.System.Data.DataColumn("idCliente", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidCliente) + Me.columnnomeCliente = New Global.System.Data.DataColumn("nomeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeCliente) + Me.columnrgCliente = New Global.System.Data.DataColumn("rgCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrgCliente) + Me.columncpfCliente = New Global.System.Data.DataColumn("cpfCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncpfCliente) + Me.columntelCliente = New Global.System.Data.DataColumn("telCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntelCliente) + Me.columncelCliente = New Global.System.Data.DataColumn("celCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncelCliente) + Me.columnruaCliente = New Global.System.Data.DataColumn("ruaCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnruaCliente) + Me.columnnumeroCliente = New Global.System.Data.DataColumn("numeroCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnumeroCliente) + Me.columncidadeCliente = New Global.System.Data.DataColumn("cidadeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeCliente) + Me.columnstatusCliente = New Global.System.Data.DataColumn("statusCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusCliente) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidCliente}, true)) + Me.columnidCliente.AutoIncrement = true + Me.columnidCliente.AutoIncrementSeed = -1 + Me.columnidCliente.AutoIncrementStep = -1 + Me.columnidCliente.AllowDBNull = false + Me.columnidCliente.Unique = true + Me.columnnomeCliente.MaxLength = 50 + Me.columnrgCliente.MaxLength = 9 + Me.columncpfCliente.MaxLength = 11 + Me.columntelCliente.MaxLength = 10 + Me.columncelCliente.MaxLength = 11 + Me.columnruaCliente.MaxLength = 100 + Me.columnnumeroCliente.MaxLength = 4 + Me.columncidadeCliente.MaxLength = 30 + Me.columnstatusCliente.MaxLength = 10 + End Sub + + _ + Public Function NewtbClienteRow() As tbClienteRow + Return CType(Me.NewRow,tbClienteRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbClienteRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbClienteRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbClienteRowChangedEvent) Is Nothing) Then + RaiseEvent tbClienteRowChanged(Me, New tbClienteRowChangeEvent(CType(e.Row,tbClienteRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbClienteRowChangingEvent) Is Nothing) Then + RaiseEvent tbClienteRowChanging(Me, New tbClienteRowChangeEvent(CType(e.Row,tbClienteRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbClienteRowDeletedEvent) Is Nothing) Then + RaiseEvent tbClienteRowDeleted(Me, New tbClienteRowChangeEvent(CType(e.Row,tbClienteRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbClienteRowDeletingEvent) Is Nothing) Then + RaiseEvent tbClienteRowDeleting(Me, New tbClienteRowChangeEvent(CType(e.Row,tbClienteRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbClienteRow(ByVal row As tbClienteRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbClienteDataTable" + 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 tbEmprestimoDataTable + Inherits Global.System.Data.TypedTableBase(Of tbEmprestimoRow) + + Private columnidEmprestimo As Global.System.Data.DataColumn + + Private columnidFunc As Global.System.Data.DataColumn + + Private columnidCliente As Global.System.Data.DataColumn + + Private columnidItem As Global.System.Data.DataColumn + + Private columndataEmprestimo As Global.System.Data.DataColumn + + Private columndataDevolucao As Global.System.Data.DataColumn + + Private columnstatusEmprestimo As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbEmprestimo" + 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 idEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidEmprestimo + End Get + End Property + + _ + Public ReadOnly Property idFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidFunc + End Get + End Property + + _ + Public ReadOnly Property idClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidCliente + End Get + End Property + + _ + Public ReadOnly Property idItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidItem + End Get + End Property + + _ + Public ReadOnly Property dataEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataEmprestimo + End Get + End Property + + _ + Public ReadOnly Property dataDevolucaoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataDevolucao + End Get + End Property + + _ + Public ReadOnly Property statusEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusEmprestimo + 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 tbEmprestimoRow + Get + Return CType(Me.Rows(index),tbEmprestimoRow) + End Get + End Property + + _ + Public Event tbEmprestimoRowChanging As tbEmprestimoRowChangeEventHandler + + _ + Public Event tbEmprestimoRowChanged As tbEmprestimoRowChangeEventHandler + + _ + Public Event tbEmprestimoRowDeleting As tbEmprestimoRowChangeEventHandler + + _ + Public Event tbEmprestimoRowDeleted As tbEmprestimoRowChangeEventHandler + + _ + Public Overloads Sub AddtbEmprestimoRow(ByVal row As tbEmprestimoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbEmprestimoRow(ByVal parenttbFuncionarioRowBytbFuncionariotbEmprestimo As tbFuncionarioRow, ByVal parenttbClienteRowBytbClientetbEmprestimo As tbClienteRow, ByVal parenttbItemRowBytbItemtbEmprestimo As tbItemRow, ByVal dataEmprestimo As Date, ByVal dataDevolucao As Date, ByVal statusEmprestimo As String) As tbEmprestimoRow + Dim rowtbEmprestimoRow As tbEmprestimoRow = CType(Me.NewRow,tbEmprestimoRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Nothing, dataEmprestimo, dataDevolucao, statusEmprestimo} + If (Not (parenttbFuncionarioRowBytbFuncionariotbEmprestimo) Is Nothing) Then + columnValuesArray(1) = parenttbFuncionarioRowBytbFuncionariotbEmprestimo(0) + End If + If (Not (parenttbClienteRowBytbClientetbEmprestimo) Is Nothing) Then + columnValuesArray(2) = parenttbClienteRowBytbClientetbEmprestimo(0) + End If + If (Not (parenttbItemRowBytbItemtbEmprestimo) Is Nothing) Then + columnValuesArray(3) = parenttbItemRowBytbItemtbEmprestimo(0) + End If + rowtbEmprestimoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbEmprestimoRow) + Return rowtbEmprestimoRow + End Function + + _ + Public Function FindByidEmprestimo(ByVal idEmprestimo As Integer) As tbEmprestimoRow + Return CType(Me.Rows.Find(New Object() {idEmprestimo}),tbEmprestimoRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbEmprestimoDataTable = CType(MyBase.Clone,tbEmprestimoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbEmprestimoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidEmprestimo = MyBase.Columns("idEmprestimo") + Me.columnidFunc = MyBase.Columns("idFunc") + Me.columnidCliente = MyBase.Columns("idCliente") + Me.columnidItem = MyBase.Columns("idItem") + Me.columndataEmprestimo = MyBase.Columns("dataEmprestimo") + Me.columndataDevolucao = MyBase.Columns("dataDevolucao") + Me.columnstatusEmprestimo = MyBase.Columns("statusEmprestimo") + End Sub + + _ + Private Sub InitClass() + Me.columnidEmprestimo = New Global.System.Data.DataColumn("idEmprestimo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidEmprestimo) + Me.columnidFunc = New Global.System.Data.DataColumn("idFunc", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidFunc) + Me.columnidCliente = New Global.System.Data.DataColumn("idCliente", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidCliente) + Me.columnidItem = New Global.System.Data.DataColumn("idItem", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidItem) + Me.columndataEmprestimo = New Global.System.Data.DataColumn("dataEmprestimo", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataEmprestimo) + Me.columndataDevolucao = New Global.System.Data.DataColumn("dataDevolucao", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataDevolucao) + Me.columnstatusEmprestimo = New Global.System.Data.DataColumn("statusEmprestimo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusEmprestimo) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidEmprestimo}, true)) + Me.columnidEmprestimo.AutoIncrement = true + Me.columnidEmprestimo.AutoIncrementSeed = -1 + Me.columnidEmprestimo.AutoIncrementStep = -1 + Me.columnidEmprestimo.AllowDBNull = false + Me.columnidEmprestimo.Unique = true + Me.columnstatusEmprestimo.MaxLength = 10 + End Sub + + _ + Public Function NewtbEmprestimoRow() As tbEmprestimoRow + Return CType(Me.NewRow,tbEmprestimoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbEmprestimoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbEmprestimoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbEmprestimoRowChangedEvent) Is Nothing) Then + RaiseEvent tbEmprestimoRowChanged(Me, New tbEmprestimoRowChangeEvent(CType(e.Row,tbEmprestimoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbEmprestimoRowChangingEvent) Is Nothing) Then + RaiseEvent tbEmprestimoRowChanging(Me, New tbEmprestimoRowChangeEvent(CType(e.Row,tbEmprestimoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbEmprestimoRowDeletedEvent) Is Nothing) Then + RaiseEvent tbEmprestimoRowDeleted(Me, New tbEmprestimoRowChangeEvent(CType(e.Row,tbEmprestimoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbEmprestimoRowDeletingEvent) Is Nothing) Then + RaiseEvent tbEmprestimoRowDeleting(Me, New tbEmprestimoRowChangeEvent(CType(e.Row,tbEmprestimoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbEmprestimoRow(ByVal row As tbEmprestimoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbEmprestimoDataTable" + 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 tbFuncionarioDataTable + Inherits Global.System.Data.TypedTableBase(Of tbFuncionarioRow) + + Private columnidFunc As Global.System.Data.DataColumn + + Private columnnomeFunc As Global.System.Data.DataColumn + + Private columnrgFunc As Global.System.Data.DataColumn + + Private columncpfFunc As Global.System.Data.DataColumn + + Private columntelFunc As Global.System.Data.DataColumn + + Private columncelFunc As Global.System.Data.DataColumn + + Private columnruaFunc As Global.System.Data.DataColumn + + Private columnnumeroFunc As Global.System.Data.DataColumn + + Private columncidadeFunc As Global.System.Data.DataColumn + + Private columnstatusFunc As Global.System.Data.DataColumn + + Private columnusuarioFunc As Global.System.Data.DataColumn + + Private columnsenhaFunc As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbFuncionario" + 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 idFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidFunc + End Get + End Property + + _ + Public ReadOnly Property nomeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeFunc + End Get + End Property + + _ + Public ReadOnly Property rgFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrgFunc + End Get + End Property + + _ + Public ReadOnly Property cpfFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncpfFunc + End Get + End Property + + _ + Public ReadOnly Property telFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columntelFunc + End Get + End Property + + _ + Public ReadOnly Property celFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncelFunc + End Get + End Property + + _ + Public ReadOnly Property ruaFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnruaFunc + End Get + End Property + + _ + Public ReadOnly Property numeroFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnumeroFunc + End Get + End Property + + _ + Public ReadOnly Property cidadeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeFunc + End Get + End Property + + _ + Public ReadOnly Property statusFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusFunc + End Get + End Property + + _ + Public ReadOnly Property usuarioFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnusuarioFunc + End Get + End Property + + _ + Public ReadOnly Property senhaFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaFunc + 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 tbFuncionarioRow + Get + Return CType(Me.Rows(index),tbFuncionarioRow) + End Get + End Property + + _ + Public Event tbFuncionarioRowChanging As tbFuncionarioRowChangeEventHandler + + _ + Public Event tbFuncionarioRowChanged As tbFuncionarioRowChangeEventHandler + + _ + Public Event tbFuncionarioRowDeleting As tbFuncionarioRowChangeEventHandler + + _ + Public Event tbFuncionarioRowDeleted As tbFuncionarioRowChangeEventHandler + + _ + Public Overloads Sub AddtbFuncionarioRow(ByVal row As tbFuncionarioRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbFuncionarioRow(ByVal nomeFunc As String, ByVal rgFunc As String, ByVal cpfFunc As String, ByVal telFunc As String, ByVal celFunc As String, ByVal ruaFunc As String, ByVal numeroFunc As String, ByVal cidadeFunc As String, ByVal statusFunc As String, ByVal usuarioFunc As String, ByVal senhaFunc As String) As tbFuncionarioRow + Dim rowtbFuncionarioRow As tbFuncionarioRow = CType(Me.NewRow,tbFuncionarioRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFunc, statusFunc, usuarioFunc, senhaFunc} + rowtbFuncionarioRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbFuncionarioRow) + Return rowtbFuncionarioRow + End Function + + _ + Public Function FindByidFunc(ByVal idFunc As Integer) As tbFuncionarioRow + Return CType(Me.Rows.Find(New Object() {idFunc}),tbFuncionarioRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbFuncionarioDataTable = CType(MyBase.Clone,tbFuncionarioDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbFuncionarioDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidFunc = MyBase.Columns("idFunc") + Me.columnnomeFunc = MyBase.Columns("nomeFunc") + Me.columnrgFunc = MyBase.Columns("rgFunc") + Me.columncpfFunc = MyBase.Columns("cpfFunc") + Me.columntelFunc = MyBase.Columns("telFunc") + Me.columncelFunc = MyBase.Columns("celFunc") + Me.columnruaFunc = MyBase.Columns("ruaFunc") + Me.columnnumeroFunc = MyBase.Columns("numeroFunc") + Me.columncidadeFunc = MyBase.Columns("cidadeFunc") + Me.columnstatusFunc = MyBase.Columns("statusFunc") + Me.columnusuarioFunc = MyBase.Columns("usuarioFunc") + Me.columnsenhaFunc = MyBase.Columns("senhaFunc") + End Sub + + _ + Private Sub InitClass() + Me.columnidFunc = New Global.System.Data.DataColumn("idFunc", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidFunc) + Me.columnnomeFunc = New Global.System.Data.DataColumn("nomeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeFunc) + Me.columnrgFunc = New Global.System.Data.DataColumn("rgFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrgFunc) + Me.columncpfFunc = New Global.System.Data.DataColumn("cpfFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncpfFunc) + Me.columntelFunc = New Global.System.Data.DataColumn("telFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntelFunc) + Me.columncelFunc = New Global.System.Data.DataColumn("celFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncelFunc) + Me.columnruaFunc = New Global.System.Data.DataColumn("ruaFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnruaFunc) + Me.columnnumeroFunc = New Global.System.Data.DataColumn("numeroFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnumeroFunc) + Me.columncidadeFunc = New Global.System.Data.DataColumn("cidadeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeFunc) + Me.columnstatusFunc = New Global.System.Data.DataColumn("statusFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusFunc) + Me.columnusuarioFunc = New Global.System.Data.DataColumn("usuarioFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnusuarioFunc) + Me.columnsenhaFunc = New Global.System.Data.DataColumn("senhaFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaFunc) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidFunc}, true)) + Me.columnidFunc.AutoIncrement = true + Me.columnidFunc.AutoIncrementSeed = -1 + Me.columnidFunc.AutoIncrementStep = -1 + Me.columnidFunc.AllowDBNull = false + Me.columnidFunc.Unique = true + Me.columnnomeFunc.MaxLength = 50 + Me.columnrgFunc.MaxLength = 9 + Me.columncpfFunc.MaxLength = 11 + Me.columntelFunc.MaxLength = 10 + Me.columncelFunc.MaxLength = 11 + Me.columnruaFunc.MaxLength = 100 + Me.columnnumeroFunc.MaxLength = 4 + Me.columncidadeFunc.MaxLength = 30 + Me.columnstatusFunc.MaxLength = 10 + Me.columnusuarioFunc.MaxLength = 15 + Me.columnsenhaFunc.MaxLength = 15 + End Sub + + _ + Public Function NewtbFuncionarioRow() As tbFuncionarioRow + Return CType(Me.NewRow,tbFuncionarioRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbFuncionarioRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbFuncionarioRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbFuncionarioRowChangedEvent) Is Nothing) Then + RaiseEvent tbFuncionarioRowChanged(Me, New tbFuncionarioRowChangeEvent(CType(e.Row,tbFuncionarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbFuncionarioRowChangingEvent) Is Nothing) Then + RaiseEvent tbFuncionarioRowChanging(Me, New tbFuncionarioRowChangeEvent(CType(e.Row,tbFuncionarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbFuncionarioRowDeletedEvent) Is Nothing) Then + RaiseEvent tbFuncionarioRowDeleted(Me, New tbFuncionarioRowChangeEvent(CType(e.Row,tbFuncionarioRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbFuncionarioRowDeletingEvent) Is Nothing) Then + RaiseEvent tbFuncionarioRowDeleting(Me, New tbFuncionarioRowChangeEvent(CType(e.Row,tbFuncionarioRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbFuncionarioRow(ByVal row As tbFuncionarioRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbFuncionarioDataTable" + 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 tbGeneroDataTable + Inherits Global.System.Data.TypedTableBase(Of tbGeneroRow) + + Private columnidGenero As Global.System.Data.DataColumn + + Private columnnomeGenero As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbGenero" + 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 idGeneroColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidGenero + End Get + End Property + + _ + Public ReadOnly Property nomeGeneroColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeGenero + 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 tbGeneroRow + Get + Return CType(Me.Rows(index),tbGeneroRow) + End Get + End Property + + _ + Public Event tbGeneroRowChanging As tbGeneroRowChangeEventHandler + + _ + Public Event tbGeneroRowChanged As tbGeneroRowChangeEventHandler + + _ + Public Event tbGeneroRowDeleting As tbGeneroRowChangeEventHandler + + _ + Public Event tbGeneroRowDeleted As tbGeneroRowChangeEventHandler + + _ + Public Overloads Sub AddtbGeneroRow(ByVal row As tbGeneroRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbGeneroRow(ByVal nomeGenero As String) As tbGeneroRow + Dim rowtbGeneroRow As tbGeneroRow = CType(Me.NewRow,tbGeneroRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeGenero} + rowtbGeneroRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbGeneroRow) + Return rowtbGeneroRow + End Function + + _ + Public Function FindByidGenero(ByVal idGenero As Integer) As tbGeneroRow + Return CType(Me.Rows.Find(New Object() {idGenero}),tbGeneroRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbGeneroDataTable = CType(MyBase.Clone,tbGeneroDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbGeneroDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidGenero = MyBase.Columns("idGenero") + Me.columnnomeGenero = MyBase.Columns("nomeGenero") + End Sub + + _ + Private Sub InitClass() + Me.columnidGenero = New Global.System.Data.DataColumn("idGenero", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidGenero) + Me.columnnomeGenero = New Global.System.Data.DataColumn("nomeGenero", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeGenero) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidGenero}, true)) + Me.columnidGenero.AutoIncrement = true + Me.columnidGenero.AutoIncrementSeed = -1 + Me.columnidGenero.AutoIncrementStep = -1 + Me.columnidGenero.AllowDBNull = false + Me.columnidGenero.Unique = true + Me.columnnomeGenero.MaxLength = 30 + End Sub + + _ + Public Function NewtbGeneroRow() As tbGeneroRow + Return CType(Me.NewRow,tbGeneroRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbGeneroRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbGeneroRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbGeneroRowChangedEvent) Is Nothing) Then + RaiseEvent tbGeneroRowChanged(Me, New tbGeneroRowChangeEvent(CType(e.Row,tbGeneroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbGeneroRowChangingEvent) Is Nothing) Then + RaiseEvent tbGeneroRowChanging(Me, New tbGeneroRowChangeEvent(CType(e.Row,tbGeneroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbGeneroRowDeletedEvent) Is Nothing) Then + RaiseEvent tbGeneroRowDeleted(Me, New tbGeneroRowChangeEvent(CType(e.Row,tbGeneroRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbGeneroRowDeletingEvent) Is Nothing) Then + RaiseEvent tbGeneroRowDeleting(Me, New tbGeneroRowChangeEvent(CType(e.Row,tbGeneroRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbGeneroRow(ByVal row As tbGeneroRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbGeneroDataTable" + 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 tbItemDataTable + Inherits Global.System.Data.TypedTableBase(Of tbItemRow) + + Private columnidItem As Global.System.Data.DataColumn + + Private columnnomeItem As Global.System.Data.DataColumn + + Private columnidAutor As Global.System.Data.DataColumn + + Private columngeneroItem As Global.System.Data.DataColumn + + Private columntipoItem As Global.System.Data.DataColumn + + Private columnisbnItem As Global.System.Data.DataColumn + + Private columnstatusItem As Global.System.Data.DataColumn + + Private columneditoraItem As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbItem" + 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 idItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidItem + End Get + End Property + + _ + Public ReadOnly Property nomeItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeItem + End Get + End Property + + _ + Public ReadOnly Property idAutorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidAutor + End Get + End Property + + _ + Public ReadOnly Property generoItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columngeneroItem + End Get + End Property + + _ + Public ReadOnly Property tipoItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columntipoItem + End Get + End Property + + _ + Public ReadOnly Property isbnItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnisbnItem + End Get + End Property + + _ + Public ReadOnly Property statusItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusItem + End Get + End Property + + _ + Public ReadOnly Property editoraItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columneditoraItem + 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 tbItemRow + Get + Return CType(Me.Rows(index),tbItemRow) + End Get + End Property + + _ + Public Event tbItemRowChanging As tbItemRowChangeEventHandler + + _ + Public Event tbItemRowChanged As tbItemRowChangeEventHandler + + _ + Public Event tbItemRowDeleting As tbItemRowChangeEventHandler + + _ + Public Event tbItemRowDeleted As tbItemRowChangeEventHandler + + _ + Public Overloads Sub AddtbItemRow(ByVal row As tbItemRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbItemRow(ByVal nomeItem As String, ByVal parenttbAutorRowBytbAutortbItem As tbAutorRow, ByVal parenttbGeneroRowBytbGenerotbItem As tbGeneroRow, ByVal parenttbTipoRowBytbTipotbItem As tbTipoRow, ByVal isbnItem As String, ByVal statusItem As String, ByVal parenttbEditoraRowBytbEditoratbItem As tbEditoraRow) As tbItemRow + Dim rowtbItemRow As tbItemRow = CType(Me.NewRow,tbItemRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeItem, Nothing, Nothing, Nothing, isbnItem, statusItem, Nothing} + If (Not (parenttbAutorRowBytbAutortbItem) Is Nothing) Then + columnValuesArray(2) = parenttbAutorRowBytbAutortbItem(0) + End If + If (Not (parenttbGeneroRowBytbGenerotbItem) Is Nothing) Then + columnValuesArray(3) = parenttbGeneroRowBytbGenerotbItem(0) + End If + If (Not (parenttbTipoRowBytbTipotbItem) Is Nothing) Then + columnValuesArray(4) = parenttbTipoRowBytbTipotbItem(0) + End If + If (Not (parenttbEditoraRowBytbEditoratbItem) Is Nothing) Then + columnValuesArray(7) = parenttbEditoraRowBytbEditoratbItem(0) + End If + rowtbItemRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbItemRow) + Return rowtbItemRow + End Function + + _ + Public Function FindByidItem(ByVal idItem As Integer) As tbItemRow + Return CType(Me.Rows.Find(New Object() {idItem}),tbItemRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbItemDataTable = CType(MyBase.Clone,tbItemDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbItemDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidItem = MyBase.Columns("idItem") + Me.columnnomeItem = MyBase.Columns("nomeItem") + Me.columnidAutor = MyBase.Columns("idAutor") + Me.columngeneroItem = MyBase.Columns("generoItem") + Me.columntipoItem = MyBase.Columns("tipoItem") + Me.columnisbnItem = MyBase.Columns("isbnItem") + Me.columnstatusItem = MyBase.Columns("statusItem") + Me.columneditoraItem = MyBase.Columns("editoraItem") + End Sub + + _ + Private Sub InitClass() + Me.columnidItem = New Global.System.Data.DataColumn("idItem", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidItem) + Me.columnnomeItem = New Global.System.Data.DataColumn("nomeItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeItem) + Me.columnidAutor = New Global.System.Data.DataColumn("idAutor", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidAutor) + Me.columngeneroItem = New Global.System.Data.DataColumn("generoItem", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columngeneroItem) + Me.columntipoItem = New Global.System.Data.DataColumn("tipoItem", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntipoItem) + Me.columnisbnItem = New Global.System.Data.DataColumn("isbnItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnisbnItem) + Me.columnstatusItem = New Global.System.Data.DataColumn("statusItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusItem) + Me.columneditoraItem = New Global.System.Data.DataColumn("editoraItem", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columneditoraItem) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidItem}, true)) + Me.columnidItem.AutoIncrement = true + Me.columnidItem.AutoIncrementSeed = -1 + Me.columnidItem.AutoIncrementStep = -1 + Me.columnidItem.AllowDBNull = false + Me.columnidItem.Unique = true + Me.columnnomeItem.MaxLength = 50 + Me.columnisbnItem.MaxLength = 13 + Me.columnstatusItem.MaxLength = 10 + End Sub + + _ + Public Function NewtbItemRow() As tbItemRow + Return CType(Me.NewRow,tbItemRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbItemRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbItemRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbItemRowChangedEvent) Is Nothing) Then + RaiseEvent tbItemRowChanged(Me, New tbItemRowChangeEvent(CType(e.Row,tbItemRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbItemRowChangingEvent) Is Nothing) Then + RaiseEvent tbItemRowChanging(Me, New tbItemRowChangeEvent(CType(e.Row,tbItemRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbItemRowDeletedEvent) Is Nothing) Then + RaiseEvent tbItemRowDeleted(Me, New tbItemRowChangeEvent(CType(e.Row,tbItemRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbItemRowDeletingEvent) Is Nothing) Then + RaiseEvent tbItemRowDeleting(Me, New tbItemRowChangeEvent(CType(e.Row,tbItemRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbItemRow(ByVal row As tbItemRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbItemDataTable" + 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 tbTipoDataTable + Inherits Global.System.Data.TypedTableBase(Of tbTipoRow) + + Private columnidTipo As Global.System.Data.DataColumn + + Private columnnomeTipo As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbTipo" + 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 idTipoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidTipo + End Get + End Property + + _ + Public ReadOnly Property nomeTipoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeTipo + 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 tbTipoRow + Get + Return CType(Me.Rows(index),tbTipoRow) + End Get + End Property + + _ + Public Event tbTipoRowChanging As tbTipoRowChangeEventHandler + + _ + Public Event tbTipoRowChanged As tbTipoRowChangeEventHandler + + _ + Public Event tbTipoRowDeleting As tbTipoRowChangeEventHandler + + _ + Public Event tbTipoRowDeleted As tbTipoRowChangeEventHandler + + _ + Public Overloads Sub AddtbTipoRow(ByVal row As tbTipoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbTipoRow(ByVal nomeTipo As String) As tbTipoRow + Dim rowtbTipoRow As tbTipoRow = CType(Me.NewRow,tbTipoRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeTipo} + rowtbTipoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbTipoRow) + Return rowtbTipoRow + End Function + + _ + Public Function FindByidTipo(ByVal idTipo As Integer) As tbTipoRow + Return CType(Me.Rows.Find(New Object() {idTipo}),tbTipoRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbTipoDataTable = CType(MyBase.Clone,tbTipoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbTipoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidTipo = MyBase.Columns("idTipo") + Me.columnnomeTipo = MyBase.Columns("nomeTipo") + End Sub + + _ + Private Sub InitClass() + Me.columnidTipo = New Global.System.Data.DataColumn("idTipo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidTipo) + Me.columnnomeTipo = New Global.System.Data.DataColumn("nomeTipo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeTipo) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidTipo}, true)) + Me.columnidTipo.AutoIncrement = true + Me.columnidTipo.AutoIncrementSeed = -1 + Me.columnidTipo.AutoIncrementStep = -1 + Me.columnidTipo.AllowDBNull = false + Me.columnidTipo.Unique = true + Me.columnnomeTipo.MaxLength = 30 + End Sub + + _ + Public Function NewtbTipoRow() As tbTipoRow + Return CType(Me.NewRow,tbTipoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbTipoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbTipoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbTipoRowChangedEvent) Is Nothing) Then + RaiseEvent tbTipoRowChanged(Me, New tbTipoRowChangeEvent(CType(e.Row,tbTipoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbTipoRowChangingEvent) Is Nothing) Then + RaiseEvent tbTipoRowChanging(Me, New tbTipoRowChangeEvent(CType(e.Row,tbTipoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbTipoRowDeletedEvent) Is Nothing) Then + RaiseEvent tbTipoRowDeleted(Me, New tbTipoRowChangeEvent(CType(e.Row,tbTipoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbTipoRowDeletingEvent) Is Nothing) Then + RaiseEvent tbTipoRowDeleting(Me, New tbTipoRowChangeEvent(CType(e.Row,tbTipoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbTipoRow(ByVal row As tbTipoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbTipoDataTable" + 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 rClienteAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rClienteAtivoRow) + + Private columnnomeCliente As Global.System.Data.DataColumn + + Private columnrgCliente As Global.System.Data.DataColumn + + Private columncpfCliente As Global.System.Data.DataColumn + + Private columntelCliente As Global.System.Data.DataColumn + + Private columncelCliente As Global.System.Data.DataColumn + + Private columnruaCliente As Global.System.Data.DataColumn + + Private columnnumeroCliente As Global.System.Data.DataColumn + + Private columncidadeCliente As Global.System.Data.DataColumn + + Private columnstatusCliente As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rClienteAtivo" + 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 nomeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeCliente + End Get + End Property + + _ + Public ReadOnly Property rgClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrgCliente + End Get + End Property + + _ + Public ReadOnly Property cpfClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncpfCliente + End Get + End Property + + _ + Public ReadOnly Property telClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columntelCliente + End Get + End Property + + _ + Public ReadOnly Property celClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncelCliente + End Get + End Property + + _ + Public ReadOnly Property ruaClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnruaCliente + End Get + End Property + + _ + Public ReadOnly Property numeroClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnumeroCliente + End Get + End Property + + _ + Public ReadOnly Property cidadeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeCliente + End Get + End Property + + _ + Public ReadOnly Property statusClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusCliente + 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 rClienteAtivoRow + Get + Return CType(Me.Rows(index),rClienteAtivoRow) + End Get + End Property + + _ + Public Event rClienteAtivoRowChanging As rClienteAtivoRowChangeEventHandler + + _ + Public Event rClienteAtivoRowChanged As rClienteAtivoRowChangeEventHandler + + _ + Public Event rClienteAtivoRowDeleting As rClienteAtivoRowChangeEventHandler + + _ + Public Event rClienteAtivoRowDeleted As rClienteAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrClienteAtivoRow(ByVal row As rClienteAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrClienteAtivoRow(ByVal nomeCliente As String, ByVal rgCliente As String, ByVal cpfCliente As String, ByVal telCliente As String, ByVal celCliente As String, ByVal ruaCliente As String, ByVal numeroCliente As String, ByVal cidadeCliente As String, ByVal statusCliente As String) As rClienteAtivoRow + Dim rowrClienteAtivoRow As rClienteAtivoRow = CType(Me.NewRow,rClienteAtivoRow) + Dim columnValuesArray() As Object = New Object() {nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, numeroCliente, cidadeCliente, statusCliente} + rowrClienteAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrClienteAtivoRow) + Return rowrClienteAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rClienteAtivoDataTable = CType(MyBase.Clone,rClienteAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rClienteAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeCliente = MyBase.Columns("nomeCliente") + Me.columnrgCliente = MyBase.Columns("rgCliente") + Me.columncpfCliente = MyBase.Columns("cpfCliente") + Me.columntelCliente = MyBase.Columns("telCliente") + Me.columncelCliente = MyBase.Columns("celCliente") + Me.columnruaCliente = MyBase.Columns("ruaCliente") + Me.columnnumeroCliente = MyBase.Columns("numeroCliente") + Me.columncidadeCliente = MyBase.Columns("cidadeCliente") + Me.columnstatusCliente = MyBase.Columns("statusCliente") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeCliente = New Global.System.Data.DataColumn("nomeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeCliente) + Me.columnrgCliente = New Global.System.Data.DataColumn("rgCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrgCliente) + Me.columncpfCliente = New Global.System.Data.DataColumn("cpfCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncpfCliente) + Me.columntelCliente = New Global.System.Data.DataColumn("telCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntelCliente) + Me.columncelCliente = New Global.System.Data.DataColumn("celCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncelCliente) + Me.columnruaCliente = New Global.System.Data.DataColumn("ruaCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnruaCliente) + Me.columnnumeroCliente = New Global.System.Data.DataColumn("numeroCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnumeroCliente) + Me.columncidadeCliente = New Global.System.Data.DataColumn("cidadeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeCliente) + Me.columnstatusCliente = New Global.System.Data.DataColumn("statusCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusCliente) + Me.columnnomeCliente.MaxLength = 50 + Me.columnrgCliente.MaxLength = 9 + Me.columncpfCliente.MaxLength = 11 + Me.columntelCliente.MaxLength = 10 + Me.columncelCliente.MaxLength = 11 + Me.columnruaCliente.MaxLength = 100 + Me.columnnumeroCliente.MaxLength = 4 + Me.columncidadeCliente.MaxLength = 30 + Me.columnstatusCliente.MaxLength = 10 + End Sub + + _ + Public Function NewrClienteAtivoRow() As rClienteAtivoRow + Return CType(Me.NewRow,rClienteAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rClienteAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rClienteAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rClienteAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rClienteAtivoRowChanged(Me, New rClienteAtivoRowChangeEvent(CType(e.Row,rClienteAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rClienteAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rClienteAtivoRowChanging(Me, New rClienteAtivoRowChangeEvent(CType(e.Row,rClienteAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rClienteAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rClienteAtivoRowDeleted(Me, New rClienteAtivoRowChangeEvent(CType(e.Row,rClienteAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rClienteAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rClienteAtivoRowDeleting(Me, New rClienteAtivoRowChangeEvent(CType(e.Row,rClienteAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverClienteAtivoRow(ByVal row As rClienteAtivoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rClienteAtivoDataTable" + 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 rClienteDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rClienteDesativadoRow) + + Private columnnomeCliente As Global.System.Data.DataColumn + + Private columnrgCliente As Global.System.Data.DataColumn + + Private columncpfCliente As Global.System.Data.DataColumn + + Private columntelCliente As Global.System.Data.DataColumn + + Private columncelCliente As Global.System.Data.DataColumn + + Private columnruaCliente As Global.System.Data.DataColumn + + Private columnnumeroCliente As Global.System.Data.DataColumn + + Private columncidadeCliente As Global.System.Data.DataColumn + + Private columnstatusCliente As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rClienteDesativado" + 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 nomeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeCliente + End Get + End Property + + _ + Public ReadOnly Property rgClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrgCliente + End Get + End Property + + _ + Public ReadOnly Property cpfClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncpfCliente + End Get + End Property + + _ + Public ReadOnly Property telClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columntelCliente + End Get + End Property + + _ + Public ReadOnly Property celClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncelCliente + End Get + End Property + + _ + Public ReadOnly Property ruaClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnruaCliente + End Get + End Property + + _ + Public ReadOnly Property numeroClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnumeroCliente + End Get + End Property + + _ + Public ReadOnly Property cidadeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeCliente + End Get + End Property + + _ + Public ReadOnly Property statusClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusCliente + 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 rClienteDesativadoRow + Get + Return CType(Me.Rows(index),rClienteDesativadoRow) + End Get + End Property + + _ + Public Event rClienteDesativadoRowChanging As rClienteDesativadoRowChangeEventHandler + + _ + Public Event rClienteDesativadoRowChanged As rClienteDesativadoRowChangeEventHandler + + _ + Public Event rClienteDesativadoRowDeleting As rClienteDesativadoRowChangeEventHandler + + _ + Public Event rClienteDesativadoRowDeleted As rClienteDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrClienteDesativadoRow(ByVal row As rClienteDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrClienteDesativadoRow(ByVal nomeCliente As String, ByVal rgCliente As String, ByVal cpfCliente As String, ByVal telCliente As String, ByVal celCliente As String, ByVal ruaCliente As String, ByVal numeroCliente As String, ByVal cidadeCliente As String, ByVal statusCliente As String) As rClienteDesativadoRow + Dim rowrClienteDesativadoRow As rClienteDesativadoRow = CType(Me.NewRow,rClienteDesativadoRow) + Dim columnValuesArray() As Object = New Object() {nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, numeroCliente, cidadeCliente, statusCliente} + rowrClienteDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrClienteDesativadoRow) + Return rowrClienteDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rClienteDesativadoDataTable = CType(MyBase.Clone,rClienteDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rClienteDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeCliente = MyBase.Columns("nomeCliente") + Me.columnrgCliente = MyBase.Columns("rgCliente") + Me.columncpfCliente = MyBase.Columns("cpfCliente") + Me.columntelCliente = MyBase.Columns("telCliente") + Me.columncelCliente = MyBase.Columns("celCliente") + Me.columnruaCliente = MyBase.Columns("ruaCliente") + Me.columnnumeroCliente = MyBase.Columns("numeroCliente") + Me.columncidadeCliente = MyBase.Columns("cidadeCliente") + Me.columnstatusCliente = MyBase.Columns("statusCliente") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeCliente = New Global.System.Data.DataColumn("nomeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeCliente) + Me.columnrgCliente = New Global.System.Data.DataColumn("rgCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrgCliente) + Me.columncpfCliente = New Global.System.Data.DataColumn("cpfCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncpfCliente) + Me.columntelCliente = New Global.System.Data.DataColumn("telCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntelCliente) + Me.columncelCliente = New Global.System.Data.DataColumn("celCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncelCliente) + Me.columnruaCliente = New Global.System.Data.DataColumn("ruaCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnruaCliente) + Me.columnnumeroCliente = New Global.System.Data.DataColumn("numeroCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnumeroCliente) + Me.columncidadeCliente = New Global.System.Data.DataColumn("cidadeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeCliente) + Me.columnstatusCliente = New Global.System.Data.DataColumn("statusCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusCliente) + Me.columnnomeCliente.MaxLength = 50 + Me.columnrgCliente.MaxLength = 9 + Me.columncpfCliente.MaxLength = 11 + Me.columntelCliente.MaxLength = 10 + Me.columncelCliente.MaxLength = 11 + Me.columnruaCliente.MaxLength = 100 + Me.columnnumeroCliente.MaxLength = 4 + Me.columncidadeCliente.MaxLength = 30 + Me.columnstatusCliente.MaxLength = 10 + End Sub + + _ + Public Function NewrClienteDesativadoRow() As rClienteDesativadoRow + Return CType(Me.NewRow,rClienteDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rClienteDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rClienteDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rClienteDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rClienteDesativadoRowChanged(Me, New rClienteDesativadoRowChangeEvent(CType(e.Row,rClienteDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rClienteDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rClienteDesativadoRowChanging(Me, New rClienteDesativadoRowChangeEvent(CType(e.Row,rClienteDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rClienteDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rClienteDesativadoRowDeleted(Me, New rClienteDesativadoRowChangeEvent(CType(e.Row,rClienteDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rClienteDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rClienteDesativadoRowDeleting(Me, New rClienteDesativadoRowChangeEvent(CType(e.Row,rClienteDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverClienteDesativadoRow(ByVal row As rClienteDesativadoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rClienteDesativadoDataTable" + 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 rEmprestimosAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rEmprestimosAtivoRow) + + Private columnidEmprestimo As Global.System.Data.DataColumn + + Private columnnomeFunc As Global.System.Data.DataColumn + + Private columnnomeCliente As Global.System.Data.DataColumn + + Private columnnomeItem As Global.System.Data.DataColumn + + Private columnnomeTipo As Global.System.Data.DataColumn + + Private columndataEmprestimo As Global.System.Data.DataColumn + + Private columndataDevolucao As Global.System.Data.DataColumn + + Private columnstatusEmprestimo As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rEmprestimosAtivo" + 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 idEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidEmprestimo + End Get + End Property + + _ + Public ReadOnly Property nomeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeFunc + End Get + End Property + + _ + Public ReadOnly Property nomeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeCliente + End Get + End Property + + _ + Public ReadOnly Property nomeItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeItem + End Get + End Property + + _ + Public ReadOnly Property nomeTipoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeTipo + End Get + End Property + + _ + Public ReadOnly Property dataEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataEmprestimo + End Get + End Property + + _ + Public ReadOnly Property dataDevolucaoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataDevolucao + End Get + End Property + + _ + Public ReadOnly Property statusEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusEmprestimo + 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 rEmprestimosAtivoRow + Get + Return CType(Me.Rows(index),rEmprestimosAtivoRow) + End Get + End Property + + _ + Public Event rEmprestimosAtivoRowChanging As rEmprestimosAtivoRowChangeEventHandler + + _ + Public Event rEmprestimosAtivoRowChanged As rEmprestimosAtivoRowChangeEventHandler + + _ + Public Event rEmprestimosAtivoRowDeleting As rEmprestimosAtivoRowChangeEventHandler + + _ + Public Event rEmprestimosAtivoRowDeleted As rEmprestimosAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrEmprestimosAtivoRow(ByVal row As rEmprestimosAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrEmprestimosAtivoRow(ByVal nomeFunc As String, ByVal nomeCliente As String, ByVal nomeItem As String, ByVal nomeTipo As String, ByVal dataEmprestimo As Date, ByVal dataDevolucao As Date, ByVal statusEmprestimo As String) As rEmprestimosAtivoRow + Dim rowrEmprestimosAtivoRow As rEmprestimosAtivoRow = CType(Me.NewRow,rEmprestimosAtivoRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeFunc, nomeCliente, nomeItem, nomeTipo, dataEmprestimo, dataDevolucao, statusEmprestimo} + rowrEmprestimosAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrEmprestimosAtivoRow) + Return rowrEmprestimosAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rEmprestimosAtivoDataTable = CType(MyBase.Clone,rEmprestimosAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rEmprestimosAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidEmprestimo = MyBase.Columns("idEmprestimo") + Me.columnnomeFunc = MyBase.Columns("nomeFunc") + Me.columnnomeCliente = MyBase.Columns("nomeCliente") + Me.columnnomeItem = MyBase.Columns("nomeItem") + Me.columnnomeTipo = MyBase.Columns("nomeTipo") + Me.columndataEmprestimo = MyBase.Columns("dataEmprestimo") + Me.columndataDevolucao = MyBase.Columns("dataDevolucao") + Me.columnstatusEmprestimo = MyBase.Columns("statusEmprestimo") + End Sub + + _ + Private Sub InitClass() + Me.columnidEmprestimo = New Global.System.Data.DataColumn("idEmprestimo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidEmprestimo) + Me.columnnomeFunc = New Global.System.Data.DataColumn("nomeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeFunc) + Me.columnnomeCliente = New Global.System.Data.DataColumn("nomeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeCliente) + Me.columnnomeItem = New Global.System.Data.DataColumn("nomeItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeItem) + Me.columnnomeTipo = New Global.System.Data.DataColumn("nomeTipo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeTipo) + Me.columndataEmprestimo = New Global.System.Data.DataColumn("dataEmprestimo", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataEmprestimo) + Me.columndataDevolucao = New Global.System.Data.DataColumn("dataDevolucao", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataDevolucao) + Me.columnstatusEmprestimo = New Global.System.Data.DataColumn("statusEmprestimo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusEmprestimo) + Me.columnidEmprestimo.AutoIncrement = true + Me.columnidEmprestimo.AutoIncrementSeed = -1 + Me.columnidEmprestimo.AutoIncrementStep = -1 + Me.columnnomeFunc.MaxLength = 50 + Me.columnnomeCliente.MaxLength = 50 + Me.columnnomeItem.MaxLength = 50 + Me.columnnomeTipo.MaxLength = 30 + Me.columnstatusEmprestimo.MaxLength = 10 + End Sub + + _ + Public Function NewrEmprestimosAtivoRow() As rEmprestimosAtivoRow + Return CType(Me.NewRow,rEmprestimosAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rEmprestimosAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rEmprestimosAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rEmprestimosAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rEmprestimosAtivoRowChanged(Me, New rEmprestimosAtivoRowChangeEvent(CType(e.Row,rEmprestimosAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rEmprestimosAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rEmprestimosAtivoRowChanging(Me, New rEmprestimosAtivoRowChangeEvent(CType(e.Row,rEmprestimosAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rEmprestimosAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rEmprestimosAtivoRowDeleted(Me, New rEmprestimosAtivoRowChangeEvent(CType(e.Row,rEmprestimosAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rEmprestimosAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rEmprestimosAtivoRowDeleting(Me, New rEmprestimosAtivoRowChangeEvent(CType(e.Row,rEmprestimosAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverEmprestimosAtivoRow(ByVal row As rEmprestimosAtivoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rEmprestimosAtivoDataTable" + 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 rEmprestimosDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rEmprestimosDesativadoRow) + + Private columnidEmprestimo As Global.System.Data.DataColumn + + Private columnnomeFunc As Global.System.Data.DataColumn + + Private columnnomeCliente As Global.System.Data.DataColumn + + Private columnnomeItem As Global.System.Data.DataColumn + + Private columnnomeTipo As Global.System.Data.DataColumn + + Private columndataEmprestimo As Global.System.Data.DataColumn + + Private columndataDevolucao As Global.System.Data.DataColumn + + Private columnstatusEmprestimo As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rEmprestimosDesativado" + 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 idEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidEmprestimo + End Get + End Property + + _ + Public ReadOnly Property nomeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeFunc + End Get + End Property + + _ + Public ReadOnly Property nomeClienteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeCliente + End Get + End Property + + _ + Public ReadOnly Property nomeItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeItem + End Get + End Property + + _ + Public ReadOnly Property nomeTipoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeTipo + End Get + End Property + + _ + Public ReadOnly Property dataEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataEmprestimo + End Get + End Property + + _ + Public ReadOnly Property dataDevolucaoColumn() As Global.System.Data.DataColumn + Get + Return Me.columndataDevolucao + End Get + End Property + + _ + Public ReadOnly Property statusEmprestimoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusEmprestimo + 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 rEmprestimosDesativadoRow + Get + Return CType(Me.Rows(index),rEmprestimosDesativadoRow) + End Get + End Property + + _ + Public Event rEmprestimosDesativadoRowChanging As rEmprestimosDesativadoRowChangeEventHandler + + _ + Public Event rEmprestimosDesativadoRowChanged As rEmprestimosDesativadoRowChangeEventHandler + + _ + Public Event rEmprestimosDesativadoRowDeleting As rEmprestimosDesativadoRowChangeEventHandler + + _ + Public Event rEmprestimosDesativadoRowDeleted As rEmprestimosDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrEmprestimosDesativadoRow(ByVal row As rEmprestimosDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrEmprestimosDesativadoRow(ByVal nomeFunc As String, ByVal nomeCliente As String, ByVal nomeItem As String, ByVal nomeTipo As String, ByVal dataEmprestimo As Date, ByVal dataDevolucao As Date, ByVal statusEmprestimo As String) As rEmprestimosDesativadoRow + Dim rowrEmprestimosDesativadoRow As rEmprestimosDesativadoRow = CType(Me.NewRow,rEmprestimosDesativadoRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeFunc, nomeCliente, nomeItem, nomeTipo, dataEmprestimo, dataDevolucao, statusEmprestimo} + rowrEmprestimosDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrEmprestimosDesativadoRow) + Return rowrEmprestimosDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rEmprestimosDesativadoDataTable = CType(MyBase.Clone,rEmprestimosDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rEmprestimosDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidEmprestimo = MyBase.Columns("idEmprestimo") + Me.columnnomeFunc = MyBase.Columns("nomeFunc") + Me.columnnomeCliente = MyBase.Columns("nomeCliente") + Me.columnnomeItem = MyBase.Columns("nomeItem") + Me.columnnomeTipo = MyBase.Columns("nomeTipo") + Me.columndataEmprestimo = MyBase.Columns("dataEmprestimo") + Me.columndataDevolucao = MyBase.Columns("dataDevolucao") + Me.columnstatusEmprestimo = MyBase.Columns("statusEmprestimo") + End Sub + + _ + Private Sub InitClass() + Me.columnidEmprestimo = New Global.System.Data.DataColumn("idEmprestimo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidEmprestimo) + Me.columnnomeFunc = New Global.System.Data.DataColumn("nomeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeFunc) + Me.columnnomeCliente = New Global.System.Data.DataColumn("nomeCliente", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeCliente) + Me.columnnomeItem = New Global.System.Data.DataColumn("nomeItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeItem) + Me.columnnomeTipo = New Global.System.Data.DataColumn("nomeTipo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeTipo) + Me.columndataEmprestimo = New Global.System.Data.DataColumn("dataEmprestimo", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataEmprestimo) + Me.columndataDevolucao = New Global.System.Data.DataColumn("dataDevolucao", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columndataDevolucao) + Me.columnstatusEmprestimo = New Global.System.Data.DataColumn("statusEmprestimo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusEmprestimo) + Me.columnidEmprestimo.AutoIncrement = true + Me.columnidEmprestimo.AutoIncrementSeed = -1 + Me.columnidEmprestimo.AutoIncrementStep = -1 + Me.columnnomeFunc.MaxLength = 50 + Me.columnnomeCliente.MaxLength = 50 + Me.columnnomeItem.MaxLength = 50 + Me.columnnomeTipo.MaxLength = 30 + Me.columnstatusEmprestimo.MaxLength = 10 + End Sub + + _ + Public Function NewrEmprestimosDesativadoRow() As rEmprestimosDesativadoRow + Return CType(Me.NewRow,rEmprestimosDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rEmprestimosDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rEmprestimosDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rEmprestimosDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rEmprestimosDesativadoRowChanged(Me, New rEmprestimosDesativadoRowChangeEvent(CType(e.Row,rEmprestimosDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rEmprestimosDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rEmprestimosDesativadoRowChanging(Me, New rEmprestimosDesativadoRowChangeEvent(CType(e.Row,rEmprestimosDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rEmprestimosDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rEmprestimosDesativadoRowDeleted(Me, New rEmprestimosDesativadoRowChangeEvent(CType(e.Row,rEmprestimosDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rEmprestimosDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rEmprestimosDesativadoRowDeleting(Me, New rEmprestimosDesativadoRowChangeEvent(CType(e.Row,rEmprestimosDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverEmprestimosDesativadoRow(ByVal row As rEmprestimosDesativadoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rEmprestimosDesativadoDataTable" + 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 rFuncAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rFuncAtivoRow) + + Private columnnomeFunc As Global.System.Data.DataColumn + + Private columnrgFunc As Global.System.Data.DataColumn + + Private columncpfFunc As Global.System.Data.DataColumn + + Private columntelFunc As Global.System.Data.DataColumn + + Private columncelFunc As Global.System.Data.DataColumn + + Private columnruaFunc As Global.System.Data.DataColumn + + Private columnnumeroFunc As Global.System.Data.DataColumn + + Private columncidadeFunc As Global.System.Data.DataColumn + + Private columnusuarioFunc As Global.System.Data.DataColumn + + Private columnsenhaFunc As Global.System.Data.DataColumn + + Private columnstatusFunc As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rFuncAtivo" + 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 nomeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeFunc + End Get + End Property + + _ + Public ReadOnly Property rgFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrgFunc + End Get + End Property + + _ + Public ReadOnly Property cpfFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncpfFunc + End Get + End Property + + _ + Public ReadOnly Property telFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columntelFunc + End Get + End Property + + _ + Public ReadOnly Property celFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncelFunc + End Get + End Property + + _ + Public ReadOnly Property ruaFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnruaFunc + End Get + End Property + + _ + Public ReadOnly Property numeroFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnumeroFunc + End Get + End Property + + _ + Public ReadOnly Property cidadeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeFunc + End Get + End Property + + _ + Public ReadOnly Property usuarioFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnusuarioFunc + End Get + End Property + + _ + Public ReadOnly Property senhaFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaFunc + End Get + End Property + + _ + Public ReadOnly Property statusFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusFunc + 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 rFuncAtivoRow + Get + Return CType(Me.Rows(index),rFuncAtivoRow) + End Get + End Property + + _ + Public Event rFuncAtivoRowChanging As rFuncAtivoRowChangeEventHandler + + _ + Public Event rFuncAtivoRowChanged As rFuncAtivoRowChangeEventHandler + + _ + Public Event rFuncAtivoRowDeleting As rFuncAtivoRowChangeEventHandler + + _ + Public Event rFuncAtivoRowDeleted As rFuncAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrFuncAtivoRow(ByVal row As rFuncAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrFuncAtivoRow(ByVal nomeFunc As String, ByVal rgFunc As String, ByVal cpfFunc As String, ByVal telFunc As String, ByVal celFunc As String, ByVal ruaFunc As String, ByVal numeroFunc As String, ByVal cidadeFunc As String, ByVal usuarioFunc As String, ByVal senhaFunc As String, ByVal statusFunc As String) As rFuncAtivoRow + Dim rowrFuncAtivoRow As rFuncAtivoRow = CType(Me.NewRow,rFuncAtivoRow) + Dim columnValuesArray() As Object = New Object() {nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFunc, usuarioFunc, senhaFunc, statusFunc} + rowrFuncAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrFuncAtivoRow) + Return rowrFuncAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rFuncAtivoDataTable = CType(MyBase.Clone,rFuncAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rFuncAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeFunc = MyBase.Columns("nomeFunc") + Me.columnrgFunc = MyBase.Columns("rgFunc") + Me.columncpfFunc = MyBase.Columns("cpfFunc") + Me.columntelFunc = MyBase.Columns("telFunc") + Me.columncelFunc = MyBase.Columns("celFunc") + Me.columnruaFunc = MyBase.Columns("ruaFunc") + Me.columnnumeroFunc = MyBase.Columns("numeroFunc") + Me.columncidadeFunc = MyBase.Columns("cidadeFunc") + Me.columnusuarioFunc = MyBase.Columns("usuarioFunc") + Me.columnsenhaFunc = MyBase.Columns("senhaFunc") + Me.columnstatusFunc = MyBase.Columns("statusFunc") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeFunc = New Global.System.Data.DataColumn("nomeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeFunc) + Me.columnrgFunc = New Global.System.Data.DataColumn("rgFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrgFunc) + Me.columncpfFunc = New Global.System.Data.DataColumn("cpfFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncpfFunc) + Me.columntelFunc = New Global.System.Data.DataColumn("telFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntelFunc) + Me.columncelFunc = New Global.System.Data.DataColumn("celFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncelFunc) + Me.columnruaFunc = New Global.System.Data.DataColumn("ruaFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnruaFunc) + Me.columnnumeroFunc = New Global.System.Data.DataColumn("numeroFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnumeroFunc) + Me.columncidadeFunc = New Global.System.Data.DataColumn("cidadeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeFunc) + Me.columnusuarioFunc = New Global.System.Data.DataColumn("usuarioFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnusuarioFunc) + Me.columnsenhaFunc = New Global.System.Data.DataColumn("senhaFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaFunc) + Me.columnstatusFunc = New Global.System.Data.DataColumn("statusFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusFunc) + Me.columnnomeFunc.MaxLength = 50 + Me.columnrgFunc.MaxLength = 9 + Me.columncpfFunc.MaxLength = 11 + Me.columntelFunc.MaxLength = 10 + Me.columncelFunc.MaxLength = 11 + Me.columnruaFunc.MaxLength = 100 + Me.columnnumeroFunc.MaxLength = 4 + Me.columncidadeFunc.MaxLength = 30 + Me.columnusuarioFunc.MaxLength = 15 + Me.columnsenhaFunc.MaxLength = 15 + Me.columnstatusFunc.MaxLength = 10 + End Sub + + _ + Public Function NewrFuncAtivoRow() As rFuncAtivoRow + Return CType(Me.NewRow,rFuncAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rFuncAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rFuncAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rFuncAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rFuncAtivoRowChanged(Me, New rFuncAtivoRowChangeEvent(CType(e.Row,rFuncAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rFuncAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rFuncAtivoRowChanging(Me, New rFuncAtivoRowChangeEvent(CType(e.Row,rFuncAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rFuncAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rFuncAtivoRowDeleted(Me, New rFuncAtivoRowChangeEvent(CType(e.Row,rFuncAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rFuncAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rFuncAtivoRowDeleting(Me, New rFuncAtivoRowChangeEvent(CType(e.Row,rFuncAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverFuncAtivoRow(ByVal row As rFuncAtivoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rFuncAtivoDataTable" + 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 rFuncDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rFuncDesativadoRow) + + Private columnnomeFunc As Global.System.Data.DataColumn + + Private columnrgFunc As Global.System.Data.DataColumn + + Private columncpfFunc As Global.System.Data.DataColumn + + Private columntelFunc As Global.System.Data.DataColumn + + Private columncelFunc As Global.System.Data.DataColumn + + Private columnruaFunc As Global.System.Data.DataColumn + + Private columnnumeroFunc As Global.System.Data.DataColumn + + Private columncidadeFunc As Global.System.Data.DataColumn + + Private columnusuarioFunc As Global.System.Data.DataColumn + + Private columnsenhaFunc As Global.System.Data.DataColumn + + Private columnstatusFunc As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rFuncDesativado" + 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 nomeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeFunc + End Get + End Property + + _ + Public ReadOnly Property rgFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrgFunc + End Get + End Property + + _ + Public ReadOnly Property cpfFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncpfFunc + End Get + End Property + + _ + Public ReadOnly Property telFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columntelFunc + End Get + End Property + + _ + Public ReadOnly Property celFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncelFunc + End Get + End Property + + _ + Public ReadOnly Property ruaFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnruaFunc + End Get + End Property + + _ + Public ReadOnly Property numeroFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnumeroFunc + End Get + End Property + + _ + Public ReadOnly Property cidadeFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columncidadeFunc + End Get + End Property + + _ + Public ReadOnly Property usuarioFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnusuarioFunc + End Get + End Property + + _ + Public ReadOnly Property senhaFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnsenhaFunc + End Get + End Property + + _ + Public ReadOnly Property statusFuncColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusFunc + 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 rFuncDesativadoRow + Get + Return CType(Me.Rows(index),rFuncDesativadoRow) + End Get + End Property + + _ + Public Event rFuncDesativadoRowChanging As rFuncDesativadoRowChangeEventHandler + + _ + Public Event rFuncDesativadoRowChanged As rFuncDesativadoRowChangeEventHandler + + _ + Public Event rFuncDesativadoRowDeleting As rFuncDesativadoRowChangeEventHandler + + _ + Public Event rFuncDesativadoRowDeleted As rFuncDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrFuncDesativadoRow(ByVal row As rFuncDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrFuncDesativadoRow(ByVal nomeFunc As String, ByVal rgFunc As String, ByVal cpfFunc As String, ByVal telFunc As String, ByVal celFunc As String, ByVal ruaFunc As String, ByVal numeroFunc As String, ByVal cidadeFunc As String, ByVal usuarioFunc As String, ByVal senhaFunc As String, ByVal statusFunc As String) As rFuncDesativadoRow + Dim rowrFuncDesativadoRow As rFuncDesativadoRow = CType(Me.NewRow,rFuncDesativadoRow) + Dim columnValuesArray() As Object = New Object() {nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFunc, usuarioFunc, senhaFunc, statusFunc} + rowrFuncDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrFuncDesativadoRow) + Return rowrFuncDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rFuncDesativadoDataTable = CType(MyBase.Clone,rFuncDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rFuncDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeFunc = MyBase.Columns("nomeFunc") + Me.columnrgFunc = MyBase.Columns("rgFunc") + Me.columncpfFunc = MyBase.Columns("cpfFunc") + Me.columntelFunc = MyBase.Columns("telFunc") + Me.columncelFunc = MyBase.Columns("celFunc") + Me.columnruaFunc = MyBase.Columns("ruaFunc") + Me.columnnumeroFunc = MyBase.Columns("numeroFunc") + Me.columncidadeFunc = MyBase.Columns("cidadeFunc") + Me.columnusuarioFunc = MyBase.Columns("usuarioFunc") + Me.columnsenhaFunc = MyBase.Columns("senhaFunc") + Me.columnstatusFunc = MyBase.Columns("statusFunc") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeFunc = New Global.System.Data.DataColumn("nomeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeFunc) + Me.columnrgFunc = New Global.System.Data.DataColumn("rgFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrgFunc) + Me.columncpfFunc = New Global.System.Data.DataColumn("cpfFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncpfFunc) + Me.columntelFunc = New Global.System.Data.DataColumn("telFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columntelFunc) + Me.columncelFunc = New Global.System.Data.DataColumn("celFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncelFunc) + Me.columnruaFunc = New Global.System.Data.DataColumn("ruaFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnruaFunc) + Me.columnnumeroFunc = New Global.System.Data.DataColumn("numeroFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnumeroFunc) + Me.columncidadeFunc = New Global.System.Data.DataColumn("cidadeFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columncidadeFunc) + Me.columnusuarioFunc = New Global.System.Data.DataColumn("usuarioFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnusuarioFunc) + Me.columnsenhaFunc = New Global.System.Data.DataColumn("senhaFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnsenhaFunc) + Me.columnstatusFunc = New Global.System.Data.DataColumn("statusFunc", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusFunc) + Me.columnnomeFunc.MaxLength = 50 + Me.columnrgFunc.MaxLength = 9 + Me.columncpfFunc.MaxLength = 11 + Me.columntelFunc.MaxLength = 10 + Me.columncelFunc.MaxLength = 11 + Me.columnruaFunc.MaxLength = 100 + Me.columnnumeroFunc.MaxLength = 4 + Me.columncidadeFunc.MaxLength = 30 + Me.columnusuarioFunc.MaxLength = 15 + Me.columnsenhaFunc.MaxLength = 15 + Me.columnstatusFunc.MaxLength = 10 + End Sub + + _ + Public Function NewrFuncDesativadoRow() As rFuncDesativadoRow + Return CType(Me.NewRow,rFuncDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rFuncDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rFuncDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rFuncDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rFuncDesativadoRowChanged(Me, New rFuncDesativadoRowChangeEvent(CType(e.Row,rFuncDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rFuncDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rFuncDesativadoRowChanging(Me, New rFuncDesativadoRowChangeEvent(CType(e.Row,rFuncDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rFuncDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rFuncDesativadoRowDeleted(Me, New rFuncDesativadoRowChangeEvent(CType(e.Row,rFuncDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rFuncDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rFuncDesativadoRowDeleting(Me, New rFuncDesativadoRowChangeEvent(CType(e.Row,rFuncDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverFuncDesativadoRow(ByVal row As rFuncDesativadoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rFuncDesativadoDataTable" + 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 rItemAtivoDataTable + Inherits Global.System.Data.TypedTableBase(Of rItemAtivoRow) + + Private columnnomeItem As Global.System.Data.DataColumn + + Private columnnomeTipo As Global.System.Data.DataColumn + + Private columnnomeGenero As Global.System.Data.DataColumn + + Private columnnomeAutor As Global.System.Data.DataColumn + + Private columnisbnItem As Global.System.Data.DataColumn + + Private columnstatusItem As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rItemAtivo" + 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 nomeItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeItem + End Get + End Property + + _ + Public ReadOnly Property nomeTipoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeTipo + End Get + End Property + + _ + Public ReadOnly Property nomeGeneroColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeGenero + End Get + End Property + + _ + Public ReadOnly Property nomeAutorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAutor + End Get + End Property + + _ + Public ReadOnly Property isbnItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnisbnItem + End Get + End Property + + _ + Public ReadOnly Property statusItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusItem + 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 rItemAtivoRow + Get + Return CType(Me.Rows(index),rItemAtivoRow) + End Get + End Property + + _ + Public Event rItemAtivoRowChanging As rItemAtivoRowChangeEventHandler + + _ + Public Event rItemAtivoRowChanged As rItemAtivoRowChangeEventHandler + + _ + Public Event rItemAtivoRowDeleting As rItemAtivoRowChangeEventHandler + + _ + Public Event rItemAtivoRowDeleted As rItemAtivoRowChangeEventHandler + + _ + Public Overloads Sub AddrItemAtivoRow(ByVal row As rItemAtivoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrItemAtivoRow(ByVal nomeItem As String, ByVal nomeTipo As String, ByVal nomeGenero As String, ByVal nomeAutor As String, ByVal isbnItem As String, ByVal statusItem As String) As rItemAtivoRow + Dim rowrItemAtivoRow As rItemAtivoRow = CType(Me.NewRow,rItemAtivoRow) + Dim columnValuesArray() As Object = New Object() {nomeItem, nomeTipo, nomeGenero, nomeAutor, isbnItem, statusItem} + rowrItemAtivoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrItemAtivoRow) + Return rowrItemAtivoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rItemAtivoDataTable = CType(MyBase.Clone,rItemAtivoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rItemAtivoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeItem = MyBase.Columns("nomeItem") + Me.columnnomeTipo = MyBase.Columns("nomeTipo") + Me.columnnomeGenero = MyBase.Columns("nomeGenero") + Me.columnnomeAutor = MyBase.Columns("nomeAutor") + Me.columnisbnItem = MyBase.Columns("isbnItem") + Me.columnstatusItem = MyBase.Columns("statusItem") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeItem = New Global.System.Data.DataColumn("nomeItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeItem) + Me.columnnomeTipo = New Global.System.Data.DataColumn("nomeTipo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeTipo) + Me.columnnomeGenero = New Global.System.Data.DataColumn("nomeGenero", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeGenero) + Me.columnnomeAutor = New Global.System.Data.DataColumn("nomeAutor", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAutor) + Me.columnisbnItem = New Global.System.Data.DataColumn("isbnItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnisbnItem) + Me.columnstatusItem = New Global.System.Data.DataColumn("statusItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusItem) + Me.columnnomeItem.MaxLength = 50 + Me.columnnomeTipo.MaxLength = 30 + Me.columnnomeGenero.MaxLength = 30 + Me.columnnomeAutor.MaxLength = 50 + Me.columnisbnItem.MaxLength = 13 + Me.columnstatusItem.MaxLength = 10 + End Sub + + _ + Public Function NewrItemAtivoRow() As rItemAtivoRow + Return CType(Me.NewRow,rItemAtivoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rItemAtivoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rItemAtivoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rItemAtivoRowChangedEvent) Is Nothing) Then + RaiseEvent rItemAtivoRowChanged(Me, New rItemAtivoRowChangeEvent(CType(e.Row,rItemAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rItemAtivoRowChangingEvent) Is Nothing) Then + RaiseEvent rItemAtivoRowChanging(Me, New rItemAtivoRowChangeEvent(CType(e.Row,rItemAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rItemAtivoRowDeletedEvent) Is Nothing) Then + RaiseEvent rItemAtivoRowDeleted(Me, New rItemAtivoRowChangeEvent(CType(e.Row,rItemAtivoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rItemAtivoRowDeletingEvent) Is Nothing) Then + RaiseEvent rItemAtivoRowDeleting(Me, New rItemAtivoRowChangeEvent(CType(e.Row,rItemAtivoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverItemAtivoRow(ByVal row As rItemAtivoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rItemAtivoDataTable" + 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 rItemDesativadoDataTable + Inherits Global.System.Data.TypedTableBase(Of rItemDesativadoRow) + + Private columnnomeItem As Global.System.Data.DataColumn + + Private columnnomeTipo As Global.System.Data.DataColumn + + Private columnnomeGenero As Global.System.Data.DataColumn + + Private columnnomeAutor As Global.System.Data.DataColumn + + Private columnisbnItem As Global.System.Data.DataColumn + + Private columnstatusItem As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "rItemDesativado" + 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 nomeItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeItem + End Get + End Property + + _ + Public ReadOnly Property nomeTipoColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeTipo + End Get + End Property + + _ + Public ReadOnly Property nomeGeneroColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeGenero + End Get + End Property + + _ + Public ReadOnly Property nomeAutorColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeAutor + End Get + End Property + + _ + Public ReadOnly Property isbnItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnisbnItem + End Get + End Property + + _ + Public ReadOnly Property statusItemColumn() As Global.System.Data.DataColumn + Get + Return Me.columnstatusItem + 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 rItemDesativadoRow + Get + Return CType(Me.Rows(index),rItemDesativadoRow) + End Get + End Property + + _ + Public Event rItemDesativadoRowChanging As rItemDesativadoRowChangeEventHandler + + _ + Public Event rItemDesativadoRowChanged As rItemDesativadoRowChangeEventHandler + + _ + Public Event rItemDesativadoRowDeleting As rItemDesativadoRowChangeEventHandler + + _ + Public Event rItemDesativadoRowDeleted As rItemDesativadoRowChangeEventHandler + + _ + Public Overloads Sub AddrItemDesativadoRow(ByVal row As rItemDesativadoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddrItemDesativadoRow(ByVal nomeItem As String, ByVal nomeTipo As String, ByVal nomeGenero As String, ByVal nomeAutor As String, ByVal isbnItem As String, ByVal statusItem As String) As rItemDesativadoRow + Dim rowrItemDesativadoRow As rItemDesativadoRow = CType(Me.NewRow,rItemDesativadoRow) + Dim columnValuesArray() As Object = New Object() {nomeItem, nomeTipo, nomeGenero, nomeAutor, isbnItem, statusItem} + rowrItemDesativadoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowrItemDesativadoRow) + Return rowrItemDesativadoRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As rItemDesativadoDataTable = CType(MyBase.Clone,rItemDesativadoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New rItemDesativadoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnnomeItem = MyBase.Columns("nomeItem") + Me.columnnomeTipo = MyBase.Columns("nomeTipo") + Me.columnnomeGenero = MyBase.Columns("nomeGenero") + Me.columnnomeAutor = MyBase.Columns("nomeAutor") + Me.columnisbnItem = MyBase.Columns("isbnItem") + Me.columnstatusItem = MyBase.Columns("statusItem") + End Sub + + _ + Private Sub InitClass() + Me.columnnomeItem = New Global.System.Data.DataColumn("nomeItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeItem) + Me.columnnomeTipo = New Global.System.Data.DataColumn("nomeTipo", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeTipo) + Me.columnnomeGenero = New Global.System.Data.DataColumn("nomeGenero", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeGenero) + Me.columnnomeAutor = New Global.System.Data.DataColumn("nomeAutor", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeAutor) + Me.columnisbnItem = New Global.System.Data.DataColumn("isbnItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnisbnItem) + Me.columnstatusItem = New Global.System.Data.DataColumn("statusItem", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnstatusItem) + Me.columnnomeItem.MaxLength = 50 + Me.columnnomeTipo.MaxLength = 30 + Me.columnnomeGenero.MaxLength = 30 + Me.columnnomeAutor.MaxLength = 50 + Me.columnisbnItem.MaxLength = 13 + Me.columnstatusItem.MaxLength = 10 + End Sub + + _ + Public Function NewrItemDesativadoRow() As rItemDesativadoRow + Return CType(Me.NewRow,rItemDesativadoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New rItemDesativadoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(rItemDesativadoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.rItemDesativadoRowChangedEvent) Is Nothing) Then + RaiseEvent rItemDesativadoRowChanged(Me, New rItemDesativadoRowChangeEvent(CType(e.Row,rItemDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.rItemDesativadoRowChangingEvent) Is Nothing) Then + RaiseEvent rItemDesativadoRowChanging(Me, New rItemDesativadoRowChangeEvent(CType(e.Row,rItemDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.rItemDesativadoRowDeletedEvent) Is Nothing) Then + RaiseEvent rItemDesativadoRowDeleted(Me, New rItemDesativadoRowChangeEvent(CType(e.Row,rItemDesativadoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.rItemDesativadoRowDeletingEvent) Is Nothing) Then + RaiseEvent rItemDesativadoRowDeleting(Me, New rItemDesativadoRowChangeEvent(CType(e.Row,rItemDesativadoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoverItemDesativadoRow(ByVal row As rItemDesativadoRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "rItemDesativadoDataTable" + 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 tbEditoraDataTable + Inherits Global.System.Data.TypedTableBase(Of tbEditoraRow) + + Private columnidEditora As Global.System.Data.DataColumn + + Private columnnomeEditora As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "tbEditora" + 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 idEditoraColumn() As Global.System.Data.DataColumn + Get + Return Me.columnidEditora + End Get + End Property + + _ + Public ReadOnly Property nomeEditoraColumn() As Global.System.Data.DataColumn + Get + Return Me.columnnomeEditora + 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 tbEditoraRow + Get + Return CType(Me.Rows(index),tbEditoraRow) + End Get + End Property + + _ + Public Event tbEditoraRowChanging As tbEditoraRowChangeEventHandler + + _ + Public Event tbEditoraRowChanged As tbEditoraRowChangeEventHandler + + _ + Public Event tbEditoraRowDeleting As tbEditoraRowChangeEventHandler + + _ + Public Event tbEditoraRowDeleted As tbEditoraRowChangeEventHandler + + _ + Public Overloads Sub AddtbEditoraRow(ByVal row As tbEditoraRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddtbEditoraRow(ByVal nomeEditora As String) As tbEditoraRow + Dim rowtbEditoraRow As tbEditoraRow = CType(Me.NewRow,tbEditoraRow) + Dim columnValuesArray() As Object = New Object() {Nothing, nomeEditora} + rowtbEditoraRow.ItemArray = columnValuesArray + Me.Rows.Add(rowtbEditoraRow) + Return rowtbEditoraRow + End Function + + _ + Public Function FindByidEditora(ByVal idEditora As Integer) As tbEditoraRow + Return CType(Me.Rows.Find(New Object() {idEditora}),tbEditoraRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As tbEditoraDataTable = CType(MyBase.Clone,tbEditoraDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New tbEditoraDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnidEditora = MyBase.Columns("idEditora") + Me.columnnomeEditora = MyBase.Columns("nomeEditora") + End Sub + + _ + Private Sub InitClass() + Me.columnidEditora = New Global.System.Data.DataColumn("idEditora", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnidEditora) + Me.columnnomeEditora = New Global.System.Data.DataColumn("nomeEditora", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnnomeEditora) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidEditora}, true)) + Me.columnidEditora.AutoIncrement = true + Me.columnidEditora.AutoIncrementSeed = -1 + Me.columnidEditora.AutoIncrementStep = -1 + Me.columnidEditora.AllowDBNull = false + Me.columnidEditora.Unique = true + Me.columnnomeEditora.MaxLength = 30 + End Sub + + _ + Public Function NewtbEditoraRow() As tbEditoraRow + Return CType(Me.NewRow,tbEditoraRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New tbEditoraRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(tbEditoraRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.tbEditoraRowChangedEvent) Is Nothing) Then + RaiseEvent tbEditoraRowChanged(Me, New tbEditoraRowChangeEvent(CType(e.Row,tbEditoraRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.tbEditoraRowChangingEvent) Is Nothing) Then + RaiseEvent tbEditoraRowChanging(Me, New tbEditoraRowChangeEvent(CType(e.Row,tbEditoraRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.tbEditoraRowDeletedEvent) Is Nothing) Then + RaiseEvent tbEditoraRowDeleted(Me, New tbEditoraRowChangeEvent(CType(e.Row,tbEditoraRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.tbEditoraRowDeletingEvent) Is Nothing) Then + RaiseEvent tbEditoraRowDeleting(Me, New tbEditoraRowChangeEvent(CType(e.Row,tbEditoraRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovetbEditoraRow(ByVal row As tbEditoraRow) + 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 dbBibliotecaDataSet = New dbBibliotecaDataSet() + 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 = "tbEditoraDataTable" + 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 tbAutorRow + Inherits Global.System.Data.DataRow + + Private tabletbAutor As tbAutorDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbAutor = CType(Me.Table,tbAutorDataTable) + End Sub + + _ + Public Property idAutor() As Integer + Get + Return CType(Me(Me.tabletbAutor.idAutorColumn),Integer) + End Get + Set + Me(Me.tabletbAutor.idAutorColumn) = value + End Set + End Property + + _ + Public Property nomeAutor() As String + Get + Try + Return CType(Me(Me.tabletbAutor.nomeAutorColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAutor' na tabela 'tbAutor' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbAutor.nomeAutorColumn) = value + End Set + End Property + + _ + Public Function IsnomeAutorNull() As Boolean + Return Me.IsNull(Me.tabletbAutor.nomeAutorColumn) + End Function + + _ + Public Sub SetnomeAutorNull() + Me(Me.tabletbAutor.nomeAutorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbItemRows() As tbItemRow() + If (Me.Table.ChildRelations("tbAutortbItem") Is Nothing) Then + Return New tbItemRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbAutortbItem")),tbItemRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbClienteRow + Inherits Global.System.Data.DataRow + + Private tabletbCliente As tbClienteDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbCliente = CType(Me.Table,tbClienteDataTable) + End Sub + + _ + Public Property idCliente() As Integer + Get + Return CType(Me(Me.tabletbCliente.idClienteColumn),Integer) + End Get + Set + Me(Me.tabletbCliente.idClienteColumn) = value + End Set + End Property + + _ + Public Property nomeCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.nomeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.nomeClienteColumn) = value + End Set + End Property + + _ + Public Property rgCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.rgClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'rgCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.rgClienteColumn) = value + End Set + End Property + + _ + Public Property cpfCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.cpfClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cpfCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.cpfClienteColumn) = value + End Set + End Property + + _ + Public Property telCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.telClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'telCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.telClienteColumn) = value + End Set + End Property + + _ + Public Property celCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.celClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'celCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.celClienteColumn) = value + End Set + End Property + + _ + Public Property ruaCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.ruaClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'ruaCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.ruaClienteColumn) = value + End Set + End Property + + _ + Public Property numeroCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.numeroClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'numeroCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.numeroClienteColumn) = value + End Set + End Property + + _ + Public Property cidadeCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.cidadeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.cidadeClienteColumn) = value + End Set + End Property + + _ + Public Property statusCliente() As String + Get + Try + Return CType(Me(Me.tabletbCliente.statusClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusCliente' na tabela 'tbCliente' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbCliente.statusClienteColumn) = value + End Set + End Property + + _ + Public Function IsnomeClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.nomeClienteColumn) + End Function + + _ + Public Sub SetnomeClienteNull() + Me(Me.tabletbCliente.nomeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsrgClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.rgClienteColumn) + End Function + + _ + Public Sub SetrgClienteNull() + Me(Me.tabletbCliente.rgClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscpfClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.cpfClienteColumn) + End Function + + _ + Public Sub SetcpfClienteNull() + Me(Me.tabletbCliente.cpfClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstelClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.telClienteColumn) + End Function + + _ + Public Sub SettelClienteNull() + Me(Me.tabletbCliente.telClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscelClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.celClienteColumn) + End Function + + _ + Public Sub SetcelClienteNull() + Me(Me.tabletbCliente.celClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsruaClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.ruaClienteColumn) + End Function + + _ + Public Sub SetruaClienteNull() + Me(Me.tabletbCliente.ruaClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnumeroClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.numeroClienteColumn) + End Function + + _ + Public Sub SetnumeroClienteNull() + Me(Me.tabletbCliente.numeroClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.cidadeClienteColumn) + End Function + + _ + Public Sub SetcidadeClienteNull() + Me(Me.tabletbCliente.cidadeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusClienteNull() As Boolean + Return Me.IsNull(Me.tabletbCliente.statusClienteColumn) + End Function + + _ + Public Sub SetstatusClienteNull() + Me(Me.tabletbCliente.statusClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbEmprestimoRows() As tbEmprestimoRow() + If (Me.Table.ChildRelations("tbClientetbEmprestimo") Is Nothing) Then + Return New tbEmprestimoRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbClientetbEmprestimo")),tbEmprestimoRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbEmprestimoRow + Inherits Global.System.Data.DataRow + + Private tabletbEmprestimo As tbEmprestimoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbEmprestimo = CType(Me.Table,tbEmprestimoDataTable) + End Sub + + _ + Public Property idEmprestimo() As Integer + Get + Return CType(Me(Me.tabletbEmprestimo.idEmprestimoColumn),Integer) + End Get + Set + Me(Me.tabletbEmprestimo.idEmprestimoColumn) = value + End Set + End Property + + _ + Public Property idFunc() As Integer + Get + Try + Return CType(Me(Me.tabletbEmprestimo.idFuncColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idFunc' na tabela 'tbEmprestimo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbEmprestimo.idFuncColumn) = value + End Set + End Property + + _ + Public Property idCliente() As Integer + Get + Try + Return CType(Me(Me.tabletbEmprestimo.idClienteColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idCliente' na tabela 'tbEmprestimo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbEmprestimo.idClienteColumn) = value + End Set + End Property + + _ + Public Property idItem() As Integer + Get + Try + Return CType(Me(Me.tabletbEmprestimo.idItemColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idItem' na tabela 'tbEmprestimo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbEmprestimo.idItemColumn) = value + End Set + End Property + + _ + Public Property dataEmprestimo() As Date + Get + Try + Return CType(Me(Me.tabletbEmprestimo.dataEmprestimoColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataEmprestimo' na tabela 'tbEmprestimo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbEmprestimo.dataEmprestimoColumn) = value + End Set + End Property + + _ + Public Property dataDevolucao() As Date + Get + Try + Return CType(Me(Me.tabletbEmprestimo.dataDevolucaoColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataDevolucao' na tabela 'tbEmprestimo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbEmprestimo.dataDevolucaoColumn) = value + End Set + End Property + + _ + Public Property statusEmprestimo() As String + Get + Try + Return CType(Me(Me.tabletbEmprestimo.statusEmprestimoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusEmprestimo' na tabela 'tbEmprestimo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbEmprestimo.statusEmprestimoColumn) = value + End Set + End Property + + _ + Public Property tbClienteRow() As tbClienteRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbClientetbEmprestimo")),tbClienteRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbClientetbEmprestimo")) + End Set + End Property + + _ + Public Property tbFuncionarioRow() As tbFuncionarioRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbFuncionariotbEmprestimo")),tbFuncionarioRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbFuncionariotbEmprestimo")) + End Set + End Property + + _ + Public Property tbItemRow() As tbItemRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbItemtbEmprestimo")),tbItemRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbItemtbEmprestimo")) + End Set + End Property + + _ + Public Function IsidFuncNull() As Boolean + Return Me.IsNull(Me.tabletbEmprestimo.idFuncColumn) + End Function + + _ + Public Sub SetidFuncNull() + Me(Me.tabletbEmprestimo.idFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidClienteNull() As Boolean + Return Me.IsNull(Me.tabletbEmprestimo.idClienteColumn) + End Function + + _ + Public Sub SetidClienteNull() + Me(Me.tabletbEmprestimo.idClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidItemNull() As Boolean + Return Me.IsNull(Me.tabletbEmprestimo.idItemColumn) + End Function + + _ + Public Sub SetidItemNull() + Me(Me.tabletbEmprestimo.idItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdataEmprestimoNull() As Boolean + Return Me.IsNull(Me.tabletbEmprestimo.dataEmprestimoColumn) + End Function + + _ + Public Sub SetdataEmprestimoNull() + Me(Me.tabletbEmprestimo.dataEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdataDevolucaoNull() As Boolean + Return Me.IsNull(Me.tabletbEmprestimo.dataDevolucaoColumn) + End Function + + _ + Public Sub SetdataDevolucaoNull() + Me(Me.tabletbEmprestimo.dataDevolucaoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusEmprestimoNull() As Boolean + Return Me.IsNull(Me.tabletbEmprestimo.statusEmprestimoColumn) + End Function + + _ + Public Sub SetstatusEmprestimoNull() + Me(Me.tabletbEmprestimo.statusEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbFuncionarioRow + Inherits Global.System.Data.DataRow + + Private tabletbFuncionario As tbFuncionarioDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbFuncionario = CType(Me.Table,tbFuncionarioDataTable) + End Sub + + _ + Public Property idFunc() As Integer + Get + Return CType(Me(Me.tabletbFuncionario.idFuncColumn),Integer) + End Get + Set + Me(Me.tabletbFuncionario.idFuncColumn) = value + End Set + End Property + + _ + Public Property nomeFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.nomeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.nomeFuncColumn) = value + End Set + End Property + + _ + Public Property rgFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.rgFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'rgFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.rgFuncColumn) = value + End Set + End Property + + _ + Public Property cpfFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.cpfFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cpfFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.cpfFuncColumn) = value + End Set + End Property + + _ + Public Property telFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.telFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'telFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.telFuncColumn) = value + End Set + End Property + + _ + Public Property celFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.celFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'celFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.celFuncColumn) = value + End Set + End Property + + _ + Public Property ruaFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.ruaFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'ruaFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.ruaFuncColumn) = value + End Set + End Property + + _ + Public Property numeroFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.numeroFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'numeroFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.numeroFuncColumn) = value + End Set + End Property + + _ + Public Property cidadeFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.cidadeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.cidadeFuncColumn) = value + End Set + End Property + + _ + Public Property statusFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.statusFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.statusFuncColumn) = value + End Set + End Property + + _ + Public Property usuarioFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.usuarioFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'usuarioFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.usuarioFuncColumn) = value + End Set + End Property + + _ + Public Property senhaFunc() As String + Get + Try + Return CType(Me(Me.tabletbFuncionario.senhaFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaFunc' na tabela 'tbFuncionario' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbFuncionario.senhaFuncColumn) = value + End Set + End Property + + _ + Public Function IsnomeFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.nomeFuncColumn) + End Function + + _ + Public Sub SetnomeFuncNull() + Me(Me.tabletbFuncionario.nomeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsrgFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.rgFuncColumn) + End Function + + _ + Public Sub SetrgFuncNull() + Me(Me.tabletbFuncionario.rgFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscpfFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.cpfFuncColumn) + End Function + + _ + Public Sub SetcpfFuncNull() + Me(Me.tabletbFuncionario.cpfFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstelFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.telFuncColumn) + End Function + + _ + Public Sub SettelFuncNull() + Me(Me.tabletbFuncionario.telFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscelFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.celFuncColumn) + End Function + + _ + Public Sub SetcelFuncNull() + Me(Me.tabletbFuncionario.celFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsruaFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.ruaFuncColumn) + End Function + + _ + Public Sub SetruaFuncNull() + Me(Me.tabletbFuncionario.ruaFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnumeroFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.numeroFuncColumn) + End Function + + _ + Public Sub SetnumeroFuncNull() + Me(Me.tabletbFuncionario.numeroFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.cidadeFuncColumn) + End Function + + _ + Public Sub SetcidadeFuncNull() + Me(Me.tabletbFuncionario.cidadeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.statusFuncColumn) + End Function + + _ + Public Sub SetstatusFuncNull() + Me(Me.tabletbFuncionario.statusFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsusuarioFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.usuarioFuncColumn) + End Function + + _ + Public Sub SetusuarioFuncNull() + Me(Me.tabletbFuncionario.usuarioFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaFuncNull() As Boolean + Return Me.IsNull(Me.tabletbFuncionario.senhaFuncColumn) + End Function + + _ + Public Sub SetsenhaFuncNull() + Me(Me.tabletbFuncionario.senhaFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbEmprestimoRows() As tbEmprestimoRow() + If (Me.Table.ChildRelations("tbFuncionariotbEmprestimo") Is Nothing) Then + Return New tbEmprestimoRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbFuncionariotbEmprestimo")),tbEmprestimoRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbGeneroRow + Inherits Global.System.Data.DataRow + + Private tabletbGenero As tbGeneroDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbGenero = CType(Me.Table,tbGeneroDataTable) + End Sub + + _ + Public Property idGenero() As Integer + Get + Return CType(Me(Me.tabletbGenero.idGeneroColumn),Integer) + End Get + Set + Me(Me.tabletbGenero.idGeneroColumn) = value + End Set + End Property + + _ + Public Property nomeGenero() As String + Get + Try + Return CType(Me(Me.tabletbGenero.nomeGeneroColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeGenero' na tabela 'tbGenero' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbGenero.nomeGeneroColumn) = value + End Set + End Property + + _ + Public Function IsnomeGeneroNull() As Boolean + Return Me.IsNull(Me.tabletbGenero.nomeGeneroColumn) + End Function + + _ + Public Sub SetnomeGeneroNull() + Me(Me.tabletbGenero.nomeGeneroColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbItemRows() As tbItemRow() + If (Me.Table.ChildRelations("tbGenerotbItem") Is Nothing) Then + Return New tbItemRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbGenerotbItem")),tbItemRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbItemRow + Inherits Global.System.Data.DataRow + + Private tabletbItem As tbItemDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbItem = CType(Me.Table,tbItemDataTable) + End Sub + + _ + Public Property idItem() As Integer + Get + Return CType(Me(Me.tabletbItem.idItemColumn),Integer) + End Get + Set + Me(Me.tabletbItem.idItemColumn) = value + End Set + End Property + + _ + Public Property nomeItem() As String + Get + Try + Return CType(Me(Me.tabletbItem.nomeItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeItem' na tabela 'tbItem' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbItem.nomeItemColumn) = value + End Set + End Property + + _ + Public Property idAutor() As Integer + Get + Try + Return CType(Me(Me.tabletbItem.idAutorColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idAutor' na tabela 'tbItem' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbItem.idAutorColumn) = value + End Set + End Property + + _ + Public Property generoItem() As Integer + Get + Try + Return CType(Me(Me.tabletbItem.generoItemColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'generoItem' na tabela 'tbItem' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbItem.generoItemColumn) = value + End Set + End Property + + _ + Public Property tipoItem() As Integer + Get + Try + Return CType(Me(Me.tabletbItem.tipoItemColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'tipoItem' na tabela 'tbItem' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbItem.tipoItemColumn) = value + End Set + End Property + + _ + Public Property isbnItem() As String + Get + Try + Return CType(Me(Me.tabletbItem.isbnItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'isbnItem' na tabela 'tbItem' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbItem.isbnItemColumn) = value + End Set + End Property + + _ + Public Property statusItem() As String + Get + Try + Return CType(Me(Me.tabletbItem.statusItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusItem' na tabela 'tbItem' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbItem.statusItemColumn) = value + End Set + End Property + + _ + Public Property editoraItem() As Integer + Get + Try + Return CType(Me(Me.tabletbItem.editoraItemColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'editoraItem' na tabela 'tbItem' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbItem.editoraItemColumn) = value + End Set + End Property + + _ + Public Property tbAutorRow() As tbAutorRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbAutortbItem")),tbAutorRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbAutortbItem")) + End Set + End Property + + _ + Public Property tbGeneroRow() As tbGeneroRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbGenerotbItem")),tbGeneroRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbGenerotbItem")) + End Set + End Property + + _ + Public Property tbTipoRow() As tbTipoRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbTipotbItem")),tbTipoRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbTipotbItem")) + End Set + End Property + + _ + Public Property tbEditoraRow() As tbEditoraRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("tbEditoratbItem")),tbEditoraRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("tbEditoratbItem")) + End Set + End Property + + _ + Public Function IsnomeItemNull() As Boolean + Return Me.IsNull(Me.tabletbItem.nomeItemColumn) + End Function + + _ + Public Sub SetnomeItemNull() + Me(Me.tabletbItem.nomeItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsidAutorNull() As Boolean + Return Me.IsNull(Me.tabletbItem.idAutorColumn) + End Function + + _ + Public Sub SetidAutorNull() + Me(Me.tabletbItem.idAutorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsgeneroItemNull() As Boolean + Return Me.IsNull(Me.tabletbItem.generoItemColumn) + End Function + + _ + Public Sub SetgeneroItemNull() + Me(Me.tabletbItem.generoItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstipoItemNull() As Boolean + Return Me.IsNull(Me.tabletbItem.tipoItemColumn) + End Function + + _ + Public Sub SettipoItemNull() + Me(Me.tabletbItem.tipoItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsisbnItemNull() As Boolean + Return Me.IsNull(Me.tabletbItem.isbnItemColumn) + End Function + + _ + Public Sub SetisbnItemNull() + Me(Me.tabletbItem.isbnItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusItemNull() As Boolean + Return Me.IsNull(Me.tabletbItem.statusItemColumn) + End Function + + _ + Public Sub SetstatusItemNull() + Me(Me.tabletbItem.statusItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IseditoraItemNull() As Boolean + Return Me.IsNull(Me.tabletbItem.editoraItemColumn) + End Function + + _ + Public Sub SeteditoraItemNull() + Me(Me.tabletbItem.editoraItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbEmprestimoRows() As tbEmprestimoRow() + If (Me.Table.ChildRelations("tbItemtbEmprestimo") Is Nothing) Then + Return New tbEmprestimoRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbItemtbEmprestimo")),tbEmprestimoRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbTipoRow + Inherits Global.System.Data.DataRow + + Private tabletbTipo As tbTipoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbTipo = CType(Me.Table,tbTipoDataTable) + End Sub + + _ + Public Property idTipo() As Integer + Get + Return CType(Me(Me.tabletbTipo.idTipoColumn),Integer) + End Get + Set + Me(Me.tabletbTipo.idTipoColumn) = value + End Set + End Property + + _ + Public Property nomeTipo() As String + Get + Try + Return CType(Me(Me.tabletbTipo.nomeTipoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeTipo' na tabela 'tbTipo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbTipo.nomeTipoColumn) = value + End Set + End Property + + _ + Public Function IsnomeTipoNull() As Boolean + Return Me.IsNull(Me.tabletbTipo.nomeTipoColumn) + End Function + + _ + Public Sub SetnomeTipoNull() + Me(Me.tabletbTipo.nomeTipoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbItemRows() As tbItemRow() + If (Me.Table.ChildRelations("tbTipotbItem") Is Nothing) Then + Return New tbItemRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbTipotbItem")),tbItemRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rClienteAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerClienteAtivo As rClienteAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerClienteAtivo = CType(Me.Table,rClienteAtivoDataTable) + End Sub + + _ + Public Property nomeCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.nomeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.nomeClienteColumn) = value + End Set + End Property + + _ + Public Property rgCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.rgClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'rgCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.rgClienteColumn) = value + End Set + End Property + + _ + Public Property cpfCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.cpfClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cpfCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.cpfClienteColumn) = value + End Set + End Property + + _ + Public Property telCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.telClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'telCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.telClienteColumn) = value + End Set + End Property + + _ + Public Property celCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.celClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'celCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.celClienteColumn) = value + End Set + End Property + + _ + Public Property ruaCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.ruaClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'ruaCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.ruaClienteColumn) = value + End Set + End Property + + _ + Public Property numeroCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.numeroClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'numeroCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.numeroClienteColumn) = value + End Set + End Property + + _ + Public Property cidadeCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.cidadeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.cidadeClienteColumn) = value + End Set + End Property + + _ + Public Property statusCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteAtivo.statusClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusCliente' na tabela 'rClienteAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteAtivo.statusClienteColumn) = value + End Set + End Property + + _ + Public Function IsnomeClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.nomeClienteColumn) + End Function + + _ + Public Sub SetnomeClienteNull() + Me(Me.tablerClienteAtivo.nomeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsrgClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.rgClienteColumn) + End Function + + _ + Public Sub SetrgClienteNull() + Me(Me.tablerClienteAtivo.rgClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscpfClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.cpfClienteColumn) + End Function + + _ + Public Sub SetcpfClienteNull() + Me(Me.tablerClienteAtivo.cpfClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstelClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.telClienteColumn) + End Function + + _ + Public Sub SettelClienteNull() + Me(Me.tablerClienteAtivo.telClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscelClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.celClienteColumn) + End Function + + _ + Public Sub SetcelClienteNull() + Me(Me.tablerClienteAtivo.celClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsruaClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.ruaClienteColumn) + End Function + + _ + Public Sub SetruaClienteNull() + Me(Me.tablerClienteAtivo.ruaClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnumeroClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.numeroClienteColumn) + End Function + + _ + Public Sub SetnumeroClienteNull() + Me(Me.tablerClienteAtivo.numeroClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.cidadeClienteColumn) + End Function + + _ + Public Sub SetcidadeClienteNull() + Me(Me.tablerClienteAtivo.cidadeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteAtivo.statusClienteColumn) + End Function + + _ + Public Sub SetstatusClienteNull() + Me(Me.tablerClienteAtivo.statusClienteColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rClienteDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerClienteDesativado As rClienteDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerClienteDesativado = CType(Me.Table,rClienteDesativadoDataTable) + End Sub + + _ + Public Property nomeCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.nomeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.nomeClienteColumn) = value + End Set + End Property + + _ + Public Property rgCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.rgClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'rgCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.rgClienteColumn) = value + End Set + End Property + + _ + Public Property cpfCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.cpfClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cpfCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.cpfClienteColumn) = value + End Set + End Property + + _ + Public Property telCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.telClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'telCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.telClienteColumn) = value + End Set + End Property + + _ + Public Property celCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.celClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'celCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.celClienteColumn) = value + End Set + End Property + + _ + Public Property ruaCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.ruaClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'ruaCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.ruaClienteColumn) = value + End Set + End Property + + _ + Public Property numeroCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.numeroClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'numeroCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.numeroClienteColumn) = value + End Set + End Property + + _ + Public Property cidadeCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.cidadeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.cidadeClienteColumn) = value + End Set + End Property + + _ + Public Property statusCliente() As String + Get + Try + Return CType(Me(Me.tablerClienteDesativado.statusClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusCliente' na tabela 'rClienteDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerClienteDesativado.statusClienteColumn) = value + End Set + End Property + + _ + Public Function IsnomeClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.nomeClienteColumn) + End Function + + _ + Public Sub SetnomeClienteNull() + Me(Me.tablerClienteDesativado.nomeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsrgClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.rgClienteColumn) + End Function + + _ + Public Sub SetrgClienteNull() + Me(Me.tablerClienteDesativado.rgClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscpfClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.cpfClienteColumn) + End Function + + _ + Public Sub SetcpfClienteNull() + Me(Me.tablerClienteDesativado.cpfClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstelClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.telClienteColumn) + End Function + + _ + Public Sub SettelClienteNull() + Me(Me.tablerClienteDesativado.telClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscelClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.celClienteColumn) + End Function + + _ + Public Sub SetcelClienteNull() + Me(Me.tablerClienteDesativado.celClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsruaClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.ruaClienteColumn) + End Function + + _ + Public Sub SetruaClienteNull() + Me(Me.tablerClienteDesativado.ruaClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnumeroClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.numeroClienteColumn) + End Function + + _ + Public Sub SetnumeroClienteNull() + Me(Me.tablerClienteDesativado.numeroClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.cidadeClienteColumn) + End Function + + _ + Public Sub SetcidadeClienteNull() + Me(Me.tablerClienteDesativado.cidadeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusClienteNull() As Boolean + Return Me.IsNull(Me.tablerClienteDesativado.statusClienteColumn) + End Function + + _ + Public Sub SetstatusClienteNull() + Me(Me.tablerClienteDesativado.statusClienteColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rEmprestimosAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerEmprestimosAtivo As rEmprestimosAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerEmprestimosAtivo = CType(Me.Table,rEmprestimosAtivoDataTable) + End Sub + + _ + Public Property idEmprestimo() As Integer + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.idEmprestimoColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idEmprestimo' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.idEmprestimoColumn) = value + End Set + End Property + + _ + Public Property nomeFunc() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.nomeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeFunc' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.nomeFuncColumn) = value + End Set + End Property + + _ + Public Property nomeCliente() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.nomeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeCliente' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.nomeClienteColumn) = value + End Set + End Property + + _ + Public Property nomeItem() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.nomeItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeItem' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.nomeItemColumn) = value + End Set + End Property + + _ + Public Property nomeTipo() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.nomeTipoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeTipo' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.nomeTipoColumn) = value + End Set + End Property + + _ + Public Property dataEmprestimo() As Date + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.dataEmprestimoColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataEmprestimo' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.dataEmprestimoColumn) = value + End Set + End Property + + _ + Public Property dataDevolucao() As Date + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.dataDevolucaoColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataDevolucao' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.dataDevolucaoColumn) = value + End Set + End Property + + _ + Public Property statusEmprestimo() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosAtivo.statusEmprestimoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusEmprestimo' na tabela 'rEmprestimosAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosAtivo.statusEmprestimoColumn) = value + End Set + End Property + + _ + Public Function IsidEmprestimoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.idEmprestimoColumn) + End Function + + _ + Public Sub SetidEmprestimoNull() + Me(Me.tablerEmprestimosAtivo.idEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeFuncNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.nomeFuncColumn) + End Function + + _ + Public Sub SetnomeFuncNull() + Me(Me.tablerEmprestimosAtivo.nomeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeClienteNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.nomeClienteColumn) + End Function + + _ + Public Sub SetnomeClienteNull() + Me(Me.tablerEmprestimosAtivo.nomeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeItemNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.nomeItemColumn) + End Function + + _ + Public Sub SetnomeItemNull() + Me(Me.tablerEmprestimosAtivo.nomeItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeTipoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.nomeTipoColumn) + End Function + + _ + Public Sub SetnomeTipoNull() + Me(Me.tablerEmprestimosAtivo.nomeTipoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdataEmprestimoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.dataEmprestimoColumn) + End Function + + _ + Public Sub SetdataEmprestimoNull() + Me(Me.tablerEmprestimosAtivo.dataEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdataDevolucaoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.dataDevolucaoColumn) + End Function + + _ + Public Sub SetdataDevolucaoNull() + Me(Me.tablerEmprestimosAtivo.dataDevolucaoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusEmprestimoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosAtivo.statusEmprestimoColumn) + End Function + + _ + Public Sub SetstatusEmprestimoNull() + Me(Me.tablerEmprestimosAtivo.statusEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rEmprestimosDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerEmprestimosDesativado As rEmprestimosDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerEmprestimosDesativado = CType(Me.Table,rEmprestimosDesativadoDataTable) + End Sub + + _ + Public Property idEmprestimo() As Integer + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.idEmprestimoColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'idEmprestimo' na tabela 'rEmprestimosDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.idEmprestimoColumn) = value + End Set + End Property + + _ + Public Property nomeFunc() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.nomeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeFunc' na tabela 'rEmprestimosDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.nomeFuncColumn) = value + End Set + End Property + + _ + Public Property nomeCliente() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.nomeClienteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeCliente' na tabela 'rEmprestimosDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.nomeClienteColumn) = value + End Set + End Property + + _ + Public Property nomeItem() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.nomeItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeItem' na tabela 'rEmprestimosDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.nomeItemColumn) = value + End Set + End Property + + _ + Public Property nomeTipo() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.nomeTipoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeTipo' na tabela 'rEmprestimosDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.nomeTipoColumn) = value + End Set + End Property + + _ + Public Property dataEmprestimo() As Date + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.dataEmprestimoColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataEmprestimo' na tabela 'rEmprestimosDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.dataEmprestimoColumn) = value + End Set + End Property + + _ + Public Property dataDevolucao() As Date + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.dataDevolucaoColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'dataDevolucao' na tabela 'rEmprestimosDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.dataDevolucaoColumn) = value + End Set + End Property + + _ + Public Property statusEmprestimo() As String + Get + Try + Return CType(Me(Me.tablerEmprestimosDesativado.statusEmprestimoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusEmprestimo' na tabela 'rEmprestimosDesativado' é DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tablerEmprestimosDesativado.statusEmprestimoColumn) = value + End Set + End Property + + _ + Public Function IsidEmprestimoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.idEmprestimoColumn) + End Function + + _ + Public Sub SetidEmprestimoNull() + Me(Me.tablerEmprestimosDesativado.idEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeFuncNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.nomeFuncColumn) + End Function + + _ + Public Sub SetnomeFuncNull() + Me(Me.tablerEmprestimosDesativado.nomeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeClienteNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.nomeClienteColumn) + End Function + + _ + Public Sub SetnomeClienteNull() + Me(Me.tablerEmprestimosDesativado.nomeClienteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeItemNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.nomeItemColumn) + End Function + + _ + Public Sub SetnomeItemNull() + Me(Me.tablerEmprestimosDesativado.nomeItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeTipoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.nomeTipoColumn) + End Function + + _ + Public Sub SetnomeTipoNull() + Me(Me.tablerEmprestimosDesativado.nomeTipoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdataEmprestimoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.dataEmprestimoColumn) + End Function + + _ + Public Sub SetdataEmprestimoNull() + Me(Me.tablerEmprestimosDesativado.dataEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsdataDevolucaoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.dataDevolucaoColumn) + End Function + + _ + Public Sub SetdataDevolucaoNull() + Me(Me.tablerEmprestimosDesativado.dataDevolucaoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusEmprestimoNull() As Boolean + Return Me.IsNull(Me.tablerEmprestimosDesativado.statusEmprestimoColumn) + End Function + + _ + Public Sub SetstatusEmprestimoNull() + Me(Me.tablerEmprestimosDesativado.statusEmprestimoColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rFuncAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerFuncAtivo As rFuncAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerFuncAtivo = CType(Me.Table,rFuncAtivoDataTable) + End Sub + + _ + Public Property nomeFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.nomeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.nomeFuncColumn) = value + End Set + End Property + + _ + Public Property rgFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.rgFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'rgFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.rgFuncColumn) = value + End Set + End Property + + _ + Public Property cpfFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.cpfFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cpfFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.cpfFuncColumn) = value + End Set + End Property + + _ + Public Property telFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.telFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'telFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.telFuncColumn) = value + End Set + End Property + + _ + Public Property celFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.celFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'celFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.celFuncColumn) = value + End Set + End Property + + _ + Public Property ruaFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.ruaFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'ruaFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.ruaFuncColumn) = value + End Set + End Property + + _ + Public Property numeroFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.numeroFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'numeroFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.numeroFuncColumn) = value + End Set + End Property + + _ + Public Property cidadeFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.cidadeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.cidadeFuncColumn) = value + End Set + End Property + + _ + Public Property usuarioFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.usuarioFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'usuarioFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.usuarioFuncColumn) = value + End Set + End Property + + _ + Public Property senhaFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.senhaFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.senhaFuncColumn) = value + End Set + End Property + + _ + Public Property statusFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncAtivo.statusFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusFunc' na tabela 'rFuncAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncAtivo.statusFuncColumn) = value + End Set + End Property + + _ + Public Function IsnomeFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.nomeFuncColumn) + End Function + + _ + Public Sub SetnomeFuncNull() + Me(Me.tablerFuncAtivo.nomeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsrgFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.rgFuncColumn) + End Function + + _ + Public Sub SetrgFuncNull() + Me(Me.tablerFuncAtivo.rgFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscpfFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.cpfFuncColumn) + End Function + + _ + Public Sub SetcpfFuncNull() + Me(Me.tablerFuncAtivo.cpfFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstelFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.telFuncColumn) + End Function + + _ + Public Sub SettelFuncNull() + Me(Me.tablerFuncAtivo.telFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscelFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.celFuncColumn) + End Function + + _ + Public Sub SetcelFuncNull() + Me(Me.tablerFuncAtivo.celFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsruaFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.ruaFuncColumn) + End Function + + _ + Public Sub SetruaFuncNull() + Me(Me.tablerFuncAtivo.ruaFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnumeroFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.numeroFuncColumn) + End Function + + _ + Public Sub SetnumeroFuncNull() + Me(Me.tablerFuncAtivo.numeroFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.cidadeFuncColumn) + End Function + + _ + Public Sub SetcidadeFuncNull() + Me(Me.tablerFuncAtivo.cidadeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsusuarioFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.usuarioFuncColumn) + End Function + + _ + Public Sub SetusuarioFuncNull() + Me(Me.tablerFuncAtivo.usuarioFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.senhaFuncColumn) + End Function + + _ + Public Sub SetsenhaFuncNull() + Me(Me.tablerFuncAtivo.senhaFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncAtivo.statusFuncColumn) + End Function + + _ + Public Sub SetstatusFuncNull() + Me(Me.tablerFuncAtivo.statusFuncColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rFuncDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerFuncDesativado As rFuncDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerFuncDesativado = CType(Me.Table,rFuncDesativadoDataTable) + End Sub + + _ + Public Property nomeFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.nomeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.nomeFuncColumn) = value + End Set + End Property + + _ + Public Property rgFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.rgFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'rgFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.rgFuncColumn) = value + End Set + End Property + + _ + Public Property cpfFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.cpfFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cpfFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.cpfFuncColumn) = value + End Set + End Property + + _ + Public Property telFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.telFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'telFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.telFuncColumn) = value + End Set + End Property + + _ + Public Property celFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.celFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'celFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.celFuncColumn) = value + End Set + End Property + + _ + Public Property ruaFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.ruaFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'ruaFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.ruaFuncColumn) = value + End Set + End Property + + _ + Public Property numeroFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.numeroFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'numeroFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.numeroFuncColumn) = value + End Set + End Property + + _ + Public Property cidadeFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.cidadeFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'cidadeFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.cidadeFuncColumn) = value + End Set + End Property + + _ + Public Property usuarioFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.usuarioFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'usuarioFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.usuarioFuncColumn) = value + End Set + End Property + + _ + Public Property senhaFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.senhaFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'senhaFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.senhaFuncColumn) = value + End Set + End Property + + _ + Public Property statusFunc() As String + Get + Try + Return CType(Me(Me.tablerFuncDesativado.statusFuncColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusFunc' na tabela 'rFuncDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerFuncDesativado.statusFuncColumn) = value + End Set + End Property + + _ + Public Function IsnomeFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.nomeFuncColumn) + End Function + + _ + Public Sub SetnomeFuncNull() + Me(Me.tablerFuncDesativado.nomeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsrgFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.rgFuncColumn) + End Function + + _ + Public Sub SetrgFuncNull() + Me(Me.tablerFuncDesativado.rgFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscpfFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.cpfFuncColumn) + End Function + + _ + Public Sub SetcpfFuncNull() + Me(Me.tablerFuncDesativado.cpfFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IstelFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.telFuncColumn) + End Function + + _ + Public Sub SettelFuncNull() + Me(Me.tablerFuncDesativado.telFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscelFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.celFuncColumn) + End Function + + _ + Public Sub SetcelFuncNull() + Me(Me.tablerFuncDesativado.celFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsruaFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.ruaFuncColumn) + End Function + + _ + Public Sub SetruaFuncNull() + Me(Me.tablerFuncDesativado.ruaFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnumeroFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.numeroFuncColumn) + End Function + + _ + Public Sub SetnumeroFuncNull() + Me(Me.tablerFuncDesativado.numeroFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IscidadeFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.cidadeFuncColumn) + End Function + + _ + Public Sub SetcidadeFuncNull() + Me(Me.tablerFuncDesativado.cidadeFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsusuarioFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.usuarioFuncColumn) + End Function + + _ + Public Sub SetusuarioFuncNull() + Me(Me.tablerFuncDesativado.usuarioFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IssenhaFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.senhaFuncColumn) + End Function + + _ + Public Sub SetsenhaFuncNull() + Me(Me.tablerFuncDesativado.senhaFuncColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusFuncNull() As Boolean + Return Me.IsNull(Me.tablerFuncDesativado.statusFuncColumn) + End Function + + _ + Public Sub SetstatusFuncNull() + Me(Me.tablerFuncDesativado.statusFuncColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rItemAtivoRow + Inherits Global.System.Data.DataRow + + Private tablerItemAtivo As rItemAtivoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerItemAtivo = CType(Me.Table,rItemAtivoDataTable) + End Sub + + _ + Public Property nomeItem() As String + Get + Try + Return CType(Me(Me.tablerItemAtivo.nomeItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeItem' na tabela 'rItemAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemAtivo.nomeItemColumn) = value + End Set + End Property + + _ + Public Property nomeTipo() As String + Get + Try + Return CType(Me(Me.tablerItemAtivo.nomeTipoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeTipo' na tabela 'rItemAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemAtivo.nomeTipoColumn) = value + End Set + End Property + + _ + Public Property nomeGenero() As String + Get + Try + Return CType(Me(Me.tablerItemAtivo.nomeGeneroColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeGenero' na tabela 'rItemAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemAtivo.nomeGeneroColumn) = value + End Set + End Property + + _ + Public Property nomeAutor() As String + Get + Try + Return CType(Me(Me.tablerItemAtivo.nomeAutorColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAutor' na tabela 'rItemAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemAtivo.nomeAutorColumn) = value + End Set + End Property + + _ + Public Property isbnItem() As String + Get + Try + Return CType(Me(Me.tablerItemAtivo.isbnItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'isbnItem' na tabela 'rItemAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemAtivo.isbnItemColumn) = value + End Set + End Property + + _ + Public Property statusItem() As String + Get + Try + Return CType(Me(Me.tablerItemAtivo.statusItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusItem' na tabela 'rItemAtivo' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemAtivo.statusItemColumn) = value + End Set + End Property + + _ + Public Function IsnomeItemNull() As Boolean + Return Me.IsNull(Me.tablerItemAtivo.nomeItemColumn) + End Function + + _ + Public Sub SetnomeItemNull() + Me(Me.tablerItemAtivo.nomeItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeTipoNull() As Boolean + Return Me.IsNull(Me.tablerItemAtivo.nomeTipoColumn) + End Function + + _ + Public Sub SetnomeTipoNull() + Me(Me.tablerItemAtivo.nomeTipoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeGeneroNull() As Boolean + Return Me.IsNull(Me.tablerItemAtivo.nomeGeneroColumn) + End Function + + _ + Public Sub SetnomeGeneroNull() + Me(Me.tablerItemAtivo.nomeGeneroColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeAutorNull() As Boolean + Return Me.IsNull(Me.tablerItemAtivo.nomeAutorColumn) + End Function + + _ + Public Sub SetnomeAutorNull() + Me(Me.tablerItemAtivo.nomeAutorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsisbnItemNull() As Boolean + Return Me.IsNull(Me.tablerItemAtivo.isbnItemColumn) + End Function + + _ + Public Sub SetisbnItemNull() + Me(Me.tablerItemAtivo.isbnItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusItemNull() As Boolean + Return Me.IsNull(Me.tablerItemAtivo.statusItemColumn) + End Function + + _ + Public Sub SetstatusItemNull() + Me(Me.tablerItemAtivo.statusItemColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class rItemDesativadoRow + Inherits Global.System.Data.DataRow + + Private tablerItemDesativado As rItemDesativadoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablerItemDesativado = CType(Me.Table,rItemDesativadoDataTable) + End Sub + + _ + Public Property nomeItem() As String + Get + Try + Return CType(Me(Me.tablerItemDesativado.nomeItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeItem' na tabela 'rItemDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemDesativado.nomeItemColumn) = value + End Set + End Property + + _ + Public Property nomeTipo() As String + Get + Try + Return CType(Me(Me.tablerItemDesativado.nomeTipoColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeTipo' na tabela 'rItemDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemDesativado.nomeTipoColumn) = value + End Set + End Property + + _ + Public Property nomeGenero() As String + Get + Try + Return CType(Me(Me.tablerItemDesativado.nomeGeneroColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeGenero' na tabela 'rItemDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemDesativado.nomeGeneroColumn) = value + End Set + End Property + + _ + Public Property nomeAutor() As String + Get + Try + Return CType(Me(Me.tablerItemDesativado.nomeAutorColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeAutor' na tabela 'rItemDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemDesativado.nomeAutorColumn) = value + End Set + End Property + + _ + Public Property isbnItem() As String + Get + Try + Return CType(Me(Me.tablerItemDesativado.isbnItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'isbnItem' na tabela 'rItemDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemDesativado.isbnItemColumn) = value + End Set + End Property + + _ + Public Property statusItem() As String + Get + Try + Return CType(Me(Me.tablerItemDesativado.statusItemColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'statusItem' na tabela 'rItemDesativado' é DBNull.", e) + End Try + End Get + Set + Me(Me.tablerItemDesativado.statusItemColumn) = value + End Set + End Property + + _ + Public Function IsnomeItemNull() As Boolean + Return Me.IsNull(Me.tablerItemDesativado.nomeItemColumn) + End Function + + _ + Public Sub SetnomeItemNull() + Me(Me.tablerItemDesativado.nomeItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeTipoNull() As Boolean + Return Me.IsNull(Me.tablerItemDesativado.nomeTipoColumn) + End Function + + _ + Public Sub SetnomeTipoNull() + Me(Me.tablerItemDesativado.nomeTipoColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeGeneroNull() As Boolean + Return Me.IsNull(Me.tablerItemDesativado.nomeGeneroColumn) + End Function + + _ + Public Sub SetnomeGeneroNull() + Me(Me.tablerItemDesativado.nomeGeneroColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsnomeAutorNull() As Boolean + Return Me.IsNull(Me.tablerItemDesativado.nomeAutorColumn) + End Function + + _ + Public Sub SetnomeAutorNull() + Me(Me.tablerItemDesativado.nomeAutorColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsisbnItemNull() As Boolean + Return Me.IsNull(Me.tablerItemDesativado.isbnItemColumn) + End Function + + _ + Public Sub SetisbnItemNull() + Me(Me.tablerItemDesativado.isbnItemColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsstatusItemNull() As Boolean + Return Me.IsNull(Me.tablerItemDesativado.statusItemColumn) + End Function + + _ + Public Sub SetstatusItemNull() + Me(Me.tablerItemDesativado.statusItemColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class tbEditoraRow + Inherits Global.System.Data.DataRow + + Private tabletbEditora As tbEditoraDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tabletbEditora = CType(Me.Table,tbEditoraDataTable) + End Sub + + _ + Public Property idEditora() As Integer + Get + Return CType(Me(Me.tabletbEditora.idEditoraColumn),Integer) + End Get + Set + Me(Me.tabletbEditora.idEditoraColumn) = value + End Set + End Property + + _ + Public Property nomeEditora() As String + Get + Try + Return CType(Me(Me.tabletbEditora.nomeEditoraColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("O valor da coluna 'nomeEditora' na tabela 'tbEditora' é DBNull.", e) + End Try + End Get + Set + Me(Me.tabletbEditora.nomeEditoraColumn) = value + End Set + End Property + + _ + Public Function IsnomeEditoraNull() As Boolean + Return Me.IsNull(Me.tabletbEditora.nomeEditoraColumn) + End Function + + _ + Public Sub SetnomeEditoraNull() + Me(Me.tabletbEditora.nomeEditoraColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GettbItemRows() As tbItemRow() + If (Me.Table.ChildRelations("tbEditoratbItem") Is Nothing) Then + Return New tbItemRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("tbEditoratbItem")),tbItemRow()) + End If + End Function + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class tbAutorRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbAutorRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbAutorRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbAutorRow + 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 tbClienteRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbClienteRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbClienteRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbClienteRow + 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 tbEmprestimoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbEmprestimoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbEmprestimoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbEmprestimoRow + 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 tbFuncionarioRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbFuncionarioRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbFuncionarioRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbFuncionarioRow + 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 tbGeneroRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbGeneroRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbGeneroRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbGeneroRow + 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 tbItemRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbItemRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbItemRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbItemRow + 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 tbTipoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbTipoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbTipoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbTipoRow + 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 rClienteAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rClienteAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rClienteAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rClienteAtivoRow + 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 rClienteDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rClienteDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rClienteDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rClienteDesativadoRow + 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 rEmprestimosAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rEmprestimosAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rEmprestimosAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rEmprestimosAtivoRow + 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 rEmprestimosDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rEmprestimosDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rEmprestimosDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rEmprestimosDesativadoRow + 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 rFuncAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rFuncAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rFuncAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rFuncAtivoRow + 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 rFuncDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rFuncDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rFuncDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rFuncDesativadoRow + 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 rItemAtivoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rItemAtivoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rItemAtivoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rItemAtivoRow + 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 rItemDesativadoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As rItemDesativadoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As rItemDesativadoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As rItemDesativadoRow + 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 tbEditoraRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As tbEditoraRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As tbEditoraRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As tbEditoraRow + 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 dbBibliotecaDataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbAutorTableAdapter + 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 = "tbAutor" + tableMapping.ColumnMappings.Add("idAutor", "idAutor") + tableMapping.ColumnMappings.Add("nomeAutor", "nomeAutor") + 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 `tbAutor` WHERE ((`idAutor` = ?) AND ((? = 1 AND `nomeAutor` IS NULL)"& _ + " OR (`nomeAutor` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAutor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeAutor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAutor", 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 `tbAutor` (`nomeAutor`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeAutor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAutor", 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 `tbAutor` SET `nomeAutor` = ? WHERE ((`idAutor` = ?) AND ((? = 1 AND `nome"& _ + "Autor` IS NULL) OR (`nomeAutor` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeAutor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAutor", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAutor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeAutor", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeAutor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idAutor, nomeAutor FROM tbAutor" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbAutorDataTable) 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 dbBibliotecaDataSet.tbAutorDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbAutorDataTable = New dbBibliotecaDataSet.tbAutorDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbAutorDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbAutor") + 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_idAutor As Integer, ByVal Original_nomeAutor As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idAutor,Integer) + If (Original_nomeAutor 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_nomeAutor,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 nomeAutor As String) As Integer + If (nomeAutor Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeAutor,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 nomeAutor As String, ByVal Original_idAutor As Integer, ByVal Original_nomeAutor As String) As Integer + If (nomeAutor Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeAutor,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_idAutor,Integer) + If (Original_nomeAutor Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_nomeAutor,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 tbClienteTableAdapter + 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 = "tbCliente" + tableMapping.ColumnMappings.Add("idCliente", "idCliente") + tableMapping.ColumnMappings.Add("nomeCliente", "nomeCliente") + tableMapping.ColumnMappings.Add("rgCliente", "rgCliente") + tableMapping.ColumnMappings.Add("cpfCliente", "cpfCliente") + tableMapping.ColumnMappings.Add("telCliente", "telCliente") + tableMapping.ColumnMappings.Add("celCliente", "celCliente") + tableMapping.ColumnMappings.Add("ruaCliente", "ruaCliente") + tableMapping.ColumnMappings.Add("numeroCliente", "numeroCliente") + tableMapping.ColumnMappings.Add("cidadeCliente", "cidadeCliente") + tableMapping.ColumnMappings.Add("statusCliente", "statusCliente") + 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 `tbCliente` WHERE ((`idCliente` = ?) AND ((? = 1 AND `nomeCliente` IS"& _ + " NULL) OR (`nomeCliente` = ?)) AND ((? = 1 AND `rgCliente` IS NULL) OR (`rgClien"& _ + "te` = ?)) AND ((? = 1 AND `cpfCliente` IS NULL) OR (`cpfCliente` = ?)) AND ((? ="& _ + " 1 AND `telCliente` IS NULL) OR (`telCliente` = ?)) AND ((? = 1 AND `celCliente`"& _ + " IS NULL) OR (`celCliente` = ?)) AND ((? = 1 AND `ruaCliente` IS NULL) OR (`ruaC"& _ + "liente` = ?)) AND ((? = 1 AND `numeroCliente` IS NULL) OR (`numeroCliente` = ?))"& _ + " AND ((? = 1 AND `cidadeCliente` IS NULL) OR (`cidadeCliente` = ?)) AND ((? = 1 "& _ + "AND `statusCliente` IS NULL) OR (`statusCliente` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_rgCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rgCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cpfCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cpfCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_telCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_telCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_celCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_celCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_ruaCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ruaCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_numeroCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_numeroCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusCliente", 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 `tbCliente` (`nomeCliente`, `rgCliente`, `cpfCliente`, `telCliente`, "& _ + "`celCliente`, `ruaCliente`, `numeroCliente`, `cidadeCliente`, `statusCliente`) V"& _ + "ALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rgCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cpfCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("telCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("celCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ruaCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("numeroCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusCliente", 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 `tbCliente` SET `nomeCliente` = ?, `rgCliente` = ?, `cpfCliente` = ?, `tel"& _ + "Cliente` = ?, `celCliente` = ?, `ruaCliente` = ?, `numeroCliente` = ?, `cidadeCl"& _ + "iente` = ?, `statusCliente` = ? WHERE ((`idCliente` = ?) AND ((? = 1 AND `nomeCl"& _ + "iente` IS NULL) OR (`nomeCliente` = ?)) AND ((? = 1 AND `rgCliente` IS NULL) OR "& _ + "(`rgCliente` = ?)) AND ((? = 1 AND `cpfCliente` IS NULL) OR (`cpfCliente` = ?)) "& _ + "AND ((? = 1 AND `telCliente` IS NULL) OR (`telCliente` = ?)) AND ((? = 1 AND `ce"& _ + "lCliente` IS NULL) OR (`celCliente` = ?)) AND ((? = 1 AND `ruaCliente` IS NULL) "& _ + "OR (`ruaCliente` = ?)) AND ((? = 1 AND `numeroCliente` IS NULL) OR (`numeroClien"& _ + "te` = ?)) AND ((? = 1 AND `cidadeCliente` IS NULL) OR (`cidadeCliente` = ?)) AND"& _ + " ((? = 1 AND `statusCliente` IS NULL) OR (`statusCliente` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rgCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cpfCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("telCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("celCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ruaCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("numeroCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_rgCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rgCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cpfCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cpfCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_telCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_telCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_celCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_celCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_ruaCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ruaCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_numeroCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_numeroCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusCliente", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idCliente, nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, rua"& _ + "Cliente, numeroCliente, cidadeCliente, statusCliente FROM tbCliente" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbClienteDataTable) 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 dbBibliotecaDataSet.tbClienteDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbClienteDataTable = New dbBibliotecaDataSet.tbClienteDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbClienteDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbCliente") + 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_idCliente As Integer, ByVal Original_nomeCliente As String, ByVal Original_rgCliente As String, ByVal Original_cpfCliente As String, ByVal Original_telCliente As String, ByVal Original_celCliente As String, ByVal Original_ruaCliente As String, ByVal Original_numeroCliente As String, ByVal Original_cidadeCliente As String, ByVal Original_statusCliente As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idCliente,Integer) + If (Original_nomeCliente 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_nomeCliente,String) + End If + If (Original_rgCliente 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_rgCliente,String) + End If + If (Original_cpfCliente 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_cpfCliente,String) + End If + If (Original_telCliente 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_telCliente,String) + End If + If (Original_celCliente 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_celCliente,String) + End If + If (Original_ruaCliente 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_ruaCliente,String) + End If + If (Original_numeroCliente Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_numeroCliente,String) + End If + If (Original_cidadeCliente Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_cidadeCliente,String) + End If + If (Original_statusCliente Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_statusCliente,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 nomeCliente As String, ByVal rgCliente As String, ByVal cpfCliente As String, ByVal telCliente As String, ByVal celCliente As String, ByVal ruaCliente As String, ByVal numeroCliente As String, ByVal cidadeCliente As String, ByVal statusCliente As String) As Integer + If (nomeCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeCliente,String) + End If + If (rgCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(rgCliente,String) + End If + If (cpfCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(cpfCliente,String) + End If + If (telCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(telCliente,String) + End If + If (celCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(celCliente,String) + End If + If (ruaCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ruaCliente,String) + End If + If (numeroCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(numeroCliente,String) + End If + If (cidadeCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(cidadeCliente,String) + End If + If (statusCliente Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(statusCliente,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 nomeCliente As String, _ + ByVal rgCliente As String, _ + ByVal cpfCliente As String, _ + ByVal telCliente As String, _ + ByVal celCliente As String, _ + ByVal ruaCliente As String, _ + ByVal numeroCliente As String, _ + ByVal cidadeCliente As String, _ + ByVal statusCliente As String, _ + ByVal Original_idCliente As Integer, _ + ByVal Original_nomeCliente As String, _ + ByVal Original_rgCliente As String, _ + ByVal Original_cpfCliente As String, _ + ByVal Original_telCliente As String, _ + ByVal Original_celCliente As String, _ + ByVal Original_ruaCliente As String, _ + ByVal Original_numeroCliente As String, _ + ByVal Original_cidadeCliente As String, _ + ByVal Original_statusCliente As String) As Integer + If (nomeCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeCliente,String) + End If + If (rgCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(rgCliente,String) + End If + If (cpfCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(cpfCliente,String) + End If + If (telCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(telCliente,String) + End If + If (celCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(celCliente,String) + End If + If (ruaCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ruaCliente,String) + End If + If (numeroCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(numeroCliente,String) + End If + If (cidadeCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(cidadeCliente,String) + End If + If (statusCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(statusCliente,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_idCliente,Integer) + If (Original_nomeCliente 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_nomeCliente,String) + End If + If (Original_rgCliente 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_rgCliente,String) + End If + If (Original_cpfCliente 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_cpfCliente,String) + End If + If (Original_telCliente 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_telCliente,String) + End If + If (Original_celCliente 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_celCliente,String) + End If + If (Original_ruaCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ruaCliente,String) + End If + If (Original_numeroCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_numeroCliente,String) + End If + If (Original_cidadeCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_cidadeCliente,String) + End If + If (Original_statusCliente Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_statusCliente,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 tbEmprestimoTableAdapter + 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 = "tbEmprestimo" + tableMapping.ColumnMappings.Add("idEmprestimo", "idEmprestimo") + tableMapping.ColumnMappings.Add("idFunc", "idFunc") + tableMapping.ColumnMappings.Add("idCliente", "idCliente") + tableMapping.ColumnMappings.Add("idItem", "idItem") + tableMapping.ColumnMappings.Add("dataEmprestimo", "dataEmprestimo") + tableMapping.ColumnMappings.Add("dataDevolucao", "dataDevolucao") + tableMapping.ColumnMappings.Add("statusEmprestimo", "statusEmprestimo") + 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 `tbEmprestimo` WHERE ((`idEmprestimo` = ?) AND ((? = 1 AND `idFunc` I"& _ + "S NULL) OR (`idFunc` = ?)) AND ((? = 1 AND `idCliente` IS NULL) OR (`idCliente` "& _ + "= ?)) AND ((? = 1 AND `idItem` IS NULL) OR (`idItem` = ?)) AND ((? = 1 AND `data"& _ + "Emprestimo` IS NULL) OR (`dataEmprestimo` = ?)) AND ((? = 1 AND `dataDevolucao` "& _ + "IS NULL) OR (`dataDevolucao` = ?)) AND ((? = 1 AND `statusEmprestimo` IS NULL) O"& _ + "R (`statusEmprestimo` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idEmprestimo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idEmprestimo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataEmprestimo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataEmprestimo", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataEmprestimo", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataEmprestimo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataDevolucao", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataDevolucao", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataDevolucao", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataDevolucao", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusEmprestimo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusEmprestimo", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusEmprestimo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusEmprestimo", 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 `tbEmprestimo` (`idFunc`, `idCliente`, `idItem`, `dataEmprestimo`, `d"& _ + "ataDevolucao`, `statusEmprestimo`) VALUES (?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataEmprestimo", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataEmprestimo", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataDevolucao", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataDevolucao", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusEmprestimo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusEmprestimo", 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 `tbEmprestimo` SET `idFunc` = ?, `idCliente` = ?, `idItem` = ?, `dataEmpre"& _ + "stimo` = ?, `dataDevolucao` = ?, `statusEmprestimo` = ? WHERE ((`idEmprestimo` ="& _ + " ?) AND ((? = 1 AND `idFunc` IS NULL) OR (`idFunc` = ?)) AND ((? = 1 AND `idClie"& _ + "nte` IS NULL) OR (`idCliente` = ?)) AND ((? = 1 AND `idItem` IS NULL) OR (`idIte"& _ + "m` = ?)) AND ((? = 1 AND `dataEmprestimo` IS NULL) OR (`dataEmprestimo` = ?)) AN"& _ + "D ((? = 1 AND `dataDevolucao` IS NULL) OR (`dataDevolucao` = ?)) AND ((? = 1 AND"& _ + " `statusEmprestimo` IS NULL) OR (`statusEmprestimo` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataEmprestimo", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataEmprestimo", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("dataDevolucao", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataDevolucao", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusEmprestimo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusEmprestimo", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idEmprestimo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idEmprestimo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idCliente", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idCliente", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataEmprestimo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataEmprestimo", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataEmprestimo", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataEmprestimo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_dataDevolucao", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataDevolucao", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_dataDevolucao", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "dataDevolucao", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusEmprestimo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusEmprestimo", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusEmprestimo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusEmprestimo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idEmprestimo, idFunc, idCliente, idItem, dataEmprestimo, dataDevolucao, st"& _ + "atusEmprestimo FROM tbEmprestimo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbEmprestimoDataTable) 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 dbBibliotecaDataSet.tbEmprestimoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbEmprestimoDataTable = New dbBibliotecaDataSet.tbEmprestimoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbEmprestimoDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbEmprestimo") + 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_idEmprestimo As Integer, ByVal Original_idFunc As Global.System.Nullable(Of Integer), ByVal Original_idCliente As Global.System.Nullable(Of Integer), ByVal Original_idItem As Global.System.Nullable(Of Integer), ByVal Original_dataEmprestimo As Global.System.Nullable(Of Date), ByVal Original_dataDevolucao As Global.System.Nullable(Of Date), ByVal Original_statusEmprestimo As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idEmprestimo,Integer) + If (Original_idFunc.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_idFunc.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_idCliente.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_idCliente.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_idItem.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_idItem.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_dataEmprestimo.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_dataEmprestimo.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_dataDevolucao.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_dataDevolucao.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_statusEmprestimo 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_statusEmprestimo,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 idFunc As Global.System.Nullable(Of Integer), ByVal idCliente As Global.System.Nullable(Of Integer), ByVal idItem As Global.System.Nullable(Of Integer), ByVal dataEmprestimo As Global.System.Nullable(Of Date), ByVal dataDevolucao As Global.System.Nullable(Of Date), ByVal statusEmprestimo As String) As Integer + If (idFunc.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(idFunc.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (idCliente.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(idCliente.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (idItem.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(idItem.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (dataEmprestimo.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(dataEmprestimo.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (dataDevolucao.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(dataDevolucao.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (statusEmprestimo Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(statusEmprestimo,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 idFunc As Global.System.Nullable(Of Integer), ByVal idCliente As Global.System.Nullable(Of Integer), ByVal idItem As Global.System.Nullable(Of Integer), ByVal dataEmprestimo As Global.System.Nullable(Of Date), ByVal dataDevolucao As Global.System.Nullable(Of Date), ByVal statusEmprestimo As String, ByVal Original_idEmprestimo As Integer, ByVal Original_idFunc As Global.System.Nullable(Of Integer), ByVal Original_idCliente As Global.System.Nullable(Of Integer), ByVal Original_idItem As Global.System.Nullable(Of Integer), ByVal Original_dataEmprestimo As Global.System.Nullable(Of Date), ByVal Original_dataDevolucao As Global.System.Nullable(Of Date), ByVal Original_statusEmprestimo As String) As Integer + If (idFunc.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(idFunc.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (idCliente.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(idCliente.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (idItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(idItem.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (dataEmprestimo.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(dataEmprestimo.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (dataDevolucao.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(dataDevolucao.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (statusEmprestimo Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(statusEmprestimo,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_idEmprestimo,Integer) + If (Original_idFunc.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_idFunc.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_idCliente.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_idCliente.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_idItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_idItem.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_dataEmprestimo.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_dataEmprestimo.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_dataDevolucao.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_dataDevolucao.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (Original_statusEmprestimo 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_statusEmprestimo,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 tbFuncionarioTableAdapter + 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 = "tbFuncionario" + tableMapping.ColumnMappings.Add("idFunc", "idFunc") + tableMapping.ColumnMappings.Add("nomeFunc", "nomeFunc") + tableMapping.ColumnMappings.Add("rgFunc", "rgFunc") + tableMapping.ColumnMappings.Add("cpfFunc", "cpfFunc") + tableMapping.ColumnMappings.Add("telFunc", "telFunc") + tableMapping.ColumnMappings.Add("celFunc", "celFunc") + tableMapping.ColumnMappings.Add("ruaFunc", "ruaFunc") + tableMapping.ColumnMappings.Add("numeroFunc", "numeroFunc") + tableMapping.ColumnMappings.Add("cidadeFunc", "cidadeFunc") + tableMapping.ColumnMappings.Add("statusFunc", "statusFunc") + tableMapping.ColumnMappings.Add("usuarioFunc", "usuarioFunc") + tableMapping.ColumnMappings.Add("senhaFunc", "senhaFunc") + 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 `tbFuncionario` WHERE ((`idFunc` = ?) AND ((? = 1 AND `nomeFunc` IS N"& _ + "ULL) OR (`nomeFunc` = ?)) AND ((? = 1 AND `rgFunc` IS NULL) OR (`rgFunc` = ?)) A"& _ + "ND ((? = 1 AND `cpfFunc` IS NULL) OR (`cpfFunc` = ?)) AND ((? = 1 AND `telFunc` "& _ + "IS NULL) OR (`telFunc` = ?)) AND ((? = 1 AND `celFunc` IS NULL) OR (`celFunc` = "& _ + "?)) AND ((? = 1 AND `ruaFunc` IS NULL) OR (`ruaFunc` = ?)) AND ((? = 1 AND `nume"& _ + "roFunc` IS NULL) OR (`numeroFunc` = ?)) AND ((? = 1 AND `cidadeFunc` IS NULL) OR"& _ + " (`cidadeFunc` = ?)) AND ((? = 1 AND `statusFunc` IS NULL) OR (`statusFunc` = ?)"& _ + ") AND ((? = 1 AND `usuarioFunc` IS NULL) OR (`usuarioFunc` = ?)) AND ((? = 1 AND"& _ + " `senhaFunc` IS NULL) OR (`senhaFunc` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_rgFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rgFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cpfFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cpfFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_telFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_telFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_celFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_celFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_ruaFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ruaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_numeroFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_numeroFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_usuarioFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuarioFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_usuarioFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuarioFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaFunc", 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 `tbFuncionario` (`nomeFunc`, `rgFunc`, `cpfFunc`, `telFunc`, `celFunc"& _ + "`, `ruaFunc`, `numeroFunc`, `cidadeFunc`, `statusFunc`, `usuarioFunc`, `senhaFun"& _ + "c`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rgFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cpfFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("telFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("celFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ruaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("numeroFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("usuarioFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuarioFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaFunc", 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 `tbFuncionario` SET `nomeFunc` = ?, `rgFunc` = ?, `cpfFunc` = ?, `telFunc`"& _ + " = ?, `celFunc` = ?, `ruaFunc` = ?, `numeroFunc` = ?, `cidadeFunc` = ?, `statusF"& _ + "unc` = ?, `usuarioFunc` = ?, `senhaFunc` = ? WHERE ((`idFunc` = ?) AND ((? = 1 A"& _ + "ND `nomeFunc` IS NULL) OR (`nomeFunc` = ?)) AND ((? = 1 AND `rgFunc` IS NULL) OR"& _ + " (`rgFunc` = ?)) AND ((? = 1 AND `cpfFunc` IS NULL) OR (`cpfFunc` = ?)) AND ((? "& _ + "= 1 AND `telFunc` IS NULL) OR (`telFunc` = ?)) AND ((? = 1 AND `celFunc` IS NULL"& _ + ") OR (`celFunc` = ?)) AND ((? = 1 AND `ruaFunc` IS NULL) OR (`ruaFunc` = ?)) AND"& _ + " ((? = 1 AND `numeroFunc` IS NULL) OR (`numeroFunc` = ?)) AND ((? = 1 AND `cidad"& _ + "eFunc` IS NULL) OR (`cidadeFunc` = ?)) AND ((? = 1 AND `statusFunc` IS NULL) OR "& _ + "(`statusFunc` = ?)) AND ((? = 1 AND `usuarioFunc` IS NULL) OR (`usuarioFunc` = ?"& _ + ")) AND ((? = 1 AND `senhaFunc` IS NULL) OR (`senhaFunc` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rgFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cpfFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("telFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("celFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ruaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("numeroFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("cidadeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("usuarioFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuarioFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_rgFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rgFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rgFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cpfFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cpfFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cpfFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_telFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_telFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "telFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_celFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_celFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "celFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_ruaFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ruaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ruaFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_numeroFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_numeroFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "numeroFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_cidadeFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_cidadeFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "cidadeFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_usuarioFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuarioFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_usuarioFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuarioFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_senhaFunc", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaFunc", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_senhaFunc", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaFunc", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT idFunc, nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, "& _ + "cidadeFunc, statusFunc, usuarioFunc, senhaFunc FROM tbFuncionario" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT * FROM tbFuncionario WHERE (usuarioFunc = ?) and (senhaFunc = ?)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("usuarioFunc", Global.System.Data.OleDb.OleDbType.WChar, 15, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "usuarioFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("senhaFunc", Global.System.Data.OleDb.OleDbType.WChar, 15, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "senhaFunc", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbFuncionarioDataTable) 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 dbBibliotecaDataSet.tbFuncionarioDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbFuncionarioDataTable = New dbBibliotecaDataSet.tbFuncionarioDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbFuncionarioDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbFuncionario") + 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_idFunc As Integer, ByVal Original_nomeFunc As String, ByVal Original_rgFunc As String, ByVal Original_cpfFunc As String, ByVal Original_telFunc As String, ByVal Original_celFunc As String, ByVal Original_ruaFunc As String, ByVal Original_numeroFunc As String, ByVal Original_cidadeFunc As String, ByVal Original_statusFunc As String, ByVal Original_usuarioFunc As String, ByVal Original_senhaFunc As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idFunc,Integer) + If (Original_nomeFunc 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_nomeFunc,String) + End If + If (Original_rgFunc 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_rgFunc,String) + End If + If (Original_cpfFunc 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_cpfFunc,String) + End If + If (Original_telFunc 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_telFunc,String) + End If + If (Original_celFunc 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_celFunc,String) + End If + If (Original_ruaFunc 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_ruaFunc,String) + End If + If (Original_numeroFunc Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_numeroFunc,String) + End If + If (Original_cidadeFunc Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_cidadeFunc,String) + End If + If (Original_statusFunc Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_statusFunc,String) + End If + If (Original_usuarioFunc Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_usuarioFunc,String) + End If + If (Original_senhaFunc Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_senhaFunc,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 nomeFunc As String, ByVal rgFunc As String, ByVal cpfFunc As String, ByVal telFunc As String, ByVal celFunc As String, ByVal ruaFunc As String, ByVal numeroFunc As String, ByVal cidadeFunc As String, ByVal statusFunc As String, ByVal usuarioFunc As String, ByVal senhaFunc As String) As Integer + If (nomeFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeFunc,String) + End If + If (rgFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(rgFunc,String) + End If + If (cpfFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(cpfFunc,String) + End If + If (telFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(telFunc,String) + End If + If (celFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(celFunc,String) + End If + If (ruaFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ruaFunc,String) + End If + If (numeroFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(numeroFunc,String) + End If + If (cidadeFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(cidadeFunc,String) + End If + If (statusFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(statusFunc,String) + End If + If (usuarioFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(usuarioFunc,String) + End If + If (senhaFunc Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(senhaFunc,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 nomeFunc As String, _ + ByVal rgFunc As String, _ + ByVal cpfFunc As String, _ + ByVal telFunc As String, _ + ByVal celFunc As String, _ + ByVal ruaFunc As String, _ + ByVal numeroFunc As String, _ + ByVal cidadeFunc As String, _ + ByVal statusFunc As String, _ + ByVal usuarioFunc As String, _ + ByVal senhaFunc As String, _ + ByVal Original_idFunc As Integer, _ + ByVal Original_nomeFunc As String, _ + ByVal Original_rgFunc As String, _ + ByVal Original_cpfFunc As String, _ + ByVal Original_telFunc As String, _ + ByVal Original_celFunc As String, _ + ByVal Original_ruaFunc As String, _ + ByVal Original_numeroFunc As String, _ + ByVal Original_cidadeFunc As String, _ + ByVal Original_statusFunc As String, _ + ByVal Original_usuarioFunc As String, _ + ByVal Original_senhaFunc As String) As Integer + If (nomeFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeFunc,String) + End If + If (rgFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(rgFunc,String) + End If + If (cpfFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(cpfFunc,String) + End If + If (telFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(telFunc,String) + End If + If (celFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(celFunc,String) + End If + If (ruaFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ruaFunc,String) + End If + If (numeroFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(numeroFunc,String) + End If + If (cidadeFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(cidadeFunc,String) + End If + If (statusFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(statusFunc,String) + End If + If (usuarioFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(usuarioFunc,String) + End If + If (senhaFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(senhaFunc,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_idFunc,Integer) + If (Original_nomeFunc 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_nomeFunc,String) + End If + If (Original_rgFunc 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_rgFunc,String) + End If + If (Original_cpfFunc 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_cpfFunc,String) + End If + If (Original_telFunc 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_telFunc,String) + End If + If (Original_celFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_celFunc,String) + End If + If (Original_ruaFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ruaFunc,String) + End If + If (Original_numeroFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_numeroFunc,String) + End If + If (Original_cidadeFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_cidadeFunc,String) + End If + If (Original_statusFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_statusFunc,String) + End If + If (Original_usuarioFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_usuarioFunc,String) + End If + If (Original_senhaFunc Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_senhaFunc,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 + + _ + Public Overloads Overridable Function ScalarQueryLogin(ByVal usuarioFunc As String, ByVal senhaFunc As String) As Object + Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1) + If (usuarioFunc Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(usuarioFunc,String) + End If + If (senhaFunc Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(senhaFunc,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbGeneroTableAdapter + 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 = "tbGenero" + tableMapping.ColumnMappings.Add("idGenero", "idGenero") + tableMapping.ColumnMappings.Add("nomeGenero", "nomeGenero") + 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 `tbGenero` WHERE ((`idGenero` = ?) AND ((? = 1 AND `nomeGenero` IS NU"& _ + "LL) OR (`nomeGenero` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idGenero", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idGenero", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeGenero", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeGenero", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeGenero", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeGenero", 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 `tbGenero` (`nomeGenero`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeGenero", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeGenero", 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 `tbGenero` SET `nomeGenero` = ? WHERE ((`idGenero` = ?) AND ((? = 1 AND `n"& _ + "omeGenero` IS NULL) OR (`nomeGenero` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeGenero", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeGenero", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idGenero", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idGenero", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeGenero", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeGenero", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeGenero", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeGenero", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idGenero, nomeGenero FROM tbGenero" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbGeneroDataTable) 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 dbBibliotecaDataSet.tbGeneroDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbGeneroDataTable = New dbBibliotecaDataSet.tbGeneroDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbGeneroDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbGenero") + 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_idGenero As Integer, ByVal Original_nomeGenero As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idGenero,Integer) + If (Original_nomeGenero 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_nomeGenero,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 nomeGenero As String) As Integer + If (nomeGenero Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeGenero,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 nomeGenero As String, ByVal Original_idGenero As Integer, ByVal Original_nomeGenero As String) As Integer + If (nomeGenero Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeGenero,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_idGenero,Integer) + If (Original_nomeGenero Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_nomeGenero,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 tbItemTableAdapter + 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 = "tbItem" + tableMapping.ColumnMappings.Add("idItem", "idItem") + tableMapping.ColumnMappings.Add("nomeItem", "nomeItem") + tableMapping.ColumnMappings.Add("idAutor", "idAutor") + tableMapping.ColumnMappings.Add("generoItem", "generoItem") + tableMapping.ColumnMappings.Add("tipoItem", "tipoItem") + tableMapping.ColumnMappings.Add("isbnItem", "isbnItem") + tableMapping.ColumnMappings.Add("statusItem", "statusItem") + tableMapping.ColumnMappings.Add("editoraItem", "editoraItem") + 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 `tbItem` WHERE ((`idItem` = ?) AND ((? = 1 AND `nomeItem` IS NULL) OR"& _ + " (`nomeItem` = ?)) AND ((? = 1 AND `idAutor` IS NULL) OR (`idAutor` = ?)) AND (("& _ + "? = 1 AND `generoItem` IS NULL) OR (`generoItem` = ?)) AND ((? = 1 AND `tipoItem"& _ + "` IS NULL) OR (`tipoItem` = ?)) AND ((? = 1 AND `isbnItem` IS NULL) OR (`isbnIte"& _ + "m` = ?)) AND ((? = 1 AND `statusItem` IS NULL) OR (`statusItem` = ?)) AND ((? = "& _ + "1 AND `editoraItem` IS NULL) OR (`editoraItem` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_generoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "generoItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_generoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "generoItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_tipoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "tipoItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_tipoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "tipoItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_isbnItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "isbnItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_isbnItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "isbnItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_editoraItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "editoraItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_editoraItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "editoraItem", 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 `tbItem` (`nomeItem`, `idAutor`, `generoItem`, `tipoItem`, `isbnItem`"& _ + ", `statusItem`, `editoraItem`) VALUES (?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("generoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "generoItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("tipoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "tipoItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("isbnItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "isbnItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("editoraItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "editoraItem", 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 `tbItem` SET `nomeItem` = ?, `idAutor` = ?, `generoItem` = ?, `tipoItem` ="& _ + " ?, `isbnItem` = ?, `statusItem` = ?, `editoraItem` = ? WHERE ((`idItem` = ?) AN"& _ + "D ((? = 1 AND `nomeItem` IS NULL) OR (`nomeItem` = ?)) AND ((? = 1 AND `idAutor`"& _ + " IS NULL) OR (`idAutor` = ?)) AND ((? = 1 AND `generoItem` IS NULL) OR (`generoI"& _ + "tem` = ?)) AND ((? = 1 AND `tipoItem` IS NULL) OR (`tipoItem` = ?)) AND ((? = 1 "& _ + "AND `isbnItem` IS NULL) OR (`isbnItem` = ?)) AND ((? = 1 AND `statusItem` IS NUL"& _ + "L) OR (`statusItem` = ?)) AND ((? = 1 AND `editoraItem` IS NULL) OR (`editoraIte"& _ + "m` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("generoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "generoItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("tipoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "tipoItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("isbnItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "isbnItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("statusItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("editoraItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "editoraItem", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idAutor", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idAutor", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_generoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "generoItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_generoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "generoItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_tipoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "tipoItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_tipoItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "tipoItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_isbnItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "isbnItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_isbnItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "isbnItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_statusItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_statusItem", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "statusItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_editoraItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "editoraItem", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_editoraItem", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "editoraItem", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idItem, nomeItem, idAutor, generoItem, tipoItem, isbnItem, statusItem, edi"& _ + "toraItem FROM tbItem" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbItemDataTable) 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 dbBibliotecaDataSet.tbItemDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbItemDataTable = New dbBibliotecaDataSet.tbItemDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbItemDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbItem") + 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_idItem As Integer, ByVal Original_nomeItem As String, ByVal Original_idAutor As Global.System.Nullable(Of Integer), ByVal Original_generoItem As Global.System.Nullable(Of Integer), ByVal Original_tipoItem As Global.System.Nullable(Of Integer), ByVal Original_isbnItem As String, ByVal Original_statusItem As String, ByVal Original_editoraItem As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idItem,Integer) + If (Original_nomeItem 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_nomeItem,String) + End If + If (Original_idAutor.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_idAutor.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_generoItem.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_generoItem.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_tipoItem.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_tipoItem.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_isbnItem 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_isbnItem,String) + End If + If (Original_statusItem 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_statusItem,String) + End If + If (Original_editoraItem.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_editoraItem.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 nomeItem As String, ByVal idAutor As Global.System.Nullable(Of Integer), ByVal generoItem As Global.System.Nullable(Of Integer), ByVal tipoItem As Global.System.Nullable(Of Integer), ByVal isbnItem As String, ByVal statusItem As String, ByVal editoraItem As Global.System.Nullable(Of Integer)) As Integer + If (nomeItem Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeItem,String) + End If + If (idAutor.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(idAutor.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (generoItem.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(generoItem.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (tipoItem.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(tipoItem.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (isbnItem Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(isbnItem,String) + End If + If (statusItem Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(statusItem,String) + End If + If (editoraItem.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(editoraItem.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 nomeItem As String, ByVal idAutor As Global.System.Nullable(Of Integer), ByVal generoItem As Global.System.Nullable(Of Integer), ByVal tipoItem As Global.System.Nullable(Of Integer), ByVal isbnItem As String, ByVal statusItem As String, ByVal editoraItem As Global.System.Nullable(Of Integer), ByVal Original_idItem As Integer, ByVal Original_nomeItem As String, ByVal Original_idAutor As Global.System.Nullable(Of Integer), ByVal Original_generoItem As Global.System.Nullable(Of Integer), ByVal Original_tipoItem As Global.System.Nullable(Of Integer), ByVal Original_isbnItem As String, ByVal Original_statusItem As String, ByVal Original_editoraItem As Global.System.Nullable(Of Integer)) As Integer + If (nomeItem Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeItem,String) + End If + If (idAutor.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(idAutor.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (generoItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(generoItem.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (tipoItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(tipoItem.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (isbnItem Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(isbnItem,String) + End If + If (statusItem Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(statusItem,String) + End If + If (editoraItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(editoraItem.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_idItem,Integer) + If (Original_nomeItem 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_nomeItem,String) + End If + If (Original_idAutor.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_idAutor.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_generoItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_generoItem.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Original_tipoItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_tipoItem.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (Original_isbnItem 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_isbnItem,String) + End If + If (Original_statusItem 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_statusItem,String) + End If + If (Original_editoraItem.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_editoraItem.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 tbTipoTableAdapter + 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 = "tbTipo" + tableMapping.ColumnMappings.Add("idTipo", "idTipo") + tableMapping.ColumnMappings.Add("nomeTipo", "nomeTipo") + 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 `tbTipo` WHERE ((`idTipo` = ?) AND ((? = 1 AND `nomeTipo` IS NULL) OR"& _ + " (`nomeTipo` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idTipo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idTipo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeTipo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeTipo", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeTipo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeTipo", 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 `tbTipo` (`nomeTipo`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeTipo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeTipo", 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 `tbTipo` SET `nomeTipo` = ? WHERE ((`idTipo` = ?) AND ((? = 1 AND `nomeTip"& _ + "o` IS NULL) OR (`nomeTipo` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeTipo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeTipo", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idTipo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idTipo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeTipo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeTipo", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeTipo", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeTipo", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idTipo, nomeTipo FROM tbTipo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbTipoDataTable) 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 dbBibliotecaDataSet.tbTipoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbTipoDataTable = New dbBibliotecaDataSet.tbTipoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbTipoDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbTipo") + 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_idTipo As Integer, ByVal Original_nomeTipo As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idTipo,Integer) + If (Original_nomeTipo 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_nomeTipo,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 nomeTipo As String) As Integer + If (nomeTipo Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeTipo,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 nomeTipo As String, ByVal Original_idTipo As Integer, ByVal Original_nomeTipo As String) As Integer + If (nomeTipo Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeTipo,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_idTipo,Integer) + If (Original_nomeTipo Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_nomeTipo,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 rClienteAtivoTableAdapter + 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 = "rClienteAtivo" + tableMapping.ColumnMappings.Add("nomeCliente", "nomeCliente") + tableMapping.ColumnMappings.Add("rgCliente", "rgCliente") + tableMapping.ColumnMappings.Add("cpfCliente", "cpfCliente") + tableMapping.ColumnMappings.Add("telCliente", "telCliente") + tableMapping.ColumnMappings.Add("celCliente", "celCliente") + tableMapping.ColumnMappings.Add("ruaCliente", "ruaCliente") + tableMapping.ColumnMappings.Add("numeroCliente", "numeroCliente") + tableMapping.ColumnMappings.Add("cidadeCliente", "cidadeCliente") + tableMapping.ColumnMappings.Add("statusCliente", "statusCliente") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, nu"& _ + "meroCliente, cidadeCliente, statusCliente FROM rClienteAtivo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rClienteAtivoDataTable) 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 dbBibliotecaDataSet.rClienteAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rClienteAtivoDataTable = New dbBibliotecaDataSet.rClienteAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rClienteDesativadoTableAdapter + 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 = "rClienteDesativado" + tableMapping.ColumnMappings.Add("nomeCliente", "nomeCliente") + tableMapping.ColumnMappings.Add("rgCliente", "rgCliente") + tableMapping.ColumnMappings.Add("cpfCliente", "cpfCliente") + tableMapping.ColumnMappings.Add("telCliente", "telCliente") + tableMapping.ColumnMappings.Add("celCliente", "celCliente") + tableMapping.ColumnMappings.Add("ruaCliente", "ruaCliente") + tableMapping.ColumnMappings.Add("numeroCliente", "numeroCliente") + tableMapping.ColumnMappings.Add("cidadeCliente", "cidadeCliente") + tableMapping.ColumnMappings.Add("statusCliente", "statusCliente") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, nu"& _ + "meroCliente, cidadeCliente, statusCliente FROM rClienteDesativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rClienteDesativadoDataTable) 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 dbBibliotecaDataSet.rClienteDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rClienteDesativadoDataTable = New dbBibliotecaDataSet.rClienteDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rEmprestimosAtivoTableAdapter + 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 = "rEmprestimosAtivo" + tableMapping.ColumnMappings.Add("idEmprestimo", "idEmprestimo") + tableMapping.ColumnMappings.Add("nomeFunc", "nomeFunc") + tableMapping.ColumnMappings.Add("nomeCliente", "nomeCliente") + tableMapping.ColumnMappings.Add("nomeItem", "nomeItem") + tableMapping.ColumnMappings.Add("nomeTipo", "nomeTipo") + tableMapping.ColumnMappings.Add("dataEmprestimo", "dataEmprestimo") + tableMapping.ColumnMappings.Add("dataDevolucao", "dataDevolucao") + tableMapping.ColumnMappings.Add("statusEmprestimo", "statusEmprestimo") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idEmprestimo, nomeFunc, nomeCliente, nomeItem, nomeTipo, dataEmprestimo, d"& _ + "ataDevolucao, statusEmprestimo FROM rEmprestimosAtivo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rEmprestimosAtivoDataTable) 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 dbBibliotecaDataSet.rEmprestimosAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rEmprestimosAtivoDataTable = New dbBibliotecaDataSet.rEmprestimosAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rEmprestimosDesativadoTableAdapter + 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 = "rEmprestimosDesativado" + tableMapping.ColumnMappings.Add("idEmprestimo", "idEmprestimo") + tableMapping.ColumnMappings.Add("nomeFunc", "nomeFunc") + tableMapping.ColumnMappings.Add("nomeCliente", "nomeCliente") + tableMapping.ColumnMappings.Add("nomeItem", "nomeItem") + tableMapping.ColumnMappings.Add("nomeTipo", "nomeTipo") + tableMapping.ColumnMappings.Add("dataEmprestimo", "dataEmprestimo") + tableMapping.ColumnMappings.Add("dataDevolucao", "dataDevolucao") + tableMapping.ColumnMappings.Add("statusEmprestimo", "statusEmprestimo") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idEmprestimo, nomeFunc, nomeCliente, nomeItem, nomeTipo, dataEmprestimo, d"& _ + "ataDevolucao, statusEmprestimo FROM rEmprestimosDesativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rEmprestimosDesativadoDataTable) 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 dbBibliotecaDataSet.rEmprestimosDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rEmprestimosDesativadoDataTable = New dbBibliotecaDataSet.rEmprestimosDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rFuncAtivoTableAdapter + 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 = "rFuncAtivo" + tableMapping.ColumnMappings.Add("nomeFunc", "nomeFunc") + tableMapping.ColumnMappings.Add("rgFunc", "rgFunc") + tableMapping.ColumnMappings.Add("cpfFunc", "cpfFunc") + tableMapping.ColumnMappings.Add("telFunc", "telFunc") + tableMapping.ColumnMappings.Add("celFunc", "celFunc") + tableMapping.ColumnMappings.Add("ruaFunc", "ruaFunc") + tableMapping.ColumnMappings.Add("numeroFunc", "numeroFunc") + tableMapping.ColumnMappings.Add("cidadeFunc", "cidadeFunc") + tableMapping.ColumnMappings.Add("usuarioFunc", "usuarioFunc") + tableMapping.ColumnMappings.Add("senhaFunc", "senhaFunc") + tableMapping.ColumnMappings.Add("statusFunc", "statusFunc") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFu"& _ + "nc, usuarioFunc, senhaFunc, statusFunc FROM rFuncAtivo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rFuncAtivoDataTable) 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 dbBibliotecaDataSet.rFuncAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rFuncAtivoDataTable = New dbBibliotecaDataSet.rFuncAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rFuncDesativadoTableAdapter + 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 = "rFuncDesativado" + tableMapping.ColumnMappings.Add("nomeFunc", "nomeFunc") + tableMapping.ColumnMappings.Add("rgFunc", "rgFunc") + tableMapping.ColumnMappings.Add("cpfFunc", "cpfFunc") + tableMapping.ColumnMappings.Add("telFunc", "telFunc") + tableMapping.ColumnMappings.Add("celFunc", "celFunc") + tableMapping.ColumnMappings.Add("ruaFunc", "ruaFunc") + tableMapping.ColumnMappings.Add("numeroFunc", "numeroFunc") + tableMapping.ColumnMappings.Add("cidadeFunc", "cidadeFunc") + tableMapping.ColumnMappings.Add("usuarioFunc", "usuarioFunc") + tableMapping.ColumnMappings.Add("senhaFunc", "senhaFunc") + tableMapping.ColumnMappings.Add("statusFunc", "statusFunc") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFu"& _ + "nc, usuarioFunc, senhaFunc, statusFunc FROM rFuncDesativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rFuncDesativadoDataTable) 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 dbBibliotecaDataSet.rFuncDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rFuncDesativadoDataTable = New dbBibliotecaDataSet.rFuncDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rItemAtivoTableAdapter + 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 = "rItemAtivo" + tableMapping.ColumnMappings.Add("nomeItem", "nomeItem") + tableMapping.ColumnMappings.Add("nomeTipo", "nomeTipo") + tableMapping.ColumnMappings.Add("nomeGenero", "nomeGenero") + tableMapping.ColumnMappings.Add("nomeAutor", "nomeAutor") + tableMapping.ColumnMappings.Add("isbnItem", "isbnItem") + tableMapping.ColumnMappings.Add("statusItem", "statusItem") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 nomeItem, nomeTipo, nomeGenero, nomeAutor, isbnItem, statusItem FROM rItem"& _ + "Ativo" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rItemAtivoDataTable) 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 dbBibliotecaDataSet.rItemAtivoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rItemAtivoDataTable = New dbBibliotecaDataSet.rItemAtivoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class rItemDesativadoTableAdapter + 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 = "rItemDesativado" + tableMapping.ColumnMappings.Add("nomeItem", "nomeItem") + tableMapping.ColumnMappings.Add("nomeTipo", "nomeTipo") + tableMapping.ColumnMappings.Add("nomeGenero", "nomeGenero") + tableMapping.ColumnMappings.Add("nomeAutor", "nomeAutor") + tableMapping.ColumnMappings.Add("isbnItem", "isbnItem") + tableMapping.ColumnMappings.Add("statusItem", "statusItem") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 nomeItem, nomeTipo, nomeGenero, nomeAutor, isbnItem, statusItem FROM rItem"& _ + "Desativado" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.rItemDesativadoDataTable) 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 dbBibliotecaDataSet.rItemDesativadoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.rItemDesativadoDataTable = New dbBibliotecaDataSet.rItemDesativadoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class tbEditoraTableAdapter + 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 = "tbEditora" + tableMapping.ColumnMappings.Add("idEditora", "idEditora") + tableMapping.ColumnMappings.Add("nomeEditora", "nomeEditora") + 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 `tbEditora` WHERE ((`idEditora` = ?) AND ((? = 1 AND `nomeEditora` IS"& _ + " NULL) OR (`nomeEditora` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idEditora", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idEditora", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeEditora", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeEditora", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeEditora", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeEditora", 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 `tbEditora` (`nomeEditora`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeEditora", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeEditora", 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 `tbEditora` SET `nomeEditora` = ? WHERE ((`idEditora` = ?) AND ((? = 1 AND"& _ + " `nomeEditora` IS NULL) OR (`nomeEditora` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("nomeEditora", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeEditora", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_idEditora", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "idEditora", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_nomeEditora", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeEditora", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_nomeEditora", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "nomeEditora", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.projetoBiblioteca05.My.MySettings.Default.dbBibliotecaConnectionString + 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 idEditora, nomeEditora FROM tbEditora" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As dbBibliotecaDataSet.tbEditoraDataTable) 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 dbBibliotecaDataSet.tbEditoraDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As dbBibliotecaDataSet.tbEditoraDataTable = New dbBibliotecaDataSet.tbEditoraDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As dbBibliotecaDataSet.tbEditoraDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As dbBibliotecaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "tbEditora") + 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_idEditora As Integer, ByVal Original_nomeEditora As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_idEditora,Integer) + If (Original_nomeEditora 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_nomeEditora,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 nomeEditora As String) As Integer + If (nomeEditora Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(nomeEditora,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 nomeEditora As String, ByVal Original_idEditora As Integer, ByVal Original_nomeEditora As String) As Integer + If (nomeEditora Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(nomeEditora,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_idEditora,Integer) + If (Original_nomeEditora Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_nomeEditora,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 + + ''' + '''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 _tbAutorTableAdapter As tbAutorTableAdapter + + Private _tbClienteTableAdapter As tbClienteTableAdapter + + Private _tbEmprestimoTableAdapter As tbEmprestimoTableAdapter + + Private _tbFuncionarioTableAdapter As tbFuncionarioTableAdapter + + Private _tbGeneroTableAdapter As tbGeneroTableAdapter + + Private _tbItemTableAdapter As tbItemTableAdapter + + Private _tbTipoTableAdapter As tbTipoTableAdapter + + Private _tbEditoraTableAdapter As tbEditoraTableAdapter + + 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 tbAutorTableAdapter() As tbAutorTableAdapter + Get + Return Me._tbAutorTableAdapter + End Get + Set + Me._tbAutorTableAdapter = value + End Set + End Property + + _ + Public Property tbClienteTableAdapter() As tbClienteTableAdapter + Get + Return Me._tbClienteTableAdapter + End Get + Set + Me._tbClienteTableAdapter = value + End Set + End Property + + _ + Public Property tbEmprestimoTableAdapter() As tbEmprestimoTableAdapter + Get + Return Me._tbEmprestimoTableAdapter + End Get + Set + Me._tbEmprestimoTableAdapter = value + End Set + End Property + + _ + Public Property tbFuncionarioTableAdapter() As tbFuncionarioTableAdapter + Get + Return Me._tbFuncionarioTableAdapter + End Get + Set + Me._tbFuncionarioTableAdapter = value + End Set + End Property + + _ + Public Property tbGeneroTableAdapter() As tbGeneroTableAdapter + Get + Return Me._tbGeneroTableAdapter + End Get + Set + Me._tbGeneroTableAdapter = value + End Set + End Property + + _ + Public Property tbItemTableAdapter() As tbItemTableAdapter + Get + Return Me._tbItemTableAdapter + End Get + Set + Me._tbItemTableAdapter = value + End Set + End Property + + _ + Public Property tbTipoTableAdapter() As tbTipoTableAdapter + Get + Return Me._tbTipoTableAdapter + End Get + Set + Me._tbTipoTableAdapter = value + End Set + End Property + + _ + Public Property tbEditoraTableAdapter() As tbEditoraTableAdapter + Get + Return Me._tbEditoraTableAdapter + End Get + Set + Me._tbEditoraTableAdapter = 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._tbAutorTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbAutorTableAdapter.Connection) Is Nothing)) Then + Return Me._tbAutorTableAdapter.Connection + End If + If ((Not (Me._tbClienteTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbClienteTableAdapter.Connection) Is Nothing)) Then + Return Me._tbClienteTableAdapter.Connection + End If + If ((Not (Me._tbEmprestimoTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbEmprestimoTableAdapter.Connection) Is Nothing)) Then + Return Me._tbEmprestimoTableAdapter.Connection + End If + If ((Not (Me._tbFuncionarioTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbFuncionarioTableAdapter.Connection) Is Nothing)) Then + Return Me._tbFuncionarioTableAdapter.Connection + End If + If ((Not (Me._tbGeneroTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbGeneroTableAdapter.Connection) Is Nothing)) Then + Return Me._tbGeneroTableAdapter.Connection + End If + If ((Not (Me._tbItemTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbItemTableAdapter.Connection) Is Nothing)) Then + Return Me._tbItemTableAdapter.Connection + End If + If ((Not (Me._tbTipoTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbTipoTableAdapter.Connection) Is Nothing)) Then + Return Me._tbTipoTableAdapter.Connection + End If + If ((Not (Me._tbEditoraTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tbEditoraTableAdapter.Connection) Is Nothing)) Then + Return Me._tbEditoraTableAdapter.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._tbAutorTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbClienteTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbEmprestimoTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbFuncionarioTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbGeneroTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbItemTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbTipoTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tbEditoraTableAdapter) 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 dbBibliotecaDataSet, 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._tbAutorTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbAutor.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._tbAutorTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbGeneroTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbGenero.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._tbGeneroTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbTipoTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbTipo.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._tbTipoTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbEditoraTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbEditora.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._tbEditoraTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbClienteTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbCliente.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._tbClienteTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbFuncionarioTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbFuncionario.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._tbFuncionarioTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbItemTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbItem.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._tbItemTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tbEmprestimoTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.tbEmprestimo.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._tbEmprestimoTableAdapter.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 dbBibliotecaDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbAutorTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbAutor.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbAutorTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbGeneroTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbGenero.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbGeneroTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbTipoTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbTipo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbTipoTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbEditoraTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbEditora.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbEditoraTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbClienteTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbCliente.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbClienteTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbFuncionarioTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbFuncionario.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbFuncionarioTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbItemTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbItem.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbItemTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tbEmprestimoTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.tbEmprestimo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tbEmprestimoTableAdapter.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 dbBibliotecaDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tbEmprestimoTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbEmprestimo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbEmprestimoTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbItemTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbItem.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbItemTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbFuncionarioTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbFuncionario.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbFuncionarioTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbClienteTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbCliente.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbClienteTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbEditoraTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbEditora.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbEditoraTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbTipoTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbTipo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbTipoTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbGeneroTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbGenero.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbGeneroTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tbAutorTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.tbAutor.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tbAutorTableAdapter.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 dbBibliotecaDataSet) 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._tbAutorTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbAutorTableAdapter.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._tbClienteTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbClienteTableAdapter.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._tbEmprestimoTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbEmprestimoTableAdapter.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._tbFuncionarioTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbFuncionarioTableAdapter.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._tbGeneroTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbGeneroTableAdapter.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._tbItemTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbItemTableAdapter.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._tbTipoTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbTipoTableAdapter.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._tbEditoraTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tbEditoraTableAdapter.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._tbAutorTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbAutorTableAdapter, Me._tbAutorTableAdapter.Connection) + Me._tbAutorTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbAutorTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbAutorTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbAutorTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbAutorTableAdapter.Adapter) + End If + End If + If (Not (Me._tbClienteTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbClienteTableAdapter, Me._tbClienteTableAdapter.Connection) + Me._tbClienteTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbClienteTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbClienteTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbClienteTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbClienteTableAdapter.Adapter) + End If + End If + If (Not (Me._tbEmprestimoTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbEmprestimoTableAdapter, Me._tbEmprestimoTableAdapter.Connection) + Me._tbEmprestimoTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbEmprestimoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbEmprestimoTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbEmprestimoTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbEmprestimoTableAdapter.Adapter) + End If + End If + If (Not (Me._tbFuncionarioTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbFuncionarioTableAdapter, Me._tbFuncionarioTableAdapter.Connection) + Me._tbFuncionarioTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbFuncionarioTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbFuncionarioTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbFuncionarioTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbFuncionarioTableAdapter.Adapter) + End If + End If + If (Not (Me._tbGeneroTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbGeneroTableAdapter, Me._tbGeneroTableAdapter.Connection) + Me._tbGeneroTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbGeneroTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbGeneroTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbGeneroTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbGeneroTableAdapter.Adapter) + End If + End If + If (Not (Me._tbItemTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbItemTableAdapter, Me._tbItemTableAdapter.Connection) + Me._tbItemTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbItemTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbItemTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbItemTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbItemTableAdapter.Adapter) + End If + End If + If (Not (Me._tbTipoTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbTipoTableAdapter, Me._tbTipoTableAdapter.Connection) + Me._tbTipoTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbTipoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbTipoTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbTipoTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbTipoTableAdapter.Adapter) + End If + End If + If (Not (Me._tbEditoraTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tbEditoraTableAdapter, Me._tbEditoraTableAdapter.Connection) + Me._tbEditoraTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._tbEditoraTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._tbEditoraTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tbEditoraTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tbEditoraTableAdapter.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._tbAutorTableAdapter) Is Nothing) Then + Me._tbAutorTableAdapter.Connection = CType(revertConnections(Me._tbAutorTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbAutorTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbClienteTableAdapter) Is Nothing) Then + Me._tbClienteTableAdapter.Connection = CType(revertConnections(Me._tbClienteTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbClienteTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbEmprestimoTableAdapter) Is Nothing) Then + Me._tbEmprestimoTableAdapter.Connection = CType(revertConnections(Me._tbEmprestimoTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbEmprestimoTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbFuncionarioTableAdapter) Is Nothing) Then + Me._tbFuncionarioTableAdapter.Connection = CType(revertConnections(Me._tbFuncionarioTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbFuncionarioTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbGeneroTableAdapter) Is Nothing) Then + Me._tbGeneroTableAdapter.Connection = CType(revertConnections(Me._tbGeneroTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbGeneroTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbItemTableAdapter) Is Nothing) Then + Me._tbItemTableAdapter.Connection = CType(revertConnections(Me._tbItemTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbItemTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbTipoTableAdapter) Is Nothing) Then + Me._tbTipoTableAdapter.Connection = CType(revertConnections(Me._tbTipoTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbTipoTableAdapter.Transaction = Nothing + End If + If (Not (Me._tbEditoraTableAdapter) Is Nothing) Then + Me._tbEditoraTableAdapter.Connection = CType(revertConnections(Me._tbEditoraTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._tbEditoraTableAdapter.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/projetoBiblioteca05/dbBibliotecaDataSet.vb b/projetoBiblioteca05/dbBibliotecaDataSet.vb new file mode 100755 index 0000000..684af4a --- /dev/null +++ b/projetoBiblioteca05/dbBibliotecaDataSet.vb @@ -0,0 +1,8 @@ +Partial Class dbBibliotecaDataSet +End Class + +Namespace dbBibliotecaDataSetTableAdapters + + Partial Public Class tbFuncionarioTableAdapter + End Class +End Namespace diff --git a/projetoBiblioteca05/dbBibliotecaDataSet.xsc b/projetoBiblioteca05/dbBibliotecaDataSet.xsc new file mode 100755 index 0000000..a6ff611 --- /dev/null +++ b/projetoBiblioteca05/dbBibliotecaDataSet.xsc @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/projetoBiblioteca05/dbBibliotecaDataSet.xsd b/projetoBiblioteca05/dbBibliotecaDataSet.xsd new file mode 100755 index 0000000..8711952 --- /dev/null +++ b/projetoBiblioteca05/dbBibliotecaDataSet.xsd @@ -0,0 +1,1584 @@ + + + + + + + + + + + + + + + DELETE FROM `tbAutor` WHERE ((`idAutor` = ?) AND ((? = 1 AND `nomeAutor` IS NULL) OR (`nomeAutor` = ?))) + + + + + + + + + + INSERT INTO `tbAutor` (`nomeAutor`) VALUES (?) + + + + + + + + SELECT idAutor, nomeAutor FROM tbAutor + + + + + + UPDATE `tbAutor` SET `nomeAutor` = ? WHERE ((`idAutor` = ?) AND ((? = 1 AND `nomeAutor` IS NULL) OR (`nomeAutor` = ?))) + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbCliente` WHERE ((`idCliente` = ?) AND ((? = 1 AND `nomeCliente` IS NULL) OR (`nomeCliente` = ?)) AND ((? = 1 AND `rgCliente` IS NULL) OR (`rgCliente` = ?)) AND ((? = 1 AND `cpfCliente` IS NULL) OR (`cpfCliente` = ?)) AND ((? = 1 AND `telCliente` IS NULL) OR (`telCliente` = ?)) AND ((? = 1 AND `celCliente` IS NULL) OR (`celCliente` = ?)) AND ((? = 1 AND `ruaCliente` IS NULL) OR (`ruaCliente` = ?)) AND ((? = 1 AND `numeroCliente` IS NULL) OR (`numeroCliente` = ?)) AND ((? = 1 AND `cidadeCliente` IS NULL) OR (`cidadeCliente` = ?)) AND ((? = 1 AND `statusCliente` IS NULL) OR (`statusCliente` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `tbCliente` (`nomeCliente`, `rgCliente`, `cpfCliente`, `telCliente`, `celCliente`, `ruaCliente`, `numeroCliente`, `cidadeCliente`, `statusCliente`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + SELECT idCliente, nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, numeroCliente, cidadeCliente, statusCliente FROM tbCliente + + + + + + UPDATE `tbCliente` SET `nomeCliente` = ?, `rgCliente` = ?, `cpfCliente` = ?, `telCliente` = ?, `celCliente` = ?, `ruaCliente` = ?, `numeroCliente` = ?, `cidadeCliente` = ?, `statusCliente` = ? WHERE ((`idCliente` = ?) AND ((? = 1 AND `nomeCliente` IS NULL) OR (`nomeCliente` = ?)) AND ((? = 1 AND `rgCliente` IS NULL) OR (`rgCliente` = ?)) AND ((? = 1 AND `cpfCliente` IS NULL) OR (`cpfCliente` = ?)) AND ((? = 1 AND `telCliente` IS NULL) OR (`telCliente` = ?)) AND ((? = 1 AND `celCliente` IS NULL) OR (`celCliente` = ?)) AND ((? = 1 AND `ruaCliente` IS NULL) OR (`ruaCliente` = ?)) AND ((? = 1 AND `numeroCliente` IS NULL) OR (`numeroCliente` = ?)) AND ((? = 1 AND `cidadeCliente` IS NULL) OR (`cidadeCliente` = ?)) AND ((? = 1 AND `statusCliente` IS NULL) OR (`statusCliente` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbEmprestimo` WHERE ((`idEmprestimo` = ?) AND ((? = 1 AND `idFunc` IS NULL) OR (`idFunc` = ?)) AND ((? = 1 AND `idCliente` IS NULL) OR (`idCliente` = ?)) AND ((? = 1 AND `idItem` IS NULL) OR (`idItem` = ?)) AND ((? = 1 AND `dataEmprestimo` IS NULL) OR (`dataEmprestimo` = ?)) AND ((? = 1 AND `dataDevolucao` IS NULL) OR (`dataDevolucao` = ?)) AND ((? = 1 AND `statusEmprestimo` IS NULL) OR (`statusEmprestimo` = ?))) + + + + + + + + + + + + + + + + + + + + INSERT INTO `tbEmprestimo` (`idFunc`, `idCliente`, `idItem`, `dataEmprestimo`, `dataDevolucao`, `statusEmprestimo`) VALUES (?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + SELECT idEmprestimo, idFunc, idCliente, idItem, dataEmprestimo, dataDevolucao, statusEmprestimo FROM tbEmprestimo + + + + + + UPDATE `tbEmprestimo` SET `idFunc` = ?, `idCliente` = ?, `idItem` = ?, `dataEmprestimo` = ?, `dataDevolucao` = ?, `statusEmprestimo` = ? WHERE ((`idEmprestimo` = ?) AND ((? = 1 AND `idFunc` IS NULL) OR (`idFunc` = ?)) AND ((? = 1 AND `idCliente` IS NULL) OR (`idCliente` = ?)) AND ((? = 1 AND `idItem` IS NULL) OR (`idItem` = ?)) AND ((? = 1 AND `dataEmprestimo` IS NULL) OR (`dataEmprestimo` = ?)) AND ((? = 1 AND `dataDevolucao` IS NULL) OR (`dataDevolucao` = ?)) AND ((? = 1 AND `statusEmprestimo` IS NULL) OR (`statusEmprestimo` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbFuncionario` WHERE ((`idFunc` = ?) AND ((? = 1 AND `nomeFunc` IS NULL) OR (`nomeFunc` = ?)) AND ((? = 1 AND `rgFunc` IS NULL) OR (`rgFunc` = ?)) AND ((? = 1 AND `cpfFunc` IS NULL) OR (`cpfFunc` = ?)) AND ((? = 1 AND `telFunc` IS NULL) OR (`telFunc` = ?)) AND ((? = 1 AND `celFunc` IS NULL) OR (`celFunc` = ?)) AND ((? = 1 AND `ruaFunc` IS NULL) OR (`ruaFunc` = ?)) AND ((? = 1 AND `numeroFunc` IS NULL) OR (`numeroFunc` = ?)) AND ((? = 1 AND `cidadeFunc` IS NULL) OR (`cidadeFunc` = ?)) AND ((? = 1 AND `statusFunc` IS NULL) OR (`statusFunc` = ?)) AND ((? = 1 AND `usuarioFunc` IS NULL) OR (`usuarioFunc` = ?)) AND ((? = 1 AND `senhaFunc` IS NULL) OR (`senhaFunc` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `tbFuncionario` (`nomeFunc`, `rgFunc`, `cpfFunc`, `telFunc`, `celFunc`, `ruaFunc`, `numeroFunc`, `cidadeFunc`, `statusFunc`, `usuarioFunc`, `senhaFunc`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + SELECT idFunc, nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFunc, statusFunc, usuarioFunc, senhaFunc FROM tbFuncionario + + + + + + UPDATE `tbFuncionario` SET `nomeFunc` = ?, `rgFunc` = ?, `cpfFunc` = ?, `telFunc` = ?, `celFunc` = ?, `ruaFunc` = ?, `numeroFunc` = ?, `cidadeFunc` = ?, `statusFunc` = ?, `usuarioFunc` = ?, `senhaFunc` = ? WHERE ((`idFunc` = ?) AND ((? = 1 AND `nomeFunc` IS NULL) OR (`nomeFunc` = ?)) AND ((? = 1 AND `rgFunc` IS NULL) OR (`rgFunc` = ?)) AND ((? = 1 AND `cpfFunc` IS NULL) OR (`cpfFunc` = ?)) AND ((? = 1 AND `telFunc` IS NULL) OR (`telFunc` = ?)) AND ((? = 1 AND `celFunc` IS NULL) OR (`celFunc` = ?)) AND ((? = 1 AND `ruaFunc` IS NULL) OR (`ruaFunc` = ?)) AND ((? = 1 AND `numeroFunc` IS NULL) OR (`numeroFunc` = ?)) AND ((? = 1 AND `cidadeFunc` IS NULL) OR (`cidadeFunc` = ?)) AND ((? = 1 AND `statusFunc` IS NULL) OR (`statusFunc` = ?)) AND ((? = 1 AND `usuarioFunc` IS NULL) OR (`usuarioFunc` = ?)) AND ((? = 1 AND `senhaFunc` IS NULL) OR (`senhaFunc` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT * FROM tbFuncionario WHERE (usuarioFunc = ?) and (senhaFunc = ?) + + + + + + + + + + + + + + + DELETE FROM `tbGenero` WHERE ((`idGenero` = ?) AND ((? = 1 AND `nomeGenero` IS NULL) OR (`nomeGenero` = ?))) + + + + + + + + + + INSERT INTO `tbGenero` (`nomeGenero`) VALUES (?) + + + + + + + + SELECT idGenero, nomeGenero FROM tbGenero + + + + + + UPDATE `tbGenero` SET `nomeGenero` = ? WHERE ((`idGenero` = ?) AND ((? = 1 AND `nomeGenero` IS NULL) OR (`nomeGenero` = ?))) + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbItem` WHERE ((`idItem` = ?) AND ((? = 1 AND `nomeItem` IS NULL) OR (`nomeItem` = ?)) AND ((? = 1 AND `idAutor` IS NULL) OR (`idAutor` = ?)) AND ((? = 1 AND `generoItem` IS NULL) OR (`generoItem` = ?)) AND ((? = 1 AND `tipoItem` IS NULL) OR (`tipoItem` = ?)) AND ((? = 1 AND `isbnItem` IS NULL) OR (`isbnItem` = ?)) AND ((? = 1 AND `statusItem` IS NULL) OR (`statusItem` = ?)) AND ((? = 1 AND `editoraItem` IS NULL) OR (`editoraItem` = ?))) + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `tbItem` (`nomeItem`, `idAutor`, `generoItem`, `tipoItem`, `isbnItem`, `statusItem`, `editoraItem`) VALUES (?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + SELECT idItem, nomeItem, idAutor, generoItem, tipoItem, isbnItem, statusItem, editoraItem FROM tbItem + + + + + + UPDATE `tbItem` SET `nomeItem` = ?, `idAutor` = ?, `generoItem` = ?, `tipoItem` = ?, `isbnItem` = ?, `statusItem` = ?, `editoraItem` = ? WHERE ((`idItem` = ?) AND ((? = 1 AND `nomeItem` IS NULL) OR (`nomeItem` = ?)) AND ((? = 1 AND `idAutor` IS NULL) OR (`idAutor` = ?)) AND ((? = 1 AND `generoItem` IS NULL) OR (`generoItem` = ?)) AND ((? = 1 AND `tipoItem` IS NULL) OR (`tipoItem` = ?)) AND ((? = 1 AND `isbnItem` IS NULL) OR (`isbnItem` = ?)) AND ((? = 1 AND `statusItem` IS NULL) OR (`statusItem` = ?)) AND ((? = 1 AND `editoraItem` IS NULL) OR (`editoraItem` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbTipo` WHERE ((`idTipo` = ?) AND ((? = 1 AND `nomeTipo` IS NULL) OR (`nomeTipo` = ?))) + + + + + + + + + + INSERT INTO `tbTipo` (`nomeTipo`) VALUES (?) + + + + + + + + SELECT idTipo, nomeTipo FROM tbTipo + + + + + + UPDATE `tbTipo` SET `nomeTipo` = ? WHERE ((`idTipo` = ?) AND ((? = 1 AND `nomeTipo` IS NULL) OR (`nomeTipo` = ?))) + + + + + + + + + + + + + + + + + + + + + + SELECT nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, numeroCliente, cidadeCliente, statusCliente FROM rClienteAtivo + + + + + + + + + + + + + + + + + + + + + + + + SELECT nomeCliente, rgCliente, cpfCliente, telCliente, celCliente, ruaCliente, numeroCliente, cidadeCliente, statusCliente FROM rClienteDesativado + + + + + + + + + + + + + + + + + + + + + + + + SELECT idEmprestimo, nomeFunc, nomeCliente, nomeItem, nomeTipo, dataEmprestimo, dataDevolucao, statusEmprestimo FROM rEmprestimosAtivo + + + + + + + + + + + + + + + + + + + + + + + SELECT idEmprestimo, nomeFunc, nomeCliente, nomeItem, nomeTipo, dataEmprestimo, dataDevolucao, statusEmprestimo FROM rEmprestimosDesativado + + + + + + + + + + + + + + + + + + + + + + + SELECT nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFunc, usuarioFunc, senhaFunc, statusFunc FROM rFuncAtivo + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT nomeFunc, rgFunc, cpfFunc, telFunc, celFunc, ruaFunc, numeroFunc, cidadeFunc, usuarioFunc, senhaFunc, statusFunc FROM rFuncDesativado + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT nomeItem, nomeTipo, nomeGenero, nomeAutor, isbnItem, statusItem FROM rItemAtivo + + + + + + + + + + + + + + + + + + + + + SELECT nomeItem, nomeTipo, nomeGenero, nomeAutor, isbnItem, statusItem FROM rItemDesativado + + + + + + + + + + + + + + + + + + + + + DELETE FROM `tbEditora` WHERE ((`idEditora` = ?) AND ((? = 1 AND `nomeEditora` IS NULL) OR (`nomeEditora` = ?))) + + + + + + + + + + INSERT INTO `tbEditora` (`nomeEditora`) VALUES (?) + + + + + + + + SELECT idEditora, nomeEditora FROM tbEditora + + + + + + UPDATE `tbEditora` SET `nomeEditora` = ? WHERE ((`idEditora` = ?) AND ((? = 1 AND `nomeEditora` IS NULL) OR (`nomeEditora` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/projetoBiblioteca05/dbBibliotecaDataSet.xss b/projetoBiblioteca05/dbBibliotecaDataSet.xss new file mode 100755 index 0000000..bf817b1 --- /dev/null +++ b/projetoBiblioteca05/dbBibliotecaDataSet.xss @@ -0,0 +1,128 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + 621 + 175 + + + 551 + 175 + + + + + + + 621 + 424 + + + 534 + 424 + + + 534 + 280 + + + + + + + 254 + 175 + + + 324 + 175 + + + + + + + 324 + 799 + + + 237 + 799 + + + 237 + 299 + + + + + + + 324 + 984 + + + 229 + 984 + + + 229 + 299 + + + + + + + 324 + 1169 + + + 221 + 1169 + + + 221 + 299 + + + + + + + 3393 + 127 + + + 254 + 127 + + + + + \ No newline at end of file diff --git a/projetoBiblioteca05/projetoBiblioteca05.vbproj b/projetoBiblioteca05/projetoBiblioteca05.vbproj new file mode 100755 index 0000000..41f0a83 --- /dev/null +++ b/projetoBiblioteca05/projetoBiblioteca05.vbproj @@ -0,0 +1,307 @@ + + + + + Debug + AnyCPU + {3142A623-0702-46B1-A53F-9D7F8744802F} + WinExe + projetoBiblioteca05.My.MyApplication + projetoBiblioteca05 + projetoBiblioteca05 + 512 + WindowsForms + v4.6.1 + true + + + AnyCPU + true + full + true + true + bin\Debug\ + projetoBiblioteca05.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + projetoBiblioteca05.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + FSobre.vb + + + Form + + + True + True + dbBibliotecaDataSet.xsd + + + dbBibliotecaDataSet.xsd + + + FAutor.vb + + + Form + + + FCliente.vb + + + Form + + + FEditora.vb + + + Form + + + FEmprestimo.vb + + + Form + + + FFunc.vb + + + Form + + + FGenero.vb + + + Form + + + FItem.vb + + + Form + + + FLogin.vb + + + Form + + + FTipo.vb + + + Form + + + FPrincipal.vb + + + Form + + + rClientAtivo.vb + + + Form + + + rClientDesatv.vb + + + Form + + + rEmpAtivo.vb + + + Form + + + rEmpDesatv.vb + + + Form + + + rFuncAtivo.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + rFuncDesatv.vb + + + Form + + + rItemAtivo.vb + + + Form + + + rItemDesatv.vb + + + Form + + + + + FSobre.vb + + + FAutor.vb + + + FCliente.vb + + + FEditora.vb + + + FEmprestimo.vb + + + FFunc.vb + + + FGenero.vb + + + FItem.vb + + + FLogin.vb + + + FTipo.vb + + + FPrincipal.vb + + + rClientAtivo.vb + + + rClientDesatv.vb + + + rEmpAtivo.vb + + + rEmpDesatv.vb + + + rFuncAtivo.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + rFuncDesatv.vb + + + rItemAtivo.vb + + + rItemDesatv.vb + + + + + dbBibliotecaDataSet.xsd + + + MSDataSetGenerator + dbBibliotecaDataSet.Designer.vb + Designer + + + dbBibliotecaDataSet.xsd + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + PreserveNewest + + + + \ No newline at end of file