changepwd.pas

一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的

unit ChangePwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TfChangePwd = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel2: TBevel;
    Image1: TImage;
    Label5: TLabel;
    labDate: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    EdtOldPwd: TEdit;
    Label6: TLabel;
    EdtNewPwd1: TEdit;
    Label7: TLabel;
    EdtNewPwd2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function InputNewPwd(var aOldPwd, aNewPwd: string):boolean;
  end;

var
  fChangePwd: TfChangePwd;

implementation

{$R *.dfm}
function TfChangePwd.InputNewPwd(var aOldPwd, aNewPwd: string):boolean;
begin
  Result := ShowModal = mrOk;
  if Result then
  begin
    aOldPwd:=EdtOldPwd.Text;
    aNewPwd:=EdtNewPwd1.Text;
  end;
end;
procedure TfChangePwd.BitBtn1Click(Sender: TObject);
begin
    if EdtNewPwd1.Text= EdtNewPwd2.Text then
         ModalResult:=mrOK
    else MessageDlg('两个新密码不一致，请输入一致的新密码。',mtInformation, [mbYes], 0);
end;

procedure TfChangePwd.FormCreate(Sender: TObject);
begin
   labDate.Caption:=Formatdatetime('yyyy.mm.dd',date);
end;

end.