changepassword.pas

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

unit changepassword;

interface

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

type
  TChangePasswordForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADODataSet1: TADODataSet;
    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
    Close;
end;

procedure TChangePasswordForm.BitBtn1Click(Sender: TObject);
begin
      if Edit2.Text=Edit3.Text then
      begin
          AdoDataSet1.Active:=false;
          AdoDataSet1.Parameters[0].Value:=Edit1.Text;
          AdoDataSet1.CommandText:='select * from 操作员表 where 操作员名=:username';
          AdoDataSet1.Active:=true;
          if AdoDataSet1.Recordset.RecordCount=1 then
          begin
              AdoDataSet1.Edit;
              AdoDataSet1.FieldByName('密码').AsString:=edit2.text;
              AdoDataSet1.Post;
              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.