Как использовать свой диалог ввода пароля BDE

Delphi , Базы данных , BDE

//  .....
//  .....
  public
    { Public declarations }
    procedure Password(Sender: TObject; var Continue: Boolean);
//    ...
  end;

var
  FormMain: TFormMain;

implementation
{$R *.dfm}

procedure TFormMain.Password(Sender: TObject; var Continue: Boolean);
var
  Passwd: String[15];
begin
  Passwd := '';

  FormPasswd := TFormPasswd.Create(Application);  // Creating dialog
  try
    if (FormPasswd.ShowModal = ID_OK) then begin  // If OK is pressed then get password from edit "edPassword"
      Passwd := FormPasswd.edPasswd.Text
    end
      else begin                                  // If Cancel is pressed then terminate application
        Application.ShowMainForm := False;
        Application.Terminate;
        Exit;
      end;
  finally
    FormPasswd.Free;                              // finally free password form
  end;

  Continue := (Passwd > '');
  Session.AddPassword(Passwd);                    // Add password typed to session
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  ClientDatabase.Session.RemoveAllPasswords;  // Remove all typed passwords from session, so user need type password again in app start
//  Undocument next row in debug mode. This is for debugging and testing only, so we don't need typing password again and again ...
//  ClientDatabase.Session.AddPassword('YOUR-PASSWORD');
  ClientDatabase.Session.OnPassword := Password;  // Set OnPassword Event
end;

Перевод контента на русский язык:

Это приложение Delphi, которое использует диалоговое окно для запроса пароля у пользователя, если он забыл его или хочет ввести заново. Вот как вы можете использовать этот код:

1. Сначала убедитесь, что у вас есть компонент TFormMain в вашем проекте Delphi.
2. Дважды кликните на обработчик события FormCreate для TFormMain и вставьте код туда.
3. Это установит обработчик события OnPassword для ClientDatabase.Session.
4. Когда вы запустите приложение, оно запросит у пользователя пароль, если он забыл его или хочет ввести заново.

Вот шаг за шагом руководство по использованию этого кода:

Шаг 1: Создайте новый проект Delphi

• Откройте Delphi и создайте новый проект.
• Выберите "Delphi Projects" > "Application" на странице старта.
• Названийте ваш проект, например, "PasswordPrompt".

Шаг 2: Создайте форму для запроса пароля

• В менеджере проектов правой кнопкой кликните на компонент "Form" и выберите "New".
• Названийте новую форму "TFormPasswd".
• Перетащите текстовый поле (TEdit) на форму.
• Установите имя текстового поля в "edPasswd".

Шаг 3: Добавьте кнопки OK и Cancel

• Перетащите две кнопки (TButton) на форму.
• Установите надпись одной кнопки в "OK" и другой в "Cancel".
• Названийте кнопку OK "btnOK" и кнопку Cancel "btnCancel".

Шаг 4: Напишите код для формы запроса пароля

• В инспекторе объектов дважды кликните на обработчик события FormPasswdCreate.
• Вставьте следующий код туда:

procedure TFormPasswd.FormCreate(Sender: TObject);
begin
  edPasswd.Clear;
end;

Этот код очищает текстовое поле, когда форма создается.

Шаг 5: Напишите код для запроса пароля

• В инспекторе объектов дважды кликните на обработчик события Password.
• Вставьте следующий код туда:

procedure TFormMain.Password(Sender: TObject; var Continue: Boolean);
var
  Passwd: String[15];
begin
  Passwd := '';
  FormPasswd := TFormPasswd.Create(Application);    // Создание диалогового окна
  try
    if (FormPasswd.ShowModal = ID_OK) then begin    // Если нажать OK, то получить пароль из текстового поля "edPassword"
      Passwd := FormPasswd.edPasswd.Text;
    end
      else begin                                    // Если нажать Cancel, то прекратить приложение
        Application.ShowMainForm := False;
        Application.Terminate;
        Exit;
      end;
  finally
    FormPasswd.Free;                                // Освободить форму запроса пароля
  end;

  Continue := (Passwd > '');
  Session.AddPassword(Passwd);                      // Добавить введенный пароль в сессию
end;

Этот код создает новую инстанцию компонента TFormPasswd, отображает ее как модальное диалоговое окно, и получает текст из текстового поля, если пользователь нажимает OK. Если пользователь нажимает Cancel, приложение прекращается.

Шаг 6: Установите обработчик события OnPassword

• В инспекторе объектов дважды кликните на обработчик события OnPassword для ClientDatabase.Session.
• Вставьте следующий код туда:

procedure TFormMain.FormCreate(Sender: TObject);
begin
  ClientDatabase.Session.RemoveAllPasswords;    // Удалить все введенные пароли из сессии, чтобы пользователь снова ввел пароль при запуске приложения
  // Не документированный следующий ряд в режиме отладки. Это для отладки и тестирования только, поэтому мы не хотим вводить пароль снова и снова ...
  // ClientDatabase.Session.AddPassword('YOUR-PASSWORD');
  ClientDatabase.Session.OnPassword := Password;    // Установить обработчик события OnPassword
end;

Этот код устанавливает обработчик события OnPassword для вызова процедуры Password, когда пользователь забывает свой пароль или хочет ввести его заново.

Теперь вы можете использовать этот код, чтобы создать диалоговое окно запроса пароля в вашем приложении Delphi.

Статья описывает создание диалогового окна ввода пароля в приложении на языке Delphi, позволяющего пользователю вводить пароль для входа в систему.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: BDE ::