unit5.pas

这个是我自主研发的图书管理系统的应用

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}
 uses unit1;
procedure TForm5.Button1Click(Sender: TObject);
 var
    oldpass,newpass,checkpass:string;
begin
  oldpass:=trim(edit1.Text);
  newpass:=trim(edit2.Text);
  checkpass:=trim(edit3.Text);
  if length(newpass)<3 then
    begin
      application.MessageBox('新密码由3--20个字符组成,请重新输入!','出错',MB_OK+MB_ICONWarning);
      edit2.Clear;
      edit2.SetFocus;
      exit;
    end;
  if (newpass<>checkpass) then
    begin
      application.MessageBox('确认密码与新密码不相同,请重新输入!','出错',MB_OK+MB_ICONWarning);
      edit2.Clear;
      edit3.Clear;
      edit2.SetFocus;
      exit;
    end;
  Adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from admin where '
 +'username=:user and password=:pass');
 adoquery1.Parameters.ParamByName('user').Value:=username1;
 adoquery1.Parameters.ParamByName('pass').Value:=edit1.Text;
 AdoQuery1.Open;
 if adoquery1.Eof and adoquery1.Bof then
   begin
     application.MessageBox('原密码错误,请重新输入!','出错',MB_OK+MB_ICONWarning);
     edit1.Clear;
     edit2.Clear;
     edit3.Clear;
     edit1.SetFocus;
     exit;
   end;
 adoquery1.Edit;
 adoquery1.FieldByName('password').AsString:=checkpass;
 adoquery1.Post;
 application.MessageBox('密码修改成功!','成功',MB_OK+MB_ICONinformation);
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
  //animatewindow(handle,1000,aw_hide or aw_center);
  form5.Hide;
  //Application.CreateForm(Tform1,form1);
  animatewindow(form1.handle,1000,aw_Activate or aw_center);
  form1.Show;
end;

end.