In der Form.Create sage ich...
Delphi-Quellcode:
procedure TFUebung.FormCreate(Sender: TObject);
var
i : integer;
begin
{Datenbankverbindung aufbauen über ZConnection (ZEOS)}
ConSecurdat.Connect;
Dann öffne ich die Datenbank...
Delphi-Quellcode:
{Datenbank Öffnen}
procedure TFUebung.Button8Click(Sender: TObject);
begin
QrySecurdat.Open;
end;
Und beim eintrage sage ich...
Delphi-Quellcode:
procedure TFUebung.Button9Click(Sender: TObject);
var
i : integer;
begin
QrySecurdat.Active := false;
QrySecurdat.SQL := Memo1.Lines;
QrySecurdat.Active := true;
Und dann habe ich noch AfterPost angelegt
Delphi-Quellcode:
{Refreshanweisung nach AfterPost}
procedure TFUebung.QrySecurdatAfterPost(DataSet: TDataSet);
begin
QrySecurdat.Refresh;
end;