unit1.pas

TSecurity提供登陆/注销/修改口令的控件。(有源代码）工作在：D1 D2 D3 D4 D5。作者：Ma Jun

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Security;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Memo1: TMemo;
    Security1: TSecurity;
    Get: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure GetClick(Sender: TObject);
    procedure Security1PasswordChanged(Sender: TObject);
    procedure Security1UserChanged(Sender: TObject);
    procedure Security1GetUsers(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    function Security1ValidatePassword(Sender: TComponent;
      varUserID: String): String;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Security1.Login;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Security1.Logout;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Security1.ModifyPassword;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Lines.Assign(Security1.UserList);
end;

procedure TForm1.GetClick(Sender: TObject);
begin
  with Memo1.Lines do
  begin
    Clear;
    Add('ID=' + Security1.UserID);
    Add('Name='+ Security1.UserName);
    Add('Password='+Security1.Password);
  end;
end;

procedure TForm1.Security1PasswordChanged(Sender: TObject);
begin
  // Update Password into DB or Files
end;

procedure TForm1.Security1UserChanged(Sender: TObject);
begin
  // Set Rights of the user
end;

procedure TForm1.Security1GetUsers(Sender: TObject);
begin
  // loadin user ID and Names to Security1.UserList
  // recomend in Mode '[000] 000000'
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  //  if not Security1.Login then Close;
end;

function TForm1.Security1ValidatePassword(Sender: TComponent;
  varUserID: String): String;
begin
  // Get the password by UserID
  Result := '001';
end;

end.