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
muchas gracias desde ya
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
0