Forum: Datenbanken
by Ati,
22. Aug 2006
Genau der richtige Hinweis. Für die Allgemeinheit nochmal die ganze Prozedure:
procedure TfrmLogin.btnloginClick(Sender: TObject);
var rolle,level:String;
begin
{frmMain.Visible:= true;
close;
frmLogin := nil;}
qrlog.SQL.Text:='SELECT RDB$RELATION_NAME,RDB$PRIVILEGE from RDB$USER_PRIVILEGES where (rdb$user_privileges.RDB$USER = '''+eduser.Text+''') and...
Forum: Datenbanken
by Ati,
22. Aug 2006
So ich habe mir jetzt mal eine Testprozedure gebastelt. Hier mal das erste Ergebnis meiner geistigen Ergüsse:
procedure TfrmLogin.btnloginClick(Sender: TObject);
var rolle:String;
begin
{frmMain.Visible:= true;
close;
frmLogin := nil;}
qrlog.SQL.Text:='SELECT RDB$RELATION_NAME,RDB$PRIVILEGE from RDB$USER_PRIVILEGES where (rdb$user_privileges.RDB$USER = '''+eduser.Text+''') and...
Forum: Datenbanken
by Ati,
22. Aug 2006
Nun ich möchte schon das nur spezielle Gruppen gewisse Sachen machen können, deshalb favorisiere ich ja auch die Role´s. Aber wie ihr es ja vielleicht auch kennt, kommt oftmals im laufenden Betrieb jemand und möchte dies oder das auch machen können. Daher auch meine Frage,ob es geht das ein User Rechte über seine Role hinaus bekommen kann.
So ist/soll mein Programm auch aufgebaut werden....
Forum: Datenbanken
by Ati,
22. Aug 2006
Hallo mal wieder,
ich hoffe es ist mir gestattet mal mehrere Sachen auf einmal anzusprechen (ich weiß das das nicht gerne gesehen ist), aber irgendwie stehen die Punkte im Zusammenhang. Fangen wir an.
1.) wie sollten Berechtigungen verteilt werden. Einzeln pro User oder über Role´s
2.) wenn über Role´s kann man doch für spezielle User Berechtigungen erweitern (ein Test hierzu schlug leider...