Ayuda con consulta de combinación entre tablas.

[Roilo]

Gracias...Ahora se me ocurre administrar esta tercera tabla desde un formulario delphi. Suponiendo que el administrador introdusca el area y en un DbGrid que contenga todas la partidas, el administrador iria marcando las apartidas que esa area debe planificar. Se me ocurre poder tener un checkbox a la izquierda de cada partida. Si es marcada ya ustedes saben y luego...
Me pregunto como puedo lograr lo del CheckBox...
Gracias de antemanos.

[marcoszorrilla]

Aquí tienes código que utilizo para poner un DbCheckbox que inicialmente estará como no visible y conectado al campo de la tabla que pretendenmos modificar, sobra algo de código pero te lo pego tal cual. A la rejilla para mayor claridad le ha renombrado Reja.

Código Delphi [-]
procedure TfrConAlbaran.RejaColEnter(Sender: TObject);
begin

  if Estado = 2 then
  begin
    if Reja.Columns [Reja.SelectedIndex].
        Field = DmHH.AlbCobrado  then
      DbchkCobrado.Visible := True
    else
      DbchkCobrado.Visible := False;
  end;

end;



procedure TfrConAlbaran.RejaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   if DmHH.Albcobrado.Value = false then
   begin
   Reja.Canvas.Brush.Color :=clAqua;
   Reja.Canvas.Font.Color:=clRed;
   Reja.DefaultDrawColumnCell(Rect,Datacol,Column,State);
   end;

  if Estado = 2 then
  begin
    if (gdFocused in State) and
        (Column.Field = DmHH.AlbCobrado) then
      begin
        DbchkCobrado.SetBounds (
          Rect.Left + Reja.Left + 1,
          Rect.Top + Reja.Top + 1,
          Rect.Right - Rect.Left,
          Rect.Bottom - Rect.Top);
      end;
  end;

end;

procedure TfrConAlbaran.RejaKeyPress(Sender: TObject; var Key: Char);
begin
  if Estado = 2 then
  begin
    if DbchkCobrado.Visible and (Ord (Key) > 31) then
    begin
      Key := #0;
      DmHH.Alb.Edit;
      DbchkCobrado.Checked := not
        DbchkCobrado.Checked;
      DbchkCobrado.Field.AsBoolean :=
      DbchkCobrado.Checked;
      end;
    end;
end;

Una aclaración la variable estado la utilizo para saber si la fuente de datos está en modo edición o consulta antes de abrir la rejilla y segun que en el menú de la aplicación se elija consultas o modificar Estado es igual a 3 ó 2, puesto que el uno lo utilizo para las altas.
Un Saludo

[Roilo]

Lo siento pero me siento un novato delante de este código...
Me preguntaba si este código me coloca un CheckBox al lado de cada registro en la tabla de partidas. Así selecciono el area y marco las partidas para esta area. Luego quedaría construir la tabla 3.
GRACIAS ...

[[Lepe]]

Yo quizás hubiera usado un Listbox, por aquello de que tiene multiSelección y puede ser más cómodo para el usuario, elige con CTRL o Shift todas las partidas y después las pasa a otro Listbox, es más trabajo para tí, pero piensa en el pobre usuario dando clics a todos los checkbox cuando tenga las 300 partidas que comentas y 20 áreas.

Delphi trae un Form ya diseñado con 2 listbox, donde se puede arrastrar y soltar y pasar de unos a otros, File -> new -> Dialogs (me parece que es la pestaña).

Saludos.

[Roilo]

Creo que me quedo con esta Lepe...
Gracias a todos.