|
AnyDAC
|
The class implementing FB/IB database security management service.
uADPhysIB
Use the TADIBSecurity component to add a database security management capabilities to an application.
To manage a security an application should:
TADIBSecurity = class(TADIBService);
Adding a user:
ADIBSecurity1.DriverLink := ADPhysIBDriverLink1; ADIBSecurity1.UserName := 'sysdba'; ADIBSecurity1.Password := 'masterkey'; ADIBSecurity1.Host := 'db_srv_host'; ADIBSecurity1.Protocol := ipTCPIP; ADIBSecurity1.AUserName := 'user1'; ADIBSecurity1.APassword := '12345'; ADIBSecurity1.AFirstName := 'Bill'; ADIBSecurity1.ALastName := 'Scott'; ADIBSecurity1.AddUser;
Change a user password:
ADIBSecurity1.DriverLink := ADPhysIBDriverLink1; ADIBSecurity1.UserName := 'sysdba'; ADIBSecurity1.Password := 'masterkey'; ADIBSecurity1.Host := 'db_srv_host'; ADIBSecurity1.Protocol := ipTCPIP; ADIBSecurity1.AUserName := 'user1'; ADIBSecurity1.APassword := '12345'; ADIBSecurity1.ModifyUser;
List all users using TADMemTable:
ADIBSecurity1.DriverLink := ADPhysIBDriverLink1;
ADIBSecurity1.UserName := 'sysdba';
ADIBSecurity1.Password := 'masterkey';
ADIBSecurity1.Host := 'db_srv_host';
ADIBSecurity1.Protocol := ipTCPIP;
ADIBSecurity1.DisplayUsers;
ADMemTable1.AttachTable(ADIBSecurity1.Users, nil);
ADMemTable1.Open;|
What do you think about this topic? Send feedback!
|