Excel Avancado Sistema Oficina

Sistema Oficina. Parte 1

Objetivo:

O objetivo deste e dos demais tutoriais é de ensinar você a criar um sistema para controle

básico para uma oficina mecânica, este sistema ira permitir que você cadastre seus clientes,

fornecedores, peças entre outros, o mesmo terá mais de seis formulários sendo que será bem

útil, podendo ser usada tanto para uso pessoal como profissional.Neste tutorial iremos começar

a criar a primeira interface gráfica que será para fazer o cadastro de veículos.

Pré-requisito:

Para você poder acompanhar o desenvolvimento deste tutorial, será necessário ter

conhecimento no mínimo do “Curso Básico de Excel e os Tutoriais Utilizando Editor do Visual

Basic do Excel Parte 1 e Parte2”.

NOTA: A partir deste sistema, irei oferecer serviços de acessória em desenvolvimento

de sistemas em Excel, portanto, se você quiser adaptar ou criar um sistema conforme

sua necessidade, entre em contato comigo através do e-mail:

[email protected].

Você deve primeiro criar uma pasta com o nome “Oficina” e salvar em qualquer lugar no seu

computador, quanto a planilha que iremos começar a desenvolver o sistema daremos o nome

“oficina.xls”. Feito isso podemos iniciar o desenvolvimento do formulário. Abaixo a tela principal

do sistema, através da mesma você vai poder ter acesso a todos os formulários.

Tela 001

A primeira interface gráfica que iremos desenvolver será para cadastro básico de veículos,

utilizaremos os seguintes objetos e depois iremos ajustar suas propriedades.

01 Formulário

02Frame (Moldura)

11 Label

08 TextBox

05 Botões

Definido quais objetos utilizaremos vamos ajustar suas propriedades da seguinte maneira:

Formulário:

Name para CADASTRO_VEICULOS

Caption para CADASTRO DE VEICULOS

Height para 428

Width para 336

Frames

Frame 01

Caption para DADOS BASICOS

Height para 246

Widht para 312

Frame 01

Caption para COMANDOS

Height para 90

Widht para 312

Label:

Label01

Caption para CADASTRO DE VEICULOS

Height para 18

Widht para 210

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para NOME

Height para 12

Widht para 30

Label04

Caption para MARCA

Height para 12

Widht para 60

Label05

Caption para PLACA

Height para 12

Widht para 42

Label06

Caption para COR

Height para 12

Widht para 48

Label07

Caption para ANO

Height para 12

Widht para 42

Label8

Caption para OBS

Height para 12

Widht para 30

Label9

Caption para REGISTRO NO BANCO

Height para 12

Widht para 96

Label10

Name para LABEL_N

Caption para N

Height para 12

Widht para 24

Botões:

Botão Cadastrar

Name para CAD

Caption para CADASTRAR

Height para 20

Width para 60

Botão Pesquisar

Name para PESQ

Caption para PESQUISAR

Height para 20

Width para 60

Botão Editar

Name para EDIT

Caption para EDITAR

Height para 20

Width para 60

Botão Apagar

Name para APAG

Caption para APAGAR

Height para 20

Width para 60

Botão Fechar

Name para FECH

Caption para FECHAR

Height para 20

Width para 60

TextBox:

Textobox 01

Name para CODIGO

Height para 16

Width para 72

Textobox 02

Name para NOME

Height para 16

Width para 156

Textobox 03

Name para MARCA

Height para 16

Width para 156

Textobox 04

Name para PLACA

Height para 16

Width para 156

Textobox 05

Name para COR

Height para 16

Width para 72

Textobox 06

Name para ANO

Height para 16

Width para 72

Visible para FALSE

Textobox 07

Name para OBS

Height para 54

Width para 156

Textobox 08

Name para TEXT_CODF

Height para 16

Width para 36

Visible para FALSE

Já definimos as propriedades iremos inserir os objetos, para facilitar o desenvolvimento do

aplicativo vou mostrar através das telas, primeiro insira o formulário e altere suas propriedades,

conforme já definimos acima, devendo ficar conforme a tela abaixo:

Tela 001 (Formulário com suas alterações definidas)

Agora iremos inserir os frames, note que a inserção dos objetos, procuro seguir uma seqüência

lógica:

Tela 002

Vamos inserir as label, as mesmas irão identificar os nomes dos campos:

Tela 003 (Label modificada)

Vamos inserir as caixas de texto :

Tela 004

Vamos inserir os botões:

Tela 006

Note que o designer é bem objetivo, siga esta seqüência de inserção de objetos, assim ficar mais

fácil para o seu aprendizado. No próximo tutorial irei ensinar a criar o banco de dados e a fazer a

codificação para esta interface.

Conclusão:

Neste tutorial expliquei o objetivo do sistema para oficina, mostrei a interface gráfica principal

que Dara acesso a todos os formulários e começamos a criar o formulário para cadastramento de

veículos, definindo os objetos, seus nomes e suas propriedades. Mostrei através das telas como

deve ficar a interface pronta com cada objeto inserido, tudo de forma simples e objetiva, na

próxima parte do tutorial daremos continuidade no desenlvovimento do aplicativo. Bons estudos

e até a próxima parte.


Objetivo:

O objetivo deste é continuar o desenvolvimento do sistema, iremos criar o banco de dados e

fazer as formatações necessárias no mesmo para entrada dos dados e também codificar a

interface gráfica que criamos no tutorial anterior, tudo de forma simples e objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2” Parte 1 deste tutorial.

NOTA: A partir deste sistema, irei oferecer serviços de acessoria em desenvolvimento



[email protected].

Vamos começar a desenvolver o bando de dados, para isso utilizaremos na planilha que estamos

desenvolvendo o sistema, nesta você deve ter ao todo 9 plan, sendo que para a criação deste

primeiro banco utilizaremos a 8ª.

Iremos definir seguintes nomes para os campos :

COD, NOME, MARCA, PLACA, COR, ANO, OBS.

Depois insira os campo na planilha.

Tela 001

Agora devemos inserir uma cor em toda a linha do campo, colocar em negrito e centralizado.

Tela 002

Agora iremos fazer a formatação dos campos da seguinte maneira:

COD e PLACA para a categoria números com casa decimais zero.

Tela 003

NOME, MARCO e COR para a categoria texto.

Tela 004

ANO para data:

Tela 005

OBS para categoria geral.

Tela 006

Desenvolvido o banco de dados, vamos começar a fazer a codificação do sistema, começaremos

pelo formulário, dentro do mesmo no evento initialize insira o código abaixo:

Label_N = Application.WorksheetFunction.CountA(Plan8.Columns(1)) – 1

Tela 008

Vamos codificar os botões, o código deve ser inserido dentro do mesmo no evento clic:

Cadastrar:

Dim bd As Database

Dim Rs As Recordset

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

8.0")

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

If Me.codigo > Me.Label_N Then

If Me.nome = "" Then

Me.nome.Text = "-"

End If

If Me.marca.Text = "" Then

Me.marca.Text = "-"

End If

If Me.placa.Text = "" Then

Me.placa.Text = "-"

End If

If Me.cor.Text = "" Then

Me.cor.Text = "-"

End If

If Me.ano.Text = "" Then

Me.ano.Text = "-"

End If

If Me.obs.Text = "" Then

Me.obs.Text = "-"

End If

Dim CADASTRO(1 To 8)

CADASTRO(1) = UCase(Me.codigo)

CADASTRO(2) = UCase(Me.nome)

CADASTRO(3) = UCase(Me.marca)

CADASTRO(4) = UCase(Me.placa)

CADASTRO(5) = UCase(Me.cor)

CADASTRO(6) = UCase(Me.ano)

CADASTRO(7) = UCase(Me.obs)

CADASTRO(8) = UCase(Me.codigo.Value)

Dim OFICINA As Object

Dim L, i

Set OFICINA = Plan8.Cells(1, 1).CurrentRegion

L = OFICINA.Rows.Count + 1

If Len(Me.codigo) = 0 Then

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

CIDADES E ESTADOS"

Else

For i = 1 To 8

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

Next i

Me.codigo = ""

Me.nome = ""

Me.marca.Text = ""

Me.placa.Text = ""

Me.cor.Text = ""

Me.ano.Text = ""

Me.obs.Text = ""

MsgBox "CADASTRO", vbInformation, "EFETUADO COM SUCESSO"

ThisWorkbook.Save

End If

Exit Sub

Else

MsgBox "No campo CODIGO digite um número maior do que há no campo Total Registro No

Banco para cadastrar."

End If

Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

If Rs("NOME") = Me.nome.Text Then

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

Me.marca = Rs.Fields("MARCA")

Me.placa = Rs.Fields("PLACA")

Me.cor = Rs.Fields("COR")

Me.ano = Rs.Fields("ANO")

Me.obs = Rs.Fields("OBS")

Me.Text_codf.Text = LIN

End If

LIN = LIN + 1

Rs.MoveNext

Loop

Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("NOME") = Me.nome

Rs("MARCA") = Me.marca

Rs("PLACA") = Me.placa

Rs("COR") = Me.cor

Rs("ANO") = Me.ano

Rs("OBS") = Me.obs

Rs.Update

MsgBox "DADO ALTERADOS COM SUCESSO", vbInformation, "BANCO DE DADOS"

ThisWorkbook.Save

Apagar:

Dim OFICINA

OFICINA = MsgBox("DESEJA REALMENTE EXCLUIR OS DADOS?", vbYesNo + vbQuestion, "BANCO

DE DADOS")

If OFICINA = vbYes Then

Plan8.Cells(Me.Text_codf, 1).EntireRow.Delete

Me.codigo = ""

Me.nome = ""

Me.marca.Text = ""

Me.placa.Text = ""

Me.cor.Text = ""

Me.ano.Text = ""

Me.obs.Text = ""

MsgBox "DADOS EXCLUÍDO COM SUCESSO."

ThisWorkbook.Save

End If

Fechar:

Me.hide

Conclusão:

Neste tutorial ensinei para você a criar o banco de dados, definindo os nomes dos campos e

fazendo suas formatações passo a passo, também a codificar a interface gráfica inserindo os

códigos em cada um dos botões e formulário, tudo de forma simples e objetiva, na próxima parte

do tutorial daremos continuidade no desenvolvimento do aplicativo. Bons estudos e até a

próxima parte.


Objetivo:

O objetivo deste é dar continuidade ao desenvolvimento do sitema, neste tutorial irei ensinar

você a criar uma interface gráfica para cadastrar peças dos veículos, tudo de forma bem

objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2”. Parte 1 e Parte 2 deste tutorial.




[email protected].

Vamos começar a definir os objetos e depois iremos ajustar suas propriedades.

01 Formulário

02 Frame (Moldura)

10 Label

06 TextBox

02 Combox

05 Botões

Vamos ajustar suas propriedades da seguinte maneira:

Formulário:

Name para CADASTRO_PECAS

Caption para CADASTRO DE PEÇAS

Height para 388

Width para 358

Frames

Frame 01


Height para 198

Widht para 330

Frame 02


Height para 90

Widht para 264

Label:

Label01

Caption para CADASTRO DE PEÇAS

Height para 18

Widht para 174

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para PEÇA

Height para 12

Widht para 42

Label04

Caption para VEICULO

Height para 12

Widht para 66

Label05

Caption para ANO

Height para 12

Widht para 42

Label06

Caption para FORNECEDOR

Height para 12

Widht para 60

Label07

Caption para QTD

Height para 12

Widht para 42

Label8

Caption para VALOR

Height para 12

Widht para 30

Label9


Height para 12

Widht para 96

Label10

Name para LABEL_N

Caption para N

Height para 12

Widht para 24

Botões:

Botão Cadastrar

Name para COMMAND_CADASTRAR


Height para 20

Width para 60

Botão Pesquisar

Name para COMMAND_PESQUISAR


Height para 20

Width para 60

Botão Editar

Name para COMMAND_EDITAR

Caption para EDITAR

Height para 20

Width para 60

Botão Apagar

Name para COMMAND_APAGAR

Caption para APAGAR

Height para 20

Width para 60

Botão Fechar

Name para COMMAND_FECHAR

Caption para FECHAR

Height para 20

Width para 60

TextBox:

Textobox 01

Name para COD

Height para 16

Width para 72

Textobox 02

Name para PECA

Height para 16

Width para 156

Textobox 03

Name para ANO

Height para 16

Width para 156

Textobox 04

Name para TEXT_QTD

Height para 16

Width para 72

Textobox 05

Name para TEXT_VALOR

Height para 16

Width para 72

Textobox 06

Name para TEXT_CODF

Height para 16

Width para 36

Visible para FALSE

Combobox:

Combobox 01

Name para COMBOBOX_VEICULO

Height para 16

Width para 156

Combobox 02

Name para COMBOBOX_FORNECEDOR

Height para 16

Width para 78

Definido as propriedades vamos inserir os objetos, vou mostrar através das telas, primeiro

insira o formulário e altere suas propriedades, conforme já definimos acima, devendo ficar

conforme a tela abaixo:


Vamos inserir os frames, note que a inserção dos objetos deve seguir uma seqüência lógica.

Tela 002

Iremos inserir as label, as mesmas servem para identificarmos os nomes dos campos:


Vamos inserir as caixas de texto e os combobox :

Tela 004

E por último vamos inserir os botões:

Tela 005

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica para cadastrar as peças dos veículos, ano,

fornecedor entre outros , definindo os objetos, seus nomes e suas propriedades. Mostrei através

das telas como deve ficar a interface pronta com cada objeto inserido, tudo de forma simples e

objetiva, na próxima parte do tutorial daremos continuidade no desenlvovimento do aplicativo.

Bons estudos e até a próxima parte.


Objetivo:

O objetivo deste é continuar o desenvolvimento do sistema, vamos desenvolver o banco de

dados para armazenar os registros e também codificar a interface gráfica que criamos no

tutorial anterior, tudo de forma simples e objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2” Parte 1, Parte 2 e Parte 3 deste tutorial.




[email protected].

Iremos começar com a criação de banco de dados, para este você deve utilizar a planilha 6 na

qual deve ser renomeada para “PECAS” , vamos definir seguintes nomes para os campos :

COD, PECA, VEICULO, ANO,FORNECEDOR, QTD, VALOR.

Insira estes campos na planilha, conforme a tela abaixo.

Tela 001

Você deve inserir uma cor cinza escura em toda a linha que contém o nome dos campos,

colocar negrito e centralizado.

Tela 002

Vamos fazer formatações nos campos da seguinte maneira:

COD e QTD para a categoria números com casa decimais zero.

Tela 003

PECA, VEICULO e FORNECEDOR para a categoria texto.

Tela 004

ANO para data:

Tela 005

VALOR para categoria moeda.

Tela 006

Terminamos de criar o banco de dados, começaremos a fazer a codificação da interface gráfica

do sistema, primeiro o formulário, dentro do mesmo e no evento initialize insira o código:


Tela 008

Vamos inserir os códigos nos botões, este deve ser inserido no evento c l i c:

Botão Cadastrar:

Dim bd As Database

Dim Rs As Recordset


8.0")

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

If Me.cod > Me.Label_N Then

If Me.Text_peça = "" Then

Me.Text_peça.Text = "-"

End If

If Me.ComboBox_veiculo = "" Then

Me.ComboBox_veiculo.Text = "-"

End If

If Me.Text_ano.Text = "" Then

Me.Text_ano.Text = "-"

End If

If Me.ComboBox_fornecedor.Text = "" Then

Me.ComboBox_fornecedor.Text = "-"

End If

If Me.Text_qtd.Text = "" Then

Me.Text_qtd.Text = "-"

End If

If Me.Text_valor.Text = "" Then

Me.Text_valor.Text = "-"

End If


CADASTRO(1) = UCase(Me.cod)

CADASTRO(2) = UCase(Me.Text_peça)

CADASTRO(3) = UCase(Me.ComboBox_veiculo)

CADASTRO(4) = UCase(Me.Text_ano)

CADASTRO(5) = UCase(Me.ComboBox_fornecedor)

CADASTRO(6) = UCase(Me.Text_qtd)

CADASTRO(7) = UCase(Me.Text_valor)

CADASTRO(8) = UCase(Me.cod.Value)


Dim L, i



If Len(Me.cod) = 0 Then

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

"CADASTRO DE CIDADES E ESTADOS"

Else

For i = 1 To 8


Next i

Me.cod = ""

Me.Text_peça.Text = ""

Me.ComboBox_veiculo.Text = ""

Me.Text_ano.Text = ""

Me.ComboBox_fornecedor.Text = ""

Me.Text_qtd.Text = ""

Me.Text_valor.Text = ""


ThisWorkbook.Save

End If

Exit Sub

Else


Banco para cadastrar."

End If

Botão Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")

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

LIN = 2

Do Until Rs.EOF

If Rs("PECA") = Me.Text_peça.Text Then

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

Me.ComboBox_veiculo = Rs.Fields("VEICULO")

Me.Text_ano = Rs.Fields("ANO")

Me.ComboBox_fornecedor = Rs.Fields("FORNECEDOR")

Me.Text_qtd = Rs.Fields("QTD")

Me.Text_valor = Rs.Fields("VALOR")


End If

LIN = LIN + 1

Rs.MoveNext

Loop

Botão Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("PECA") = Me.Text_peça

Rs("VEICULO") = Me.ComboBox_veiculo

Rs("ANO") = Me.Text_ano

Rs("FORNECEDOR") = Me.ComboBox_fornecedor

Rs("QTD") = Me.Text_qtd

Rs("VALOR") = Me.Text_valor

Rs.Update


ThisWorkbook.Save

Botão Apagar:

Dim OFICINA


DE DADOS")



Me.cod = ""

Me.Text_peça.Text = ""

Me.ComboBox_veiculo.Text = ""

Me.Text_ano.Text = ""

Me.ComboBox_fornecedor.Text = ""

Me.Text_qtd.Text = ""



ThisWorkbook.Save

End If

Fechar:

Me.hide

Conclusão:

Neste tutorial ensinei para você a desenvolver o banco de dados para armazenar os registros,

definir os nomes dos campos, fazer as formatações necessárias, também a codificar a interface

gráfica peças, inserindo os códigos nos botões e no formulário, tudo de forma simples e

objetiva, na próxima parte do tutorial daremos continuidade no desenvolvimento do aplicativo.



Objetivo:


você a criar uma interface gráfica para cadastrar cidades e estados, também vamos criar o

banco de dados e codificar o aplicativo.

Pré-requisito:



Basic do Excel Parte 1 e Parte2”. Parte 1 e Parte 2, Parte 3 e Parte 4 deste tutorial.




[email protected].

Vamos criar a interface gráfica primeiro, sendo assim, iremos a definir os objetos e depois

iremos ajustar suas propriedades.

01 Formulário

02 Frame (Moldura)

07 Label

03 TextBox

05 Botões

Ajuste as propriedades dos mesmos conforme segue:

Formulário:

Name para CADASTRO_CIDADES

Caption para CADASTRO DE CIDADES

Height para 336

Width para 333

Frames

Frame 01


Height para 156

Widht para 300

Frame 02


Height para 84

Widht para 300

Label:

Label01

Caption para CADASTRO DE CIDADES

Height para 18

Widht para 210

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para CIDADE

Height para 12

Widht para 36

Label04

Caption para ESTADO

Height para 12

Widht para 42

Label05

Caption para CODF

Height para 12

Widht para 24

Label06


Height para 12

Widht para 96

Label7

Name para LABEL_N

Caption para N

Height para 12

Widht para 24

Botões:

Botão Cadastrar



Height para 20

Width para 60

Botão Pesquisar



Height para 20

Width para 60

Botão Editar


Caption para EDITAR

Height para 20

Width para 60

Botão Apagar


Caption para APAGAR

Height para 20

Width para 60

Botão Fechar


Caption para FECHAR

Height para 20

Width para 60

TextBox:

Textobox 01

Name para COD_CIDADE

Height para 16

Width para 72

Textobox 02

Name para TEXT_CIDADE

Height para 16

Width para 156

Textobox 03

Name para TEXT_ESTADO

Height para 16

Width para 156

Textobox 04

Name para TEXT_CODF

Height para 16

Width para 36

Visible para FALSE

Com estas propriedades definidas podemos dar inicio a inserção dos objetos para a criação da

interface, irei mostrar através das telas. Logo após criarmos esta interface vamos criar o banco

de dados para armazenas os dados e por último a codificação.


Vamos inserir os frames e as label.


Vamos inserir as caixas de texto e os botões:

Tela 003

Vamos criar o banco de dados para este utilize a planilha 2 esta você deve modificar seu nome

para “cidades”, utilizaremos os seguintes campos:

COD, CIDADE e ESTADO

Sendo que estes campos devem ficar formatados como segue:

COD para categoria número positivos com 0 na casa decimais.

CIDADE e ESTADO na categoria texto.

Abaixo irei mostrar algumas telas com as formatações, isso vai ajudar você nesta criação.

Tela 004 (Nome dos Campos)

Tela 005

Tela 006

Agora vamos codificar a interface conforme segue:

Dentro do formulário no seu evento initialize:


Botão cadastrar, sendo que os códigos devem ficar no evento clic:

Dim bd As Database

Dim Rs As Recordset


8.0")

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

If Me.cod_cidade > Me.Label_N Then

If Me.Text_cidade = "" Then

Me.Text_cidade.Text = "-"

End If

If Me.Text_estado.Text = "" Then

Me.Text_estado.Text = "-"

End If


CADASTRO(1) = UCase(Me.cod_cidade)

CADASTRO(2) = UCase(Me.Text_cidade)

CADASTRO(3) = UCase(Me.Text_estado)

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


Dim L, i



If Len(Me.cod_cidade) = 0 Then


CIDADES E ESTADOS"

Else

For i = 1 To 4


Next i

Me.cod_cidade.Text = ""

Me.Text_cidade.Text = ""

Me.Text_estado.Text = ""


ThisWorkbook.Save

End If

Exit Sub

Else


Banco para casdastrar."

End If

Botão Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

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

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

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


End If

LIN = LIN + 1

Rs.MoveNext

Loop

Botão Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("CIDADE") = Me.Text_cidade

Rs("ESTADO") = Me.Text_estado

Rs.Update


ThisWorkbook.Save

Botão Apagar:

Dim OFICINA


DE DADOS")



Me.cod_cidade.Text = ""

Me.Text_cidade.Text = ""

Me.Text_estado.Text = ""


ThisWorkbook.Save

End If

Botão Fechar:

Me.hide

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica para fazer o cadastro de cidades e estados,

bem como criar o banco de dados e inserir os códigos, tudo de forma simples e objetiva, na




Objetivo:


você a criar uma interface gráfica para cadastrar dados dos clientes , tudo de forma bem

objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2”. Parte 1 e Parte 2, Parte 3 Parte 4 e Parte 5 deste tutorial.




[email protected].

Definiremos primeiro os objetos a serem utilizados e depois ajustamos suas propriedades.

01 Formulário

02 Frame (Moldura)

12 Label

07 TextBox

02 Combox

05 Botões

Começaremos ajustar as propriedades da seguinte maneira:

Formulário:

Name para CADASTRO_CLIENTES

Caption para CADASTRO DE CLIENTES

Height para 336

Width para 454

Frames

Frame 01


Height para 233

Widht para 426

Frame 02


Height para 174

Widht para 114

Label:

Label01

Caption para CADASTRO DE CLIENTES

Height para 18

Widht para 222

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para NOME

Height para 12

Widht para 42

Label04

Caption para ENDERECO

Height para 12

Widht para 48

Label05

Caption para BAIRRO

Height para 12

Widht para 42

Label06

Caption para CIDADE

Height para 12

Widht para 60

Label07

Caption para ESTADO

Height para 12

Widht para 42

Label8

Caption para CEP

Height para 12

Widht para 30

Label9

Caption para TELEFONE

Height para 12

Widht para 42

Label10


Height para 12

Widht para 96

Label11

Name para LABEL_N

Caption para N

Height para 12

Widht para 24

Label12

Caption para CODF

Height para 12

Widht para 30

Botões:

Botão Cadastrar

Name para BOTAO_CADASTRAR


Height para 20

Width para 72

Botão Pesquisar

Name para BOTAO_PESQUISAR


Height para 20

Width para 72

Botão Editar

Name para BOTAO_EDITAR

Caption para EDITAR

Height para 20

Width para 72

Botão Apagar

Name para BOTAO_APAGAR

Caption para APAGAR

Height para 20

Width para 72

Botão Fechar

Name para BOTAO_FECHAR

Caption para FECHAR

Height para 20

Width para 60

TextBox:

Textobox 01

Name para TEXTBOX_COD

Height para 16

Width para 72

Textobox 02

Name para TEXTBOX_NOME

Height para 16

Width para 156

Textobox 03

Name para TEXTBOX_ENDERECO

Height para 16

Width para 156

Textobox 04

Name para TEXTBOX_BAIRRO

Height para 16

Width para 156

Textobox 05

Name para TEXTBOX_CEP

Height para 16

Width para 72

Textobox 06

Name para TEXTBOX_TELEFONE

Height para 16

Width para 72

Textobox 07

Name para TEXT_CODF

Height para 16

Width para 36

Visible para FALSE

Combobox:

Combobox 01

Name para COMBOBOX_CIDADE

Height para 16

Width para 156

Combobox 02

Name para COMBOBOX_ESTADO

Height para 16

Width para 72

Com as propriedades definidas iremos começar a inserir os objetos, vou mostrar através das

telas, primeiro insira o formulário devendo o mesmo ficar conforme a tela abaixo:


Vamos inserir os frames.

Tela 002

Vamos inserir as label:


Vamos inserir as caixas de texto e os combobox:

Tela 004


Tela 005

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica para cadastrar dados dos clientes ,

definindo os objetos, seus nomes e suas propriedades. Mostrei através das telas como deve ficar

a interface pronta com cada objeto inserido, de forma simples e direta, na próxima parte do

tutorial daremos continuidade no desenlvovimento do aplicativo. Bons estudos e até a próxima

parte.


Objetivo:

O objetivo deste é continuar o desenvolvimento do sistema, vamos desenvolver um banco de

dados para armazenar os registros dos clientes e também codificar a interface gráfica que

criamos no tutorial anterior, tudo de forma simples e objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2” Parte 1, Parte 2, Parte 3, Parte 4, Parte 5 e Parte 6 deste

tutorial.




[email protected].

Vamos começar com a criação de banco de dados, este você deve utilizar a planilha 3 na qual

deve ser renomeada para “CLIENTES” , os nomes dos campos serão os seguintes:

COD, NOME, ENDERECO, BAIRRO, CIDADE,ESTADO, CEP,TELEFONE.


Tela 001

Você deve inserir uma cor cinza escura em toda a linha que contém o nome dos campos,

colocar negrito e centralizado.

Tela 002

Vamos fazer formatações nos campos da seguinte maneira:

COD para a categoria números com casa decimais zero.

Tela 003

NOME, ENDERECO,BAIRRO, CIDADE E ESTADO para a categoria texto.

Tela 004

CEP para Especial CEP:

Tela 005

Telefone para categoria especial Telefone.

Tela 006

Terminado a criação do banco de dados, começaremos a fazer a codificar a interface gráfica do

sistema, primeiro o formulário, dentro do mesmo e no evento initialize insira o código:


Tela 007

Vamos inserir os códigos nos botões, este deve ser inserido no evento c l i c:

Botão Cadastrar:

Dim bd As Database

Dim Rs As Recordset


8.0")

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

If Me.TextBox_cod > Me.Label_N Then

If Me.TextBox_nome = "" Then

Me.TextBox_nome.Text = "-"

End If

If Me.TextBox_endereco.Text = "" Then

Me.TextBox_endereco.Text = "-"

End If

If Me.TextBox_bairro.Text = "" Then

Me.TextBox_bairro.Text = "-"

End If

If Me.ComboBox_cidade.Text = "" Then

Me.ComboBox_cidade.Text = "-"

End If

If Me.ComboBox_estado.Text = "" Then

Me.ComboBox_estado.Text = "-"

End If

If Me.TextBox_cep.Text = "" Then

Me.TextBox_cep.Text = "-"

End If

If Me.TextBox_telefone.Text = "" Then

Me.TextBox_telefone.Text = "-"

End If


CADASTRO(1) = UCase(Me.TextBox_cod)

CADASTRO(2) = UCase(Me.TextBox_nome)

CADASTRO(3) = UCase(Me.TextBox_endereco)

CADASTRO(4) = UCase(Me.TextBox_bairro)

CADASTRO(5) = UCase(Me.ComboBox_cidade)

CADASTRO(6) = UCase(Me.ComboBox_estado)

CADASTRO(7) = UCase(Me.TextBox_cep)

CADASTRO(8) = UCase(Me.TextBox_telefone)

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


Dim L, i



If Len(Me.TextBox_cod) = 0 Then


CIDADES E ESTADOS"

Else

For i = 1 To 9


Next i

Me.TextBox_cod = ""

Me.TextBox_nome = ""

Me.TextBox_endereco.Text = ""

Me.TextBox_bairro.Text = ""

Me.ComboBox_cidade.Text = ""

Me.ComboBox_estado.Text = ""

Me.TextBox_cep.Text = ""

Me.TextBox_telefone.Text = ""


ThisWorkbook.Save

End If

Exit Sub

Else



End If

Botão Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

If Rs("NOME") = Me.TextBox_nome.Text Then

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

Me.TextBox_endereco = Rs.Fields("ENDERECO")

Me.TextBox_bairro = Rs.Fields("BAIRRO")

Me.ComboBox_cidade = Rs.Fields("CIDADE")

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

Me.TextBox_cep = Rs.Fields("CEP")

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

Me.TextBox_codf.Text = LIN

End If

LIN = LIN + 1

Rs.MoveNext

LoopDim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

If Rs("PECA") = Me.Text_peça.Text Then


Me.ComboBox_veiculo = Rs.Fields("VEICULO")

Me.Text_ano = Rs.Fields("ANO")

Me.ComboBox_fornecedor = Rs.Fields("FORNECEDOR")

Me.Text_qtd = Rs.Fields("QTD")



End If

LIN = LIN + 1

Rs.MoveNext

Loop

Botão Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("NOME") = Me.TextBox_nome

Rs("ENDERECO") = Me.TextBox_endereco

Rs("BAIRRO") = Me.TextBox_bairro

Rs("CIDADE") = Me.ComboBox_cidade

Rs("ESTADO") = Me.ComboBox_estado

Rs("CEP") = Me.TextBox_cep

Rs("TELEFONE") = Me.TextBox_telefone

Rs.Update


ThisWorkbook.Save

Botão Apagar:

Dim OFICINA


DE DADOS")


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

Me.TextBox_cod = ""




Me.ComboBox_cidade.Text = ""

Me.ComboBox_estado.Text = ""




ThisWorkbook.Save

End If

Fechar:

Me.hide

Conclusão:

Neste tutorial ensinei para você a desenvolver o banco de dados para armazenar os dados dos

clientes, definir os nomes dos campos, fazer as formatações necessárias, também a codificar a

interface gráfica de clientes que tinhamos desenvolvido no tutorial anterior a este, inserindo os

códigos nos botões e no formulário, tudo de forma simples e objetiva, na próxima parte do

tutorial daremos continuidade no desenvolvimento do aplicativo. Bons estudos e até a próxima

parte.


Objetivo:

O objetivo deste é dar continuidade ao desenvolvimento do sitema, neste tutorial vamos criar

uma interface gráfica para cadastrar os serviços, tudo de forma bem objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2”. Parte 1 e Parte 2, Parte 3 Parte 4, Parte 5, Parte 6 e Parte

7deste tutorial.




[email protected].

Vamos definir primeiro os objetos a serem utilizados e depois ajustamos suas propriedades.

01 Formulário

02 Frame (Moldura)

07 Label

04 TextBox

05 Botões

Começaremos ajustar as propriedades da seguinte maneira:

Formulário:

Name para CADASTRO_SERVIÇOS

Caption para CADASTRO DE SERVIÇOS

Height para 334

Width para 335

Frames

Frame 01


Height para 156

Widht para 300

Frame 02


Height para 84

Widht para 300

Label:

Label01

Caption para CADASTRO DE SERVIÇOS

Height para 18

Widht para 210

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para SERVIÇO

Height para 12

Widht para 42

Label04

Caption para VALOR

Height para 12

Widht para 48

Label05

Caption para CODF

Visible para FALSE

Height para 12

Widht para 42

Label06


Height para 12

Widht para 96

Label07

Name para LABEL_N

Caption para N

Height para 12

Widht para 24

Botões:

Botão Cadastrar



Height para 20

Width para 60

Botão Pesquisar



Height para 20

Width para 60

Botão Editar


Caption para EDITAR

Height para 20

Width para 60

Botão Apagar


Caption para APAGAR

Height para 20

Width para 60

Botão Fechar

Name para BOTAO_FECHAR

Caption para FECHAR

Height para 20

Width para 60

TextBox:

Textobox 01

Name para COD_SERV

Height para 16

Width para 72

Textobox 02

Name para TEXT_SERVICO

Height para 16

Width para 156

Textobox 03


Height para 16

Width para 72

Textobox 04

Name para TEXT_CODF

Height para 16

Width para 36

Visible para FALSE

Definidas estas propriedades iremos começar a inserir os objetos, vou mostrar através das telas,

primeiro insira o formulário, este já esta com suas propriedades ajustadas:



Tela 002



Vamos inserir as caixas de texto:

Tela 004


Tela 005

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica para cadastrar dados serviçços , definindo

os objetos, seus nomes. Mostrei através das telas como deve ficar a interface pronta com cada

objeto inserido, de forma direta, na próxima parte do tutorial daremos continuidade no

desenlvovimento do aplicativo. Bons estudos e até a próxima parte.


Objetivo:


dados para armazenar os dadsos e também codificar a interface gráfica que criamos no tutorial

anterior, tudo de forma simples e objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2” Parte 1, Parte 2, Parte 3, Parte 4, Parte 5, Parte 6, Parte 7 e

Parte 8 deste tutorial.


de sistemas em Excel e criação de sites com acesso a banco de dados, portanto, se

você quiser adaptar ou criar um sistema conforme sua necessidade, entre em contato

comigo através do e-mail: [email protected].

Começaremos com a criação de banco de dados, este você deve utilizar a planilha 7 a qual

deve receber o seguite nome “SERVIÇOS” , os nomes dos campos serão os seguintes:

COD, SERVICO, VALOR.


Tela 001

Vamos inserir uma cor cinza escura em toda a linha que contém o nome dos campos, colocar

negrito e centralizado.

Tela 002

Agora iremos formatar os campos conforme segue:

COD para a categoria números com casa decimais zero.

Tela 003

SERVICO para a categoria texto.

Tela 004

VALOR para Moeda:

Tela 005

Terminado a criação do banco de dados com a formatação dos campos, vamos começar a

codificar a interface gráfica do sistema, primeiro o formulário, dentro do mesmo e no evento

initialize insira o código:


Tela 006

Codificaremos agora os botões, o codigo deve ser inserido no evento c l i c:

Botão Cadastrar:

Dim bd As Database

Dim Rs As Recordset


8.0")

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

If Me.cod_serv > Me.Label_N Then

If Me.Text_servico = "" Then

Me.Text_servico.Text = "-"

End If



End If


CADASTRO(1) = UCase(Me.cod_serv)

CADASTRO(2) = UCase(Me.Text_servico)


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


Dim L, i



If Len(Me.cod_serv) = 0 Then



Else

For i = 1 To 4


Next i

Me.cod_serv.Text = ""

Me.Text_servico.Text = ""


MsgBox "CADASTRO", vbInformation, "EFETUADO COM

SUCESSO"

ThisWorkbook.Save

End If

Exit Sub

Else



End If

Botão Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

If Rs("SERVICO") = Me.Text_servico.Text Then

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



End If

LIN = LIN + 1

Rs.MoveNext

Loop

Botão Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("SERVICO") = Me.Text_servico


Rs.Update


ThisWorkbook.Save

Botão Apagar:

Dim OFICINA


DE DADOS")



Me.cod_serv.Text = ""

Me.Text_servico.Text = ""



ThisWorkbook.Save

End If

Fechar:

Me.hide

Conclusão:

Neste tutorial ensinei para você a desenvolver o banco de dados, definir os nomes dos campos,

fazer as formatações dos campos e codificar a interface gráfica de serviços a qual tinhamos

criado no tutorial, anterior a este, inserindo os códigos nos botões e no formulário, tudo de

forma simples e objetiva, na próxima parte do tutorial daremos continuidade no

desenvolvimento do aplicativo. Bons estudos e até a próxima parte.


Objetivo:


uma interface gráfica para cadastrar os fornecedores, é viavel que o sistema possua um

cadastro para os fornecedores, tudo de forma bem prática e objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2”. Parte 1 e Parte 2, Parte 3 Parte 4, Parte 5, Parte 6, Parte 7,

Parte 8 e Parte 9 deste tutorial.




[email protected].

Quase sempre iremos começar primeiro a definir os objetos que serão utilizados e depois

ajustamos suas propriedades, sempre para seguir uma lógica o que ira faciliatar para qualquer

pessoa que tenha conhecimento básico informática acompanhar a criação deste sistema.

01 Formulário

02 Frame (Moldura)

14 Label

09 TextBox

02 Combobox

05 Botões

Vamos ajustar as propriedades da seguinte maneira:

Formulário:

Name para CADASTRO_FORNECEDOR

Caption para CADASTRO DE FORNECEDORES

Height para 378

Width para 516

Frames

Frame 01

Caption para DADOS BASICO

Height para 282

Widht para 468

Frame 02


Height para 114

Widht para 186

Label:

Label01

Caption para CADASTRO DE FORNECEDORES

Height para 18

Widht para 270

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para NOME

Height para 12

Widht para 30

Label04

Caption para CGC

Height para 12

Widht para 30

Label05

Caption para IE

Height para 12

Widht para 30

Label06

Caption paraENDEREÇO REGISTRO NO BANCO

Height para 12

Widht para 48

Label07

Caption para BAIRRO

Height para 12

Widht para 48

Label08

Caption para CIDADE

Height para 12

Widht para 48

Label09

Caption para ESTADO

Height para 12

Widht para 48

Label10

Caption para CEP

Height para 12

Widht para 48

Label11


Height para 12

Widht para 48

Label12


Height para 12

Widht para 96

Label13

Name para LABEL_N

Caption para N

Height para 12

Widht para 48

Label14

Caption para CODF

Visble para FALSE

Height para 12

Widht para 48

Botões:

Botão Cadastrar

Name para BT_CADATRAR


Height para 20

Width para 72

Botão Pesquisar

Name para BT_PESQUISAR


Height para 20

Width para 72

Botão Editar

Name para BT_EDITAR

Caption para EDITAR

Height para 20

Width para 72

Botão Apagar

Name para BT_APAGAR

Caption para APAGAR

Height para 20

Width para 72

Botão Fechar

Name para BT_FECHAR

Caption para FECHAR

Height para 20

Width para 72

TextBox:

Textobox 01

Name para TEXT_CODIGO

Height para 16

Width para 72

Textobox 02

Name para TEXT_NOME

Height para 16

Width para 156

Textobox 03

Name para TEXT_CGC

Height para 16

Width para 156

Textobox 04

Name para TEXT_IE

Height para 16

Width para 156

Textobox 05

Name para TEXT_ENDERECO

Height para 16

Width para 156

Textobox 06

Name para TEXT_BAIRRO

Height para 16

Width para 156

Textobox 07

Name para TEXT_CEP

Height para 16

Width para 72

Textobox 08

Name para TEXT_TELEFONE

Height para 16

Width para 72

Textobox 09

Name para TEXT_CODF

Height para 16

Width para 30

Visible para FALSE

Combobox

Combobox 01

Name para COMBO_CIDADE

Height para 16

Width para 156

Combobox 02

Name para COMBO_ESTADO

Height para 16

Width para 72

Com as propriedades dos objetos definidas vamos começar a inserir os objetos, vou mostrar

através das telas, primeiro insira o formulário, este já esta com suas propriedades ajustadas:



Tela 002



Vamos inserir as caixas de texto e os Combobox:

Tela 004


Tela 005

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica para cadastrar os fornecedores , a definir

os objetos e susas propriedades . Mostrei através das telas como deve ficar a interface pronta

com cada objeto inserido, isso ira facilitar a montagem do layout, sempre de forma direta, na




Objetivo:


dados para armazenar os registros e também codificar a interface gráfica cadastro de

forncedores que criamos no tutorial anterior, tudo de forma simples e objetiva.

Pré-requisito:



Basic do Excel Parte 1 e Parte2” Parte 1, Parte 2, Parte 3, Parte 4, Parte 5, Parte 6, Parte 7,

Parte 8, Parte 9 e Parte 10 deste tutorial.





A criação do banco de dados é simples e facil, porém, temos que tomar certos cuidados para

evitar os erros.Vamos utilizar a planilha 4 a qual deve receber o seguite nome “FORNCEDORES”

, os nomes que irão compor a tabela do banco serão os seguintes:

COD, NOME, CGC, IE, ENDERECO, BAIRRO, CIDADE, ESTADO, CEP e TELEFONE.


Tela 001

Estes campo serão o cabeçalho do banco, para isso insira uma cor cinza escura em toda a linha

que contém o nome dos campos, devendo coloca-lo também em negrito e centralizado.

Tela 002

Agora, iremos formatar os campos conforme segue:

COD, CGC, IE para a categoria números em geral.

Tela 003

NOME, ENDERECO, BAIRRO, CIDADE E e ESTADO para a categoria texto.

Tela 004

CEP para especial cep:

Tela 005

E por último o campo TELEFONE para especial telefone.

Tela 006

Acabamos a criação do banco de dados e suas formatações dos campo, começaremos a codificar

a interface gráfica de cadastro de fornecedores , primeiro o formulário, dentro do mesmo e no

evento initialize insira o código, abaixo o mesmo vai mostrar quantos registros existem no

banco:

Label_N = Application.WorksheetFunction.CountA(Plan4.Columns(1)) - 1

Tela 007

Vamos codificar os botões , o código deve ser inserido no evento c l i c:

Botão Cadastrar:

Dim bd As Database

Dim Rs As Recordset


8.0")

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

If Me.Text_codigo > Me.Label_N Then

If Me.Text_nome = "" Then

Me.Text_nome.Text = "-"

End If

If Me.Text_cgc.Text = "" Then

Me.Text_cgc.Text = "-"

End If

If Me.Text_ie.Text = "" Then

Me.Text_ie.Text = "-"

End If

If Me.Text_endereco.Text = "" Then

Me.Text_endereco.Text = "-"

End If

If Me.Text_bairro.Text = "" Then

Me.Text_bairro.Text = "-"

End If

If Me.Combo_cidade.Text = "" Then

Me.Combo_cidade.Text = "-"

End If

If Me.Combo_estado.Text = "" Then

Me.Combo_estado.Text = "-"

End If

If Me.Text_cep.Text = "" Then

Me.Text_cep.Text = "-"

End If

If Me.Text_telefone.Text = "" Then

Me.Text_telefone.Text = "-"

End If


CADASTRO(1) = UCase(Me.Text_codigo)

CADASTRO(2) = UCase(Me.Text_nome)

CADASTRO(3) = UCase(Me.Text_cgc)

CADASTRO(4) = UCase(Me.Text_ie)

CADASTRO(5) = UCase(Me.Text_endereco)

CADASTRO(6) = UCase(Me.Text_bairro)

CADASTRO(7) = UCase(Me.Combo_cidade)

CADASTRO(8) = UCase(Me.Combo_estado)

CADASTRO(9) = UCase(Me.Text_cep)

CADASTRO(10) = UCase(Me.Text_telefone)

CADASTRO(11) = UCase(Me.Text_codigo.Value)


Dim L, i



If Len(Me.Text_codigo) = 0 Then



Else

For i = 1 To 11


Next i

Me.Text_codigo = ""

Me.Text_nome = ""

Me.Text_cgc.Text = ""

Me.Text_ie.Text = ""

Me.Text_endereco.Text = ""

Me.Text_bairro.Text = ""

Me.Combo_cidade.Text = ""

Me.Combo_estado.Text = ""

Me.Text_cep.Text = ""

Me.Text_telefone.Text = ""


ThisWorkbook.Save

End If

Exit Sub

Else



End If

Botão Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

If Rs("NOME") = Me.Text_nome.Text Then

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

Me.Text_cgc = Rs.Fields("CGC")

Me.Text_ie = Rs.Fields("IE")

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

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

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

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

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

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


End If

LIN = LIN + 1

Rs.MoveNext

Loop

Botão Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("NOME") = Me.Text_nome

Rs("CGC") = Me.Text_cgc

Rs("IE") = Me.Text_ie

Rs("ENDERECO") = Me.Text_endereco

Rs("BAIRRO") = Me.Text_bairro

Rs("CIDADE") = Me.Combo_cidade

Rs("ESTADO") = Me.Combo_estado

Rs("CEP") = Me.Text_cep

Rs("TELEFONE") = Me.Text_telefone

Rs.Update


ThisWorkbook.Save

Botão Apagar:

Dim OFICINA


DE DADOS")



Me.Text_codigo = ""

Me.Text_nome = ""

Me.Text_cgc.Text = ""

Me.Text_ie.Text = ""

Me.Text_endereco.Text = ""

Me.Text_bairro.Text = ""

Me.Combo_cidade.Text = ""

Me.Combo_estado.Text = ""

Me.Text_cep.Text = ""

Me.Text_telefone.Text = ""


ThisWorkbook.Save

End If

Fechar:

Me.hide

Vamos ainda modificar a propriedade ROW SOURCE dos combo cidade e estado da seguinte

forma:

Combo_Cidade:

CIDADES!B2:B5000

Tela 008

Combo_estado:

O procedimento deve ser o mesmo conforme é mostrado na tela acima, apenas o código é

diferente.

CIDADES!C2:C5000

Conclusão:

Neste tutorial ensinei para você a desenvolver o banco de dados, definindo os nomes para os

campos, fazer as formatações dos mesmo, codificar a interface gráfica de cadastro de

fornecedores e fazer a interligação dos combo com outro bacno, tudo de forma simples e




Objetivo:


uma interface gráfica para cadastrar os mecânicos da sua oficina, assim voc~e terá informações

sobre os mesmos podendo manter sempre atualizados e de facíl acesso, tudo de forma bem

prática e objetiva.

Pré-requisito:




Parte 8 , Parte 9, Parte 10 e Parte 11 deste tutorial.




[email protected].

Vamos primeiro definir quais objetos iremos utilizar para a criação da nossa interface grafica,

depois iremso ajustar suas propriedades.

01 Formulário

02 Frame (Moldura)

10 Label

07 TextBox

05 Botões


Formulário:

Name para CADASTRO_MECANICOS

Caption para CADASTRO DE MECANICOS

Height para 293

Width para 449

Frames

Frame 01

Caption para DADOS BASICO

Height para 198

Widht para 426

Frame 02


Height para 126

Widht para 180

Label:

Label01

Caption para CADASTRO DE MECANICOS

Height para 18

Widht para 222

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para NOME

Height para 12

Widht para 30

Label04

Caption para ENDERECO

Height para 12

Widht para 30

Label05

Caption para BAIRRO

Height para 12

Widht para 30

Label06

Caption para CEP

Height para 12

Widht para 30

Label07


Height para 12

Widht para 42

Label08

Caption paraENDEREÇO REGISTRO NO BANCO

Height para 12

Widht para 90

Label9

Name para LABEL_N

Caption para N

Height para 12

Widht para 48

Label10

Caption para CODF

Visble para FALSE

Height para 12

Widht para 48

Botões:

Botão Cadastrar

Name para CADATRAR


Height para 20

Width para 72

Botão Pesquisar

Name para PESQUISAR


Height para 20

Width para 72

Botão Editar

Name para EDITAR

Caption para EDITAR

Height para 20

Width para 72

Botão Apagar

Name para APAGAR

Caption para APAGAR

Height para 20

Width para 72

Botão Fechar

Name para FECHAR

Caption para FECHAR

Height para 20

Width para 72

TextBox:

Textobox 01

Name para TEXTBOX_COD

Height para 16

Width para 72

Textobox 02

Name para TEXTBOX_NOME

Height para 16

Width para 156

Textobox 03

Name para TEXTBOX_ENDERECO

Height para 16

Width para 156

Textobox 04

Name para TEXTBOX_BAIRRO

Height para 16

Width para 156

Textobox 05

Name para TEXTBOX_CEP

Height para 16

Width para 72

Textobox 06

Name para TEXTBOX_TELEFONE

Height para 16

Width para 72

Textobox 07

Name para TEXT_CODF

Height para 16

Width para 30

Visible para FALSE

Com as propriedades dos objetos definidas vamos começar a inserir os objetos, primeiro o

formulário:


Vamos inserir os frames, sendo assim seguimos uma seguência lógica, veja que é bem simples

a criação dos formulários, mas lembro você que procuro ensinar de forma muito simples e direta

para que não tenhas nenhuma dificuldade em criar os sistemas.

Tela 002

Agora inserimos as label:



Tela 004

Agore inserimos os botões:

Tela 005

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica para cadastrar os fornecedores , a definir

os objetos e susas propriedades . Mostrei através das telas como deve ficar a interface pronta

com cada objeto inserido, isso ira facilitar a montagem do layout, sempre de forma direta, na




Objetivo:


dados para armazenar os registros e também codificar a interface gráfica cadastro de

mecânicos que criamos no tutorial anterior, tudo de forma simples e objetiva.

Pré-requisito:




Parte 8, Parte 9 , Parte 10, Parte 11 e Parte 12 deste tutorial.





Vamos utilizar a planilha 5 a qual deve receber o seguite nome “MECANICOS” , os nomes que

irão compor a tabela do banco serão:

COD, NOME,ENDERECO, BAIRRO, CEP e TELEFONE.


Tela 001

Insira uma cor cinza escura em toda a linha que contém o nome dos campos, devendo coloca-

lo também em negrito e centralizado.

Tela 002

Agora, iremos formatar os campos:

COD para a categoria números em geral.

Tela 003

NOME, ENDERECO, BAIRRO para a categoria texto.

Tela 004

CEP para especial cep:

Tela 005

E por último o campo TELEFONE para especial telefone.

Tela 006

começaremos a codificar a interface gráfica de cadastro de fornecedores, primeiro o formulário,

dentro do mesmo e no evento initialize insira o código, abaixo o mesmo vai mostrar quantos

registros existem no banco:


Tela 007


Botão Cadastrar:

Dim bd As Database

Dim Rs As Recordset


8.0")


If Me.TextBox_cod > Me.Label_N Then

If Me.TextBox_nome = "" Then

Me.TextBox_nome.Text = "-"

End If

If Me.TextBox_endereco.Text = "" Then

Me.TextBox_endereco.Text = "-"

End If

If Me.TextBox_bairro.Text = "" Then

Me.TextBox_bairro.Text = "-"

End If

If Me.TextBox_cep.Text = "" Then

Me.TextBox_cep.Text = "-"

End If

If Me.TextBox_telefone.Text = "" Then

Me.TextBox_telefone.Text = "-"

End If


CADASTRO(1) = UCase(Me.TextBox_cod)

CADASTRO(2) = UCase(Me.TextBox_nome)

CADASTRO(3) = UCase(Me.TextBox_endereco)

CADASTRO(4) = UCase(Me.TextBox_bairro)

CADASTRO(5) = UCase(Me.TextBox_cep)

CADASTRO(6) = UCase(Me.TextBox_telefone)

CADASTRO(7) = UCase(Me.TextBox_cod.Value)


Dim L, i



If Len(Me.TextBox_cod) = 0 Then



Else

For i = 1 To 7


Next i

Me.TextBox_cod = ""







ThisWorkbook.Save

End If

Exit Sub

Else



End If

Botão Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

If Rs("NOME") = Me.TextBox_nome.Text Then

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

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

Me.TextBox_endereco = Rs.Fields("ENDERECO")

Me.TextBox_bairro = Rs.Fields("BAIRRO")

Me.TextBox_cep = Rs.Fields("CEP")

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

Me.TextBox_codf.Text = LIN

End If

LIN = LIN + 1

Rs.MoveNext

Loop

Botão Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("NOME") = Me.TextBox_nome

Rs("ENDERECO") = Me.TextBox_endereco

Rs("BAIRRO") = Me.TextBox_bairro

Rs("CEP") = Me.TextBox_cep

Rs("TELEFONE") = Me.TextBox_telefone

Rs.Update


ThisWorkbook.Save

Botão Apagar:

Dim OFICINA


DE DADOS")


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

Me.TextBox_cod = ""







ThisWorkbook.Save

End If

Fechar:

Me.hide

Conclusão:

Neste tutorial ensinei para você a desenvolver o banco de dados, definindo os nomes para os

campos, fazer as formatações dos mesmo, codificar a interface gráfica de cadastro de

mecânicos, tudo de forma simples e objetiva, na próxima parte do tutorial daremos continuidade

no desenvolvimento do aplicativo. Bons estudos e até a próxima parte.


Objetivo:


uma interface gráfica para cadastrar os atendimentos dos cllientes, assim você odera ter um

controle ainda melhor da sua oficna, tudo de forma bem prática e objetiva.

Pré-requisito:




Parte 8 , Parte 9, Parte 10, Parte 11, Parte 12 e Parte 13 deste tutorial.




[email protected].

Definiremos os objetos que iremos utilizar para a criação da nossa interface grafica, depois

iremos ajusta-los.

01 Formulário

02 Frame (Moldura)

11 Label

04 TextBox

01 combobox

05 Botões


Formulário:

Name para CADASTRAR_ATENDIMENTO

Caption para CADASTRO DE ATENDIMENTO

Height para 387

Width para 375

Frames

Frame 01

Caption para DADOS

Height para 198

Widht para 330

Frame 02


Height para 90

Widht para 330

Label:

Label01

Caption para CADASTRAR ATENDIMENTO

Height para 18

Widht para 222

Label02

Caption para COD

Height para 12

Widht para 30

Label03

Caption para MECANICO

Height para 12

Widht para 30

Label04

Caption para CLIENTE

Height para 12

Widht para 42

Label05

Caption para SERVICO

Height para 12

Widht para 42

Label06

Caption para VALOR1

Height para 12

Widht para 30

Label07

Caption para PEÇAS

Height para 12

Widht para 42

Label08

Caption para VALOR2

Height para 12

Widht para 42

Label09


Height para 12

Widht para 90

Label10

Name para LABEL_N

Caption para N

Height para 12

Widht para 48

Label11

Caption para CODF

Visble para FALSE

Height para 12

Widht para 48

Botões:

Botão Cadastrar

Name para COMMAND_CADATRAR


Height para 20

Width para 60

Botão Pesquisar



Height para 20

Width para 60

Botão Editar


Caption para EDITAR

Height para 20

Width para 60

Botão Apagar


Caption para APAGAR

Height para 20

Width para 60

Botão Fechar


Caption para FECHAR

Height para 20

Width para 60

TextBox:

Textobox 01

Name para COD

Height para 16

Width para 72

Textobox 02


Height para 16

Width para 72

Textobox 03

Name para TEXT-VALOR2

Height para 16

Width para 156

Textobox 04

Name para TEXT_CODF

Height para 16

Width para 30

Visible para FALSE

ComboBox:

ComboBox 01

Name para COMBOBOX_MECANICO

Height para 16

Width para 156

ComboBox 02

Name para COMBOBOX_CLLIENTE

Height para 16

Width para 156

ComboBox 03

Name para COMBOBOX_SERVICO

Height para 16

Width para 156

ComboBox 04

Name para COMBOBOX_PECAS

Height para 16

Width para 78


formulário:


Vamos inserir os frames de forma muito simples e direta.

Tela 002

Agora inserimos as label:



Tela 004

Vamos inserir os combobox:

Tela 005


Tela 006

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica para cadastrar os atendimento durante sua

jornada de trabalho , a definir os objetos e as propriedades. Mostrando através das telas como

deve ficar a interface pronta, isso ira facilitar a montagem do layout, sendo sempre de forma

direta, na próxima parte do tutorial daremos continuidade no desenlvovimento do aplicativo.



Objetivo:


dados para armazenar os registros e também codificar a interface gráfica atendimento de

clientes que desenvolvemos no tutorial anterior, sempre de forma simples e objetiva.

Pré-requisito:




Parte 8, Parte 9 , Parte 10, Parte 11, Parte 12, Parte 13 e Parte 14 deste tutorial.





Vamos utilizar a planilha 9 na mesma coloque o seguite nome “ATENDIMENTO” , os nomes

que irão compor a tabela do banco serão:

COD, MECANICO, CLIENTE, SERVICO, VALOR, PECAS, VALOR2.


Tela 001

Insira uma cor cinza escura, negrio e centralizado em toda a linha que contém o nome dos

campos.

Tela 002

Agora, iremos formatar os campos:

COD para a categoria números em geral.

Tela 003

MECANICO, CLIENTE, SERVICO, PECAS para categoria texto.

Tela 004

VALOR E VALOR2 para contabil:

Tela 005

Começaremos a codificar a interface gráfica de cadastro deatendimento, primeiro o formulário,

dentro do mesmo e no evento initialize insira o código:


Tela 006


Botão Cadastrar:

Dim bd As Database

Dim Rs As Recordset


8.0")

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

If Me.cod > Me.Label_N Then

If Me.ComboBox_mecanico = "" Then

Me.ComboBox_mecanico.Text = "-"

End If

If Me.ComboBox_cliente.Text = "" Then

Me.ComboBox_cliente.Text = "-"

End If

If Me.ComboBox_servico.Text = "" Then

Me.ComboBox_servico.Text = "-"

End If



End If

If Me.ComboBox_pecas.Text = "" Then

Me.ComboBox_pecas.Text = "-"

End If

If Me.Text_valor2.Text = "" Then

Me.Text_valor2.Text = "-"

End If


CADASTRO(1) = UCase(Me.cod)

CADASTRO(2) = UCase(Me.ComboBox_mecanico)

CADASTRO(3) = UCase(Me.ComboBox_cliente)

CADASTRO(4) = UCase(Me.ComboBox_servico)


CADASTRO(6) = UCase(Me.ComboBox_pecas)

CADASTRO(7) = UCase(Me.Text_valor2)

CADASTRO(8) = UCase(Me.cod.Value)


Dim L, i



If Len(Me.cod) = 0 Then



Else

For i = 1 To 8


Next i

Me.cod.Text = ""

Me.ComboBox_cliente.Text = ""

Me.ComboBox_mecanico.Text = ""

Me.ComboBox_pecas.Text = ""

Me.ComboBox_servico.Text = ""


Me.Text_valor2.Text = ""


ThisWorkbook.Save

End If

Exit Sub

Else



End If

Botão Pesquisar:

Dim bd As Database

Dim Rs As Recordset

Dim LIN


8.0")


LIN = 2

Do Until Rs.EOF

If Rs("CLIENTE") = Me.ComboBox_cliente.Text Then


Me.ComboBox_mecanico = Rs.Fields("MECANICO")

Me.ComboBox_servico = Rs.Fields("SERVICO")


Me.ComboBox_pecas = Rs.Fields("PECAS")

Me.Text_valor2 = Rs.Fields("VALOR2")


End If

LIN = LIN + 1

Rs.MoveNext

Loop

Botão Editar:

Dim bd As Database

Dim Rs As Recordset


8.0")


Rs.EDIT

Rs("MECANICO") = Me.ComboBox_mecanico

Rs("CLIENTE") = Me.ComboBox_cliente

Rs("SERVICO") = Me.ComboBox_servico


Rs("PECAS") = Me.ComboBox_pecas

Rs("VALOR2") = Me.Text_valor2

Rs.Update


ThisWorkbook.Save

Botão Apagar:

Dim OFICINA


DE DADOS")



Me.cod.Text = ""

Me.ComboBox_cliente.Text = ""

Me.ComboBox_mecanico.Text = ""

Me.ComboBox_pecas.Text = ""

Me.ComboBox_servico.Text = ""


Me.Text_valor2.Text = ""


ThisWorkbook.Save

End If

Fechar:

Me.hide

Conclusão:

Neste tutorial ensinei para você a desenvolver o banco de dados, definir a formatação dos

campos, codificar a interface gráfica de cadastro de atendimento, tudo de forma simples e




Objetivo:


uma interface gráfica que vai servir como acesso, ou seja, será um menú para acessar as demais

intefaces que criamos nos tutoriais anteriores, também iremos codificar a mesma, tudo de forma

bem prática e objetiva.

Pré-requisito:




Parte 8 , Parte 9, Parte 10, Parte 11, Parte 12, Parte 13, Parte 14 e Parte 15 deste tutorial.




[email protected].

Definiremos os objetos que iremos utilizar para a criação da nossa interface grafica, depois

iremos ajusta-los.

01 Formulário

01 Frame (Moldura)

01 Label

09 Botões


Formulário:

Name para PRINCIPAL

Caption para PRINCIPAL

Height para 228

Width para 327

Frames

Frame 01

Caption para CADASTROS

Height para 132

Widht para 282

Label:

Label01

Caption para ACESSAR INTERFACES

Height para 18

Widht para 192

Botões:

Botão Mecanicos

Name para COMMAND_MECANICOS

Caption para MECANICOS

Height para 24

Width para 72

Botão Pecas

Name para COMMAND_PECAS

Caption para PECAS

Height para 24

Width para 72

Botão Cidade

Name para COMMAND_CIDADES

Caption para CIDADES

Height para 24

Width para 72

Botão Cliente

Name para COMMAND_CLIENTES

Caption para CLLIENTES

Height para 24

Width para 72

Botão Fornecedor

Name para COMMAND_FORNECEDOR

Caption para FORNECEDOR

Height para 24

Width para 72

Botão Servicos

Name para COMMAND_SERVICOS

Caption para SERVICOS

Height para 24

Width para 72

Botão Veiculos

Name para COMMAND_VEICULOS

Caption para VEICULOS

Height para 24

Width para 72

Botão Atendimento

Name para COMMAND_ATENDIMENTO

Caption para ATENDIMENTO

Height para 24

Width para 72

Botão Fechar


Caption para FECHAR

Height para 24

Width para 72


formulário:


Vamos inserir o frame.

Tela 002

Agora inserimos a label:


Vamos inserir os botões:

Tela 004

Vamos agora fazer a codificação destes botões a qual é muito simples, seguindo uma lógica a

função de cada botão é abrir a interface correspondente, assim sendo os códigos serão quase

iguais, apenas diferenciando o nome de cada interface.

Irei mostrar apenas o primeiro código com a visualização de telas os demais pasta seguir o

mesmo procedimento.

Botão Mecanicos, o codigo deve ser inserido dentro da propriedade click.

CADASTRO_MECANICOS.Show

Tela 005

Botão Peças:

CADASTRO_PECAS.Show

Botão Cidades:

CADASTRO_CIDADES.Show

Botão Clientes:

CADASTRO_CLIENTES.Show

Botão Fornecedor:

CADASTRO_FORNECEDOR.Show

Botão Serviços:

CADASTRO_SERVICOS.Show

Botão Veiculos:

CADASTRO_VEICULOS.Show

Botão Atendimento:

CADASTRAR_ATENDIMENTO.Show

Botão Fechar:

Me.Hide

Conclusão:

Neste tutorial ensinei você a criar a interface gráfica princial que vai servir como menú para

acessar as demais interfaces e também ira aprender a codifica-la. Mostrando através das telas

como deve ficar a interface pronta, sendo assim encerramos a criação deste sistema, espero

que o mesmo seja útil de alguma manieira. Bons estudos e até o próximo tutorial.

Documents

Excel Avancado Sistema Oficina