Hola que tal todos mis amigos.
Hace varios dias estoy tratando de crear una aplicacion que acceda a una base de datos ORACLE EXPRESS 11G, y al crear el codigo y las configuraciones de propiedades el programa me corre bien, pero cuando introduzco el usuario y clave siempre me da que es incorrecto aunque lo introduzca bien.
para validar el usuario, fue creado un registro en una tabla de la base de datos, y haciendo la consulta fuera de delphi me devuelve el valor correctamente.
Anexo el codigo para ver si alguien me puede ayudar:
Código Delphi
[-]var
FLogon: TFLogon;
Cuenta : integer;
Usuario : String;
LoginOK : boolean;
implementation
{$R *.dfm}
procedure TFLogon.BtnOKClick(Sender: TObject);
begin
LoginOK := False;
ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
ADLogin.Active:= True;
If ADLogin.RecordCount < 1 then begin
Cuenta := Cuenta + 1;
MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
EUsuario.Text := '';
EClave.Text := '';
ADLogin.Active := False;
adlogin.Open;
EUsuario.SetFocus;
If Cuenta = 3 then begin
ModalResult := mrCancel;
end;
end
else
If ADLoginClave2.AsString = EClave.Text then begin
LoginOk := True;
adlogin.Open;
ADLogin.Active := False;
ModalResult := mrOk;
end
else Begin
Cuenta := Cuenta + 1;
MessageDlg('Clave Inválida',mtError, [mbOK], 0);
EClave.Text := '';
ADLogin.Active := False;
If Cuenta = 3 then begin
ModalResult := mrCancel;
adlogin.Open;
EUsuario.SetFocus;
end;
Este codigo lo tome del foro, y lo adapte a mi aplicacion.
Un Saludo,
Rolando.