unit_mater_jiezhangmima.~pas

此代码为企业原料管理代码

unit Unit_Mater_jiezhangmima;

interface

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

type
  TForm_mater_summima = class(TForm)
    Label1: TLabel;
    Edit_pass: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Qry_exe: TQuery;
    Bevel1: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
     checkTimes:integer;
  public
    { Public declarations }
  end;

var
  Form_mater_summima: TForm_mater_summima;

implementation

uses Unit_Main, Unit_Mater_Main, Unit_Mater_SumCfg;

{$R *.DFM}

procedure TForm_mater_summima.BitBtn1Click(Sender: TObject);
begin

 with Qry_exe do
  begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 职务 = :v_identy or 职务 = :v_iden or 职务 = :v_id');
      parambyname('v_identy').asstring:='保管员';
      parambyname('v_iden').asstring:='总经理';
      parambyname('v_id').asstring:='会计';
      open;
      if recordcount = 0 then
      begin
        messagedlg('总经理或（和）保管员、会计还'#13+'没有注册,请尽快注册!',mtinformation,[mbok],0);
        Form_mater_sumCfg.Show;
        exit;
      end; //if
    while not eof do
    begin
      if Edit_Pass.text = fieldbyname('密码').asstring then
      begin
         Form_mater_sumCfg.Show;
        exit;
      end; //if
     next;
     end; //while

 end; //with
   if checkTimes = 2 then
   begin
     showmessage('3次输入密码错误!');
     close;
   end
   else
   begin
     //showmessage(Inttostr(checkTimes));
     inc(checkTimes);
     showmessage('密码错误!');
     Edit_Pass.text:='';
     Edit_Pass.setfocus;
    // Edit_Pass.SelectAll;
   end; //if



end;

procedure TForm_mater_summima.FormShow(Sender: TObject);
begin
 // checkTimes:=0;
  Edit_Pass.text:='';
  Edit_Pass.SetFocus;
end;

procedure TForm_mater_summima.BitBtn2Click(Sender: TObject);
begin
 close;
end;

end.