Sistema para Oficina Mecânica - Banco de Dados Mecânicos - Parte 13

 

Objetivo:

 

O objetivo deste é continuar o desenvolvimento do sistema, vamos desenvolver o banco de dados para armazenar os registros e também  codificar a interface gráfica cadastro de mecânicos  que criamos no tutorial anterior, tudo de forma simples e objetiva.

 

Pré-requisito:

 

Para você poder acompanhar o desenvolvimento deste tutorial, será necessário ter conhecimento no mínimo do “Curso Básico de Excel e os Tutoriais Utilizando Editor do Visual Basic do Excel Parte 1 e Parte2”  Parte 1,   Parte 2,  Parte 3, Parte 4, Parte 5,  Parte 6, Parte 7,  Parte 8, Parte 9 , Parte 10, Parte 11 e Parte 12  deste tutorial.

 

NOTA: A partir deste sistema, irei oferecer serviços de acessoria em desenvolvimento de sistemas em Excel e criação de sites com acesso a banco de dados, portanto, se você quiser adaptar ou criar um sistema conforme sua necessidade, entre em contato comigo através do e-mail: erico_2223@yahoo.com.br.

 

Vamos  utilizar a planilha 5 a qual deve receber o seguite nome  “MECANICOS” , os nomes que irão compor a tabela do banco  serão:

 

COD, NOME,ENDERECO, BAIRRO, CEP e TELEFONE.

 

Insira  estes campos na planilha, conforme a tela abaixo.

 

Tela 001

 

Insira  uma cor cinza escura  em toda a linha  que contém o nome dos campos, devendo coloca-lo também em  negrito e centralizado.

 

Tela 002

 

Agora,  iremos formatar os campos:

 

COD   para a categoria números em geral.

 

Tela 003

 

NOME, ENDERECO, BAIRRO para a categoria texto.

 

Tela 004

 

CEP  para especial cep:

 

Tela 005

 

E por último o campo TELEFONE  para especial telefone.

 

Tela 006

 

começaremos a codificar  a interface gráfica  de cadastro de fornecedores, primeiro o formulário, dentro do mesmo e no evento initialize insira o código, abaixo o mesmo vai mostrar quantos registros existem no banco:

 

Label_N = Application.WorksheetFunction.CountA(Plan5.Columns(1)) – 1

 

Tela 007

 

Vamos codificar os botões ,  o código deve ser  inserido no evento c l i c:

 

Botão Cadastrar:

 

Dim bd As Database

Dim Rs As Recordset

 

Set bd = OpenDatabase(ThisWorkbook.Path & "\" &ThisWorkbook.Name, False, False, "excel 8.0")

Set Rs = bd.OpenRecordset("MECANICOS$", dbOpenDynaset)

 

If Me.TextBox_cod > Me.Label_N Then

 

               If Me.TextBox_nome = "" Then

                        Me.TextBox_nome.Text = "-"

                End If

                If Me.TextBox_endereco.Text = "" Then

                       Me.TextBox_endereco.Text = "-"

                End If

                If Me.TextBox_bairro.Text = "" Then

                        Me.TextBox_bairro.Text = "-"

                End If

                If Me.TextBox_cep.Text = "" Then

                      Me.TextBox_cep.Text = "-"

                End If

                If Me.TextBox_telefone.Text = "" Then

                       Me.TextBox_telefone.Text = "-"

                End If

 

                Dim CADASTRO(1 To 7)

                    CADASTRO(1) = UCase(Me.TextBox_cod)

                    CADASTRO(2) = UCase(Me.TextBox_nome)

                    CADASTRO(3) = UCase(Me.TextBox_endereco)

                    CADASTRO(4) = UCase(Me.TextBox_bairro)

                    CADASTRO(5) = UCase(Me.TextBox_cep)

                    CADASTRO(6) = UCase(Me.TextBox_telefone)

 

                    CADASTRO(7) = UCase(Me.TextBox_cod.Value)

 

            Dim OFICINA As Object

            Dim L, i

            Set OFICINA = Plan5.Cells(1, 1).CurrentRegion

            L = OFICINA.Rows.Count + 1

                        If Len(Me.TextBox_cod) = 0 Then

                                 MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DE CIDADES E ESTADOS"

 

                        Else

 

                                 For i = 1 To 7

                                     Plan5.Cells(L, i).Value = Trim(CADASTRO(i))

                                   Next i

 

                           Me.TextBox_cod = ""

                            Me.TextBox_nome = ""

                           Me.TextBox_endereco.Text = ""

                           Me.TextBox_bairro.Text = ""

                            Me.TextBox_cep.Text =""

                           Me.TextBox_telefone.Text = ""

 

                            MsgBox"CADASTRO", vbInformation, "EFETUADO COM SUCESSO"

 

                                           ThisWorkbook.Save

                           End If

 

               Exit Sub

         Else

        MsgBox "No campo CODIGO digite um número maior do que há no campo Total Registro No Banco para casdastrar."

 

End If

 

---

---

Botão  Pesquisar:

 

Dim bd As Database

Dim Rs As Recordset

Dim LIN

 

Set bd = OpenDatabase(ThisWorkbook.Path & "\" &ThisWorkbook.Name, False, False, "excel 8.0")

Set Rs = bd.OpenRecordset("MECANICOS$", dbOpenDynaset)

 

LIN = 2

 

Do Until Rs.EOF

If Rs("NOME") = Me.TextBox_nome.Text Then

Me.TextBox_cod = Rs.Fields("COD")

Me.TextBox_nome = Rs.Fields("NOME")

Me.TextBox_endereco = Rs.Fields("ENDERECO")

Me.TextBox_bairro = Rs.Fields("BAIRRO")

Me.TextBox_cep = Rs.Fields("CEP")

Me.TextBox_telefone = Rs.Fields("TELEFONE")

 

Me.TextBox_codf.Text = LIN

 

End If

LIN = LIN + 1

Rs.MoveNext

Loop

 

Botão Editar:

 

Dim bd As Database

Dim Rs As Recordset

 

Set bd = OpenDatabase(ThisWorkbook.Path & "\" &ThisWorkbook.Name, False, False, "excel 8.0")

Set Rs = bd.OpenRecordset("MECANICOS$", dbOpenDynaset)

 

Rs.EDIT

Rs("NOME") = Me.TextBox_nome

Rs("ENDERECO") = Me.TextBox_endereco

Rs("BAIRRO") = Me.TextBox_bairro

Rs("CEP") = Me.TextBox_cep

Rs("TELEFONE") = Me.TextBox_telefone

 

Rs.Update

 

MsgBox "DADO ALTERADOS COM SUCESSO", vbInformation, "BANCO DE DADOS"

ThisWorkbook.Save

 

Botão Apagar:

 

Dim OFICINA

OFICINA = MsgBox("DESEJA REALMENTE EXCLUIR OS DADOS?", vbYesNo + vbQuestion, "BANCO DE DADOS")

If OFICINA = vbYes Then

       Plan5.Cells(Me.TextBox_codf, 1).EntireRow.Delete

 

                            Me.TextBox_cod =""

                           Me.TextBox_nome = ""

                           Me.TextBox_endereco.Text = ""

                           Me.TextBox_bairro.Text = ""

                           Me.TextBox_cep.Text = ""

                           Me.TextBox_telefone.Text = ""

 

        MsgBox "DADOS EXCLUÍDO COM SUCESSO."

    ThisWorkbook.Save

End If

 

Fechar:

 

Me.hide

 

Conclusão:

 

Neste tutorial ensinei para você a desenvolver  o banco de dados,  definindo os nomes para os  campos, fazer as formatações dos mesmo, codificar a interface gráfica de cadastro de mecânicos, tudo de forma simples e objetiva, na próxima parte do tutorial daremos continuidade no desenvolvimento do aplicativo. Bons estudos e até a próxima parte.

 

---

• SISTEMA PARA UMA OFICINA MECÂNICA
• Sistema Para uma Oficina Mecânica - Primeira Interface Gráfica- Parte 1
• Sistema Para uma Oficina Mecânica - Banco de Dados e Codificação - Parte 2
• Sistema Para uma Oficina Mecânica - Interface de Cadastro de Peças - Parte 3
• Sistema Para uma Oficina Mecânica - Banco de Dados e Codificação - Parte 4
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Cidades e Estados - Parte 5
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Clientes - Parte 6
• Sistema Para uma Oficina Mecânica - Banco de Dados Clientes - Parte 7
• Sistema Para uma Oficina Mecânica - Interface Gráfica para Cadastro de Serviços - Parte 8
• Sistema Para uma Oficina Mecânica - Banco de Dados Serviços- Parte 9
• Sistema Para uma Oficina Mecânica - Interface Gráfica para Cadastro de Fornecedores - Parte 10
• Sistema Para uma Oficina Mecânica - Banco de Dados Fornecedores - Parte 11
• Sistema Para uma Oficina Mecânica - Interface Gráfica para Cadastro de Mecânicos - Parte 12
• Sistema Para uma Oficina Mecânica - Banco de Dados Mecânicos - Parte 13
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Cadastro de Atendimentos - Parte 14
• Sistema Para uma Oficina Mecânica - Banco de Dados Atendimentos - Parte 15
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Acesso - Conclusão