Programm schließen

[Taladan]

hab es so gelößt

Delphi-Quellcode:

procedure THauptform.FormCreate(Sender: TObject);
var verz: string;
begin
  verz := extractfilepath(paramstr(0))+ 'db';
  DataMod.table1.Active := false;
  try
    DataMod.table1.databasename := verz;
    DataMod.table1.TableName := 'Gehälter.db';
    DataMod.table1.Active := true;
  except
    MessageBeep(0);
    ShowMessage('Die Tabelle Gehälter.db befindet sich' + #10#13 +
                'nicht im Unterverzeichnis DB !' + #10#13 +
                'Das Programm wird nun beendet!');
    Application.Terminate;
  end;

  datamod.table1.open;
end;
//usw. für weitere Tabellen und Query´s