login.pas

来自「书籍类别（种类编号」· PAS 代码 · 共 77 行

unit login;

interface

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

type
  TLoginForm = class(TForm)
    Image1: TImage;
    E_UserID: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    MM_E: TEdit;
    Label5: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Label5Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;

implementation
uses main,inc,DBM;
{$R *.dfm}

procedure TLoginForm.Label5Click(Sender: TObject);
begin
close;
end;

procedure TLoginForm.Label3Click(Sender: TObject);
var
  p:string;
begin
  with DM.HumanResQuery do begin
    Close;
    SQL.Clear;
    SQL.Add('select * from users where username='''+E_UserID.Text+''' and PASSWORD='''+MM_E.Text+'''');
    Open;
    if not Eof then begin
      UserID  :=FieldValues['ID'];
      UserName:=E_UserID.Text;
      Popedom :=FieldValues['POWer'];
      if  Popedom='超级用户' then  checklogin:=1
      else checklogin:=0;
      end else begin
        MessageDlg('你输入的用户和密码有错误，请重新输入！', mtInformation,[mbOk], 0);
        Exit;
    end;
  end;
    Close;
end;
 procedure TLoginForm.Label4Click(Sender: TObject);
begin
close;
end;

procedure TLoginForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#13) then
Label3Click(Sender);
  //ShowMessage('dsfsdf');

end;

end.