Sistema para Oficina Mecânica - Banco de Dados Atendimento - Parte 15

 

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 atendimento de clientes que desenvolvemos  no tutorial anterior, sempre 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,  Parte 12, Parte 13 e Parte 14   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 9 na mesma  coloque  o seguite nome “ATENDIMENTO” , os nomes que irão compor a tabela do banco  serão:

 

COD, MECANICO, CLIENTE, SERVICO, VALOR, PECAS, VALOR2.

 

Insira  estes campos na planilha, conforme a tela abaixo.

 

Tela 001

 

Insira  uma cor cinza escura, negrio e centralizado  em toda a linha  que contém o nome dos campos.

 

Tela 002

 

Agora,  iremos formatar os campos:

 

COD   para a categoria números em geral.

 

Tela 003

 

MECANICO, CLIENTE, SERVICO, PECAS  para categoria texto.

 

Tela 004

 

VALOR E VALOR2  para contabil:

 

Tela 005

 

Começaremos a codificar  a interface gráfica  de cadastro deatendimento, primeiro o formulário, dentro do mesmo e no evento initialize insira o código:

 

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

 

Tela 006

 

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("ATENDIMENTO$", dbOpenDynaset)

 

If Me.cod > Me.Label_N Then

 

                If Me.ComboBox_mecanico = "" Then

                       Me.ComboBox_mecanico.Text = "-"

                End If

                If Me.ComboBox_cliente.Text = "" Then

                        Me.ComboBox_cliente.Text = "-"

                End If

                If Me.ComboBox_servico.Text = "" Then

                       Me.ComboBox_servico.Text = "-"

                End If

                If Me.Text_valor.Text = "" Then

                       Me.Text_valor.Text = "-"

                End If

                If Me.ComboBox_pecas.Text = "" Then

                       Me.ComboBox_pecas.Text = "-"

                End If

                If Me.Text_valor2.Text = "" Then

                       Me.Text_valor2.Text ="-"

                End If

 

                Dim CADASTRO(1 To 8)

                    CADASTRO(1) = UCase(Me.cod)

                    CADASTRO(2) = UCase(Me.ComboBox_mecanico)

                    CADASTRO(3) = UCase(Me.ComboBox_cliente)

                    CADASTRO(4) = UCase(Me.ComboBox_servico)

                    CADASTRO(5) = UCase(Me.Text_valor)

                    CADASTRO(6) = UCase(Me.ComboBox_pecas)

                    CADASTRO(7) = UCase(Me.Text_valor2)

 

                    CADASTRO(8) = UCase(Me.cod.Value)

 

            Dim OFICINA As Object

            Dim L, i

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

            L = OFICINA.Rows.Count + 1

                        If Len(Me.cod) = 0 Then

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

 

                        Else

 

                                 For i = 1 To 8

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

                                  Next i

 

                           Me.cod.Text = ""

                            Me.ComboBox_cliente.Text = ""

                           Me.ComboBox_mecanico.Text = ""

                            Me.ComboBox_pecas.Text =""

                           Me.ComboBox_servico.Text = ""

                            Me.Text_valor.Text = ""

                            Me.Text_valor2.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("ATENDIMENTO$", dbOpenDynaset)

 

LIN = 2

 

Do Until Rs.EOF

If Rs("CLIENTE") = Me.ComboBox_cliente.Text Then

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

Me.ComboBox_mecanico = Rs.Fields("MECANICO")

Me.ComboBox_servico = Rs.Fields("SERVICO")

Me.Text_valor = Rs.Fields("VALOR")

Me.ComboBox_pecas = Rs.Fields("PECAS")

Me.Text_valor2 = Rs.Fields("VALOR2")

Me.Text_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("ATENDIMENTO$", dbOpenDynaset)

 

Rs.EDIT

Rs("MECANICO") = Me.ComboBox_mecanico

Rs("CLIENTE") = Me.ComboBox_cliente

Rs("SERVICO") = Me.ComboBox_servico

Rs("VALOR") = Me.Text_valor

Rs("PECAS") = Me.ComboBox_pecas

Rs("VALOR2") = Me.Text_valor2

 

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

        Plan9.Cells(Me.Text_codf, 1).EntireRow.Delete

 

                           Me.cod.Text = ""

                           Me.ComboBox_cliente.Text = ""

                            Me.ComboBox_mecanico.Text = ""

                           Me.ComboBox_pecas.Text = ""

                           Me.ComboBox_servico.Text = ""

                            Me.Text_valor.Text = ""

                            Me.Text_valor2.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,  definir a formatação dos campos, codificar a interface gráfica de cadastro de atendimento, 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