adminpasswordmodify.pas

一个不错的信息管理系统

unit adminpasswordmodify;

interface

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

type
  TForm24 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    Bevel1: TBevel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form24: TForm24;

implementation

{$R *.dfm}

procedure TForm24.Button1Click(Sender: TObject);
var
result:string;
begin
with adotable1 do
begin
Active:=false;
    TableName:='adminpassword';
    active:=true;
    if locate('name',edit1.Text,[]) then
    begin
      result:=lookup('name',edit1.Text,'password');
      if (result=edit2.Text) and (edit3.text=edit4.text) then
       begin
       edit;
       FieldByName('password').asstring := edit3.Text;
       post;
       active:=false;
       beep();
       showmessage('你已成功的更改了密码！');
       edit1.Text:='';
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       end
       else
       begin
       if result<>edit2.Text then
      begin
       beep();
       showmessage('你的旧密码不正确！');
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       end
       else
       begin
       beep();
       showmessage('你两次输入的密码不一致！');
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       end;
       end
    end
    else
    begin
       edit1.Text:='';
       edit2.Text:='';
       edit3.Text:='';
       edit4.Text:='';
       beep();
    showmessage('该用户不存在！');
    end;
end;

end;

procedure TForm24.Button2Click(Sender: TObject);
begin
close;
end;

end.