password.pas

蛮好的系统大家一起使用看看!~呵呵!关于图书仓库管理系统的!

unit password;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Buttons, StdCtrls, ExtCtrls, DBCtrls, DB, DBTables, jpeg;


type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Edit1: TEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  i:integer;
implementation

uses data, frmmain, frmpower, frmmain2, frmmain1;

{$R *.dfm}

procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
application.Terminate ;
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
if dblookupcombobox1.Text <>'' then
begin
 if dm.keyTable.FieldByName('keyno').AsString =edit1.Text
 then
  begin
  form4.Close ;
  if dm.keyTable.Locate('keyname',DBLookupComboBox1.Text,[]) then
  begin
  if dm.keyTable.FieldByName('keyname').AsString ='administrator' then
  begin
  form1.Hide ;
  form34.show;
  form34.A1.Enabled :=true;
  form34.G1.Enabled :=true;
  form34.P1.Enabled :=true;
  form34.H1.Enabled :=true;
  form34.SpeedButton2.Enabled :=true;
  form34.SpeedButton1.Enabled :=true;
  form34.SpeedButton4.Enabled :=true;
  form34.SpeedButton5.Enabled :=true;
  form34.SpeedButton8.Enabled :=true;
  form34.SpeedButton9.Enabled :=true;
  form34.BitBtn6.Enabled :=true;
   form34.SpeedButton29.Visible :=false;
   form34.SpeedButton34.Visible :=true;
   form34.N24.Caption :='重新登录';
  end
  else
  begin
  form34.Hide;
  form30.show;
  form30.A1.Enabled :=true;
  form30.P1.Enabled :=true;
  form30.H1.Enabled :=true;
  form30.SpeedButton2.Enabled :=true;
  form30.SpeedButton4.Enabled :=true;
  form30.SpeedButton5.Enabled :=true;
  form30.SpeedButton8.Enabled :=true;
  form30.SpeedButton9.Enabled :=true;
  form30.BitBtn6.Enabled :=true;
  form30.SpeedButton34.Visible :=true;
  form30.SpeedButton29.Visible :=false;
  form30.SpeedButton34.Visible :=true;
  form30.SpeedButton1.enabled :=false;
  form30.N24.Caption :='重新登录';
  end;
  if dm.keyTable.FieldByName('g1').AsString ='1' then
  begin
  form30.h1.enabled:=false;
  form30.SpeedButton9.Enabled  :=false;
  form30.Panel11.Visible   :=false;
  form29.checkbox23.Checked :=true;
  end
  else
  begin
  form30.h1.enabled:=true;
  form30.SpeedButton9.Enabled  :=true;
  form29.checkbox23.Checked :=false;
  end;
  if dm.keyTable.FieldByName('g2').AsString ='1' then
  begin
  form30.n13.enabled:=false;
  form30.SpeedButton25.Enabled  :=false;
  form29.checkbox18.Checked :=true;
  end
  else
  begin
  form30.n13.enabled:=true;
  form30.SpeedButton25.Enabled  :=true;
  form29.checkbox18.Checked :=false;
  end;
  if dm.keyTable.FieldByName('g3').AsString ='1' then
  begin
  form30.n12.enabled:=false;
  form30.SpeedButton26.Enabled  :=false;
  form29.checkbox19.Checked :=true;
  end
  else
  begin
  form30.n12.enabled:=true;
  form30.SpeedButton26.Enabled  :=true;
  form29.checkbox19.Checked :=false;
  end;
  if dm.keyTable.FieldByName('g4').AsString ='1' then
  begin
  form30.n11.enabled:=false;
  form30.SpeedButton27.Enabled  :=false;
  form29.checkbox20.Checked :=true;
  end
  else
  begin
  form30.n11.enabled:=true;
  form30.SpeedButton27.Enabled  :=true;
  form29.checkbox20.Checked :=false;
  end;
  if dm.keyTable.FieldByName('y1').AsString ='1' then
  begin
  form30.a1.enabled:=false;
  form30.SpeedButton2.Enabled  :=false;
  form30.Panel9.Visible   :=false;
  form29.checkbox21.Checked :=true;
  end
  else
  begin
  form30.a1.enabled:=true;
  form30.SpeedButton2.Enabled  :=true;
  form29.checkbox21.Checked :=false;
  end;
  if dm.keyTable.FieldByName('y2').AsString ='1' then
  begin
  form30.n19.enabled:=false;
  form30.SpeedButton15.Enabled  :=false;
  form29.checkbox9.Checked :=true;
  end
  else
  begin
  form30.n19.enabled:=true;
  form30.SpeedButton15.Enabled  :=true;
  form29.checkbox9.Checked :=false;
  end;
  if dm.keyTable.FieldByName('y3').AsString ='1' then
  begin
  form30.n20.enabled:=false;
  form30.SpeedButton19.Enabled  :=false;
  form29.checkbox10.Checked :=true;
  end
  else
  begin
  form30.n20.enabled:=true;
  form30.SpeedButton19.Enabled  :=true;
  form29.checkbox10.Checked :=false;
  end;
  if dm.keyTable.FieldByName('y4').AsString ='1' then
  begin
  form30.n21.enabled:=false;
  form30.SpeedButton16.Enabled  :=false;
  form29.checkbox11.Checked :=true;
  end
  else
  begin
  form30.n21.enabled:=true;
  form30.SpeedButton16.Enabled  :=true;
  form29.checkbox11.Checked :=false;
  end;
  if dm.keyTable.FieldByName('y5').AsString ='1' then
  begin
  form30.n14.enabled:=false;
  form30.SpeedButton17.Enabled  :=false;
  form29.checkbox6.Checked :=true;
  end
  else
  begin
  form30.n14.enabled:=true;
  form30.SpeedButton17.Enabled  :=true;
  form29.checkbox6.Checked :=false;
  end;
  if dm.keyTable.FieldByName('y6').AsString ='1' then
  begin
  form30.n15.enabled:=false;
  form30.SpeedButton18.Enabled  :=false;
  form29.checkbox7.Checked :=true;
  end
  else
  begin
  form30.n15.enabled:=true;
  form30.SpeedButton18.Enabled  :=true;
  form29.checkbox7.Checked :=false;
  end;
  if dm.keyTable.FieldByName('y7').AsString ='1' then
  begin
  form30.n16.enabled:=false;
  form30.SpeedButton35.Enabled  :=false;
  form29.checkbox8.Checked :=true;
  end
  else
  begin
  form30.n16.enabled:=true;
  form30.SpeedButton35.Enabled  :=true;
  form29.checkbox8.Checked :=false;
  end;
  if dm.keyTable.FieldByName('b1').AsString ='1' then
  begin
  form30.p1.enabled:=false;
  form30.SpeedButton8.Enabled  :=false;
  form30.Panel10.Visible   :=false;
  form29.checkbox24.Checked :=true;
  end
  else
  begin
  form30.p1.enabled:=true;
  form30.SpeedButton8.Enabled  :=true;
  form29.checkbox24.Checked :=false;
  end;
  if dm.keyTable.FieldByName('b2').AsString ='1' then
  begin
  form30.n3.enabled:=false;
  form30.SpeedButton20.Enabled  :=false;
  form29.checkbox12.Checked :=true;
  end
  else
  begin
  form30.n3.enabled:=true;
  form30.SpeedButton20.Enabled  :=true;
  form29.checkbox12.Checked :=false;
  end;
  if dm.keyTable.FieldByName('b3').AsString ='1' then
  begin
  form30.n4.enabled:=false;
  form30.SpeedButton21.Enabled  :=false;
  form29.checkbox13.Checked :=true;
  end
  else
   begin
  form30.n4.enabled:=true;
  form30.SpeedButton21.Enabled  :=true;
  form29.checkbox13.Checked :=false;
  end;
  if dm.keyTable.FieldByName('b4').AsString ='1' then
  begin
  form30.n18.enabled:=false;
  form30.SpeedButton22.Enabled  :=false;
  form29.checkbox14.Checked :=true;
  end
  else
  begin
  form30.n18.enabled:=true;
  form30.SpeedButton22.Enabled  :=true;
  form29.checkbox14.Checked :=false;
  end;
  if dm.keyTable.FieldByName('b5').AsString ='1' then
  begin
  form30.n5.enabled:=false;
  form30.SpeedButton24.Enabled  :=false;
  form29.checkbox15.Checked :=true;
  end
  else
  begin
  form30.n5.enabled:=true;
  form30.SpeedButton24.Enabled  :=true;
  form29.checkbox15.Checked :=false;
  end;
  if dm.keyTable.FieldByName('b6').AsString ='1' then
   begin
  form30.n9.enabled:=false;
  form30.SpeedButton23.Enabled  :=false;
  form29.checkbox16.Checked :=true ;
  end
  else
   begin
  form30.n9.enabled:=true;
  form30.SpeedButton23.Enabled  :=true;
  form29.checkbox16.Checked :=false ;
  end;
  if dm.keyTable.FieldByName('b7').AsString ='1' then
  begin
  form30.n10.enabled:=false;
  form30.SpeedButton36.Enabled  :=false;
  form29.checkbox17.Checked :=true;
  end
  else
  begin
  form30.n10.enabled:=true;
  form30.SpeedButton36.Enabled  :=true;
  form29.checkbox17.Checked :=false;
  end;
  end ;
  end
  else
    begin
     edit1.Clear ;
     edit1.SetFocus;
     end ;
     end;
end;

end.