loginform.pas

来自「本程序是一个餐饮业的管理软件」· PAS 代码 · 共 90 行

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;
    btCancel: TButton;
    procedure btOKClick(Sender: TObject);
    procedure btCancelClick(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,MainForm;
{$R *.dfm}

procedure TFrmLogin.btCancelClick(Sender: TObject);
begin
  Flag:=False;
  Close;
end;

procedure TFrmLogin.btOKClick(Sender: TObject);
begin
  try
  With Data do
  begin
  ADOQLogin.Close;
  ADOQLogin.SQL.Clear;
  ADOQLogin.SQL.Add('select * from Users where User="'+Edit1.Text+'"');
  ADOConnectMeal.Connected:=True;
  ADOQLogin.Open;
  end
  except
  begin
  MessageDlg('Connect to DataBase Error!',mtError,[mbOK],0);
  close;
  end
  end;
  if Data.ADOQLogin.RecordCount=1 then
    if Data.ADOQLogin['PWD']=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.ADOQLogin.Close;
  Data.ADOConnectMeal.Connected:=False;
  end

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

end.