Sistema para Oficina Mecânica - Interface Gráfica de Cidades e Estados - Parte 5

 

Objetivo:

 

O objetivo deste é dar continuidade ao desenvolvimento do sitema, neste tutorial irei ensinar 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:

 

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

 

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: erico_2223@yahoo.com.br.

 

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

Caption para DADOS BASICOS

Height para 156

Widht para 300

 

Frame 02

Caption para COMANDOS

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

Caption para REGISTRO NO BANCO

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

Name para COMMAND_CADASTRAR

Caption para CADASTRAR

Height para 20

Width para 60

 

Botão Pesquisar

Name para COMMAND_PESQUISAR

Caption para 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_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.

 

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

 

Vamos  inserir os frames  e as label.

 

Tela 002 (Label modificada)

 

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:

 

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

 

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

 

Dim bd As Database

Dim Rs As Recordset

 

Set bd = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "excel 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

 

Dim CADASTRO(1 To 4)

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 OFICINA As Object

Dim L, i

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

L = OFICINA.Rows.Count + 1

If Len(Me.cod_cidade) = 0 Then

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

Else

 

For i = 1 To 4

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

Next i

Me.cod_cidade.Text = ""

Me.Text_cidade.Text = ""

Me.Text_estado.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 casdastrar."

 

End If

 

Botão Pesquisar:

 

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

 

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")

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

 

Rs.EDIT

Rs("CIDADE") = Me.Text_cidade

Rs("ESTADO") = Me.Text_estado

Rs.Update

 

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

ThisWorkbook.Save

 

Botão Apagar:

 

Dim OFICINA

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

If OFICINA = vbYes Then

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

 

Me.cod_cidade.Text =""

Me.Text_cidade.Text =""

Me.Text_estado.Text = ""

 

MsgBox "DADOS EXCLUÍDO COM SUCESSO."

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 próxima parte do tutorial daremos continuidade no desenlvovimento do aplicativo. Bons estudos e até a próxima parte.

 

---

• SISTEMA PARA UMA OFICINA MECÂNICA
• Sistema Para uma Oficina Mecânica - Primeira Interface Gráfica- Parte 1
• Sistema Para uma Oficina Mecânica - Banco de Dados e Codificação - Parte 2
• Sistema Para uma Oficina Mecânica - Interface de Cadastro de Peças - Parte 3
• Sistema Para uma Oficina Mecânica - Banco de Dados e Codificação - Parte 4
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Cidades e Estados - Parte 5
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Clientes - Parte 6
• Sistema Para uma Oficina Mecânica - Banco de Dados Clientes - Parte 7
• Sistema Para uma Oficina Mecânica - Interface Gráfica para Cadastro de Serviços - Parte 8
• Sistema Para uma Oficina Mecânica - Banco de Dados Serviços- Parte 9
• Sistema Para uma Oficina Mecânica - Interface Gráfica para Cadastro de Fornecedores - Parte 10
• Sistema Para uma Oficina Mecânica - Banco de Dados Fornecedores - Parte 11
• Sistema Para uma Oficina Mecânica - Interface Gráfica para Cadastro de Mecânicos - Parte 12
• Sistema Para uma Oficina Mecânica - Banco de Dados Mecânicos - Parte 13
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Cadastro de Atendimentos - Parte 14
• Sistema Para uma Oficina Mecânica - Banco de Dados Atendimentos - Parte 15
• Sistema Para uma Oficina Mecânica - Interface Gráfica de Acesso - Conclusão