Zitat von
onkelmehli:
Mein Ziel ist, zu vermeiden, dass jemand Benutzer und Passwort etc. eingeben kann, da dieses vorgegeben wird.
Kein Problem, das kann man zur Laufzeit in der
ADOConnection im Event
OnWillConnect besteuern:
Delphi-Quellcode:
procedure TDMcvs.ADOConnectionWillConnect(Connection: TADOConnection;
var ConnectionString, UserID, Password: WideString;
var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
UserID := Connection.Properties.Item['User ID'].Value;
Password := Connection.Properties.Item['Password'].Value;
if UserID = 'Admin' then
begin
Password := 'JunkiONDRUGS';
end
else if UserID = 'User' then
begin
Password := 'grünbrotschimmel';
end else if UserID ='' then
begin
UserID := 'guest';
Password := 'ismirschlecht';
end;
end;