Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Pasar registros de una DBGrid a otra Dbgrid usando multiselect (https://www.clubdelphi.com/foros/showthread.php?t=91577)

Soa Pelaez 08-03-2017 02:45:32

Pasar registros de una DBGrid a otra Dbgrid usando multiselect
 
Buen día.


Necesito que me ayuden, necesito pasar los datos que tengo en una dbgrid, el usuario puede ir seleccionando los registros que desea pasar y cuando el lo desee ya sea por medio de un botón o el evento scroll dichos datos seleccionados se pasarán a otra dbgrid que esta abajo y de la primera Dbgrid los datos pasados a la segunda desaparecerán.
De antemano muchas gracias.

AgustinOrtu 08-03-2017 04:17:01

En realidad mas que pasar registros de un DBGrid a otro, lo que queres hacer es copiar registros de un DataSet a otro. El DBGrid es una circustancia mas

La propiedad TDBGrid.SelectedRows contiene una lista de TBookmarks. Un TBookmark no es mas que un identificador, dentro de un TDataSet, de un registro, o si queres verlo de otra manera, es un identificador para cada fila de tu TDBGrid

La clase TDataSet posee metodos para posicionarse de un TBookmark a otro, lo cual se explica aca. Basicamente lo que hay que hacer es llamar al metodo GotoBookmark. Aca hay un ejemplo

La primer parte del problema ya la tendrias resuelta: recorrer las filas seleccionadas, posicionarse en cada una, y luego realizar la copia sobre el otro TDataSet

Hay una seccion en la documentacion dedicada a esto: Copying Data from Another Dataset

Tambien podes hacer la implementacion a lo "chapucero", es decir, si conoces la estructura del otro TDataSet, lo unico que hay que hacer es crear un nuevo registro en el DataSet destino (Append o Insert segun corresponda), setear los valores de los campos y luego invocar a Post

Sino conoces la estructura del DataSet de antemano, o tenes que copiar todos los campos, se puede implementar un recorrido sobre los campos (Fields) de un DataSet e ir copiando el valor campo a campo. Obviamente que los campos deben estar en el mismo orden, con el mismo nombre y mismo tipo de datos

Si no me equivoco puede que algunos componentes tengan implementado un metodo que hace justamente esto. por ej, FireDAC

Por ultimo el codigo de estas unidades, si bien no hace exactamente lo que necesitas, te pueda servir como guia para armar tu solucion:

https://github.com/ortuagustin/Delph...ee/master/Data

Por ejemplo, este:

Código Delphi [-]
function TFDMemTableDataSetCloner.CopyRecords(const Records: TArray; Source: TDataSet; Owner: TComponent): TDataSet;
var
  Copy: TFDMemTable;
  I: Integer;
begin
  Copy := TFDMemTable.Create(Owner);
  try
    Copy.CopyDataSet(Source, [coStructure, coRestart]);
    Source.DisableControls;
    try
      for I := Low(Records) to High(Records) do
      begin
        Source.GotoBookmark(Records[i]);
        Copy.Append;
        Copy.CopyFields(Source);
        Copy.Post;
      end;
    finally
      Source.EnableControls;
    end;
  finally
    Result := Copy;
  end;
end;

Soa Pelaez 08-03-2017 05:14:05

Necesito que me ayuden, necesito pasar los datos que tengo en una dbgrid, el usuario puede ir seleccionando los registros que desea pasar y cuando el lo desee ya sea por medio de un botón o el evento scroll dichos datos seleccionados se pasarán a otra dbgrid que esta abajo y de la primera Dbgrid los datos pasados a la segunda desaparecerán o almenos validarlos para que no se dejen repetir en caso de que el usuario vuelva a seleccionar los mismos por equivocación.
De antemano muchas gracias.

Casimiro Notevi 08-03-2017 12:03:48

No olvides nuestra guía de estilo, gracias :)

ecfisa 08-03-2017 13:41:28

Hola.

Otra opción:
Código Delphi [-]
//  SourceGrid.Options := SourceGrid.Options + [dgMultiSelect]

procedure CopyGridData( Source, Target: TDBGrid );
var
  i,j: Integer;
begin
  if Source.SelectedRows.Count > 0 then
  begin
    for i := 0 to Source.SelectedRows.Count-1 do
    begin
      Source.DataSource.DataSet.GotoBookmark( Pointer(Source.SelectedRows.Items[i]) );
      Target.DataSource.DataSet.Append;
      for j := 0 to Target.FieldCount-1 do
        Target.Fields[j].Value := Source.Fields[j].Value;
      Target.DataSource.DataSet.Post;
    end;
  end;
end;

llamada ej.:
Código Delphi [-]
procedure TForm1.btnCopy(Sender: TObject);
begin
  CopyGridData( SourceGrid, TargetGrid );
end;

Hace un tiempo se trató una variante aquí: Drag & Drop de una selección múltiple.

Saludos :)


La franja horaria es GMT +2. Ahora son las 23:11:01.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi