flogin.pas

财务报表系统,包括系统登陆

unit FLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  TfrmLogin = class(TForm)
    grp1: TGroupBox;
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    btn1: TBitBtn;
    btn2: TBitBtn;
    qry1: TADOQuery;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses DataModule;

{$R *.dfm}

procedure TfrmLogin.btn2Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmLogin.btn1Click(Sender: TObject);
var
  uid, pwd: string;
  sql: string;
  i: Integer;
begin
  uid := lbledt1.Text;
  pwd := lbledt2.Text;

  sql := 'select * from users where uid='''+uid+''' and pwd='''+pwd+'''';
  qry1.SQL.Text := sql;
  qry1.Open;
  i := qry1.RecordCount;
  qry1.Close;
  if i>0 then
    ModalResult := mrOk
  else
    Application.MessageBox('帐号或密码错误！', PChar(Application.Title), MB_OK 
      + MB_ICONWARNING);
end;

end.