Einzelnen Beitrag anzeigen

Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#84

Re: Datenerfassung mit Firebird Datenbank

  Alt 26. Feb 2009, 18:59
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;
Jens Hartmann
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
  Mit Zitat antworten Zitat