changepassword.pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit changepassword;

interface

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

type
  TFormchangepassword = class(TForm)
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formchangepassword: TFormchangepassword;

implementation
uses cardlogon,ado_datamodule,adodb,db;
{$R *.DFM}

procedure TFormchangepassword.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

procedure TFormchangepassword.Edit2KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then
edit3.SetFocus;
end;

procedure TFormchangepassword.Edit3KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then
BitBtn1.SetFocus;
end;

procedure TFormchangepassword.BitBtn1Click(Sender: TObject);
var
success:boolean;
begin
if (edit1.Text=current_user_password) and (edit2.Text=edit3.Text) then
begin
datamodule1.ADOTable_users.active:=true;
success:=datamodule1.ADOTable_users.locate('name',current_user, [loCaseInsensitive]);
if success then
begin
datamodule1.ADOTable_users.Edit;
datamodule1.ADOTable_users.FieldByName('password').value:=trim(edit2.text);
datamodule1.ADOTable_users.Post;
messagedlg('密码更改成功！',mtconfirmation,[mbok],0);
datamodule1.ADOTable_users.active:=false;
close;
end;
end
else
messagedlg('旧密码输入不对或新密码两次输入不一致，密码修改失败！',mtconfirmation,[mbok],0);
datamodule1.ADOTable_users.active:=false;
end;

procedure TFormchangepassword.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.