modipass.pas

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

unit modipass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, ExtCtrls, DBCtrls, Grids, DBGrids;

type
  TPassModifyDialog = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    btnOk: TButton;
    btnCancel: TButton;
    Label4: TLabel;
    EditOldPS: TEdit;
    EditNewPS: TEdit;
    EditRetryNewPS: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute:Boolean;
  end;

var
  PassModifyDialog: TPassModifyDialog;

implementation

{$R *.DFM}

{ TFormPassEdit }

function TPassModifyDialog.Execute:Boolean;
begin
{  Result := False;
  if ShowModal=mrOk then
  begin
    EditPassword.DataSource.DataSet.Post;
    Result := True;
  end;}
end;

procedure TPassModifyDialog.FormActivate(Sender: TObject);
begin
{  EditPassword.DataSource := DataModuleAll.dsOperator;
  EditUserName.DataSource := DataModuleAll.dsOperator;
  EditUserNo.DataSource := DataModuleAll.dsOperator; }
  EditOldPS.Text := '';
  EditNewPS.Text := '';
  EditRetryNewPS.Text := '';
  EditOldPS.SetFocus;
end;

procedure TPassModifyDialog.SpeedButton1Click(Sender: TObject);
begin
{  with DataModuleAll.TableOperator do
  begin
    FormMain.RightsDialog.Rights := FieldByName('Rights').AsString;
    if FormMain.RightsDialog.Execute then
    begin
      Edit;
      FieldByName('Rights').AsString := FormMain.RightsDialog.Rights;
    end;
  end;}
end;

end.