login_form.pas

培训管理系统

unit login_form;

interface

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

type
  Tlogin_formf = class(TForm)
    Label1: TLabel;
    login_id: TEdit;
    Label2: TLabel;
    password: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure login_idKeyPress(Sender: TObject; var Key: Char);
    procedure passwordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    emp_id,emp_name,qx,loginid:string;
  end;

var
  login_formf: Tlogin_formf;

implementation

uses main,pdatabse;

{$R *.dfm}

procedure Tlogin_formf.BitBtn2Click(Sender: TObject);
begin
  modalresult:=mrcancel;
end;

procedure Tlogin_formf.BitBtn1Click(Sender: TObject);
var tempquery:tquery;
begin
  tempquery:=tquery.create(self);
  try
   tempquery.databasename:='train';
   tempquery.sql.Add('select emp_id,emp_name,popedom from login_view where login_id='''+trim(login_id.text)+''' and password='''+trim(password.Text)+'''');
   tempquery.Open;
   if tempquery.IsEmpty then begin
                          //modalresult:=mrcancel
                        showmessage('用户名或密码错误！');  
         end
    else begin
          emp_id:=tempquery.fieldbyname('emp_id').asstring;
          emp_name:=tempquery.fieldbyname('emp_name').asstring;
          qx:=tempquery.fieldbyname('popedom').asstring;
          loginid:=trim(login_id.text);
          modalresult:=mrok;
         end;
  finally
   tempquery.free;
  end;
end;

procedure Tlogin_formf.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 action:=cafree;
 self:=nil;
end;

procedure Tlogin_formf.login_idKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then password.SetFocus;
end;

procedure Tlogin_formf.passwordKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then bitbtn1.Click;
end;

end.