unit4.~pas

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

//用户密码修改
//changepassword
unit Unit4;

interface

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

type
  Tchangepassword = class(TForm)
    ADODataSet1: TADODataSet;
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changepassword: Tchangepassword;

implementation

uses Unit1;

{$R *.dfm}

procedure Tchangepassword.FormCreate(Sender: TObject);
begin
edit1.Text:=denglu.usename;
edit1.Enabled:=false;
edit2.Text:='';
edit3.Text:='';

end;

procedure Tchangepassword.BitBtn1Click(Sender: TObject);
begin
if edit2.text='' then
   begin
   application.MessageBox('新密码不能为空！','提示信息',mb_OK);//新密码不能为空
   edit2.SetFocus;
   exit;
   end;
if edit3.text='' then
   begin
   Application.MessageBox('重输新密码不能为空！','提示信息',mb_OK);//重输新密码不能为空
   edit3.SetFocus;
   exit;
   end;
if (trim(edit2.text))=(trim(edit3.text)) then
   begin
   AdoDataSet1.Active:=true;
   adodataset1.First;
   while not adodataset1.Eof do
   begin
   if adodataset1.FieldByName('操作员名').AsString=edit1.Text then
      begin
      AdoDataSet1.Edit;
      AdoDataSet1.FieldByName('密码').AsString:=edit2.text;
      AdoDataSet1.Post;
      Application.MessageBox('密码已修改！','提示信息',mb_OK);//新密码不能为空
      edit1.Text:=denglu.usename;
      edit1.Enabled:=false;
      edit2.Text:='';
      edit2.SetFocus;
      edit3.Text:='';
      adodataset1.Refresh;
      exit;
      end
   else
       adodataset1.Next;
   end;
   end
else
    begin
    Application.MessageBox('您两次输入的密码不一致，请检查!','提示信息',mb_OK);
    edit1.Text:=denglu.usename;
    edit1.Enabled:=false;
    edit2.Text:='';
    edit2.SetFocus;
    edit3.Text:='';
    exit;
    end;
end;






procedure Tchangepassword.BitBtn2Click(Sender: TObject);
begin
edit2.Text:='';
edit3.Text:='';
adodataset1.Close;
close;
end;

procedure Tchangepassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
edit2.Text:='';
edit3.Text:='';
adodataset1.Close;
close;
end;

end.