Meter el resultado de un quey en una variable.

[Investment]

Por cierto, no se pq pones la query como active = true y luego la haces un open. Una de las dos cosas te sobra:

  //Cerramos y desactivamos la consulta.
  Query_control_usuario.Close;

  //Pasamos los parametros a la consulta.
  Query_control_usuario.ParamByName('nu').AsString := Form2.Edit1.Text;

  //Activamos y Abrimos la consulta.
  Query_control_usuario.Open;

  //Guardamos el resultado de la consulta en una variable ya declarada arriba.
  resultado := query_control_usuario.FieldByName('TipoUsuario').AsString;

  if Query_control_usuario.EOF then
    ShowMessage('La consulta no ha devuelto nada')
  else
    ShowMessage('La consulta ha devuelto: ' + resultado  )  ;

  //Dependiendo del resultado que nos devuelva la consulta se haran distintas cosas.
  If resultado='Administrador' then
    gbadmin.Visible:=true
  else
    gbadmin.Visible:=false;
  end;

[Investment]

Tambien puede ser un problema de mayusculas y minusculas... o de espacios. Puedes asegurla con lo siguiente:

  If Trim(Uppercase(resultado))='ADMINISTRADOR' then
    gbadmin.Visible:=true
  else
    gbadmin.Visible:=false;
  end;

[raffagia]

Hola,
yo tengo el mismo drama,,,,
lo ke hago es, poner un DBEDIT no visible, y poner el datasource del dbedit enganchado con el source de la query,, o sea ke levante en ele dbedit lo ke devuelve la quuery,,,
despues con un DBEDIT.TEXT recupero el contenido,,,
es algo chancho, pero anda,,,

espero ke sirva,,,
saludos

RAffa

[SaLvaGe]

Muchas Gracias investiment ya todo va a las mil maravillas.

Muchas gracias.