login.pas

这是我做的一个课程设计

unit login;

interface

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

type
  TloginForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    btn_ok: TBitBtn;
    btn_cancel: TBitBtn;
    procedure btn_okClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginForm: TloginForm;

implementation

uses dm;

{$R *.dfm}

procedure TloginForm.btn_okClick(Sender: TObject);
var
  sql:string;
begin
  sql:='select * from login where username=:a and passwrd=:b';

  dmform.ADOQuery_login.Close;
  dmform.ADOQuery_login.SQL.Clear;
  dmform.ADOQuery_login.SQL.Add(sql);

  dmform.ADOQuery_login.Parameters[0].Value:=edit1.Text;
  dmform.ADOQuery_login.Parameters[1].Value:=edit2.Text;

  dmform.ADOQuery_login.Open;

  if dmform.ADOQuery_login.RecordCount>0 then
  begin
    loginform.ModalResult:=mrok;
  end
  else
  begin
    application.MessageBox('用户名或者密码错误,请重新输入!','登录提示',mb_ok);
    edit1.Text:='';
    edit2.Text:='';
    edit1.SetFocus;
  end;


end;

procedure TloginForm.btn_cancelClick(Sender: TObject);
begin
  loginform.ModalResult:=mrCancel;
end;

end.