Sistema Agenda Consulta. Parte 4

 

Objetivo:

 

O objetivo deste tutorial é  continuar o desenvolvimento do sistema agenda consulta, nesta tutorial iremos  criar o banco de dados para armazenar os registros, para isso vamos utilizar a primeira planilha, também iremos codificar o formulário. Tudo de forma simples e direta, mostrado através de telas.

 

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

 

Vamos começar desenvolvendo o banco de dados, utilizando a própria planilha do excel ,  utilizaremos a plan1,  modifique  o nome da mesma para “MEDICOS”. Feito isso vamos inserir os seguintes campos na mesma:

 

COD, NOME, AREA, TELEFONE, EMAIL.

 

Tela 001

 

Vamos inserir uma cor cinza  no cabeçalho e deixar o mesmo em negrito.

 

Tela 002

 

Vamos formatar os campos da seguinte maneira:

 

COD  colocar na categoria “número”.

 

Tela 003

 

O procedimento para formatação dos demais campos é quase a mesma, modificando apenas o formato para cada campo, sendo assim basta seguir a descrição relacionada abaixo:

 

CURSO, NOME e EMAIL  inserir na categoria “texto”.

 

TELEFONE para  categoria “ Especial, Telefone”.

 

Concluido a criação do banco de dados, iniciaremos a codificação do formulário médicos, insira  o código abaixo dentro formulário, no evento initialize.

 

Me.N = Application.WorksheetFunction.CountA(Plan1.Columns(1)) - 1

 

Tela 004

 

Vamos codificar os botões, o código será inserido dentro do evento clic dos mesmos.

 

Botão 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("MEDICOS$", dbOpenDynaset)

 

If Me.Text_cod > Me.N Then

 

                    If Me.Text_nome = "" Then

                        Me.Text_nome.Text = "-"

                    End If

                    If Me.Text_area.Text = "" Then

                        Me.Text_area.Text = "-"

                    End If

                    If Me.Text_email.Text = "" Then

                        Me.Text_email.Text = "-"

                    End If

                    If Me.Text_telefone.Text = "" Then

                        Me.Text_telefone.Text = "-"

                    End If

 

                Dim CADASTRO(1 To 6)

                    CADASTRO(1) = UCase(Me.Text_cod)

                    CADASTRO(2) = UCase(Me.Text_nome)

                    CADASTRO(3) = UCase(Me.Text_area)

                    CADASTRO(4) = UCase(Me.Text_telefone)

                    CADASTRO(5) = UCase(Me.Text_email)

 

                    CADASTRO(6) = UCase(Me.Text_cod.Value)

 

            Dim Consulta As Object

            Dim L, i

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

            L = Consulta.Rows.Count + 1

                        If Len(Me.Text_cod) = 0 Then

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

                               Else

 

                                                For i = 1 To 6

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

 

                                                    Next i

                            Me.Text_cod = ""

                            Me.Text_nome = ""

                            Me.Text_area.Text = ""

                            Me.Text_email.Text = ""

                            Me.Text_telefone.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 registro no banco para casdastrar."

 

End If

 

Tela 005

 

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

 

LIN = 2

Do Until Rs.EOF

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

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

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

Me.Text_area = Rs.Fields("AREA")

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

Me.Text_email = Rs.Fields("EMAIL")

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

 

Rs.Edit

Rs("NOME") = Me.Text_nome

Rs("AREA") = Me.Text_area

Rs("TELEFONE") = Me.Text_telefone

Rs("EMAIL") = Me.Text_email

Rs.Update

 

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

    ThisWorkbook.Save

 

Botão Apagar:

 

Dim Consulta

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

If Consulta = vbYes Then

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

 

                            Me.Text_cod = ""

                            Me.Text_nome = ""

                            Me.Text_area.Text = ""

                            Me.Text_email.Text = ""

                            Me.Text_telefone.Text = ""

 

        MsgBox "DADOS EXCLUÍDO COM SUCESSO."

    ThisWorkbook.Save

End If

 

Botão Voltar:

 

Me.hide

 

Para que os códigos funcione, devemos ativar uma biblioteca chamada “Microsoft DAO”, com o editor do visual basic ativado, clique em ferramentas, referências. Depois encontre e selecione a mesma, abaixo a representação deste procedimento através da tela.

 

Tela 006

 

Conclusão:

 

Neste tutorial ensinei a criar o banco de dados, inserindo e definindo as formatações necessárias para cada campo, também codificamos o formulário “médicos”, inserindo os códigos no mesmo, ativando a biblioteca microsoft dao,  tudo de forma simples, pratica e objetiva e mostrado através de telas. Na próxima parte do tutorial daremos continuidade no desenlvovimento do aplicativo. Bons estudos e até a próxima parte.

 

---

Confira todas as partes deste tutorial:

• sistema de agendamento de consultas - parte 1
• sistema de agendamento de consultas - parte 2
• sistema de agendamento de consultas - parte 3
• sistema de agendamento de consultas - parte 4
• sistema de agendamento de consultas - parte 5
• sistema de agendamento de consultas - parte 6

CURSO PROFISSIONALIZANTE DE INFORMÁTICA

Curso Técnico Profissionalizante Completo em Informática - Windows 10 - Word - Excel - Access- PowerPoint - Photoshop - Redes - Lógica de Programação - Delphi - VB.NET São 68 Cursos - 3440 Vídeo Aulas - 396:07 horas 68 Certificados de Conclusão e Acesso Vitalício

Domine Todos os Recursos de Informática Exigidos pelo Mercado de Trabalho, Através de Exemplos Práticos, Completos e Úteis, Detalhadamente Explicados - Passo a Passo

Para Todos os Detalhes, Acesse:     https://juliobattisti.com.br/informatica-curso-completo-1v.asp