loginform.pas

基本的物业管理系统

unit LoginForm;

interface

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

type
  TFrmLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    btOK: TButton;
    btCancal: TButton;
    Label3: TLabel;
    procedure btCancalClick(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
Uses DataM,MainFrm;
{$R *.dfm}

procedure TFrmLogin.btCancalClick(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('Connect to DataBase Error!',mtError,[mbOK],0);
  close;
  end
  end;
  if Data.ADOLogin.RecordCount=1 then
    if Data.ADOLogin['Password']=Edit2.Text then
      begin
      Flag:=True;
      end
    else
      begin
      Flag:=False;
      MessageDlg('Password Error!',mtError,[mbOK],0);
      end
  else
    begin
    Flag:=False;
    MessageDlg('Username Error!',mtError,[mbOK],0);
    end;
  Close;
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.