u_login.pas

本系统分为前台和后台两部分：前台用来实现客户预订、入住等操作

unit u_login;

interface

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

type
  TF_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    i_passwd: TEdit;
    b_login: TBitBtn;
    b_exit: TBitBtn;
    i_admin: TEdit;
    procedure i_passwdChange(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
    procedure b_loginClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_login: TF_login;

implementation

uses u_data, u_main;
{$R *.DFM}

procedure TF_login.i_passwdChange(Sender: TObject);
begin
  b_login.Enabled:=(length(i_passwd.Text)>0);
end;

procedure TF_login.b_exitClick(Sender: TObject);
begin
  Close;
  Application.Terminate;
end;

procedure TF_login.b_loginClick(Sender: TObject);
var
  sSql:string;
begin
  if (Trim(i_admin.Text)='')or(i_passwd.Text='') then
  begin
    MessageDlg('请输入管理员帐号和密码！', mtWarning, [mbOK, mbHelp], 6);
    i_admin.SetFocus;
    Exit;
  end;

  sSql:='select * from admin_user where name=''%s'' and passwd=''%s''';
  with DM_main.Q_admin do
  begin
    SQL.Text:=Format(sSql,[Trim(i_admin.Text),i_passwd.Text]);
    Open;
    if IsEmpty then
    begin
      MessageDlg('连接错误！请确认管理员帐号和密码！', mtWarning, [mbOK, mbHelp], 6);
      i_admin.SetFocus;
      Exit;
    end
    else
    begin
      Close;
      self.Close;
    end;
  end;
end;

procedure TF_login.FormActivate(Sender: TObject);
begin
  i_admin.SetFocus;
end;

end.