Problema para borrar desde DBLookUpListBox

[ecfisa]

Hola sac.

Para borrar el registro correspondiente a determinado código y ver reflejado los cambios:

Código Delphi [-]
  with Q_Borrar do
  begin
    Close;
    SQL.Text := 'DELETE FROM LIBRERIA_VENTA WHERE COD_VENTAS = :PCOD';
    ParamByName('PCOD').AsInteger := StrToInt(Edit1.Text);
    ExecSQL;
  end;
  Tu_DataSet.Refresh;

Pero no sé como están organizados tus datos y creo ver un posible problema: Lo lógico es que todos los ítems de venta estén relacionados a la factura por algún campo. De ser COD_VENTAS el campo de relación, las líneas anteriores eliminarían todos los ítems de la factura ya que este sería común a todos los ítems de la misma.

Tal vez si nos explicas con mas detalle las tablas que usas y las relaciones entre ellas sería mas fácil orientarte.

Saludos