passwd.pas

完成酒店管理系统

unit PassWd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons,Login,MainDinner,MainRoom,MainSail,
  Admin;

type
  TPassWdFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PassWdFrm: TPassWdFrm;

implementation

{$R *.dfm}

procedure TPassWdFrm.BitBtn2Click(Sender: TObject);
begin
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
EDit1.SetFocus;
end;

procedure TPassWdFrm.Button1Click(Sender: TObject);
begin
Close;

end;

procedure TPassWdFrm.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text = '' ) or (Edit2.Text = '') or (Edit3.Text = '') then
begin
ShowMessage('输入信息不完整，请重新输入！');
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
Edit1.SetFocus;
end
else
if Edit1.Text <>  UserPassWd then
begin
ShowMessage('输入密码不正确，请重新输入！');
//判断输入密码三次



Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';
Edit1.SetFocus;
end
else
if edit2.Text <> Edit3.Text then
Begin
ShowMessage('两次输入密码不一致，请重新输入！');
Edit2.Text:= '';
Edit3.Text:= '';
Edit2.SetFocus;
end
else
begin
ADOQuery1.Locate('用户名',UserName,[loCaseInsensitive]);
ADOQuery1.Edit;
ADOQuery1.FieldValues['密码']:= Edit2.Text;
//UserPassWd:= Edit2.Text;
//ShowMessage(UserPassWd);
ADOQuery1.Post;

if   UserPower = '管理员' then
begin
if Radio = 0 then
begin
MainDinnerFrm.ADOQuery1.Refresh;
MainDinnerFrm.DBGrid1.Refresh;
end;
if Radio = 1 then
begin
MainRoomFrm.ADOTable1.Refresh;
MainRoomFrm.DBGrid1.Refresh;
end;
if Radio = 2 then
begin
MainSailFrm.ADOTable1.Refresh;
MainSailFrm.DBGrid1.Refresh;
end;
end;
if UserPower = '餐饮员工' then
begin
MainDinnerFrm.ADOQuery1.Refresh;
MainDinnerFrm.DBGrid1.Refresh;
end;
if UserPower = '客房员工' then
begin
MainRoomFrm.ADOTable1.Refresh;
MainRoomFrm.DBGrid1.Refresh;
end;
if UserPower = '销售分析员工' then
begin
MainSailFrm.ADOTable1.Refresh;
MainSailFrm.DBGrid1.Refresh;
end;
ShowMessage('密码已修改！');
end;


end;



end.