Как добавить пользователя и пароль программно? [D6, IB6.x]
MAxiMum © (2002-04-12 19:37:00)
... А ещё лучше при инсталляции. Думаю для этого предназначен
класс TIBSecurityService. Но я так и не смог разобраться с
приницпом его работы.
А может и класс TIBConfigService в этом помочь может.
Но я думаю только Вы :)).
Moscower (2002-04-12 21:40:00) [1]
program addutoib;
uses
Forms, IBServices;
var Add : TIBSecurityService;
begin
try
Add := TIBSecurityService.Create(nil);
with Add do
begin
LoginPrompt := False;
Params.Add("user_name=sysdba");
Params.Add("password=masterkey");
Active := True;
try
UserName := "USER";
Password := "user";
AddUser;
finally
Active := False;
end;
end;
finally
Add.Free;
end;
end.
Наверх 
ЧАТ |
Орешник |
|
