Sistema Gerenciador Empresarial - Banco de Dados e Codificação - Parte 4

 

Objetivo:

 

Continuar o desenvolvimento dosistema para gerenciar uma pequena empresa, criaremos o  banco de dados do nosso aplicativo e codificaremoso  formulário Clientes, tudo de formasimples e direta.

 

Pré-requisito:

 

Para você poder acompanhar odesenvolvimento deste tutorial, será necessário ter conhecimento no mínimo do “CursoBásico de Excel e os Tutoriais Utilizando Editor do Visual Basic do Excel Parte1 e Parte2” Parte 1,    Parte 2 e Parte3  deste tutorial.

 

Ola! Pessoal, vamos iniciar odesenvolvimento o banco de dados, vamos utilizar a Plan1, modifique o nome  para a “CLIENTES”,  abaixo os nomes dos campos, insira  na primeira linha, conforme é  mostrado na tela:

 

COD, NOME, ENDERECO, BAIRRO, CEP, CIDADE, ESTADO,TELEFONE, CPF, RG, UCOMPRA  e OBS.

 

Tela 001

 

Ajuste na primeira linha do banco de dados, inserindo corcinza, negrito e centralizado.

 

Tela 002

 

Bom, iremos fazer algumas  formatações conforme descrição abaixo.

 

COD, CPF e RG colocar na categoria “número”.

 

Tela 003

 

NOME, ENDERECO, BAIRRO, CIDADE,ESTADO, UCOMPRA e OBS inserir na categoria “texto”.

 

Tela 004

 

CEP inserir na categoria“especila + cep”.

 

Tela 005

 

TELEFONE inserir categoria“Especial + Telefone”

 

Tela 006

 

Codificaremos a interfaceclientes, insira o código abaixo no formulário dentro do evento initialize.

 

Label_n =Application.WorksheetFunction.CountA(Plan1.Columns(1)) – 1

 

Tela 007

 

Os próximos códigos a serem inseridos serão sempre dentrodo evendo clic do botão.

 

BotãoIncluir:

 

Dim bd As Database

Dim Rs As Recordset

 

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

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

 

If Me.TextBox_cod >Me.Label_n Then

 

            If Me.TextBox_nome = ""Then

                Me.TextBox_nome = "-"

            End If

            If Me.TextBox_endereco ="" Then

                Me.TextBox_endereco.Text ="-"

            End If

            If Me.TextBox_bairro = ""Then

                Me.TextBox_bairro.Text ="-"

            End If

            If Me.ComboBox_cidade ="" Then

                Me.ComboBox_cidade.Text ="-"

            End If

            If Me.ComboBox_estado ="" Then

                Me.ComboBox_estado.Text ="-"

            End If

            If Me.TextBox_cep = ""Then

                Me.TextBox_cep.Text ="-"

            End If

             If Me.TextBox_telefone ="" Then

                Me.TextBox_telefone.Text ="-"

            End If

            If Me.TextBox_cpf = ""Then

                Me.TextBox_cpf.Text ="-"

            End If

            If Me.TextBox_rg = ""Then

                Me.TextBox_rg.Text ="-"

            End If

            If Me.TextBox_ucompra ="" Then

                Me.TextBox_ucompra.Text ="-"

            End If

            If Me.TextBox_obs = ""Then

                Me.TextBox_obs.Text ="-"

            End If

 

        Dim CADASTRO(1 To 13)

            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.ComboBox_cidade)

           CADASTRO(7) = UCase(Me.ComboBox_estado)

           CADASTRO(8) = UCase(Me.TextBox_telefone)

           CADASTRO(9) = UCase(Me.TextBox_cpf)

           CADASTRO(10) = UCase(Me.TextBox_rg)

           CADASTRO(11) = UCase(Me.TextBox_ucompra)

           CADASTRO(12) = UCase(Me.TextBox_obs)

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

 

    Dim GERENCIADORAs Object

    Dim L, i

    Set GERENCIADOR = Plan2.Cells(1, 1).CurrentRegion

    L = GERENCIADOR.Rows.Count + 1

                If Len(Me.TextBox_cod) = 0 Then

                MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DECLIENTES"

                Else

 

                                 For i = 1 To 13

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

                                     Next i

 

                Me.TextBox_cod.Text =""

                Me.TextBox_nome.Text =""

                Me.TextBox_bairro.Text =""

                Me.TextBox_endereco.Text =""

                Me.TextBox_bairro.Text =""

                Me.TextBox_cep.Text =""

                Me.ComboBox_cidade.Text =""

                Me.ComboBox_estado.Text =""

                Me.TextBox_telefone.Text =""

               Me.TextBox_cpf.Text = ""

               Me.TextBox_rg.Text = ""

               Me.TextBox_ucompra.Text = ""

               Me.TextBox_obs.Text = ""

 

            MsgBox"CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"

 

                                   ThisWorkbook.Save

                                End If

       Exit Sub

 Else

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

 

End If

 

---

---

BotãoPesquisar:

 

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

 

LIN = 2

 

Do Until Rs.EOF

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

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

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

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

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

Me.ComboBox_cidade = Rs.Fields("CIDADE")

Me.ComboBox_estado = Rs.Fields("ESTADO")

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

Me.TextBox_cpf = Rs.Fields("CPF")

Me.TextBox_rg =Rs.Fields("RG")

Me.TextBox_ucompra = Rs.Fields("UCOMPRA")

Me.TextBox_obs =Rs.Fields("OBS")

 

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("CLIENTES$", 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("CPF") = Me.TextBox_cpf

Rs("RG") = Me.TextBox_rg

Rs("UCOMPRA") = Me.TextBox_ucompra

Rs("OBS") = Me.TextBox_obs

 

Rs.Update

 

MsgBox"DADOS ALTERADOS COM SUCESSO", vbInformation, "BANCO DEDADOS"

 

ThisWorkbook.Save

 

Botão Excuir:

 

Dim VT

VT =MsgBox("DESEJA REALMENTE EXCLUIR O CLIENTE?", vbYesNo + vbQuestion,"BANCO DE DADOS")

 

If VT = vbYes Then

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

 

                Me.TextBox_cod.Text =""

                Me.TextBox_nome.Text =""

                Me.TextBox_bairro.Text =""

                Me.TextBox_endereco.Text =""

                Me.TextBox_bairro.Text =""

                Me.TextBox_cep.Text =""

                Me.ComboBox_cidade.Text =""

               Me.ComboBox_estado.Text = ""

               Me.TextBox_telefone.Text = ""

               Me.TextBox_cpf.Text = ""

               Me.TextBox_rg.Text = ""

                Me.TextBox_ucompra.Text= ""

               Me.TextBox_obs.Text = ""

 

        MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."

    ThisWorkbook.Save

End If

 

Botão Voltar:

 

Me.hide

 

Conclusão:

 

Nesta parte criarmos  o banco de dados,  você fez as formatações nos campos e acodificação da interface “Clientes”, tudo de forma simples e objetiva, napróxima parte do tutorial daremos continuidade no desenlvovimento do sistema.Bons estudos e até a próxima parte.

 

---

• SISTEMA DE GERENCIAMENTO EMPRESARIAL
• Sistema de Gerenciamento Empresarial - Primeira Interface Gráfica - Parte 1
• Sistema de Gerenciamento Empresarial - Segunda Interface Gráfica - Parte 2
• Sistema de Gerenciamento Empresarial - Terceira Interface Gráfica - Parte 3
• Sistema de Gerenciamento Empresarial - Banco de Dados e Codificação - Parte 4
• Sistema de Gerenciamento Empresarial - Interface de Protocolo- Parte 5
• Sistema de Gerenciamento Empresarial - Codificação da Interface Gráfica - Parte 6
• Sistema de Gerenciamento Empresarial - Quarta Interface Gráfica - Parte 7
• Sistema de Gerenciamento Empresarial - Codificação da Agenda- Parte 8
• Sistema de Gerenciamento Empresarial - Quinta Interface Gráfica - Parte 9
• Sistema de Gerenciamento Empresarial - Sexta Interface Gráfica- Parte 10
• Sistema de Gerenciamento Empresarial - Sétima Interface Gráfica- Parte 11
• Sistema de Gerenciamento Empresarial - Bancos de Dados e Codificação de Cidades - Parte 12
• Sistema de Gerenciamento Empresarial - Banco de Dados e Codificação das Contas - Parte 13
• Sistema de Gerenciamento Empresarial - Oitava Interface Gráfica - Parte 14
• Sistema de Gerenciamento Empresarial - Banco de Dados e Codificação das Contas a Receber - Parte 15
• Sistema de Gerenciamento Empresarial - Nona Interface Gráfica - Parte 16
• Sistema de Gerenciamento Empresarial - Banco de Dados de Funcionários - Parte 17
• Sistema de Gerenciamento Empresarial - Décima Interface Gráfica - Parte 18
• Sistema de Gerenciamento Empresarial - Banco de Dados da Empresa - Parte 19
• Sistema de Gerenciamento Empresarial - Banco de Dados e Codificação de Estoque - Parte 20
• Sistema de Gerenciamento Empresarial - Codificação da Última Interface Gráfica - Conclusão