dfm_password.pas

仓库管理系统 仓库管理系统

unit dfm_password;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables, ExtCtrls, ADODB;

type
  TdfmPassword = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    edtname: TEdit;
    edtPwd: TEdit;
    dstuser: TDataSource;
    Image1: TImage;
    Image2: TImage;
    tbltuser: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    intTryTimes:Integer;
  public
    { Public declarations }
    Function Execute:Boolean;
  end;

var
  dfmPassword: TdfmPassword;
  vuname:string;
  vgro:string;
implementation

uses chHeadUnit, dbmRainbowMis;

{$R *.DFM}
Function  TDfmPassword.Execute:Boolean;
Begin
  If Self.ShowModal=mrOK Then
    Result:=True
  Else
    Result:=False;
End;

procedure TdfmPassword.FormCreate(Sender: TObject);
begin
//  dfmflow.Visible:=false;
  intTryTimes:=0;
  tbltuser.active:=true;
end;

procedure TdfmPassword.BitBtn1Click(Sender: TObject);
begin
  Inc(intTryTimes);
  tbltuser.IndexFieldNames:='cworkerid';
{  If tbltuser.findkey([edtname.Text]) Then
//    if vgro=tbltuser.fieldbyname('croleid').asstring then
    if tbltuser.fieldbyname('cpwd').asstring=edtPwd.text then }
  If tbltuser.Locate('cworkerid',edtname.Text,[loPartialKey]) Then
    if TRIM(tbltuser.fieldbyname('cpwd').asstring)=edtPwd.text then
    begin
      vgro:=tbltuser.fieldbyname('croleid').asstring;
      g_uInfo.fuserid:=edtname.text;
      g_uInfo.FUserName:=tbltuser.fieldbyname('cuser').asstring;
      dmRainbowmis.adopos.Connected:=true;
      dmRainbowMis.tbltmenu.Active :=True;
      Self.ModalResult:=mrOk;
//      dfmPassword.close;
    end
    else
    begin
       MessageBox(0,'口令不正确,请再次输入.','错误',MB_OK+MB_ICONERROR);
       edtPwd.SetFocus;
    end
  else
  begin
      MessageBox(0,'用户不存在,请再次输入.','错误',MB_OK+MB_ICONERROR);
      edtname.SetFocus;
      Exit;
  end;


end;


procedure TdfmPassword.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  tbltuser.active:=false;
//  dfmflow.Visible:=true;
end;

procedure TdfmPassword.FormKeyPress(Sender: TObject; var Key: Char);
begin
  chHeadUnit.tabventer(dfmpassword,key);
end;

end.