ulogo.pas

前言 随着旅游业的发展

unit ULogo;

interface

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

type
  TFlogo = class(TForm)
    Panel1: TPanel;
    LBname: TLabel;
    LBpassword: TLabel;
    EDname: TEdit;
    EDpassword: TEdit;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Flogo: TFlogo;
  flag:integer;

implementation

uses UDmo, UMainForm;

{$R *.dfm}

procedure TFlogo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if flag=1 then Action:=cafree
  else Action:=caNone;
end;

procedure TFlogo.BitBtn1Click(Sender: TObject);
var
  names:string;
  password:string;
begin
  password:=EDpassword.Text;
  names:=EDname.Text;
  with Dmo.ADOQuery1 do
  begin
     close;
     sql.Clear;
     sql.Add('select * from yuangong');
     sql.Add('where na=:names and passwd=:passwd');
     parameters.ParamByName('names').Value:=names;
     parameters.ParamByName('passwd').Value:=password;
     open;
     if RecordCount=1 then flag:=1
     else begin
            flag:=0;
            MessageBox(Handle, '密码有误，请从新输入', '提示',
                       MB_ICONEXCLAMATION);
            EDpassword.Text:='';
            EDpassword.SetFocus;
     end;
  end;
end;

procedure TFlogo.BitBtn2Click(Sender: TObject);
begin
  Flag:=1;
  close;
  MainForm.close;
end;

end.