f_checkpassword_leo.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 144 行

unit f_checkpassword_leo;

interface

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

type
  Tfrm_checkpassword_leo = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Bevel1: TBevel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    BitBtn3: TBitBtn;
    Label4: TLabel;
    ComboBox1: TComboBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_checkpassword_leo: Tfrm_checkpassword_leo;
  ispasschecked:boolean;
  isquit:string='';
implementation

{$R *.DFM}
uses  f_changepassword,u_tools_leo, Datamodule, cgqmainFrm;

var resultcount:integer=0;
    setmainform_flag:integer;

function checkpassword(username:string;password:string;loginstatus:string):boolean;
begin
if loginstatus='管理员' then
begin
openquery(DataModule1.query3,'SELECT COUNT(*) FROM e_mmb WHERE ZH='+''''+USERNAME+''''+' AND pwd='+''''+PASSWORD+''''+' AND xtbh='+''''+'a'+''''+' AND sf='+''''+loginstatus+'''','open');
if DataModule1.query3.fields[0].asinteger=0
then result:=false
else begin
     //openquery(DataModule1.query3,'SELECT XM FROM e_mmb WHERE ZH='+''''+USERNAME+'''','open');
     setmainform_flag:=0;
     result:=true;
     end;
end
else if loginstatus='计划员' then
begin
openquery(DataModule1.query3,'SELECT COUNT(*) FROM e_mmb WHERE ZH='+''''+USERNAME+''''+' AND pwd='+''''+PASSWORD+''''+' AND xtbh='+''''+'a'+''''+' AND sf='+''''+loginstatus+'''','open');
if DataModule1.query3.fields[0].asinteger=0
then result:=false
else begin
     //openquery(DataModule1.query3,'SELECT XM FROM e_mmb WHERE ZH='+''''+USERNAME+'''','open');
     setmainform_flag:=1;
     result:=true;
     end;
end;
end;

procedure setmainform;
begin
with mainform do
begin
cgsqblr.Enabled:=false;
cxsqb.Enabled:=false;
n3.Enabled:=false;
n4.Enabled:=false;
SpeedButton3.Top:=72;
SpeedButton6.Top:=120;
Bevel1.Height:=105;
height:=300;
{SpeedButton4.Enabled:=false;
SpeedButton1.Enabled:=false;
SpeedButton2.Enabled:=false;
SpeedButton5.Enabled:=false;}
SpeedButton4.Visible:=false;
SpeedButton1.Visible:=false;
SpeedButton2.Visible:=false;
SpeedButton5.Visible:=false;
end;
end;

procedure Tfrm_checkpassword_leo.BitBtn2Click(Sender: TObject);
begin
isquit:='quit';
close;
end;

procedure Tfrm_checkpassword_leo.BitBtn1Click(Sender: TObject);
begin
ispasschecked:=checkpassword(edit1.text,edit2.text,combobox1.Text);
if ispasschecked and (setmainform_flag=1) then
begin
//if setmainform_flag=1 then
setmainform;
close;
end
else
if ispasschecked and (setmainform_flag=0) then
begin
//if setmainform_flag=1 then
//setmainform;
close;
end
else if not ispasschecked then
begin
     application.MessageBox('输入的用户名或口令错误，请重新输入。','输入错误',mb_ok+mb_iconerror);
     inc(resultcount);
     edit1.SetFocus;
     end;
if resultcount>3 then close;
end;

procedure Tfrm_checkpassword_leo.BitBtn3Click(Sender: TObject);
begin
ispasschecked:=checkpassword(edit1.text,edit2.text,combobox1.Text);
if ispasschecked then
  begin
  application.CreateForm(tfrm_changepassword,frm_changepassword);
  hide;
  frm_changepassword.showmodal;
  frm_changepassword.free;
  show;
  end
else begin
     application.MessageBox('输入的用户名或口令错误，请重新输入。','输入错误',mb_ok+mb_iconerror);
     inc(resultcount);
     edit1.SetFocus;
     end;
if resultcount>3 then close;
end;

end.