Delphi - Recorrer y comparar TzQuery y un TChecklistBox

   
Vista:

Recorrer y comparar TzQuery y un TChecklistBox

Publicado por Sofia_Medina (33 intervenciones) el 21/07/2016 05:51:44
Hola buenas noches tengo una aplicacion de ABM de empleados resulta que los mismo le asigno puestos de trabajo a travez de un TChecklistBox. y los datos del empleado como dni, apellido utilizo dbedit. La aplicacion la desarrolle en delphi 2010 usando tzquery de zeos y mysql5

Bien basicamente lo que quiero hacer en la modificacion es realizar lo siguiente recorrer el query(qPuestos) por puestos y comparar si el idpuesto es igual al idpuesto del TChecklistBox y si es igual pongo el check en true sino el check en falso. La verdad que no se como realizar dicho planteo o comparacion y cambiar el estado del check

Este es el codigo que utilizo para llenar el listbox

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TfEmpleados.FormCreate(Sender: TObject);
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;


muchas gracias desde ya
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder