mmxg.pas

图书管理系统

unit mmxg;

interface

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

type
  TForm3 = class(TForm)
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Image2: TImage;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses dengl;

{$R *.dfm}

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

procedure TForm3.BitBtn1Click(Sender: TObject);
begin

form1.ADOQuery1.Open;
  if edit1.Text='' then
    begin
     showmessage('请输入旧密码！');
     edit1.SetFocus;
    end
  else
   begin
     if not form1.ADOQuery1.Eof then
       if form1.ADOQuery1['密码']<>edit1.Text then
         begin
          application.MessageBox('输入错误的密码，请重新输入！','提示');
          edit1.SetFocus;
           exit;
         end;
  if edit2.Text='' then
    begin
      application.MessageBox('请输入新密码！','提示！');
      edit2.SetFocus;
      exit;
    end
  else
    if edit3.Text='' then
     begin
      application.MessageBox('请确认新密码！','提示！');
      edit3.SetFocus;
       exit;
     end
    else
     if edit2.Text<>edit3.Text then
       begin
        application.MessageBox('确认密码输入错误，请重新输入！','提示！');
        edit3.SetFocus;
        exit;
       end;
  form1.ADOQuery1.Edit;
  form1.ADOQuery1['密码']:=edit3.Text;
  form1.ADOQuery1.Post;
  application.MessageBox('修改密码成功！','提示！');

end;
end;

end.