Sistema de Controle para Prestadores de Serviço - Codificação do Cadastro de Serviços - Parte 6

 

Objetivo:

 

O objetivo deste tutorial é darcontinuidade do desenvolvimento do sistema controle de prestadores de serviços,vamos criar neste tutorial o banco de dados e codificar o formulário cadastro deserviços, no qual criamos no tutorial 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,  Parte 3 ,Parte4, Parte5  deste tutorial.

 

Utilizaremos  aplanilha3 para a criação deste banco de dados, os campos que utilizaremos serãoos seguintes:

 

Codigo, Tipo e Nome.

 

Tela 001

 

Vamos começar a formatar estes campos sendo que você deveinserir em toda a linha dos nomes dos campos  insira a cor cinza e negrito, para que osmesmo fiquem identificados como cabeçalho.

 

Tela 002

 

O campo: Codigo deve  ser formatados na  categoria “Geral”.

 

Tela 003

 

Os Campos: Tipo e Nome  devem ser formatados na categoria “Texto”.

 

Tela 004

 

Começaremos  acodificar o aplicativo pelos botões,  sendoque o código deve iser inserido  dentroda janela de codigo do mesmo e  no eventoclic.

 

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

 

If Me.CODIGO > Me.Label6Then

 

If Me.CODIGO = ""Then

Me.CODIGO.Text ="-"

End If

 

If Me.SERVICO ="" Then

Me.SERVICO= "-"

End If

 

If Me.Combo_NOME ="" Then

Me.Combo_NOME.Text ="-"

End If

 

Dim Cadastro(1 To 4)

Cadastro(1)= UCase(Me.CODIGO)

Cadastro(2) = UCase(Me.SERVICO)

Cadastro(3) = LCase(Me.Combo_NOME)

Cadastro(4) =UCase(Me.CODIGO.Value)

 

DimEMPRESA As Object

Dim L, I

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

L = EMPRESA.Rows.Count + 1

If Len(Me.CODIGO)= 0 Then

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

Else

For I= 1 To 4

Plan3.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 005

 

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

rs.FindFirst "TIPOLIKE'" & Me.SERVICO & "'"

 

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

 

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

Me.SERVICO =rs.Fields("TIPO")

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

 

BotãoEditar:

 

Dim Cadastro(1 To 4)

Cadastro(1) = UCase(Me.CODIGO)

Cadastro(2) = UCase(Me.SERVICO)

Cadastro(3) = LCase(Me.Combo_NOME)

Cadastro(4) = UCase(Me.CODIGO.Value)

 

For I = 1 To 4

Plan3.Cells(Val(Me.CODIGO) + 1,I).Value = Trim(Cadastro(I))

Next I

MsgBox "ALTERAÇÃOEFETUADA", 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

Plan3.Cells(Val(Me.CODIGO) + 1,1).EntireRow.Delete

ThisWorkbook.Save

End If

 

BotãoFechar:

 

Me.hide

 

Agora você deve inserir o código abaixo dentro do formulário,  no evento inialize:

 

Label6 =Application.WorksheetFunction.CountA(Plan3.Columns(1)) – 1

 

Tela 006

 

Na propriedade do combo_nome,vamos fazer uma referência com o campo “nome” que esta localizado plan1,  você deve inserir Plan1! B2:b100 napropriedade Rowsource.

 

Tela 007

 

Conclusão:

 

Neste tutorial ensinei a criar o banco de dados,codificar o  formulário de cadastro serviçose fazer a interligação do combo_nome um o campo nome da planilha1  utilizando para isso a propriedade rowsource,tudo de forma bem objetiva, na próxima parte do vamos continuar nodesenlvovimento 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