changepassword.pas

我自己写的一个有关酒店管理系统的代码 大家

unit changepassword;

interface

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

type
  TChangePasswordForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
  end;

var
  ChangePasswordForm: TChangePasswordForm;

implementation
uses main;
{$R *.dfm}
//退出该模块
procedure TChangePasswordForm.BitBtn2Click(Sender: TObject);
begin
    query1.close;
    Close;
end;
//确认修改
procedure TChangePasswordForm.BitBtn1Click(Sender: TObject);
begin
      query1.RequestLive:=true;
      if Edit2.Text=Edit3.Text then
      begin
          query1.sql.Clear;
          query1.SQL.add('select * from operator where name=:username');
          query1.ParamByName('username').asstring:=Edit1.Text;
          query1.open;
          if query1.RecordCount=1 then
          begin
              //如果两次密码一致就修改
              query1.Close;
              query1.SQL.clear;
              query1.SQL.add('update operator set password=:password where name=:username');
              query1.ParamByName('username').asstring:=Edit1.Text;
              query1.ParamByName('password').asstring:=Edit2.Text;              
              query1.execsql;
              initiate;
          end
          else
          begin
              Application.MessageBox('没有该用户，请检查!','提示信息',mb_OK);

          end;
      end
      else
      begin
          Application.MessageBox('您两次输入的密码不一致，请检查!','提示信息',mb_OK);
          initiate;
      end;
end;
//初始化模块
procedure TChangePasswordForm.initiate;
begin
      if username<>'admin' then
      begin
          Edit1.Text:=username;
          Edit1.Enabled:=false;
          Edit1.TabStop:=false;
          Edit2.setfocus;
      end
      else
      begin
          edit1.Text:='';
          edit1.SetFocus;
      end;
      edit2.Text:='';
      edit3.Text:='';
end;
//系统启动时，执行该模块
procedure TChangePasswordForm.FormActivate(Sender: TObject);
begin
    initiate;
end;

end.