password_edit.pas

来自「该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板」· PAS 代码 · 共 86 行

unit password_edit;

interface

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

type
  Tpass_edit = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    StatusBar1: TStatusBar;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1keypress(Sender: TObject; var key:char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pass_edit: Tpass_edit;

implementation

uses account_information;

{$R *.dfm}

procedure Tpass_edit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 account_inf.Show;
end;

procedure Tpass_edit.Edit1keypress(Sender: TObject; var key:char);
begin
 if key=#13 then
 bitbtn1.Click;
end;


procedure Tpass_edit.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select UserID from login_User where UserID='''+StatusBar1.Panels[0].Text+''' and Password ='''+edit1.Text+'''';
 adoquery1.Open;
 if adoquery1.FieldByName('UserID').AsString <> '' then
 begin
  if edit2.Text=edit3.Text then
  begin
   adocommand1.CommandText:='update login_User set Password='''+edit2.Text+''' where UserID='''+statusbar1.Panels[0].Text+'''';
   adocommand1.Execute;
   showmessage('密码修改成功');
   close;
  end
  else
  begin
   showmessage('密码确认错误，请重新输入');
  end;
 end
 else
 begin
  showmessage('密码错误，请重新输入');
 end;
end;

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

end.