frmpower.pas

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

   edit;
   fieldbyname('g4').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.n11.enabled:=false;
form34.SpeedButton27.Enabled  :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('g4').AsString :='0';
post;
end;
form34.n11.enabled:=true;
form34.SpeedButton27.Enabled  :=true;
end;
end;

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

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

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


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

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


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

procedure TForm29.CheckBox24Click(Sender: TObject);
begin
if checkbox24.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('b1').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.p1.enabled:=false;
form34.SpeedButton8.Enabled  :=false;
form34.Panel10.Visible   :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('b1').AsString :='0';
post;
end;
form34.p1.enabled:=true;
form34.SpeedButton8.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox23Click(Sender: TObject);
begin
if checkbox23.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('g1').AsString :='1';
   post;
   end;
if DBLookupComboBox1.Text='administrator' then
begin
form34.h1.enabled:=false;
form34.SpeedButton9.Enabled  :=false;
form34.Panel11.Visible   :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('g1').AsString :='0';
post;
end;
form34.h1.enabled:=true;
form34.SpeedButton9.Enabled  :=true;
end;
end;

procedure TForm29.CheckBox21Click(Sender: TObject);
begin
if checkbox21.Checked =true   then
begin
 with dm.keyTable do
   begin
   locate('keyname',DBLookupComboBox1.Text,[]);
   edit;
   fieldbyname('y1').AsString :='1';
   post;
   end;
   if DBLookupComboBox1.Text='administrator' then
   begin
form34.a1.enabled:=false;
form34.SpeedButton2.Enabled  :=false;
form34.Panel9.Visible   :=false;
end;
end
else
begin
with dm.keyTable do
begin
locate('keyname',DBLookupComboBox1.Text,[]);
edit;
fieldbyname('y1').AsString :='0';
post;
end;
form34.a1.enabled:=true;
form34.SpeedButton2.Enabled  :=true;
end;
end;

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

procedure TForm29.BitBtn1Click(Sender: TObject);
begin
if messagedlg('您确定真的要这样管理吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;

procedure TForm29.BitBtn2Click(Sender: TObject);
begin
form34.n6.enabled:=true;
form34.SpeedButton11.Enabled  :=true;
form34.n7.enabled:=true;
form34.SpeedButton14.Enabled :=true;
form34.n8.enabled:=true;
form34.SpeedButton12.Enabled  :=true;
form34.h1.enabled:=true;
form34.SpeedButton9.Enabled  :=true;
form34.n13.enabled:=true;
form34.SpeedButton25.Enabled  :=true;
form34.n12.enabled:=true;
form34.SpeedButton26.Enabled  :=true;
form34.n11.enabled:=true;
form34.SpeedButton27.Enabled  :=true;
form34.a1.enabled:=true;
form34.SpeedButton2.Enabled  :=true;
form34.n20.enabled:=true;
form34.SpeedButton19.Enabled  :=true;
form34.n20.enabled:=true;
form34.SpeedButton19.Enabled  :=true;
form34.n21.enabled:=true;
form34.SpeedButton16.Enabled  :=true;
form34.n14.enabled:=true;
form34.SpeedButton17.Enabled  :=true;
form34.n15.enabled:=true;
form34.SpeedButton18.Enabled  :=true;
form34.n7.enabled:=true;
form34.SpeedButton14.Enabled :=true;
form34.n19.enabled:=true;
form34.SpeedButton15.Enabled  :=true;
form34.h1.enabled:=true;
form34.SpeedButton9.Enabled  :=true;
form34.n3.enabled:=true;
form34.SpeedButton20.Enabled  :=true;
form34.n4.enabled:=true;
form34.SpeedButton21.Enabled  :=true;
form34.n18.enabled:=true;
form34.SpeedButton22.Enabled  :=true;
form34.n5.enabled:=true;
form34.SpeedButton24.Enabled  :=true;
form34.n9.enabled:=true;
form34.SpeedButton23.Enabled  :=true;
form34.n10.enabled:=true;
form34.SpeedButton36.Enabled  :=true;
close;
end;

end.