passwordunit.pas

使用delphi语言

unit passwordunit;

interface

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

type
  Tpasswordform = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordform: Tpasswordform;

implementation
uses dmunit,mainunit;
{$R *.dfm}

procedure Tpasswordform.BitBtn2Click(Sender: TObject);
begin
  dm.user.Active:=false;
  close;
end;

procedure Tpasswordform.BitBtn1Click(Sender: TObject);
begin
  dm.user.Active:=true;
  if (edit1.Text='')or (edit3.Text='')or(edit3.Text='') then
  begin
    messagebox(self.Handle,'口令框不能为空','提示信息',mb_iconinformation);
    exit;
  end;

  dm.user.Locate('用户名称',mainform.name,[]);

  if edit1.Text<>dm.user.fieldbyname('密码').AsString then
  begin
    messagebox(self.Handle,'旧口令输入不正确','提示信息',mb_iconinformation);
    exit;
  end;

  if edit2.Text<>edit3.Text then
  begin
    messagebox(self.Handle,'新口令不一致','提示信息',mb_iconinformation);
    exit;
  end;
  dm.user.Open ;
  dm.user.Locate('用户名称',mainform.name,[]);
  dm.user.Edit ;
  dm.user.fieldbyname('密码').AsString:=edit2.Text ;
  dm.user.Post ;
  messagebox(self.Handle,'口令修改成功!','提示信息',mb_iconinformation);
  dm.user.Active:=false;
  close;
end;

procedure Tpasswordform.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    selectnext(sender as twincontrol,true,true);
end;

end.