AnyDAC
ContentsIndexHome
PreviousUpNext
TADIBSecurity Class

The class implementing FB/IB database security management service.

Group
Class Hierarchy
uADPhysIB_TADIBSecurityuADPhysIB_TADIBSecurityuADPhysIB_TADIBSecurity
File

uADPhysIB

Links

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!