// 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