terça-feira, 18 de abril de 2017

Aula 1123 WebDev22 curso 023 Login - Trocando Conexão









Video no Youtube Se Gostou clique aqui para dar joinha



help1




Primeira Pagina - WebDev - 001/...
Instalação Primeira Pagina , Instalar Conexao 10 WebDev 22 - 002/...
Criando Zoning/Menu/Modelo Pagina - Webdev 22 - 003/...
Arrumando webDev Servidor Was 10 Conexões no Could - WebDev22 - 004/...
Cadastro de Sites uteis - WebDev22 - 005/...
Configurar botoes/Aba Sites Uteis - WebDev22 - 006/...
Planos - Como Configurar - Bandeau défilant - WebDev22 - 007/...
Html/Css/JavaScript - Composant Web - WebDev22 - 008/...
Pagina Link - Entrar Pagina - WebDev22 - 009
Jquery - Explode - WebDev22 - 010
Jquery - Muda cor/esconde/delay/mostra/muda texto - WebDev22 - 011
Jquery - Cor Background/Imagen/Visibilidade- Diversos 2 - WebDev22 - 012
Imagen Zoom - WebDev22 - 013
Upload Imagen - WebDev22 14/...
Planos / Criar Pagina - WebDev22 15/...
Criando Select Cliente/Representante - WebDev22 16/... Aula 1116
Criando Abas - Tabelas Relacao Clientes - WebDev22 17/... - Aula 1117
Combox Tecnico/Status - WebDev22 18/... - Aula 1118
Ultimos Campos Atendimento - WebDev22 19/... Aula 1119
Gravar Atendimento - WebDev22 20/... Aula 1120
Deploy Sistema Chamado WebDev 22 21 / Aula 1121
Login - Pagina WebDev 22 22/... Aula 1122
Login Trocando Conexão - WebDev 22 23/... Aula 1123
Tabela Ancorar Coluna - WebDev 22 24/... Aula 1124




Na Aula de Hoje ,
Na Hora de Dar Login
Trocar a Conexão

In today's class,
At the Time of Login
Change the Connection


En la clase de hoy,
En el dar tiempo de sesión
Cambie la conexión






// TROCAR CONEXÃO AO FAZER LOGIN
// CHANGE CONNECTION BY MAKING LOGIN
// cambiar la conexión al inicio de sesión

IF EDT_SENHA="senha"  THEN   
    BTN_ENTRAR..Visible=True   
    HCloseConnection(Matos_hyperfil_server)   
    Matos_hyperfil_server..Password = "SENHA_BANCO"   
    Matos_hyperfil_server..User ="admin"   
    Matos_hyperfil_server..Server = "localhost"
    Matos_hyperfil_server..Provider = hAccessHFClientServer
    Matos_hyperfil_server..Database = "base_nome"    
    Matos_hyperfil_server..CryptMethod = hCryptNo
    IF HOpenConnection(Matos_hyperfil_server) = False THEN
       Info("problema na conexao",HErrorInfo(hErrMessage))      
    END
END




//  TROCAR CONEXÃO AO FAZER LOGIN COM COMENTARIO
// CHANGE CONNECTION BY MAKING LOGIN WITH COMMENT
// CONEXIÓN DE CAMBIO CON REGISTRO DE COMENTARIO

// COMO NÃO CRIEI TABELAS, PARA EMAILS, PARA CONTROLAR SENHAS DE ACESSO
// VOU FAZER ISSO MANUALMENTE, E EM FUTURAS AULAS, FAREMOS ISSO
//----------------------------------------------------------------------
// HOW I DID NOT CREATE TABLES, FOR EMAILS, TO CONTROL PASSWORDS OF ACCESS
// I WILL DO IT MANUALLY, AND IN FUTURE LESSONS, WE WILL DO IT
//----------------------------------------------------------------------
// CÓMO NO crean las tablas a los correos electrónicos PARA EL CONTROL DE ACCESO CONTRASEÑA
// Lo voy a hacer a mano, y las futuras clases, que la voluntad
//----------------------------------------------------------------------
IF EDT_SENHA="senha"  THEN   
    // SE EDT SENHA FOR IGUAL A SENHA ENTÃO
    // IF EDT PASSWORD IS THE PASSWORD
    // CONTRASEÑA SE EDT PARA ENTONCES misma contraseña   
    //--------------------------------------------------------
    // ESSA SENHA , FIQUE A VONTADE PARA ESCOLHER
    // THIS PASSWORD, GIVE THE WILL TO CHOOSE
    // Esta contraseña, suspender el albedrío para escoger
    BTN_ENTRAR..Visible=True   
    // VAMOS MOSTRAR BOTAO ENTRAR, PARA ENTRAR NA PAGINA
    // LET'S SHOW BOTTLE ENTER, TO ENTER THE PAGE
    // Vamos a mostrar botón ENTER para entrar en la página
     //--------------------------------------------------------
    // VAMOS TROCAR A CONEXÃO DESSA SENHA , ESSE É O SEGREDO
    // LET'S CHANGE THE CONNECTION OF THIS PASSWORD, THIS IS THE SECRET
    // Vamos a cambiar el password Conexión QUE, este es el secreto   
    HCloseConnection(Matos_hyperfil_server)   
    // FECHANDO CONEXÃO DA MINHA CONEXÃO HYPERFILE SERVER
    // CLOSING MY HYPERFILE SERVER CONNECTION
    // CIERRE de mi conexión servidor de conexión HyperFile
    Matos_hyperfil_server..Password = "SENHA_BANCO"   
    // AQUI ESTOU COLOCANDO A SENHA DO BANCO HYPERFILE
    // HERE I AM PUTTING THE PASSWORD OF THE HYPERFILE BANK
    // AQUÍ estoy poniendo BANCO PASS HyperFile   
    Matos_hyperfil_server..User ="admin"   
    // USUARIO DO BANCO HYPERFILE
    // BANK HYPERFILE USER
    // BANCO DE USUARIO HyperFile
    Matos_hyperfil_server..Server = "localhost"
    // AQUI COLOCO MEU SERVIDOR, COMO ESTOU DENTRO DO COULD , SERÁ LOCALHOST,
    // CASO TIVESSE NUM DESKTOP,OU MOBILE, SE COLOCARIA O ENDERECO IP DO COULD
    //--------------------------------------------------------   
    // HERE I PLACE MY SERVER, AS I AM INSIDE THE COULD, WILL BE LOCALHOST,
    // IF YOU HAD A DESKTOP, OR MOBILE, YOU WOULD PLACE THE COULD IP ADDRESS
    //--------------------------------------------------------   
    // Allí yacía mi servidor, ¿cómo podría yo estoy dentro, localhost,
    // Caso había en escritorio o móvil, SI poner la dirección IP DE COULD
    Matos_hyperfil_server..Provider = hAccessHFClientServer
    //    Matos_hyperfil_server..Provider=hAccessHF7//"HFSQL Classic (Multi-user or Single-user)"   
    // AQUI PODERIA OPTAR POR USAR CLIENTE SERVER OU CLASSIC
    // NO MEU CASO VOU USAR CLIENTE SERVER
    //--------------------------------------------------------
    // HERE IT COULD OPT BY USING CLIENT SERVER OR CLASSIC
    // IN MY CASE I WILL USE CUSTOMER SERVER
    //--------------------------------------------------------
    // Aquí podría elegir utilizar servidor de cliente o clásico
    // En mi caso voy a utilizar cliente-servidor  
    Matos_hyperfil_server..Database = "base_nome"    
    // AQUI ESTOU TROCANDO O NOME DA BASE DE DADOS
    // ENTAO EU POSSO TER VARIOS BASE NO MEU COULD E
    // DEPEDENDO DO MEU CLIENTE, É SO TROCAR O NOME
    //--------------------------------------------------------
    // HERE I AM REPLACING THE NAME OF THE DATABASE
    // ENTAO I CAN HAVE VARIOUS BASE IN MY COULD AND
    // DEPENDING ON MY CUSTOMER, IS TO CHANGE THE NAME
    //--------------------------------------------------------
    // Here I Am cambiar el nombre de LA BASE DE DATOS
    // ENTONCES puede tener BASE DE VARIAS EN MI y podría
    // DEPENDIENDO Mi cliente es SO NOMBRE CAMBIO   
    Matos_hyperfil_server..CryptMethod = hCryptNo
   
   
   
    IF HOpenConnection(Matos_hyperfil_server) = False THEN
        // ESTOU ABRINDO A CONEXÃO , E CASO DE ERRO, VAI ENTRAR AQUI
        // I AM OPENING THE CONNECTION, AND IN CASE OF ERROR, GO HERE
        // Estoy abriendo la conexión y evento de error el usuario introduce aquí      
        Info("problema na conexao",HErrorInfo(hErrMessage))      
        // ESTOU MOSTRANDO A MENSAGEM DE ERRO
        // I AM SHOWING THE ERROR MESSAGE
        // AM demostración del mensaje ERROR      
    END
   
END
































Teste

Teste
teste