Pasar registros desde un dbgrid a otro dbgrid con botones..

[Vales08]

Hola!
Necesito una ayudita con esto.. Tengo un formulario, el cual posee dos dbgrid, en el dbgrid1 tengo todas las coberturas medicas que estan cargadas en una tabla, y en el dbgrid2 necesito mostrar las coberturas medicas q selecciono de la primer grilla mencionada. Yo quiero que esto se realice mediante botones que estaran entre medio de las dos grillas.
boton1, el cual me pasara un regitro seleccionado;
boton2, el cual pasara todos los registros (en caso que quiera a todos);
boton3, el cual me regresara de nuevo un registro pasado con anterioridad;
boton3, el cual me regresara todos los registros que habia pasado con anterioridad.

Para que entiendan mejor el funcionamiento que quiero, les explico que funcion cumple ese formulario..
Es un formulario para cargar profesionales, carga muchos datos y uno de ellos es la cobertura medica, yo lo habia hecho con un dblookupcombobox, pero me di cuenta q un profesional puede trabajar con muchas coberturas medicas, por lo tanto necesitaba algo de lo cual yo pudiera seleccionar varias coberturas, en vez de una. Es por esa razon que plantee las dos grillas, me parecio algo más facil de manejar.

La relacion entre las tablas Profesionales, y Coberturas Medicas es de NaN, por lo tanto aparece una nueva tabla con la relacion.. El dbgrid2 estaria relacionado al datasource de esta ultima tabla, o sea, la relacion.

Yo he estudiado, pero aun estoy en aprendizaje con todo lo que es programacion y hay cosas que no he hecho nunca y que necesitaria de su ayuda para poder ir adquiriendo esos conocimientos.
Espero haber sido clara con la explicacion..

Desde ya muchas gracias, y espero puedan ayudarme.-
Saludos.-

[Vales08]

Me olvide de comentarles que trabajo con delphi 7, sql manager..
Uso ibdataset, ibquerys, ibdatasourse para cada dataset y query, ibtransaction.. todo en un DataModule

[[oscarac]]

en la parte inferior de esta pagina encontraras temas similares
por lo pronto revisa aqui
saludos

[Vales08]

Ya he revisado, pero eh probado y nada.. no me funiciona. para lo que quiero no me sirve..
muchas gracias igual.

[ecfisa]

Hola Vales08.

Para hacer lo que buscas creo que tendrías que tener:
.- Una tabla MEDICOS.
.- Una tabla COBERTURAS.
.- Una tabla COBERT_X_MEDICO.

Donde la tabla COBERT_X_MEDICO está en relación Master/detail con MEDICOS por el campo ReferMedico / Medico_ID.

Para ejemplificar tu caso usemos:
.- DBGridMedicos.
.- DBGridCoberturas.
.- DBGridDetalle.

En DBGridCoberturas ponemos la propiedad: Options -> dgMultiSelect a True, así podrás elegir una, varias o todas las coberturas (Ctr+click o Shift+Flecha abajo).

Luego la asignación la podes hacer mediante Drag&Drop o en el evento OnClick de un TButton, esta última forma es la que uso para el ejemplo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to GridCoberturas.SelectedRows.Count -1 do
  begin
    GridCoberturas.DataSource.DataSet.GotoBookmark(Pointer(GridCoberturas.SelectedRows.Items[i]));
    GridDetalle.DataSource.DataSet.Append;
    GridDetalle.DataSource.DataSet.FieldByName('ReferMedico').AsInteger:=
      GridMedicos.DataSource.DataSet.FieldByName('Medico_id').AsInteger;
    GridDetalle.DataSource.DataSet.FieldByName('Cobertura').AsString:=
      GridCoberturas.DataSource.DataSet.FieldByName('Cobertura').AsString;
    GridDetalle.DataSource.DataSet.Post;
  end;
end;

DBGridCoberturas, sólo debería mostrarse para que el usuario pueda realizar la elección de las posibles coberturas y luego cerrarse. Cuando quieras mostrar las coberturas que trabaja un médico usas un DBGrid u otro componente que haga referencia a la tabla COBERT_X_MEDICO y te las mostrará.

Espero haber interpretado lo que querías hacer...

Saludos.

[Vales08]

Hola, como andas?
Eres muy bueno en interpretacion, explicacion y en delphi jaja..
Justamente la funcionalidad que quiero es esta que me has dado...
Lo aplicare lo antes posible y te dare una respuesta de si me ha sido util o no.. pero seguramente que si xq yo a las tablas ya las tengo echas y el codigo y todo esta muy bien explicado..

muchas gracias.-
En cuanto lo tenga te confirmare si me ha sido util, pero es lo que queria..

Saludos.-

[amyleemikami]

Estas En La Linea La Moderadora?? Neesito Ayuda Con Delphi

Repondeme Porfaaa

[Neftali [Germán.Estévez]]

Empezado por amyleemikami

Estas En La Linea La Moderadora?? Neesito Ayuda Con Delphi

Hola y bienvenido al foro.
Normalmente todos los que entran en el foro, necesitan ayuda, pero esta no es la forma de pedirla.

Revisa la Guía de estilo de los foros.

Un saludo.

[amyleemikami]

SI ENTIENDO, pero estoy en este foro por el mismo tema
y nome corre el programa co los ejemplos o ayudas que dan T_T

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.