Foros Club Delphi - Modificacion de datos de una tabla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Modificacion de datos de una tabla (https://www.clubdelphi.com/foros/showthread.php?t=90958)

Modificacion de datos de una tabla

Hola buenas noches tengo un formulario de alta de empleados pueden tener 1 o varios puestos de trabajo para ello los cargo utilizando un CheckListBox. y dbedit para los demas datos como nombre, apellido,dni , para realizar consultas a la base uso componentes query de zeos la base de datos esta realizada en mysql-5 y la aplicacion en delphi 2010.
Bien mi problema esta que cuando realizo una modificacion de un empleado este que fue seleccionado de una grilla al abrir el formulario en forma de edit me trae todo los datos de ese empleado pero no me pone en true los puestos de trabajo del CheckListBox. Basicamente necesito que al hacer la modificacion me traiga marcado los puesto de trabajo del empleado seleccionado,alguien podria ayudarme con esto
dejo el codigo que manejo para el alta y la creacion del CheckListBox

en el evento create del formulario de alta escribo el siguiente codigo para cargar el CheckListBox

Código Delphi [-]begin
 fModulo.qPuestos.Open;
 fModulo.qPuestos.DisableControls;
 fModulo.qPuestos.First;
 try
    while not fmodulo.qPuestos.Eof do
    begin
      CheckListBox1.Items.AddObject(
        fmodulo.qPuestos.FieldByName('nombrepuesto').AsString,
        TObject(fmodulo.qPuestos.FieldByName('idpuesto').AsInteger));
      fmodulo.qPuestos.Next;
    end;
    fmodulo.qPuestos.First;
  finally
    fmodulo.qPuestos.EnableControls;
  end;
end;

luego en el boton aceptar del formulario tengo el siguiente codigo

Código Delphi [-]var
  i: Integer;
begin
 fModulo.tEmpleados['fechadenacimiento'] := dtFecha.Date;
 fmodulo.tEmpleados.Post;
for i := 0 to CheckListBox1.Items.Count -1 do
  begin
    if CheckListBox1.Checked[i] then
    begin
    fmodulo.tAsignados.Active:=True;
      fmodulo.tAsignados.Insert;

      fmodulo.tAsignados.FieldByName('idempleado').AsInteger :=
      fmodulo.tEmpleados.FieldByName('idempleado').AsInteger;

      fmodulo.tAsignados.FieldByName('idpuesto').AsInteger   :=
      Integer(CheckListBox1.Items.Objects[i]);
      fmodulo.tAsignados.Post;
    end;
  end;
 self.Close;
end;

aclaracion en la base de datos tengo las siguientes tablas Puestos de trabajo, asignados, empleados las cuales sus estructuras son la siguiente

Código SQL [-]puestos
idpuesto
nombrepuesto

Código SQL [-]empleado
idempleado
dni
nombre
apellido

Código SQL [-]asignado
idasignado
idempleado
idpuesto

y el boton modificar que utilizo para abrir el formulario en forma de edit es el siguiente codigo

Código Delphi [-]procedure TfListadoEmpleados.bModificarClick(Sender: TObject);
begin
fmodulo.tEmpleados.Active:=True;
if fModulo.tEmpleados.Locate('idempleado',fmodulo.qEmpleados['idempleado'],[]) then;        //localiza un registro
 begin
   fmodulo.tEmpleados.Edit;
   tfempleados.Create(self).ShowModal;
 end;
 fmodulo.tEmpleados.Active:=False;
 fmodulo.qEmpleados.Refresh;
end;

desde ya muchas gracias

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 :)

Cita:

Empezado por ecfisa (Mensaje 509658)

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

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 :)

Cita:

Empezado por ecfisa (Mensaje 509704)

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