umodpass.pas

来自「DELPHI编程入门篇.从基础入手,浅显易懂,一定物有所值.」· PAS 代码 · 共 103 行

unit Umodpass;

interface

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

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

var
  frmmodpass: Tfrmmodpass;

implementation

uses Udatamodule;

{$R *.dfm}

procedure Tfrmmodpass.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text = '' then
  begin
    showmessage('请输入用户名');
    exit;
  end;
  if edit3.Text <> edit4.Text then
  begin
    showmessage('新密码与验证密码不相等');
    exit;
  end;
  adoquery1.SQL.Text:='select username,userpass from userinfo where oprid = '''+edit1.Text+'''';
  adoquery1.Open;
  if adoquery1.RecordCount > 0 then
  begin
    if adoquery1.FieldByName('userpass').AsString = edit2.Text then
    begin
      adoquery1.Edit;
      adoquery1.FieldByName('userpass').AsString:=edit3.Text;
      adoquery1.Post;
      showmessage('修改成功!');
    end
    else
    showmessage('密码错误！');
  end
  else
  showmessage('用户名不存在！');
end;

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

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

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

procedure Tfrmmodpass.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  BitBtn1.Click;
end;

procedure Tfrmmodpass.BitBtn2Click(Sender: TObject);
begin
  modalresult:=mrcancel;
end;

end.