unit4.~pas

作者针对当前酒店客房管理的现状

unit Unit4;

interface

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

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

var
  Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

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

procedure TForm4.Button1Click(Sender: TObject);
 var  Query:TQuery;
begin
    if Edit2.Text<>Edit3.Text then
    begin
    ShowMessage('确认密码不相同,请确认!');
    exit;
    end;
    begin
      Query:=TQuery.Create(nil);
    try

       Query.DatabaseName:='高校图书管理系统';
       Query.SQL.Add('select *from Operator where UserName=:UserName and UserPwd=:UserPwd');
       Query.ParamByName('UserName').AsString:=Form2.Name_Edit.Text;
       Query.ParamByName('UserPwd').AsString:=Edit1.Text;
       Query.Open;
       if Query.RecordCount<0 then
       begin
       ShowMessage('原密码错误,你不能修改!');
       exit;
       end;
       Query.SQL.Add('update Operator set UserPwd=:a where UserName=:b');
         Query.ParamByName('b').AsString:=Form2.Name_Edit.Text;
          Query.ParamByName('a').AsString:=Edit2.Text;
          Query.ExecSQL;
       finally

       Query.Free;
     end;
     ShowMessage('密码修改成功');
end;
end;

end.