Subtraktion in einer SQL Abfrage

[marabu]

Eine mögliche Vorgehensweise wäre:

Delphi-Quellcode:

function TForm1.ZuMinusAb: integer;
var
  summeZu, summeAb: integer;
begin
  with IBQuery3 do
  begin
    // Summe ZU berechnen
    SQL.Text := 'SELECT SUM(menge) FROM listedza WHERE VORGANG = ''UZU''';
    Open;
    summeZu := Fields[0].AsInteger;
    // Summe AB berechnen
    SQL.Text := 'SELECT SUM(menge) FROM listedza WHERE VORGANG = ''FAB''';
    Open;
    summeAb := Fields[0].AsInteger;
    Close;
    Result := summeZu - summeAb;
  end;
end;

Deine Differenzberechnung würde ich nicht im OnChange-Ereignis eines Edit-Feldes machen, da bei jedem einzelnen Zeichen, das du dort eingibst, das Ereignis gefeuert wird.

Grüße vom marabu