changepassword.~pas

来自「人事管理系统」· ~PAS 代码 · 共 48 行

unit changepassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ToolWin, ComCtrls,stdctrls;

type
  TpasswordChangeForm = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordChangeForm: TpasswordChangeForm;

implementation
  uses main;
{$R *.dfm}

procedure TpasswordChangeForm.FormActivate(Sender: TObject);
begin
    if qx1 then
        edit1.SetFocus
    else
    begin
        edit1.text:=username;
        edit1.ReadOnly:=true;
        edit1.TabStop:=false;
        edit2.SetFocus; 
    end;
end;

end.