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; begin
fmodulo.tEmpleados.Edit;
tfempleados.Create(self).ShowModal;
end;
fmodulo.tEmpleados.Active:=False;
fmodulo.qEmpleados.Refresh;
end;
desde ya muchas gracias