Sistema de Controle para Prestadores de Serviço - Banco de Dados e Codificação - Parte 2

 

Objetivo:

 

O objetivo deste tutorial é darcontinuidade do deselvolvimento do sistema controle de prestadores de serviços,neste tutorial iremos criar o banco de dados e codificar  o formulário de cadastro pessoal dosprestadores de serviços.

 

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 deste tutorial.

 

Para criar o banco de dados vamos utilizar a planilha1,insira na mesma os seguintes campos abaixo:

 

Codigo, Nome, Endereco, Bairro, Cidade, Estado, Telefone eCep.

 

Tela 001

 

Agora iremos formatar estes campos, primeiro insira emtoda a linha dos nomes dos campos cor cinza e negrito.

 

Tela 002

 

As próximas formatações serão as seguintes:

 

Os campo: Codigo este deve ficar a propriedade na suacategoria  “geral”.

 

Tela 003

 

Os Campos: Nome, Endereço, Bairro, Cidade, Estadoformatados na categoria texto:

 

Tela 004

 

Os Campo: Telefone formatado na categoria “Telefone”.

 

Tela 005

 

E o campo: Cep na categoria “cep”

 

Tela 006

 

Agora iremos começar a codificar o aplicativo, este codigoabaixo você deve inserir dentro do botão cadastrar no seu evento clic.

 

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

 

If Me.Text_codigo >Me.Label12 Then

 

If Me.Text_codigo ="" Then

Me.Text_codigo.Text ="-"

End If

 

If Me.Text_nome = ""Then

Me.Text_nome ="-"

End If

 

If Me.Text_endereco ="" Then

Me.Text_endereco.Text ="-"

End If

 

If Me.Text_bairro ="" Then

Me.Text_bairro.Text ="-"

End If

 

If Me.Combo_cidade ="" Then

Me.Combo_cidade.Text ="-"

End If

 

If Me.Text_estado ="" Then

Me.Text_estado.Text ="-"

End If

 

If Me.Text_telefone = "" Then

Me.Text_telefone.Text ="-"

End If

 

If Me.Text_cep ="" Then

Me.Text_cep.Text ="-"

End If

 

Dim Cadastro(1 To 9)

 

Cadastro(1)= UCase(Me.Text_codigo)

Cadastro(2) = UCase(Me.Text_nome)

Cadastro(3) = LCase(Me.Text_endereco)

Cadastro(4) = LCase(Me.Text_bairro)

Cadastro(5) = LCase(Me.Combo_cidade)

Cadastro(6) = LCase(Me.Text_estado)

Cadastro(7) = LCase(Me.Text_telefone)

Cadastro(8) = LCase(Me.Text_cep)

Cadastro(9) =UCase(Me.Text_codigo.Value)

 

Dimprestador As Object

Dim L, I

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

L = prestador.Rows.Count + 1

If Len(Me.Text_codigo)= 0 Then

MsgBox"VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical,"CADASTRO PRESTADORE DE SERVIÇOS"

Else

For I = 1 To 9

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

Next I

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

ThisWorkbook.Save

End If

Exit Sub

Else

MsgBox "No campo CODIGO digite um númeromaior do que há no campo QTD para casdastrar."

End If

 

---

---

Tela 007

 

Agora iremos para o botão pesquisar, o código também vaiser inserido dentro do evento clic, não irei mostar o código dentro da janelade código por não haver a necessidade, pois é dentro do mesmo evento quemostrei na tela acima.

 

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

 

rs.FindFirst "NOMELIKE'" & Me.Text_nome & "'"

 

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

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

Me.Text_nome= rs.Fields("NOME")

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

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

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

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

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

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

 

BotãoEditar:

 

Dim Cadastro(1To 9)

Cadastro(1) = UCase(Me.Text_codigo)

Cadastro(2) = UCase(Me.Text_nome)

Cadastro(3) = LCase(Me.Text_endereco)

Cadastro(4) = LCase(Me.Text_bairro)

Cadastro(5) = LCase(Me.Combo_cidade)

Cadastro(6) = LCase(Me.Text_estado)

Cadastro(7) = LCase(Me.Text_telefone)

Cadastro(8) = LCase(Me.Text_cep)

Cadastro(9) = UCase(Me.Text_codigo.Value)

 

For I = 1 To 9

Plan1.Cells(Val(Me.Text_codigo) + 1,I).Value = Trim(Cadastro(I))

Next I

MsgBox"ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DEPRESTADORES"

ThisWorkbook.Save

 

BotãoApagar:

 

Dim prestador

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

If prestador = vbYes Then

Plan1.Cells(Val(Me.Text_codigo) + 1,1).EntireRow.Delete

ThisWorkbook.Save

End If

 

Botão Fechar:

 

Me.hide

 

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

 

Label12 = Application.WorksheetFunction.CountA(Plan1.Columns(1))- 1

 

Tela 008

 

Para que o código funcione, temos que ativar a bibliotecaMirosoft Dao, para isso na janela do editor do visual basic, clique no menuferramentas, referências e ative a bilioteca.

 

Tela 009

 

Conclusão:

 

Ensinei a criar o banco de dados, codificar o  formulário de cadastro de prestadores deserviços e ativar a biblioteca Microsoft Dao, tudo de forma bem objetiva napróxima parte do tutorial daremos continuidade 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