Hallo Sascha,
eine Bemerkung zu Deiner Source-Code:
Eine Transaction hat an dieser Stelle überhaupt kein Sinn. Das Gleiche gilt für Commit.
Ich würde das z.B. so programmieren (einen von sehr vielen Varianten die man an dieser Stelle programmieren könnte):
Delphi-Quellcode:
Begin
//H_UnWert := StrToIntDef(Edit1.text,0);
H_UnWert := StrToIntDef(Edit1.Text,0);
H_ObWert := StrToIntDef(Edit2.Text,0);
Try
With Query1
Do
Begin
DisableControls;
if Active
then
Close;
SQL.Clear;
HlpStr := '
Select * From ReadAuftragsHeaderIntervall(';
HlpStr := Concat(HlpStr,IntToStr(H_UnWert),'
,',IntToStr(H_ObWert),'
)');
SQL.Add(HlpStr);
try
Open;
finally
EnableControls;
end;
End;
Except
ON E:
Exception do
begin
EnableControls;
MessageDlg(E.
Message , mtError, [mbOk], 0);
Sysutils.Abort;
end;
End;
End;
Viele Grüße
PaulJr