procedure TForm1.ModificarPuestos(const EmpID: Integer);
var
i,Pid: Integer;
begin
unQuery.Close;
unQuery.SQL.Text := 'DELETE FROM ASIGNADO WHERE EMPLEADO_ID = :EID';
unQuery.ParamByName('EID').AsInteger := EmpID;
unQuery.ExecSQL;
unQuery.Close;
unQuery.SQL.Clear;
unQuery.SQL.Add('INSERT INTO ASIGNADO( EMPLEADO_ID, PUESTO_ID )');
unQuery.SQL.Add('VALUES( :EID, :PID )');
unQuery.Prepare;
try
for i := 0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
begin
Pid := Integer(CheckListBox1.Items.Objects[i]);
unQuery.ParamByName('EID').AsInteger := EmpID;
unQuery.ParamByName('PID').AsInteger := Pid;
unQuery.ExecSQL;
end;
finally
unQuery.UnPrepare;
end;
end;