unitlogin.pas

一套宾馆管理系统

unit UnitLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,IniFiles, ADODB, DB;
  //IniFiles 用来操作ini文件
type
  TfrmLogin = class(TForm)
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtUsername: TEdit;
    cboRoles: TComboBox;
    edtPassword: TEdit;
    ADOQuery: TADOQuery;
    procedure btnOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtUsernameExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    xx:boolean;
    strCon:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses UnitMain;

{$R *.dfm}

procedure TfrmLogin.btnOkClick(Sender: TObject);
var
 username,password:string;
 smt:string;
begin
  if edtusername.text='' then
     begin
     showmessage('用户名不能为空');
     exit;
     end;
  username:=edtusername.Text;
  password:=edtpassword.Text;
  smt:='select * from userlist where username='''+username+''' and secret='''+password+'''';
  adoquery.SQL.Clear;
  adoQuery.sql.Add(smt);
  adoQuery.ConnectionString:=strCon;
  adoquery.Open ;
  if adoquery.RecordCount=0 then
     begin
     showmessage('用户名或密码错误，请重新登录');
     edtusername.Text:='';
     edtPassword.Text:='';
     edtUsername.SetFocus;
     exit;
     end
  else
    begin
      frmmain.Show  ;
      xx:=true;
      frmlogin.Close; ;
    end;
end;

procedure TfrmLogin.FormCreate(Sender: TObject);

begin
 application.CreateForm(TfrmMain,frmMain);
 frmMain.ReadINI ;
 strCon:=frmMain.strCon;
end;

procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
application.Terminate ;
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not xx then
   application.Terminate ;
end;

procedure TfrmLogin.edtUsernameExit(Sender: TObject);
var
 smt:string;
 username:string;
begin
if edtUsername.text= '' then
   exit;
username:=edtUsername.Text;
 smt:='select b.roleid,b.rolename';
 smt:=smt+' from userroles a';
 smt:=smt+' left outer join rolelist b' ;
 smt:=smt+' on a.roleid=b.roleid';
 smt:=smt+' left outer join userlist c';
 smt:=smt+' on a.userid=c.userid';
 smt:=smt+' where c.username='''+username+'''';
adoQuery.Close;
adoQuery.SQL.Clear;
adoQuery.SQL.Add(smt);
adoQuery.ConnectionString:=strCon;
cboroles.Items.Clear;
try
adoquery.Open ;
 while not adoquery.Eof do
  begin
   cboroles.Items.Add(adoquery.fields[1].asstring);
   adoQuery.Next;
  end;
finally
 adoquery.Close;
 cboroles.ItemIndex:=0;
end;
end;

procedure TfrmLogin.FormShow(Sender: TObject);
begin
edtusername.SetFocus ;
end;

end.