EDT_Usuario=usuario_matos.nome
// edt usuario é igual a usuario matos nome
//Edt user is equal to username matos name
ReturnToCapture(EDT_senha)
// Va para o campo edt senha
// Goes to the edt password field
// No botao login, vou ler o usuario e verificar
// se senha e´igual a que esta no cadastro
// In the login button, I will read the user and check if the password
// is the same as the one in the register
HReadSeekFirst(usuario_matos,usuario_matosID,EDT_Usuario)
// Ler usuario // Read user
IF usuario_matos.senha=EDT_senha THEN
// Se senha for igual a edt senha entao senha correta
// If password is equal to edt password then correct password
Info("senha correta")
// vou mostrar que senha esta correta
// I'll show you what password is correct.
Close(WIN_login,usuario_matos.nome)
// Fecha Janela, e leva como parametro o nome do usuario
// Close Window, and takes as its parameter the user name
ELSE
// senão senha é incorreta // Otherwise, password is incorrect
Info("Senha Incorreta")
// vou mostrar que senha esta incorreta
// I'll show you the password is incorrect.
ReturnToCapture(EDT_senha)
// voltar a digitar a senha
// Re-enter password
END
