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
