Возможно, для работы вашего приложения потребуется дополнительная информация, помимо имени пользователя и пароля. А может, вам просто хочется вывести собственное, раскрашенное цветами и ленточками окно вместо скучного стандартного? Этo очень просто сделать.

Отключить появление стандартного диалогового окна при запуске системы можно, установив значение свойства TDatabase.LoginPrompt равным True. Недостатком этого метода является то, что при этом вы не можете передать имя пользователя и пароль в свойстве Params, а потому придется создать обработчик события TDatabase.OnLogin.

В следующем примере иллюстрируется пользовательская форма регистрации, а введенное имя пользователя и пароль, возвращаются вызываемому приложению:

function GetLoginParams (AloginParams:TStrings): word;
var
═════LoginForm: TLoginForm;
begin
═════LoginForm := TLoginForm.Create(Application);
try
═════Result := LoginForm.ShowModal;
if Result = mrOK then
begin
═════AloginParams.Values['USER NAME']:=
═════LoginForm.edtUserName.Text;
═════AloginParams.Values['PASSWORD']:=
═════LoginForm.edtPassWord.Text;
end;
finally
═════LoginForm.Free;
end;
end;

A вот как эта функция используется в обработке TDаtabase.OnLogin:

procedure TMainForm.dbMainLogin(Database: TDatabase; LoginParams; TStrings);
begin
═════GetLoginParams(LoqinParams);
end;