Modificacion de datos de una tabla

[ecfisa]

Hola Belen12.

Creo entender que tenes problemas para que en el CheckListBox se muestren (queden marcados) los puestos que a cada empleado ya le han sido asignados. Y, si interpreté bién, podrías hacer algo así:

Código Delphi [-]
// Cargar puestos en el CheckListBox
procedure TForm1.FormCreate( Sender: TObject );
begin
  //...

  // Cargar puestos en el CheckListBox
  qyPuestos.Open;
  while not qyPuestos.Eof do
  begin
    CheckListBox1.Items.AddObject(
      qyPuestos.FieldByName( 'NOMBREPUESTO' ).AsString,
      TObject( qyPuestos.FieldByName( 'IDPUESTO').AsInteger ) );
    qyPuestos.Next;
  end;

  //...
  tEmpleados.AfterScroll := tEmpleadosAfterScroll;
  tEmpleados.First;
end;

// Mostrar puestos del empleado actual en CheckListBox
procedure TForm1.tEmpleadosAfterScroll( DataSet: TDataSet );
var
  i: Integer;
begin
  for i := 0 to CheckListBox1.Count - 1 do
    CheckListBox1.Checked[i] := False;

  qyTmp.Close;
  qyTmp.SQL.Clear;
  qyTmp.SQL.Add( 'SELECT P.NOMBREPUESTO' );
  qyTmp.SQL.Add( 'FROM EMPLEADO E');
  qyTmp.SQL.Add( 'INNER JOIN ASIGNADO A ON E.IDEMPLEADO = A.IDEMPLEADO' );
  qyTmp.SQL.Add( 'INNER JOIN PUESTO P ON A.IDPUESTO = P.IDPUESTO' );
  qyTmp.SQL.Add( 'WHERE E.IDEMPLEADO = :PID' );
  qyTmp.ParamByName( 'PID' ).AsInteger :=
    tEmpleados.FieldByName( 'IDEMPLEADO' ).AsInteger;
  qyTmp.Open;

  while not qyTmp.Eof do
  begin
    i := CheckListBox1.Items.IndexOf( qyTmp.FieldByName( 'NOMBREPUESTO' ).AsString );
    if i <> -1 then
      CheckListBox1.Checked[i] := True;
    qyTmp.Next;
  end;
end;
...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  tEmpleados.AfterScroll := nil;
end;

Saludos

[Belen12]

Empezado por ecfisa

Hola Belen12.

Creo entender que tenes problemas para que en el CheckListBox se muestren (queden marcados) los puestos que a cada empleado ya le han sido asignados. Y, si interpreté bién, podrías hacer algo así:

Código Delphi [-]
// Cargar puestos en el CheckListBox
procedure TForm1.FormCreate( Sender: TObject );
begin
  //...

  // Cargar puestos en el CheckListBox
  qyPuestos.Open;
  while not qyPuestos.Eof do
  begin
    CheckListBox1.Items.AddObject(
      qyPuestos.FieldByName( 'NOMBREPUESTO' ).AsString,
      TObject( qyPuestos.FieldByName( 'IDPUESTO').AsInteger ) );
    qyPuestos.Next;
  end;

  //...
  tEmpleados.AfterScroll := tEmpleadosAfterScroll;
  tEmpleados.First;
end;

// Mostrar puestos del empleado actual en CheckListBox
procedure TForm1.tEmpleadosAfterScroll( DataSet: TDataSet );
var
  i: Integer;
begin
  for i := 0 to CheckListBox1.Count - 1 do
    CheckListBox1.Checked[i] := False;

  qyTmp.Close;
  qyTmp.SQL.Clear;
  qyTmp.SQL.Add( 'SELECT P.NOMBREPUESTO' );
  qyTmp.SQL.Add( 'FROM EMPLEADO E');
  qyTmp.SQL.Add( 'INNER JOIN ASIGNADO A ON E.IDEMPLEADO = A.IDEMPLEADO' );
  qyTmp.SQL.Add( 'INNER JOIN PUESTO P ON A.IDPUESTO = P.IDPUESTO' );
  qyTmp.SQL.Add( 'WHERE E.IDEMPLEADO = :PID' );
  qyTmp.ParamByName( 'PID' ).AsInteger :=
    tEmpleados.FieldByName( 'IDEMPLEADO' ).AsInteger;
  qyTmp.Open;

  while not qyTmp.Eof do
  begin
    i := CheckListBox1.Items.IndexOf( qyTmp.FieldByName( 'NOMBREPUESTO' ).AsString );
    if i <> -1 then
      CheckListBox1.Checked[i] := True;
    qyTmp.Next;
  end;
end;
...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  tEmpleados.AfterScroll := nil;
end;

Saludos

Hola gracias por responder e probado el codigo y me perdi un poco.

Código Delphi [-]
procedure TForm1.tEmpleadosAfterScroll( DataSet: TDataSet );
var
  i: Integer;
begin
  for i := 0 to CheckListBox1.Count - 1 do
    CheckListBox1.Checked[i] := False;

  qyTmp.Close; 
  qyTmp.SQL.Clear;
//..
//..

aqui utilizas 2 query no es asi ? uno nuevo tengo que crear para realizar estas consultas por lo que logre entender dime si es que me equivoco.
Partiendo de esto creo un nuevo query lo llame "empleado" y realizo todo los pasos pero al intentar abrir el formulario ya sea del boton nuevo o del boton modificar me dice "SQL Query is Empty" gracias por tomarte el tiempo en ayudarme

[ecfisa]

Hola Belen12.

En el código que mostraste, usabas un query (qPuestos) y lo que supongo son dos DataSets (tEmpleados y tAsignados).

Para el ejemplo, sólo agregué otro query (qyTmp) que se encarga de realizar la búsqueda de los puestos por empleado cada vez que se cambia de registro en la tabla empleados tEmpleados (en el evento AfterScroll).

El efecto al desplazarse por la tabla empleados es este:

Es decir, el ejemplo se encarga de mostrar los puestos que tiene cada empleado al recorrer dicha tabla.

Saludos

[Belen12]

Empezado por ecfisa

Hola Belen12.

En el código que mostraste, usabas un query (qPuestos) y lo que supongo son dos DataSets (tEmpleados y tAsignados).

Para el ejemplo, sólo agregué otro query (qyTmp) que se encarga de realizar la búsqueda de los puestos por empleado cada vez que se cambia de registro en la tabla empleados tEmpleados (en el evento AfterScroll).

El efecto al desplazarse por la tabla empleados es este:

Es decir, el ejemplo se encarga de mostrar los puestos que tiene cada empleado al recorrer dicha tabla.

Saludos

ah ya entendi pero de esa forma no me funcionaria creo ya que yo parto de un registro de abm que tiene una grilla y al seleccionar ese empleado y al apretar el boton modificar voy a otro formulario que seria de alta donde en este se encuentra el checklistbox