Sistema para Cadastro de Gerentes - Banco de Dados e Codificação - Conclusão

 

Objetivo:

 

Continuar o desenvolvimento dosistema cadastro de gerentes, criaremos o banco de dados para armazenar osregistros e tamém  codificaremos ainterface grafica utilizando a própria planilha do excel, tudo de forma simplese 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 deste tutorial.

 

Modifique o nome da planilhaPlan1 para “CADASTRO”, depois insira  osnomes abaixo na primeira linha da planilha.

 

COD, FILIAL, TELEFONE,MATRICULA, NOME, CPF, RG e DN

 

Tela 001

 

Faça a  formatação Na primeira linha da planilha, inserindo   cor cinza,negrito e centralizado.

 

Tela 002

 

Faça a  formatação dos demais campos da seguintemaneira:

 

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

 

Tela 003

 

FILIAL e NOME inserir nacategoria “Texto”.

 

Tela 004

 

TELEFONE inserir na categoria “Especial,Telefone”.

 

Tela 005

 

DN inserir na categoria “Data”.

 

Tela 006

 

Concluído o banco de dados, codificaremoso sistema, dentro do  eventoinitialize do formulário insira o código.

 

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

 

Tela 007

---

---

 

Insira os cóigos nos botões  dentro do evento clic.

 

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

 

If Me.text_cod >Me.Label_n Then

 

If Me.text_filial = ""Then

Me.text_filial = "-"

End If

If Me.Text_telefone = ""Then

Me.Text_telefone.Text ="-"

End If

If Me.text_matricula = ""Then

Me.text_matricula.Text ="-"

End If

If Me.text_nome = "" Then

Me.text_nome.Text ="-"

End If

If Me.text_cpf = "" Then

Me.text_cpf.Text ="-"

End If

If Me.text_rg = "" Then

Me.text_rg.Text = "-"

End If

If Me.Text_dn = "" Then

Me.Text_dn.Text = "-"

End If

 

Dim CADASTRO(1 To 9)

            CADASTRO(1) = UCase(Me.text_cod)

           CADASTRO(2) = UCase(Me.text_filial)

           CADASTRO(3) = UCase(Me.Text_telefone)

            CADASTRO(4) = UCase(Me.text_matricula)

           CADASTRO(5) = UCase(Me.text_nome)

           CADASTRO(6) = UCase(Me.text_cpf)

           CADASTRO(7) = UCase(Me.text_rg)

           CADASTRO(8) = UCase(Me.Text_dn)

 

            CADASTRO(9) = UCase(Me.text_cod.Value)

 

Dim GERENTE AsObject

Dim L, i

Set GERENTE = Plan1.Cells(1,1).CurrentRegion

L = GERENTE.Rows.Count + 1

If Len(Me.text_cod) = 0 Then

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

Else

 

For i = 1 To 9

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

Next i

 

Me.text_cod.Text = ""

Me.text_filial.Text =""

Me.Text_telefone.Text =""

Me.text_matricula.Text =""

Me.text_nome.Text =""

Me.text_cpf.Text = ""

Me.text_rg.Text = ""

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

 

LIN = 2

 

Do Until Rs.EOF

If Rs("FILIAL") =Me.text_filial.Text Then

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

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

Me.text_matricula =Rs.Fields("MATRICULA")

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

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

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

Me.Text_dn =Rs.Fields("DN")

 

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

 

Rs.Edit

Rs("FILIAL") =Me.text_filial

Rs("TELEFONE") = Me.Text_telefone

Rs("MATRICULA") = Me.text_matricula

Rs("NOME") = Me.text_nome

Rs("CPF") = Me.text_cpf

Rs("RG") = Me.text_rg

Rs("DN") =Me.Text_dn

 

Rs.Update

 

MsgBox "DADOS ALTERADOS COMSUCESSO", vbInformation, "BANCO DE DADOS"

 

ThisWorkbook.Save

 

Botão Apagar:

 

Dim CADASTRO

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

If CADASTRO = vbYes Then

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

 

Me.text_cod.Text = ""

Me.text_filial.Text = ""

Me.Text_telefone.Text =""

Me.text_matricula.Text =""

Me.text_nome.Text =""

Me.text_cpf.Text = ""

Me.text_rg.Text = ""

Me.Text_dn.Text =""

 

MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."

ThisWorkbook.Save

End If

 

Botão Voltar:

 

Me.hide

 

Conclusão:

 

Neste tutorial ensinei a desenvolver o  banco de dados para fazer o armazenar os registros,  formatações  necessárias e codificar interface “cad_gerente”,tudo de forma simples e objetiva. Bons estudos e até  o próximo sistema.

 

---

• SISTEMA PARA CADASTRO DE GERENTES
• Sistema para Cadastro de Gerentes - Interface Gráfica Principal - Parte 1
• Sistema para Cadastro de Gerentes - Bancos de Dados e Codificação - Conclusão