Sistema Agenda Consulta. Parte 5

 

Objetivo:

 

O objetivo deste tutorial é  continuar o desenvolvimento do sistema agenda consulta, nesta tutorial iremos  crdesenvolver o banco de dados para armazenar os registros, para isso vamos utilizar a segunda planilha, também iremos codificar o formulário Paciente. Tudo de forma simples e direta, 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, Parte 3 e Parte 4 deste tutorial.

 

Começaremos  desenvolvendo o banco de dados,  utilizaremos a plan2,  modifique  o nome da mesma para “PACIENTE”, depois iremos inserir os seguintes campos:

 

COD, NOME, TELEFONE, EMAIL.

 

Tela 001

 

Feito isso, iremos inserir na primeira linha uma cor cinza e negrito, assim ficara destacado como cabeçalho.

 

Tela 002

 

Agora iremos fazer a formatação dos campos.

 

COD  colocar na categoria “número”.

 

Tela 003

 

O procedimento para formatação dos demais campos é quase a mesma, então irei apenas informar como deve ser a formatção dos demais campos, não havendo necessidade de mostrar em telas.

 

NOME e EMAIL  inserir na categoria “texto”.

 

TELEFONE para  categoria “ Especial, Telefone”.

 

Terminado a criação do banco, bem como ajustados os campos, vamos passar para a codificação do formulário “paciente”.Insira  o código abaixo dentro formulário, no evento initialize.

 

Me.N = Application.WorksheetFunction.CountA(Plan2.Columns(1)) – 1

 

Tela 004

 

Codificaremos agora os botões, devendo ser inserido o codigo abaixo sempre dentro do evento clic do botão.

 

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

 

If Me.Text_cod > Me.N Then

 

                    If Me.TextBox_nome = "" Then

                        Me.TextBox_nome.Text = "-"

                    End If

                    If Me.TextBox_telefone.Text = "" Then

                        Me.TextBox_telefone.Text = "-"

                    End If

                    If Me.TextBox_email.Text = "" Then

                        Me.TextBox_email.Text = "-"

                    End If

 

                Dim CADASTRO(1 To 5)

                    CADASTRO(1) = UCase(Me.Text_cod)

                    CADASTRO(2) = UCase(Me.TextBox_nome)

                    CADASTRO(3) = UCase(Me.TextBox_telefone)

                    CADASTRO(4) = UCase(Me.TextBox_email)

 

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

 

            Dim Consulta As Object

            Dim L, i

            Set Consulta = Plan2.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 5

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

 

                                                    Next i

                            Me.Text_cod = ""

                            Me.TextBox_nome = ""

                            Me.TextBox_telefone.Text = ""

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

 

LIN = 2

 

Do Until Rs.EOF

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

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

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

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

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

 

Rs.Edit

Rs("NOME") = Me.TextBox_nome

Rs("TELEFONE") = Me.TextBox_telefone

Rs("EMAIL") = Me.TextBox_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

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

 

                            Me.Text_cod = ""

                            Me.TextBox_nome = ""

                            Me.TextBox_telefone.Text = ""

                            Me.TextBox_email.Text = ""

 

        MsgBox "DADOS EXCLUÍDO COM SUCESSO."

    ThisWorkbook.Save

End If

 

Botão Voltar:

 

Me.hide

 

Conclusão:

 

Neste tutorial ensinei a desenvolver  o banco de dados para o sistema,  definindo as formatações necessárias para cada campo. Codificamos também  o formulário “paciente”, inserindo os códigos,  tudo de forma simples,  e objetiva  mostrando através de telas para melhor entendimento. Na próxima parte do tutorial daremos continuidade no desenlvovimento do sistema. 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