unitlogin.pas

公交行业的管理系统

unit Unitlogin;

interface

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

type
  TFormLogin = class(TForm)
    Image1: TImage;
    Query: TADOQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Editloginname: TEdit;
    Label2: TLabel;
    editpassword: TEdit;
    BitBtnok: TBitBtn;
    BitBtncancel: TBitBtn;
    procedure BitBtncancelClick(Sender: TObject);
    procedure BitBtnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    b:boolean;
  end;

var
  FormLogin: TFormLogin;

implementation

uses userUnit, BusTradeDataModuleUnit, MenuUnit, SystemSetUnit{BusCorUnit};

{$R *.dfm}

procedure TFormLogin.BitBtncancelClick(Sender: TObject);
begin
    if MainFrm.flag=1 then
    begin
    formlogin.close;
    exit;
    end;
    formlogin.close;
    application.Terminate;
end;

procedure TFormLogin.BitBtnokClick(Sender: TObject);
begin
/////////////////////////begin////////////////////////////
if MainFrm.flag=1 then
begin
  if editloginname.Text='clevergroup' then
  begin
    //  TaxiEprMainFm.Show;
   formlogin.Close;
        Application.CreateForm(Tuserform, userform);
        Application.CreateForm(Tsystemform, systemform);
        systemform.ShowModal;
        systemform.Free;
        userform.Free;
      end
  else
  begin
  b:=false;
  Query.Active :=false;
  Query.SQL.Clear;
  Query.SQL.Add('select * from 用户管理表 where loginname='''+trim(editloginname.Text)+''' and password='''+trim(editpassword.Text)+'''');
  Query.Active:=true;
  if query.Eof then
  begin
    Messagebox(self.handle,'系统无法让您登录，请检查用户名及口令！','提示',MB_OK+MB_ICONWARNING);
    editpassword.Text :='';
    editpassword.SetFocus;
    exit;
  end
  else
  begin
 //    TaxiEprMainFm.Show;
  formlogin.Close;
        Application.CreateForm(Tuserform, userform);
        Application.CreateForm(Tsystemform, systemform);
        systemform.ShowModal;
        systemform.Free;
        userform.Free;
  end;
  end;
  exit;
end;
//////////////////////////end/////////////////////////////
  if editloginname.Text='clevergroup' then
  begin
  MainFrm.show;
    formlogin.Close;
      //formlogin.hide;
      //SetWindowPos(self.Handle,HWND_NOTOPMOST,300,300,349,222,SWP_NOZORDER);
      //BusCorMainFm.Caption:='欢迎使用本系统'+ ' [ 用户: '+BusCorMainFm.username+']';
      //BusCorMainFm.Show;
      //BusCorMainFm.Update;
      end
  else
  begin
  //查找相应的用户
  //showmessage(Encrypt(trim(etpw.Text),'123')+';'+trim(lognames[cbusers.ItemIndex]));
  b:=false;
  Query.Active :=false;
  //Query.DatabaseName :=getconnstr('sysdb','');
  Query.SQL.Clear;
  Query.SQL.Add('select * from 用户管理表 where loginname='''+trim(editloginname.Text)+''' and password='''+trim(editpassword.Text)+'''');
  Query.Active:=true;
  if query.Eof then
  begin
  //application.MessageBox('系统无法让您登录，请检查用户名及口令！','提示',MB_OK+MB_ICONWARNING);
    Messagebox(self.handle,'系统无法让您登录，请检查用户名及口令！','提示',MB_OK+MB_ICONWARNING);
    editpassword.Text :='';
    editpassword.SetFocus;
 //   application.Terminate;
    exit;
  end
  else
  begin
     {BusCorMainFm:=tBusEpr_Frm.Create(application);
     BusCorMainFm.Update;
     BusCorMainFm.username :=query.fieldbyname('username').AsString ;
     BusCorMainFm.logname :=query.fieldbyname('loginname').AsString ; }
     MainFrm.show;


 //   formlogin.hide;
 formlogin.Close;

  end;
  //SetWindowPos(self.Handle,HWND_NOTOPMOST,300,300,349,222,SWP_NOZORDER);
  //BusEpr_Frm.Caption:='欢迎使用本系统'+ ' [ 用户: '+BusEpr_Frm.username+']';
  //BusEpr_Frm.Show;
  //BusEpr_Frm.Update;
  end;
end;

end.