login_unit.~pas

一个很不错的仓库管理系统,能容进各种软件中去,

unit login_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, StdCtrls, TradeImage, LabelButton, MoveImageButton,
  Menus, ComCtrls, ToolWin, ExtCtrls, DB, ADODB;

type
  Tlogin = class(TTEMPLETF)
    MIBtnOK: TMoveImgBtn;
    lbBtnOK: TLabelBtn;
    LabelBtn1: TLabelBtn;
    TradeImg1: TTradeImg;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    qry: TADOQuery;
    DataSource1: TDataSource;
    procedure MIBtnOKClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure TradeImg1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;

implementation

uses data_unit,main_unit;
{$R *.dfm}




procedure Tlogin.MIBtnOKClick(Sender: TObject);
begin
  inherited;
with qry do
begin
close;
sql.Clear ;
sql.add('select * from usremployee where id=:name and Password=:pw');
parameters.ParamByName('name').Value:=edit1.Text ;
parameters.ParamByName('pw').Value:=edit2.Text ;
open;
if recordcount=0 then
begin
application.messagebox('你输入的用户名或密码不正确!','系统信息',mb_ok+mb_iconinformation);
edit1.Clear ;
edit2.Clear ;
exit;

end
else
begin
main_form.Edit1.Text:=inttostr(qry.fieldbyname('Permit').Value);
main_form.Edit2.Text:=Edit1.Text;
main_form.fcOutlookBar1fcShapeBtn2.Enabled:=true;
main_form.fcOutlookBar1fcShapeBtn3.Enabled:=true;
main_form.fcOutlookBar1fcShapeBtn4.Enabled:=true;
main_form.fcOutlookBar1OutlookList1.Items[0].Text:='用户注销';
login.close;
end;
end;
end;

procedure Tlogin.FormShow(Sender: TObject);
begin
  inherited;

edit1.Clear ;
edit2.Clear ;
edit1.SetFocus ;

end;

procedure Tlogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if key=#13 then
begin
MIBtnOKClick(nil);
end;
 end;
procedure Tlogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;

if key=#13 then
selectnext (activecontrol,true,true);
end;

procedure Tlogin.TradeImg1Click(Sender: TObject);
begin
  inherited;
close;
end;

end.