login.pas

一个小型的酒店管理系统

unit Login;

interface

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

type
  TLoginFrm = class(TForm)
    StaticText1: TStaticText;
    ADOQuery1: TADOQuery;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    User: string;
  end;

var
  LoginFrm: TLoginFrm;

implementation

{$R *.dfm}
uses Main,Find1,Find2;

procedure TLoginFrm.SpeedButton1Click(Sender: TObject);
var
  sql: string;
  i,Perm: integer;
begin
  sql := 'select count(*) from HHUser where Account=:Account and Password=:Password';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(sql);
  ADOQuery1.Parameters.ParamByName('Account').Value :=Edit1.Text;
  ADOQuery1.Parameters.ParamByName('Password').Value :=Edit2.Text;
  ADOQuery1.Open;
  i := ADOQuery1.Fields[0].AsInteger;
  if i = 1 then
  begin
    sql := 'select Permissions,UserName from HHUser where Account=:Account and Password=:Password';
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(sql);
    ADOQuery1.Parameters.ParamByName('Account').Value := Edit1.Text;
    ADOQuery1.Parameters.ParamByName('Password').Value := Edit2.Text;
    ADOQuery1.Open;
    Perm := ADOQuery1.Fields[0].AsInteger;
    User := ADOQuery1.Fields[1].AsString;
    if Perm = 1 then
    begin
      MainFrm.MenuLogout.Enabled := True;
      MainFrm.MenuDataIn.Enabled := True;
      MainFrm.MenuDataDe.Enabled := True;
      MainFrm.MenuDataMo.Enabled := True;
      MainFrm.MenuFind.Enabled := True;
      MainFrm.MenuFind1.Enabled := True;
      MainFrm.MenuFind2.Enabled := True;
      MainFrm.MenuUser.Enabled := True;
      Find1Frm.SpeedButton2.Enabled := True;
      Find2Frm.SpeedButton2.Enabled := True;
      MainFrm.MenuLogin.Enabled := False;
      MainFrm.LogoutBtn.Enabled := True;
      MainFrm.DataInsBtn.Enabled := True;
      MainFrm.DataDelBtn.Enabled := True;
      MainFrm.DataModiBtn.Enabled := True;
      MainFrm.Find1Btn.Enabled := True;
      MainFrm.Find2Btn.Enabled := True;
      MainFrm.UserBtn.Enabled := True;
      MainFrm.LoginBtn.Enabled := False;
      LoginFrm.Close;
    end
    else
    begin
      MainFrm.MenuLogout.Enabled := True;
      MainFrm.MenuDataIn.Enabled := True;
      MainFrm.MenuDataDe.Enabled := True;
      MainFrm.MenuDataMo.Enabled := True;
      MainFrm.MenuFind.Enabled := True;
      MainFrm.MenuFind1.Enabled := True;
      MainFrm.MenuFind2.Enabled := True;
      Find1Frm.SpeedButton2.Enabled := False;
      Find2Frm.SpeedButton2.Enabled := False;
      MainFrm.MenuLogin.Enabled := False;
      MainFrm.LogoutBtn.Enabled := True;
      MainFrm.DataInsBtn.Enabled := True;
      MainFrm.DataDelBtn.Enabled := True;
      MainFrm.DataModiBtn.Enabled := True;
      MainFrm.Find1Btn.Enabled := True;
      MainFrm.Find2Btn.Enabled := True;
      MainFrm.UserBtn.Enabled := False;
      MainFrm.LoginBtn.Enabled := False;
      LoginFrm.Close;
    end;
  end
  else
  begin
    Edit1.Text := '';
    Edit2.Text := '';
    Edit1.SetFocus;
    ShowMessage('您输入的用户名或密码错误请重新输入！');
  end;
end;

procedure TLoginFrm.SpeedButton2Click(Sender: TObject);
begin
  LoginFrm.Close;
end;

end.