Das ist so schwierig das zu erklären, ich versuch mal etwas deutlicher:
Code:
procedure TMainFrm.FormCreate(Sender: TObject);
begin
con.LibraryLocation:=ExtractFilePath(application.ExeName)+'sqlite3.dll';
con.Database:=ExtractFilePath(application.ExeName)+'hbdb.s3db';
con.Connected:= True;
MainFrmAkt;
end;
Es wird also die Procedure
MainFrmAkt aufgerufen. In dieser sollen halt die Daten aktualisiert werden und Labels ihren Inhalt bekommen. Leider muss ich aber auch bei der Datenbank folgendes angeben:
Code:
// Ist jetzt nur ein Beispiel
Procedure MainFrmAkt;
Begin
MainFrm.query.SQL.Text := 'SELECT Round(Sum(Betrag),2) From Daten Where Datenart=''Bank''';
MainFrm.Query.Open;
MainFrm.SummeBankLabel.Caption := MainFrm.query.Fields[0].AsString;
MainFrm.Query.Close;
end;
Vor jedem
Query immer das MainFrm. Das Hauptformular hab ich so genannt. (Statt das
Standart "Form1")
Ich versteh das nicht, weil auch auf dem selben Formular die Datenbank-Icons (Weis jetzt nicht genau wie man die nennt) liegen.