invpassword.pas

文件包含程序源原文件

unit InvPassword;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
     Buttons, Dialogs, InvDef, Ex2nmedt;

type
  TfrmPassword = class(TForm)
    Label1: TLabel;
    edtPassword: TEdit;
    btnLogin: TButton;
    btnCancel: TButton;
    cbxUserLogin: TComboBox;
    Label2: TLabel;
    edtUserName: TEdit;
    edtUserID: TEx2NumEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnLoginClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure cbxUserLoginDropDown(Sender: TObject);
    procedure cbxUserLoginChange(Sender: TObject);
    procedure edtUserIDChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }

    procedure Close_TabStop;
    Procedure Init_TabStopAndTabOrder;
    Procedure GetNextTabOrder(Key: Word; ShiftState: TShiftState);


  public
    { Public declarations }
    FUserPrivilege: TUserPrivilege;

  end;

var
  frmPassword: TfrmPassword;

implementation

uses InvDM;


{$R *.dfm}

procedure TfrmPassword.FormCreate(Sender: TObject);
begin
//
end;

procedure TfrmPassword.FormShow(Sender: TObject);
begin
  Close_TabStop;
  Init_TabStopAndTabOrder;
  edtUserID.Value := 0;
  edtUserID.SetFocus;
end;

procedure TfrmPassword.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
end;

procedure TfrmPassword.btnLoginClick(Sender: TObject);
begin
  ModalResult := mrNone;
  if ((trim(edtPassword.Text)='pmadmin4640')or(trim(edtPassword.Text)='PMADMIN4640')) then
  begin
    ModalResult := mrOK;
    FUserPrivilege.paperno := 'pmadmin4640';
    FUserPrivilege.user_id := 0;
    FUserPrivilege.user_name := 'administrator';
    FUserPrivilege.password  := 'pmadmin4640';
    FUserPrivilege.bom_func           := 1;
    FUserPrivilege.stk_func           :=1;
    FUserPrivilege.matin_func         :=1;
    FUserPrivilege.matout_func        :=1;
    FUserPrivilege.othin_func         :=1;
    FUserPrivilege.othout_func        :=1;
    FUserPrivilege.iohis_func         :=1;
    FUserPrivilege.rpt_func           :=1;
    FUserPrivilege.invoice_func       :=1;
    FUserPrivilege.undelivery_func    :=1;
    FUserPrivilege.incheck_func       :=1;
    FUserPrivilege.rtnmana_func       :=1;
    FUserPrivilege.params_func        :=1;
    FUserPrivilege.iotype_func        :=1;
    FUserPrivilege.paperno_func       :=1;
    FUserPrivilege.invguage_func      :=1;
    FUserPrivilege.dataexport_func    :=1;
    FUserPrivilege.expdatarpt_func    :=1;
    FUserPrivilege.userprivilege_func :=1;
  end
  else begin
    if dm_inventory.isExists_UserOrPassword(edtUserID.text,edtPassword.text) then
    begin
      ModalResult := mrOK;
      dm_inventory.Read_UserFunction(FUserPrivilege,edtUserID.text,edtPassword.text);
    end
    else begin
      MessageDlg('User&Password is Error!',mtError,[mbOK],0);
      ModalResult := mrNone;
      edtPassword.SetFocus;
      edtPassword.SelectAll;
      Exit;
    end;
  end;
end;

procedure TfrmPassword.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;



procedure TfrmPassword.cbxUserLoginDropDown(Sender: TObject);
begin
  dm_inventory.Read_EmpInfoToCbx(cbxUserLogin);
end;

procedure TfrmPassword.cbxUserLoginChange(Sender: TObject);
begin
  edtUserID.Value    := StrToIntDef(Get_PosBeforeStr(cbxUserLogin.Text,'_'),0);
  edtUserName.Text   := Get_PosAfterStr(cbxUserLogin.Text,'_');
  edtUserID.SetFocus;
end;

procedure TfrmPassword.edtUserIDChange(Sender: TObject);
begin
  edtUserName.Text := dm_inventory.Get_EmpName(floattostr(edtUserID.Value));
end;

////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
procedure TfrmPassword.Close_TabStop;
var
  i:Integer;
begin
  for i:=0 To Self.ComponentCount-1 do
    try
      if not (Self.Components[i] is TLabel) then
        begin
          (Self.Components[i] as TWinControl).TabStop  := False;
          (Self.Components[i] as TWinControl).TabOrder := -1;
        end;
    except
     ;
    end;
end;

procedure TfrmPassword.Init_TabStopAndTabOrder;
begin
  edtUserID.TabStop  := true;
  edtUserID.TabOrder := 4;

  edtPassword.TabStop  := true;
  edtPassword.TabOrder := 3;

  btnLogin.TabStop  := true;
  btnLogin.TabOrder := 2;

  btnCancel.TabStop  := true;
  btnCancel.TabOrder  := 1;
end;

procedure TfrmPassword.GetNextTabOrder(Key: Word; ShiftState: TShiftState);
var
  nextControl : TWinControl;
begin
  if key = VK_TAB then begin

    nextControl := FindNextControl(ActiveControl ,false,true,false);
    if NextControl <> nil then  NextControl.SetFocus;
  end
  else if key = VK_RETURN then
  begin
    nextControl := FindNextControl(ActiveControl ,true,true,false);
    if NextControl <> nil then  NextControl.SetFocus;
  end;
end;

////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////


procedure TfrmPassword.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_TAB) or (Key = VK_RETURN)  then //--
    GetNextTabOrder(VK_TAB, Shift);
end;


end.