Sistema de Controle para Prestadores de Serviço - Codificação dos Dados da Empresa - Parte 4

 

Objetivo:

 

O objetivo deste tutorial é darcontinuidade do deselvolvimento do sistema controle de prestadores de serviços,neste tutorial iremos criar o banco de dados, também iremos codificar  o formulário  de cadastro de empresas que criamos notutorial anterior.

 

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” e Parte 1, Parte2 e Parte 3 deste tutorial.

 

Vamos utilizar a planilha2 para a criação deste banco dedados, que vai receber e armazenar os registros do formulário cadastroempresas, os campos que utilizaremos serão os seguintes:

 

Codigo, Razao, Fantazia, Cnpj, Ie, Endereco, Bairro,Telefone, Cidade, Estado e Cep.

 

Tela 001

 

Agora você deve formatar estes campos, em  toda a linha dos nomes dos campos  insira a cor cinza e negrito.

 

Tela 002

 

Nos  campos: Codigo,Cnpj e Ie devem ser formatados na categoria  “números”.

 

Tela 003

 

Os Campos: Razão, Fantazia, Endereço, Bairro, Cidade eEstado devem ficar formatados na categoria “Texto”.

 

Tela 004

 

O Campo: Telefone deve ficar  formatado na categoria “Telefone”.

 

Tela 005

 

E o campo: Cep na sua categoria “cep”

 

Tela 006

 

Vamos  começar acodificar o aplicativo pelos botões,  este codigo abaixo você deve inserir dentro dajanela de codigos dos mesmo, no evento clic.

 

BotãoCadastrar:

 

Dim bd As Database

Dim rs As Recordset

 

Set bd = OpenDatabase("C:\Documents andSettings\infohelp\Meus documentos\APLICATIVO\Prestadores\Prestadores.xls",False, False, "excel 8.0")

Set rs =bd.OpenRecordset("Plan2$", dbOpenDynaset)

 

If Me.T_codigo >Me.Label15 Then

 

If Me.T_codigo = ""Then

Me.T_codigo.Text ="-"

End If

 

If Me.T_razao ="" Then

Me.T_razao ="-"

End If

 

If Me.T_nomefantazia ="" Then

Me.T_nomefantazia.Text= "-"

End If

 

If Me.T_cnpj = ""Then

Me.T_cnpj.Text ="-"

End If

 

If Me.T_Ie = ""Then

Me.T_Ie.Text ="-"

End If

 

If Me.T_endereco = "" Then

Me.T_endereco.Text ="-"

End If

 

If Me.T_bairro ="" Then

Me.T_bairro.Text ="-"

End If

 

If Me.T_telefone ="" Then

Me.T_telefone.Text ="-"

End If

 

If Me.Combo_cidade ="" Then

Me.Combo_cidade.Text ="-"

End If

 

If Me.T_estado ="" Then

Me.T_estado.Text ="-"

End If

 

If Me.T_cep = ""Then

Me.T_cep.Text ="-"

End If

 

Dim Cadastro(1 To 12)

Cadastro(1) = UCase(Me.T_codigo)

Cadastro(2) = UCase(Me.T_razao)

Cadastro(3) =LCase(Me.T_nomefantazia)

Cadastro(4) = LCase(Me.T_cnpj)

Cadastro(5) = LCase(Me.T_Ie)

Cadastro(6) = LCase(Me.T_endereco)

Cadastro(7) = LCase(Me.T_bairro)

Cadastro(8) = LCase(Me.T_telefone)

Cadastro(9) = LCase(Me.Combo_cidade)

Cadastro(10) = LCase(Me.T_estado)

Cadastro(11) = LCase(Me.T_cep)

Cadastro(12) =UCase(Me.T_codigo.Value)

 

DimEMPRESA As Object

Dim L, I

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

L = EMPRESA.Rows.Count + 1

If Len(Me.T_codigo) = 0Then

MsgBox"VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical,"CADASTRO EMPRESA"

Else

For I= 1 To 12

Plan2.Cells(L, I).Value = Trim(Cadastro(I))

Next I

MsgBox "CADASTRADO", vbInformation, "EFETUADO COMSUCESSO"

ThisWorkbook.Save

End If

Exit Sub

Else

MsgBox"No campo CODIGO digite um número maior do que há no campo QTD paracasdastrar."

End If

 

Tela 007

 

---

---

BotãoPesquisar:

 

Dim bd As Database

Dim rs As Recordset

 

Set bd = OpenDatabase("C:\Documents andSettings\infohelp\Meus documentos\APLICATIVO\Prestadores\Prestadores.xls",False, False, "excel 8.0")

Set rs =bd.OpenRecordset("Plan2$", dbOpenDynaset)

rs.FindFirst "RAZAOLIKE'" & Me.T_razao & "'"

 

If rs.NoMatch = True Then MsgBox"Nome não cadastrado", vbInformation, "Banco de dados":Exit Sub

Me.T_codigo= rs.Fields("CODIGO")

Me.T_razao = rs.Fields("RAZAO")

Me.T_nomefantazia =rs.Fields("FANTAZIA")

Me.T_cnpj =rs.Fields("CNPJ")

Me.T_Ie = rs.Fields("IE")

Me.T_endereco =rs.Fields("ENDERECO")

Me.T_bairro= rs.Fields("BAIRRO")

Me.T_telefone = rs.Fields("TELEFONE")

Me.Combo_cidade = rs.Fields("CIDADE")

Me.T_estado= rs.Fields("ESTADO")

Me.T_cep = rs.Fields("CEP")

 

BotãoEditar:

 

Dim Cadastro(1 To 12)

Cadastro(1) = UCase(Me.T_codigo)

Cadastro(2) = UCase(Me.T_razao)

Cadastro(3) = LCase(Me.T_nomefantazia)

Cadastro(4) = LCase(Me.T_cnpj)

Cadastro(5) = LCase(Me.T_Ie)

Cadastro(6) =LCase(Me.T_endereco)

Cadastro(7) = LCase(Me.T_bairro)

Cadastro(8) = LCase(Me.T_telefone)

Cadastro(9) = LCase(Me.Combo_cidade)

Cadastro(10) = LCase(Me.T_estado)

Cadastro(11) = LCase(Me.T_cep)

Cadastro(12) = UCase(Me.T_codigo.Value)

 

For I = 1 To 12

Plan2.Cells(Val(Me.T_codigo) + 1,I).Value = Trim(Cadastro(I))

Next I

MsgBox"ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DE EMPRESAS"

ThisWorkbook.Save

 

Botão Apagar:

 

Dim prestador

prestador = MsgBox("DESEJA REALMENTE EXCLUIR OREGISTRO", vbYesNo + vbQuestion, "CADASTRO DE CLIENTES")

If prestador = vbYes Then

Plan2.Cells(Val(Me.T_codigo) + 1,1).EntireRow.Delete

ThisWorkbook.Save

End If

 

BotãoFechar:

 

Me.hide

 

Dentro do formulário, no evento inialize insira o seguinte código:

 

Label15 = Application.WorksheetFunction.CountA(Plan2.Columns(1))- 1

 

Tela 008

 

Conclusão:

 

Neste tutorial ensinei a criar o banco de dados,codificar o  formulário de cadastro deempresas, tudo de forma bem objetiva na próxima parte do tutorial daremoscontinuidade no desenlvovimento do sistema. Bons estudos e até a próxima parte.

 

---

• SISTEMA DE CONTROLE DE SERVIÇOS
• Sistema Controle Prestadores de Serviços - Formulário de Cadastro - Parte 1
• Sistema Controle Prestadores de Serviços - Banco de Dados e Codificação - Parte 2
• Sistema Controle Prestadores de Serviços - Formulário de Cadastro de Empresa - Parte 3
• Sistema Controle Prestadores de Serviços - Codificação dos Dados da Empresa - Parte 4
• Sistema Controle Prestadores de Serviços - Cadastro de Serviços - Parte 5
• Sistema Controle Prestadores de Serviços - Codificação do Cadastro de Serviços - Parte 6
• Sistema Controle Prestadores de Serviços - Formulário de Cadastro de Serviços - Parte 7
• Sistema Controle Prestadores de Serviços - Codificação dos Dados de Serviços - Parte 8
• Sistema Controle Prestadores de Serviços - Formulário Final - Conclusão