login.pas

直接可以编译运行

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
  Tlogin1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login1: Tlogin1;

implementation
uses main,Apublic;

{$R *.dfm}

procedure Tlogin1.Button1Click(Sender: TObject);
var
db:String;
begin
db:='select * from system';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(db);
ADOQuery1.Open;
if ADOQuery1.RecordCount=0 then
begin
login1.Close;
login_user:='ok';
end
else
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from system where user='+''''+edit1.Text+''' and  password='+''''+edit2.Text+'''');
ADOQuery1.Open;

if adoquery1.RecordCount>0 then
  begin
  login1.Close;
  login_user:='ok';
  login_name:=Edit1.Text;
  login_admin:=ADOQuery1.FieldByName('allow').AsString;
  login_pass:=Edit2.Text;
  login_id:=StrToInt(ADOQuery1.FieldByName('id').AsString);
  end
  else
  begin
  ShowMessage('用户或密码有误!');
  Edit1.Clear;
  Edit2.Clear;
  Edit1.SetFocus;
  end;
  end;
end;

procedure Tlogin1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure Tlogin1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
Button1.Click;
end;

procedure Tlogin1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
Button1.Click;
end;

end.