changepass.pas

劳保用品管理系统

unit changepass;

interface

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

type
  Tchangepassfm = class(TForm)
    Panel1: TPanel;
    Panel4: TPanel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit14: TEdit;
    Edit15: TEdit;
    bitbtn4: TBitBtn;
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure bitbtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changepassfm: Tchangepassfm;

implementation
uses adodata;
{$R *.dfm}

procedure Tchangepassfm.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then key := #0;
  if key = #13 then edit15.SetFocus;

end;

procedure Tchangepassfm.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then key := #0;
  if key = #13 then bitbtn4.SetFocus;
end;

procedure Tchangepassfm.bitbtn4Click(Sender: TObject);
var sqltxt: string;
begin
  if length(trim(edit14.Text)) = 0 then
  begin
    showmessage('口令长度不能为零！');
    exit;
  end;
  sqltxt := 'update pw set passwd=''' + trim(edit14.Text) + '''';
  if trim(edit14.Text) = trim(edit15.Text) then
  begin
    with adodm.ADOQuery2 do
    begin
      close;
      sql.clear;
      sql.Add(sqltxt);
      EXECSQL;
    end;
    showmessage('你已经成功修改了密码！下次运行程序时生效！');
    edit15.Clear;
    edit14.Clear;
  end
  else
  begin
    showmessage('两次输入的密码不一致！请重新输入！');
    edit15.Clear;
    edit15.SetFocus;
  end;

end;

end.