frmpower.pas

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

unit frmpower;

interface

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

type
  TForm29 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    GroupBox3: TGroupBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    GroupBox4: TGroupBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    GroupBox5: TGroupBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox21: TCheckBox;
    CheckBox24: TCheckBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    CheckBox2: TCheckBox;
    CheckBox23: TCheckBox;
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure CheckBox24Click(Sender: TObject);
    procedure CheckBox23Click(Sender: TObject);
    procedure CheckBox21Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form29: TForm29;

implementation

uses frmmain, data, frmmain1;

{$R *.dfm}

procedure TForm29.CheckBox8Click(Sender: TObject);
begin
if checkbox8.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('y7').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n16.enabled:=false;
form34.SpeedButton35.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('y7').AsString :='0';
post;
end;
form34.n16.enabled:=true;
form34.SpeedButton35.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox9Click(Sender: TObject);
begin
if checkbox9.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('y2').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n19.enabled:=false;
form34.SpeedButton15.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('y2').AsString :='0';
post;
end;
form34.n19.enabled:=true;
form34.SpeedButton15.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox10Click(Sender: TObject);
begin
if checkbox10.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('y3').AsString :='1';
   post;
   end;
if DBLookupComboBox1.Text='administrator' then
begin
form34.n20.enabled:=false;
form34.SpeedButton19.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('y3').AsString :='0';
post;
end;
form34.n20.enabled:=true;
form34.SpeedButton19.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox11Click(Sender: TObject);
begin
if checkbox11.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('y4').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n21.enabled:=false;
form34.SpeedButton16.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('y4').AsString :='0';
post;
end;
form34.n21.enabled:=true;
form34.SpeedButton16.Enabled  :=true;
end;
end;


procedure TForm29.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('y5').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n14.enabled:=false;
form34.SpeedButton17.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('y5').AsString :='0';
post;
end;
form34.n14.enabled:=true;
form34.SpeedButton17.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('y6').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n15.enabled:=false;
form34.SpeedButton18.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('y6').AsString :='0';
post;
end;
form34.n15.enabled:=true;
form34.SpeedButton18.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('x2').AsString :='1';
   post;
   end;
if DBLookupComboBox1.Text='administrator' then
begin
form34.n7.Enabled :=false;
form34.SpeedButton14.Enabled :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('x2').AsString :='0';
post;
end;
form34.n7.enabled:=true;
form34.SpeedButton14.Enabled :=true;
end;
end;
procedure TForm29.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('x3').AsString :='1';
   post;
   end;
if DBLookupComboBox1.Text='administrator' then
begin
form34.n8.Enabled :=false;
form34.SpeedButton12.Enabled :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('x3').AsString :='0';
post;
end;
form34.n8.enabled:=true;
form34.SpeedButton12.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox18Click(Sender: TObject);
begin
if checkbox18.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('g2').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n13.enabled:=false;
form34.SpeedButton25.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('g2').AsString :='0';
post;
end;
form34.n13.enabled:=true;
form34.SpeedButton25.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox19Click(Sender: TObject);
begin
if checkbox19.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('g3').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n12.enabled:=false;
form34.SpeedButton26.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('g3').AsString :='0';
post;
end;
form34.n12.enabled:=true;
form34.SpeedButton26.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox20Click(Sender: TObject);
begin
if checkbox20.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);