Pfad zur Datenbank?

[BackYard]

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Table1.Locate('Anmeldename', Edit1.Text, [loCaseInsensitive]) = true then
  begin
    if Table1.Locate('Passwort', Edit2.Text, [loCaseInsensitive]) = true then
    begin
      MessageDlg('OK. Login erfolgreich!', mtInformation,[mbOk], 0);
    end
    else
    begin
      MessageDlg('Fehler. Falsche Daten!', mtError,[mbOk], 0);
    end;
  end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  table1.databasename:=ExtractFilePath(Application.ExeName)+'\Datenbanken';
end;

Naja viel code is das noch nicht aber

- Paradox 7 Tabelle
- BDE Table
- DataSoruce

Gruß BY