Mostrar campos de una tabla en un DBRadioGroup

[GUN10]

Hola buenas noches!

Les comento que estoy trabajando con delphi 7 y una base de datos en mysql y se me preseta el siguiente problema.

He definido 3 tablas

-Usuarios (Usuarios que seran registrados en el sistema)
-Perfiles (ejemplo, administrador, operador, tecnico)
-Perfiles_usuarios (La cual me permite relacionar las 2 tablas anteriores por medio de sus 2 claves primarias)

Tengo realizada una ventana donde realizo el alta, baja, modificacion y eliminacion de los perfiles.
Ahora estoy realizando lo que seria el alta, baja, modificacion y eliminacion de los usuarios.

El problema es que cuando genero el alta de un nuevo usuario, necesito asignarle el tipo de perfil que tendra. (administrador, operador, tecnico, etc). Estos perfiles previamente cargados en la tabla "perfiles" los quiero poder mostrar en el formulario, ya sea por un radiogroup, o checkbox, para seleccionarlos a la hora de hacer la alta del usuario.

Lo que hice fue por medio de un ciclo while, poder mostrar y cargar todos los registros de la tabla perfiles (esta tabla tiene 2 campos, codigo_perfil, nombre_perfil).
Pero no consigo extraer el valor del campo "codigo_perfil" que es el que necesito para poder cargar en la tabla "perfiles_usuarios" y hacer la relacion de ese usuario con ese perfil.

Espero que se haya entendido y me puedan ayudar.

Saludos y muchas gracias!!

[iMia]

Y con un DBComboBox... sería lo suyo...

[ecfisa]

Hola.

Como te sugiere iMia, los combos cumplen muy bién la tarea que buscas.

Código Delphi [-]
...
implementation

// cargar nombre y código de perfil
procedure LoadComboBox(DS: TDataSet; CB: TComboBox);
begin
  DS.DisableControls;
  try
    DS.First;
    CB.Clear;
    while not DS.Eof do
    begin
      CB.AddItem(DS.FieldByName('NOMBRE_PERFIL').AsString,
        TObject(DS.FieldByName('CODIGO_PERFIL').AsInteger));
      DS.Next;
    end;
    DS.First;
  finally
    DS.EnableControls;
  end;
end;

// devuelve el código de perfil actual
function GetProfileCode(CB: TComboBox): Integer;
begin
  Result := Integer(CB.Items.Objects[CB.ItemIndex]);
end;

 { Ejemplo de uso }
procedure TForm1.FormCreate(Sender: TObject);
begin
  Tu_DataSet.Open;
  LoadComboBox(Tu_DataSet, ComboBox1);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  cb: TComboBox;
  code: Integer;
begin
  cb   := TComboBox(Sender);
  code := GetProfileCode(CB);
  ShowMessage(Format('%s: %d',[cb.Items[cb.ItemIndex], code]));
end;

Saludos

[kapcomx]

tambien puedes usar un dblookupcombobox, en sus propiedades asignas

ListSource: el nombre de tu data source (el cual debe esta ligado a un data set o una tabla)
ListField: el nombre del campo que quieres que se muestre
KeyField: el campo id.

a la hora de guardar tomas el valor del keyfield

algunavariable:= nombredemidblookup.keyvalue;

[GUN10]

Muchas gracias por las respuestas!

Al final deje de complicarme tanto e hice que los datos sean mostrados en un dbcombobox y problema solucionado. Al menos realiza lo que esperaba.

Saludos !!