3 replies to this topic

[WalterChacon]

Buenas dias
Usando  FireMonkey XE4, cargo una lista de usuarios en un listbox cuando selección uno de los usuarios de la lista deseo que el nombre asosciado al usuario se despliegue en una caja de texto ejecutando este código

delphi

procedure TfrmPermisos.RecuperaDatos;
 begin
 if (lstUsuarios.ItemIndex <> -1) then begin
 with dmDatos.qryGeneral do begin
 Close;
 SQl.Clear;
 SQL.Add('SELECT cod_usuario, login FROM usuario WHERE login = ''' + lstUsuarios.Items.Strings[lstUsuarios.ItemIndex] + '''');
 Open;
iClave := FieldByName('cod_usuario').AsInteger;
 Edit1.Text := Trim(FieldByName('login').AsString);
 
 end;
 end;
 end;

pero no lo hace que podría estar faltando. Anteriormente usaba este mismo código en Delphi y funciona sin problema.

[egostar]

Que ta WalterChacon

Ayer hice una prueba rápida (sin base de datos) y tu código funciona sin problema en una aplicación FireMonkey, lo que yo haría es incluir un bloque try-except para ver si hay algún error que esté invalidando el proceso.

Aunque es poco probable que haya algún problema con el acceso a los datos, el bloque try-except puede ser de mucha ayuda.

Saludos

[WalterChacon]

Hola Egostar

Gracias por la respuesta te cuento que ya me funciona ya que elimine el nombre que también cargaba en el listbox Ej: wchacon - Walter Chacon

delphi

    if (lstUsuarios.ItemIndex <> -1) then begin
      with dmDatos.qryGeneral do begin
        Close;
        SQl.Clear;
       // SQL.Add('SELECT cod_usuario, login FROM usuario WHERE login = ''' + lstUsuarios.Items.Strings[lstUsuarios.ItemIndex]+'''');
 
        SQL.Add('SELECT cod_usuario, nombre, login FROM usuario WHERE login = ' + QuotedStr(lstUsuarios.Items.Strings[lstUsuarios.ItemIndex]));
        Open;
 
        iClave := FieldByName('cod_usuario').AsInteger;
        txtNombre.Text := Trim(FieldByName('nombre').AsString);
        txtUsuario.Text := Trim(FieldByName('login').AsString);
end;
end;

Este es el código que use para cargar los dos datos en el listbox pero al tenerlo asi no me cargaba la info en las caja de texto.

delphi

    with ADOQuery1 do begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT login, nombre FROM usuario ORDER BY login');
        Open;
 
        ListBox1.Items.Clear;
        while not Eof do begin
            Listbox1.Width := 130;
            ListBox1.Items.Add (FieldByName('login').AsString + ' - ' + FieldByName('nombre').AsString);
            Next;
        end;
        Close;
    end;

[egostar]

Que bien, gracias por la actualización WalterChacon

Siempre es interesante conocer las cosas internas de FireMonkey ya que es un framework que poco a poco está tomando fuerza y tal parece que pronto será el estándar que todos estaremos usando.

Saludos