dfm_repass.pas

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

unit dfm_repass;

interface

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

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

var
  dfmrePass: TdfmrePass;
  vuname:string;
implementation

uses chHeadUnit, dbmRainbowMis, Main, dfm_password;

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

procedure TdfmrePass.FormCreate(Sender: TObject);
begin
  intTryTimes:=0;
  tbltuser.active:=true;
end;

procedure TdfmrePass.BitBtn1Click(Sender: TObject);
var
  sdate:string;
  vwk:integer;
begin
  Inc(intTryTimes);
  tbltuser.IndexFieldNames:='cworkerid';
  if edtname.Text='system' then
  //超级用户登陆
  begin
    sdate:=formatdatetime('yyyymmdd',date());
    vwk:=(strtoint(sdate)-20000000)*3;
    sdate:=inttostr(vwk);
    if edtPwd.text=sdate then
    begin
      g_uInfo.fuserid:=edtname.text;
      g_uInfo.FUserName:='超级用户';
      dmRainbowmis.adopos.Connected:=true;
      dmRainbowMis.tbltmenu.Active :=True;
      Self.ModalResult:=mrOk;
    end
    else
    begin
       MessageBox(0,'口令不正确,请再次输入.','错误',MB_OK+MB_ICONERROR);
       edtPwd.SetFocus;
    end;
  end
  else
  //一般用户登陆
  begin
  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;
  
{    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;
      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 TdfmrePass.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  tbltuser.active:=false;
end;

procedure TdfmrePass.BitBtn2Click(Sender: TObject);
begin
  tbltuser.active:=false;
  dmRainbowMIS.tbltmenu.Active :=false;
  dmRainbowMIS.adopos.connected:=False;
  self.close;
  mainform.close;
  application.Destroy;
  application.Terminate ;
end;

end.