passwordchange.~pas

一个图书管理系统

unit passwordchange;

interface

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

type
  Tpasswordchangeform = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordchangeform: Tpasswordchangeform;

implementation
  uses main;
{$R *.dfm}

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

procedure Tpasswordchangeform.FormActivate(Sender: TObject);
begin
    if qx[1] then
    begin
        edit1.text:='';
        edit1.SetFocus;
    end
    else
    begin
        edit1.text:=username;
        edit1.readonly:=true;
        edit1.TabStop:=false;
        edit1.Enabled:=false;
        edit2.setfocus;
    end;
    edit2.text:='';
    edit3.text:='';
end;

procedure Tpasswordchangeform.Edit1Exit(Sender: TObject);
var
    adodataset1:TAdoDataset;
begin
    if edit1.text<>'' then
    begin
        adodataset1:=TAdodataset.create(self);
        adodataset1.Connection:=adoconnection1;
        adodataset1.close;
        adodataset1.CommandType:=cmdText;
        adodataset1.CommandText:='select * from 操作用户表 where 用户名=:username';
        adodataset1.Parameters.clear;
        adodataset1.Parameters.AddParameter;
        adodataset1.Parameters[0].name:='username';
        adodataset1.Parameters[0].DataType:=ftstring;
        adodataset1.Parameters[0].Direction:=pdinput;
        adodataset1.Parameters[0].Value:=edit1.text;
        adodataset1.Active:=true;
        if adodataset1.Recordset.RecordCount=0 then
        begin
            Application.MessageBox('您输入的用户名错误，请检查！','提示信息',mb_ok);
            edit1.setfocus;
        end;
        adodataset1.Close;
    end
end;

procedure Tpasswordchangeform.BitBtn1Click(Sender: TObject);
var
    adoquery1:TAdoQuery;
begin
    if edit2.text=edit3.text then
    begin
        Adoquery1:=TAdoQuery.Create(self);
        Adoquery1.Connection:=adoconnection1;
        adoquery1.SQL.Clear;
        adoquery1.SQL.add('update 操作用户表 set 密码=:password where 用户名=:username');
        adoquery1.Parameters.Clear;
        adoquery1.Parameters.AddParameter;
        adoquery1.Parameters[0].Name:='password';
        adoquery1.Parameters[0].DataType:=ftstring;
        adoquery1.Parameters[0].Direction:=pdinput;
        adoquery1.Parameters[0].Value:=edit2.text;
        adoquery1.Parameters.AddParameter;
        adoquery1.Parameters[1].Name:='username';
        adoquery1.Parameters[1].DataType:=ftstring;
        adoquery1.Parameters[1].Direction:=pdinput;
        adoquery1.Parameters[1].Value:=edit1.text;
        adoquery1.ExecSQL;
        adoquery1.Close;
    end
    else
    begin
        Application.MessageBox('两次密码输入不一致，请检查！','提示信息',mb_ok);
    end;
    edit2.SetFocus;
    edit2.text:='';
    edit3.text:='';
end;

end.