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
