login.pas

delphi+sql server 我是delphi的初学者

unit login;

interface

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

type
  TFrmlogin = class(TForm)
    pnl1: TPanel;
    btn1: TBitBtn;
    btn2: TBitBtn;
    lbl1: TLabel;
    lbl2: TLabel;
    edtMA: TEdit;
    lbl3: TLabel;
    edtid: TEdit;
    procedure FormShow(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure edtidKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtMAKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmlogin: TFrmlogin;

implementation
uses UDM,pjglmian;
{$R *.dfm}

procedure TFrmlogin.FormShow(Sender: TObject);
begin
   edtMA.Text:='';
   edtid.Text:='';

end;

procedure TFrmlogin.btn1Click(Sender: TObject);
begin
 with dm.qryLOGIN do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from usertable');
    SQL.Add('where userid=:userid and userpsd=:userpsd');
    Parameters.ParamByName('userid').Value:=Trim(edtid.Text);
    Parameters.ParamByName('userpsd').Value:=Trim(edtMA.Text);
    Prepared;
    Open;
  end;
 if dm.qryLOGIN.RecordCount=0 then
  begin
  showmessage('密码部正确,请重新定义！');
  exit;
  end
  else
  begin
  dm.hname:=dm.qryLOGIN.fieldbyname('username').AsString;
  Frmlogin.Hide;
  Frmman.Show;
  end;
 end;


procedure TFrmlogin.btn2Click(Sender: TObject);
begin
  Application.Terminate;

end;

procedure TFrmlogin.edtidKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=$0D then
  edtma.SetFocus;
end;

procedure TFrmlogin.edtMAKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
  btn1click(sender);
end;

end.