├── IMAGENS ├── LOGIN.png ├── SENHAS.png ├── USUÁRIOS.png ├── CADASTRAR.png └── CONSULTAR.png ├── MÓDULOS ├── Módulo_GLOBAL.bas └── Módulo_CONSULTA.bas ├── SISTEMA DE CADASTRO.xlsm ├── USERFORMS ├── UserFormLOGIN.frm ├── UserFormLOGIN.frx ├── UserFormSENHA.frm ├── UserFormSENHA.frx ├── UserFormSISTEMA.frm ├── UserFormSISTEMA.frx ├── UserFormUSUARIO.frm └── UserFormUSUARIO.frx ├── SISTEMA DE CADASTRO - BD.accdb ├── LICENSE └── README.md /IMAGENS/LOGIN.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/IMAGENS/LOGIN.png -------------------------------------------------------------------------------- /IMAGENS/SENHAS.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/IMAGENS/SENHAS.png -------------------------------------------------------------------------------- /IMAGENS/USUÁRIOS.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/IMAGENS/USUÁRIOS.png -------------------------------------------------------------------------------- /IMAGENS/CADASTRAR.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/IMAGENS/CADASTRAR.png -------------------------------------------------------------------------------- /IMAGENS/CONSULTAR.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/IMAGENS/CONSULTAR.png -------------------------------------------------------------------------------- /MÓDULOS/Módulo_GLOBAL.bas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/MÓDULOS/Módulo_GLOBAL.bas -------------------------------------------------------------------------------- /SISTEMA DE CADASTRO.xlsm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/SISTEMA DE CADASTRO.xlsm -------------------------------------------------------------------------------- /MÓDULOS/Módulo_CONSULTA.bas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/MÓDULOS/Módulo_CONSULTA.bas -------------------------------------------------------------------------------- /USERFORMS/UserFormLOGIN.frm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormLOGIN.frm -------------------------------------------------------------------------------- /USERFORMS/UserFormLOGIN.frx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormLOGIN.frx -------------------------------------------------------------------------------- /USERFORMS/UserFormSENHA.frm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormSENHA.frm -------------------------------------------------------------------------------- /USERFORMS/UserFormSENHA.frx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormSENHA.frx -------------------------------------------------------------------------------- /SISTEMA DE CADASTRO - BD.accdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/SISTEMA DE CADASTRO - BD.accdb -------------------------------------------------------------------------------- /USERFORMS/UserFormSISTEMA.frm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormSISTEMA.frm -------------------------------------------------------------------------------- /USERFORMS/UserFormSISTEMA.frx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormSISTEMA.frx -------------------------------------------------------------------------------- /USERFORMS/UserFormUSUARIO.frm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormUSUARIO.frm -------------------------------------------------------------------------------- /USERFORMS/UserFormUSUARIO.frx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/felipebacelo/ApplicationVBA/HEAD/USERFORMS/UserFormUSUARIO.frx -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | MIT License 2 | 3 | Copyright (c) 2020 Felipe Bacelo Rodrigues 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy 6 | of this software and associated documentation files (the "Software"), to deal 7 | in the Software without restriction, including without limitation the rights 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 9 | copies of the Software, and to permit persons to whom the Software is 10 | furnished to do so, subject to the following conditions: 11 | 12 | The above copyright notice and this permission notice shall be included in all 13 | copies or substantial portions of the Software. 14 | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 21 | SOFTWARE. 22 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 |

2 | 3 | 4 | 5 | 6 | 7 |

8 | 9 | # ApplicationVBA 10 | Aplicação em VBA Excel com Banco de Dados Access SQL 11 | 12 | A aplicação foi desenvolvida a partir do modelo de cadastro físico do programa Cidade Legal, seguindo o conteúdo padrão do mesmo, a partir do conceito CRUD (Create, Read, Update, Delete), que representa em acrônimo as quatro operações básicas utilizadas em bases de dados relacionais fornecidas aos utilizadores do sistema. 13 | 14 | ### Desenvolvimento 15 | 16 | Desenvolvido em Microsoft VBA Excel com banco de dados em Microsoft Access SQL. 17 | *** 18 | ### Requisitos 19 | 20 | * Habilitar Macros 21 | * Habilitar Guia de Desenvolvedor 22 | 23 | ### Referências às Bibliotecas 24 | 25 | * Visual Basic For Applications 26 | * Microsoft Excel 16.0 Object Library 27 | * OLE Automation 28 | * Microsoft Office 16.0 Object Library 29 | * Microsoft Forms 2.0 Object Library 30 | * Microsoft ActiveX Data Objects 6.1 Library 31 | * Ref Edit Control 32 | 33 | ### Compatibilidade 34 | 35 | Esta aplicação foi desenvolvida no Excel 2019 (64 bits) e testado no Excel 2013 (64 bits). Sua compatibilidade é garantida para a versão 2013 e superiores. Sua utilização em versões anteriores pode ocasionar em não funcionamento do mesmo. 36 | 37 | ### Usabilidade 38 | 39 | Para utilizar o sistema de cadastro o usuário deverá: 40 | 41 | * Realizar o download do arquivo ZIP: __ApplicationVBA__. 42 | * Salvar o arquivo __SISTEMA DE CADASTRO.xlsm__ e __BD SISTEMA DE CADASTRO.accdb__ na mesma pasta de trabalho. 43 | 44 | ### Usuários e Senhas 45 | 46 | Os usuários e senhas pré-definidas são: 47 | 48 | * ADM 49 | * ADM1 – 12345 50 | * ADM2 – 12345 51 | * ADM3 – 12345 52 | *** 53 | ### Passo a Passo 54 | 55 | 1º Passo - Abrir o arquivo __SISTEMA DE CADASTRO.xlsm__ com usuário e senha: 56 | 57 | ![LOGIN](https://github.com/felipebacelo/Sistema_Cadastro/blob/master/IMAGENS/LOGIN.png) 58 | 59 | 2º Passo - Após realizar o login, a tela a ser exibida será a seguinte: 60 | 61 | ![CADASTRAR](https://github.com/felipebacelo/Sistema_Cadastro/blob/master/IMAGENS/CADASTRAR.png) 62 | 63 | Nesta tela o usuário possui acesso a todas as informações disponíveis, de acordo com seu nível de usuário, determinado pelo usuário ADM. 64 | 65 | 3º Passo - Além de cadastrar o usuário também conseguirá realizar consulta a itens já cadastrados anteriormente, através de um filtro avançado: 66 | 67 | ![CONSULTAR](https://github.com/felipebacelo/Sistema_Cadastro/blob/master/IMAGENS/CONSULTAR.png) 68 | 69 | 4º Passo - O usuário poderá redefinir sua senha atual a qualquer momento, através do Gerenciador de Senhas: 70 | 71 | ![SENHAS](https://github.com/felipebacelo/Sistema_Cadastro/blob/master/IMAGENS/SENHAS.png) 72 | 73 | 5º Passo - O usuário nível 4 é o único com permissão para adicionar, editar e deletar demais usuários no sistema através do Gerenciador de Usuários: 74 | 75 | ![USUÁRIOS](https://github.com/felipebacelo/Sistema_Cadastro/blob/master/IMAGENS/USU%C3%81RIOS.png) 76 | 77 | *** 78 | ### Exemplos de Códigos Utilizados 79 | 80 | Código utilizado para conexão com banco de dados Microsoft Access SQL: 81 | ```vba 82 | Option Explicit 83 | Global BD As New ADODB.Connection 84 | 85 | Sub ABRIRCONEXAO() 86 | 87 | Dim CS As String 88 | Dim ARQ As String 89 | On Error Resume Next 90 | 91 | ARQ = ThisWorkbook.Path & "\" & "BD SISTEMA DE CADASTRO.accdb;" 92 | 93 | CS = "Provider=Microsoft.ACE.OLEDB.12.0;" _ 94 | & "Data Source=" & ARQ _ 95 | & "Persist Security Info=False;" 96 | 97 | BD.Close 98 | BD.Open CS 99 | 100 | End Sub 101 | ``` 102 | 103 | Código utilizado para edição dos registros salvos no banco de dados Microsoft Access SQL: 104 | ```vba 105 | Sub EDITARREGISTROS(ID As Long, TODASCOLUNAS As String, REGISTRO() As String) 106 | 107 | Dim SQL As String 108 | Dim COLUNA() As String 109 | Dim I As Integer 110 | Dim STRINGFINAL As String 111 | Dim RS As New ADODB.Recordset 112 | 113 | COLUNA = Split(TODASCOLUNAS, ",") 114 | 115 | For I = 1 To 81 116 | STRINGFINAL = STRINGFINAL & COLUNA(I - 1) & "=" & REGISTRO(I) 117 | If I < 81 Then STRINGFINAL = STRINGFINAL & "," 118 | Next 119 | 120 | STRINGFINAL = "SET " & STRINGFINAL 121 | SQL = "Update CADASTROS " & STRINGFINAL 122 | SQL = SQL & " WHERE ID LIKE " & ID 123 | 124 | RS.Open SQL, BD 125 | 126 | MsgBox "CADASTRO EDITADO COM SUCESSO!", vbInformation, "INFORMAÇÃO" 127 | 128 | End Sub 129 | ``` 130 | *** 131 | ### Licenças 132 | 133 | _MIT License_ 134 | _Copyright © 2020 Felipe Bacelo Rodrigues_ 135 | --------------------------------------------------------------------------------