loginform.pas

简单的小区物业管理系统,户籍管理,出入管理,系统管理,收费管理,

unit LoginForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type
  Tfrmlogin = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Bitok: TBitBtn;
    Bitcancel: TBitBtn;
    Image2: TImage;
    Image3: TImage;
    procedure btcancelClick(Sender: TObject);
    procedure btokClick(Sender: TObject);   
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlogin: Tfrmlogin;
  flag:Boolean;
implementation

{$R *.dfm}
  uses  mainform,  DataM;
procedure Tfrmlogin.btcancelClick(Sender: TObject);
begin
flag:=false;
close;
end;

procedure Tfrmlogin.btokClick(Sender: TObject);
begin
  try
  With Data do
  begin
  ADOLogin.Close;
  ADOLogin.SQL.Clear;
  ADOLogin.SQL.Add('select * from Users where Username="'+Edit1.Text+'"');
  ADOConnectLogin.Connected:=True;
  ADOLogin.Open;
  end
  except
  begin
  MessageDlg('连接数据库失败!',mtError,[mbOK],0);
  close;
  end
  end;
  if Data.ADOLogin.RecordCount=1 then
    if (Data.ADOLogin['Password']=Edit2.Text )and (Data.ADOLogin['Authorization']=10)  then
      begin
      Flag:=True;
      frmlogin.Hide;
      frmmain.show;
      end
    else if(Data.ADOLogin['Password']=Edit2.Text )and (Data.ADOLogin['Authorization']=9)  then
     begin
      Flag:=True;
      frmlogin.Hide;
      frmmain.show;
      frmmain.N2.Enabled:=false;
      frmmain.N3.Enabled:=false;
      frmmain.N4.Enabled:=false;
      frmmain.N5.Enabled:=false;
      end
     else if(Data.ADOLogin['Password']=Edit2.Text )and (Data.ADOLogin['Authorization']=8)  then
     begin
      Flag:=True;
      frmlogin.Hide;
      frmmain.show;
      frmmain.N1.Enabled:=false;
      frmmain.N3.Enabled:=false;
      frmmain.N4.Enabled:=false;
      frmmain.N5.Enabled:=false;
      end
       else if(Data.ADOLogin['Password']=Edit2.Text )and (Data.ADOLogin['Authorization']=7)  then
     begin
      Flag:=True;
      frmlogin.Hide;
      frmmain.show;
      frmmain.N1.Enabled:=false;
      frmmain.N2.Enabled:=false;
      frmmain.N4.Enabled:=false;
      frmmain.N5.Enabled:=false;
      end
        else if(Data.ADOLogin['Password']=Edit2.Text )and (Data.ADOLogin['Authorization']=6)  then
     begin
      Flag:=True;
      frmlogin.Hide;
      frmmain.show;
      frmmain.N1.Enabled:=false;
      frmmain.N2.Enabled:=false;
      frmmain.N3.Enabled:=false;
      frmmain.N5.Enabled:=false;
      end

    else
      begin
      Flag:=False;
      MessageDlg('密码输入错误!',mtError,[mbOK],0);
      end
  else
    begin
    Flag:=False;
    MessageDlg('用户名不存在!',mtError,[mbOK],0);
    end;
end;

procedure Tfrmlogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if not Flag then
  begin
  Data.ADOLogin.Close;
  Data.ADOConnectLogin.Connected:=False;
  end
end;


procedure Tfrmlogin.FormCreate(Sender: TObject);
begin
  Flag:=False;
end;



end.