Sistema Gerenciador Empresarial - Banco de Dados e Codificação das Cidades - Parte 12

 

Objetivo:

 

Continuar o desenvolvimento dosistema para gerenciar uma pequena empresa, vamos desenvolver o banco de dados paraarmazenar os registros, também codificaremos o  formulário Cidades_estados, 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, Parte3, Parte 4, Parte 5, Parte 6, Parte 7, Parte 8, Parte 9, Parte 10 e Parte 11  deste tutorial.

 

Ola! Pessoal, Para odesenvolvimento deste banco crie até 08 planilhas dentro do projetogerenciador1.xls, utilizaremos a  Plan7para o desenvolvimento deste banco, modifique o nome  para a “CE”. Insira na primeira linha os nomesdos campos abaixo, conforme é  mostradona tela:

 

COD, CIDADE  e  ESTADO.

 

Tela 001

 

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

 

Tela 002

 

Fazeremos algumas formatações nos campos,  conforme descrição abaixo.

 

COD colocar na categoria “número”.

 

Tela 003

 

CIDADE e ESTADO inserir nacategoria “texto”.

 

Tela 004

 

Codificaremos a interfacecidades_estados, insira o código abaixo no formulário dentro do eventoinitialize.

 

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

 

Tela 005

---

---

 

Os próximos códigos a devem ser  inseridos dentro do evento clic do botão.

 

BotãoCadastrar:

 

Dim bd As Database

Dim Rs As Recordset

 

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

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

 

If Me.Text_cod >Me.Label_n Then

 

            If Me.Text_cidade = ""Then

                Me.Text_cidade.Text ="-"

            End If

            If Me.Text_estado = ""Then

                Me.Text_estado.Text ="-"

            End If

 

        Dim CADASTRO(1 To 4)

            CADASTRO(1) = UCase(Me.Text_cod)

           CADASTRO(2) = UCase(Me.Text_cidade)

           CADASTRO(3) = UCase(Me.Text_estado)

 

           CADASTRO(4) = UCase(Me.Text_cod.Value)

 

    Dim GERENCIADOR AsObject

    Dim L, i

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

    L = GERENCIADOR.Rows.Count + 1

                If Len(Me.Text_cod) = 0 Then

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

                Else

 

                                 For i = 1 To 4

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

                                     Next i

 

                Me.Text_cod.Text = ""

                Me.Text_cidade.Text =""

               Me.Text_estado.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

 

Tela 006

 

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

 

LIN = 2

 

Do Until Rs.EOF

If Rs("CIDADE") =Me.Text_cidade.Text Then

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

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

 

Me.TextBox_codf.Text = LIN

 

End If

LIN = LIN + 1

Rs.MoveNext

Loop

 

Tela 007

 

BotãoEditar:

 

Dim CADASTRO(2 To 4)

           CADASTRO(2) = UCase(Me.Text_cidade)

           CADASTRO(3) = UCase(Me.Text_estado)

           CADASTRO(4) = UCase(Me.TextBox_codf.Value)

 

For i = 2 To 4

        Plan7.Cells(Val(Me.Text_cod) + 1, i).Value =Trim(CADASTRO(i))

        Next i

 

        MsgBox"ALTERAÇÃO EFETUADA", vbInformation, "DOS DADOS"

 

Tela 008

 

Botão Pagar:

 

Dim GERENCIADOR

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

 If GERENCIADOR = vbYes Then

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

 

               Me.Text_cod.Text = ""

                Me.Text_cidade.Text =""

                Me.Text_estado.Text =""

 

        MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."

    ThisWorkbook.Save

    End If

 

Tela 009

 

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 “Cidades_estados”, 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