Delphi World - Как использовать свой диалог ввода пароля BDE
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как использовать свой диалог ввода пароля BDE

Если вы забыли напрочь свой парль для входа в UNIX То попробовать вам нужно подобрать его по буквам Если он не очень длинный, символов на 6, не больше То успеете наверно подобрать его при жизни....


//  .....
//  .....
  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 World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования