Database - Password - Login- ich kann es nicht ausschalten

brettW · Hält's aus hier Beiträge: 5

Hi Zusammen,

ich habe D7 - und habe eine einfache passwortgeschütze Paradox-Tabelle. Dazu eine Tabel1, Datasource1 und ein DBGird1 - alles klappt wunderbar. Nun will ich die 'zwangs' Passwort-Abfrage ausschalten. Ich habe ein Database1 hizugefügt und LoginPrompt auf 'false' geschaltet. Dazu Password-Angaben unter 'OnLogin' (Params) auch eingegeben. Auch den Tabellennamen habe ich dem Datenbank1 gegeben. Laut dem Handbuch ist alles getan und sie kennen sich. Jedoch die Passwortabfrage taucht jedes Mal auf. Ich habe Showmessage-Fälle überall in OnCreate / OnLogin eingefügt - keine schlägt auf - es ist als ob 'Database' völlig ignoriert wird.

Habe ich was übersehen oder braucht D7 was anderes?

Vielen Dank im voraus!

V.G Brett

Critter · Beiträge: 328 Erhaltene Danke: 3 Windows 7 Delphi 7 Pro.

Hallo,

hast du mal versucht das Passwort zur Laufzeit zu zu weisen? Ich meine mich dunkel dran zu erinnern, dass da mal was war. Bin aber nicht wirklich sicher.

critter

_________________
Diejenigen, die grundlegende Freiheiten aufgeben, um ein wenig mehr vorrübergehende Sicherheit zu erkaufen, verdienen weder Freiheit noch Sicherheit.
(Benjamin Franklin;"The Papers of Benjamin Franklin", Vol. 6, Apr. 1, 1755, through Sep. 30, 1756)

brettW · Hält's aus hier Beiträge: 5

Hi Critter,

ja - ich habe UserName & Password als Key 'params' gespeichert - davor habe ich auch ein Showmessage eingefügt - es passiert nichts... merkwürdig. Anscheinend habe ich was falsches gemacht bzw. nicht alles gemacht...

V.G Brett

Critter · Beiträge: 328 Erhaltene Danke: 3 Windows 7 Delphi 7 Pro.

Hi,

brettW hat folgendes geschrieben :

ja - ich habe UserName & Password als Key 'params' gespeichert - davor habe ich auch ein Showmessage eingefügt - es passiert nichts...

heißt das, dass du auch die Message nicht gezeigt bekommst? Am besten du zeigst uns mal den Quelltext deiner "connect"-Methode. Vielleicht fällt ja jemanden etwas auf.

critter

_________________
Diejenigen, die grundlegende Freiheiten aufgeben, um ein wenig mehr vorrübergehende Sicherheit zu erkaufen, verdienen weder Freiheit noch Sicherheit.
(Benjamin Franklin;"The Papers of Benjamin Franklin", Vol. 6, Apr. 1, 1755, through Sep. 30, 1756)

brettW · Hält's aus hier Beiträge: 5

Hi,

richtig - die Message bekomme ich nicht - hier ist der Inhalt von Onlogin:-

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.Database1Login(Database: TDatabase;
  LoginParams: TStrings);
begin
Showmessage('login');  <-----  tut nichts...
With Database.Params do
begin
clear;
add ('USERNAME=SYSDBA');
add ('PASSWORD=mypassword');
end;

Bei DataBase1 habe ich den Namen vom Alias und den Databasename (samt Pfad) eingegeben.

Ich habe keine Connection-Zeilen geschrieben - ist das evtl. der Fehler?

Danke nochmals!

Brett

Moderiert von Narses: Delphi-Tags hinzugefügt

Critter · Beiträge: 328 Erhaltene Danke: 3 Windows 7 Delphi 7 Pro.

Hi,

leider kenne ich mich mit dem DataBase-Objekt nicht aus (ohnehin sind meine Paradox Erfahrungen ziemlich Alt und die wichtigste war wie schön es ist, wenn man es hinter sich lässt

) aber wenn die Message nicht kommt wird deine procedure schlichtweg nicht aufgerufen.

Setzt du denn Forderst du das Datenbankobjekt denn auf sich zu verbinden? Also z. B.:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Database1.Connected := True;
end;

Denn wenn du nicht versuchst ein Verbindung her zu stellen versucht das Objekt auch nicht sich anzumelden.

critter

_________________
Diejenigen, die grundlegende Freiheiten aufgeben, um ein wenig mehr vorrübergehende Sicherheit zu erkaufen, verdienen weder Freiheit noch Sicherheit.
(Benjamin Franklin;"The Papers of Benjamin Franklin", Vol. 6, Apr. 1, 1755, through Sep. 30, 1756)

Andreas Schilling · Verfasst: Di 07.09.10 13:41

Zuweisung von Passwort für BDE / Paradoxtabelle zur Laufzeit

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TDM1.Tab_PasswortBeforeOpen(DataSet: TDataSet);
begin
  Session.AddPassword ('Passwort');
end;

procedure TDM1.Tab_PasswortAfterClose(DataSet: TDataSet);
begin
  Session.RemovePassword ('Passwort');
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme