pharaonhx
16-04-2005, 18:06:01
tengo el siguiente query con el query ado
Dm1.QUsuario.Active := False;
Dm1.QUsuario.SQL.Text := 'SELECT * FROM USUARIO WHERE USUARIO =:Us AND PASWORD =:Pas';
Dm1.QUsuario.FieldValues[0].AsString := EditUsuario.Text;
Dm1.QUsuario.FieldByName('Pas').AsString := EditPasword.Text;
Dm1.QUsuario.Active := True;
if Dm1.QUsuario.RecordCount = 0 then
begin
ShowMessage('Este Usuario y Password no Existen');
end
else
begin
frPrincipal := TfrPrincipal.Create(Application);
frPrincipal.ShowModal;
end;
con los edit quiero pasar los parametros al quey para que realice la busqueda
Dm1.QUsuario.FieldValues[0].AsString := EditUsuario.Text;
Dm1.QUsuario.FieldByName('Pas').AsString := EditPasword.Text;
el problema es que no esta la funcion paramsbyname y no se como pasarlos alguien que me ayude
Dm1.QUsuario.Active := False;
Dm1.QUsuario.SQL.Text := 'SELECT * FROM USUARIO WHERE USUARIO =:Us AND PASWORD =:Pas';
Dm1.QUsuario.FieldValues[0].AsString := EditUsuario.Text;
Dm1.QUsuario.FieldByName('Pas').AsString := EditPasword.Text;
Dm1.QUsuario.Active := True;
if Dm1.QUsuario.RecordCount = 0 then
begin
ShowMessage('Este Usuario y Password no Existen');
end
else
begin
frPrincipal := TfrPrincipal.Create(Application);
frPrincipal.ShowModal;
end;
con los edit quiero pasar los parametros al quey para que realice la busqueda
Dm1.QUsuario.FieldValues[0].AsString := EditUsuario.Text;
Dm1.QUsuario.FieldByName('Pas').AsString := EditPasword.Text;
el problema es que no esta la funcion paramsbyname y no se como pasarlos alguien que me ayude