login.~pas

这是用delphi开发的一个物资管理信息系统

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB,usertable_unit, Buttons, jpeg, ExtCtrls;

type
  Tloginfrm = class(TForm)
    Panel1: TPanel;
    pwd_ed: TEdit;
    cancel_btn: TBitBtn;
    login_btn: TBitBtn;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    user_ed: TComboBox;
    procedure login_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure user_edKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure login_btnMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure login_btnMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    
  private
    user:Tusertable;
    times:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfrm: Tloginfrm;
  userlevel:string;
  userpwd:string;

implementation

uses main, dblink, datamodule;

{$R *.dfm}

procedure Tloginfrm.login_btnClick(Sender: TObject);
var
 user1:TStrings;
begin
  try
  user1:=user.GetUserRec(user_ed.text);
  userlevel:=user1[2];
  userpwd:=user1[1];
except
  loginfrm.Hide;
  dblinkfrm.Show;
  exit;
end;
  if (user_ed.Text ='')or (pwd_ed.Text ='')then
   begin
    application.MessageBox('请将用户信息输入完整！','提示：',mb_ok);
    pwd_ed.SetFocus ;
     exit;
   end;
  times:=times+1;
begin
 if   pwd_ed.Text=user1[1]   then
  begin
   if    user1[2]='系统管理员'  then
    begin
      loginfrm.Hide ;
      mainfrm.Show;
    end
  else
 begin
  loginfrm.Hide ;
  mainfrm.N1.Enabled :=false;
  mainfrm.N5.Enabled :=false;
  mainfrm.N16.Enabled :=false;
  mainfrm.N22.Enabled :=false;
  mainfrm.N12.Enabled :=false;
  mainfrm.N18.Enabled :=false;
  mainfrm.Show;
 end;

end
else
begin
application.MessageBox('对不起，你的密码不对！','提示：',mb_ok);
 if(times>3) then
 loginfrm.Close ;
pwd_ed.SetFocus ;
end;
end;
end;


procedure Tloginfrm.cancel_btnClick(Sender: TObject);
begin
application.Terminate ;
end;

procedure Tloginfrm.FormCreate(Sender: TObject);
begin
user:=Tusertable.create;
 times:=0;
end;

procedure Tloginfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
user.free;
end;

procedure Tloginfrm.user_edKeyPress(Sender: TObject; var Key: Char);
begin
  IF KEY=#13 then
   pwd_ed.SetFocus ;
end;

procedure Tloginfrm.FormActivate(Sender: TObject);
begin
   user:=tusertable.create ;
   user_ed.Items :=user.getuserIdList();
end;

procedure Tloginfrm.login_btnMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

procedure Tloginfrm.login_btnMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;

end.