frmmain2.pas

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

end;
if bitbtn6.Caption ='系统管理' then
begin
panel8.height:=278;
panel8.Left :=4;
panel8.top:=40;
end;
if bitbtn6.Caption ='用户管理' then
begin
panel9.Visible :=true;
panel9.height:=409;
panel9.Left :=4;
panel9.top:=40;
end;
if bitbtn6.Caption ='报表打印' then
begin
panel10.height:=278;
panel10.Left :=4;
panel10.top:=40;
end;
if bitbtn6.Caption ='关于....' then
begin
panel11.height:=278;
panel11.Left :=4;
panel11.top:=40;
end;
if bitbtn6.Caption ='图书分类' then
begin
panel12.height:=278;
panel12.Left :=4;
panel12.top:=40;
end;
i:=0;
end;
end;

procedure TForm30.Timer2Timer(Sender: TObject);
begin
if Label6.top>bitbtn6.height+panel2.Height+bitbtn6.Top-label6.Height
then
  Label6.top:=Label6.top-1
else
  label6.Top:=panel6.Height +panel6.top;
end;



procedure TForm30.N19Click(Sender: TObject);
begin
form26.showmodal;
form0.ShowModal ;
StatusBar1.Panels[0].Text:='现在您的位置是:入库管理';
end;

procedure TForm30.N20Click(Sender: TObject);
begin
form11.ShowModal ;
StatusBar1.Panels[0].Text:='现在您的位置是:出库管理';
end;

procedure TForm30.N15Click(Sender: TObject);
begin
form13.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:客户管理';
end;

procedure TForm30.N3Click(Sender: TObject);
begin
form12.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:图书信息报表';
end;

procedure TForm30.N4Click(Sender: TObject);
begin
form14.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:员工信息报表';
end;

procedure TForm30.N18Click(Sender: TObject);
begin
form16.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:客户信息报表';
end;

procedure TForm30.N5Click(Sender: TObject);
begin
form18.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:入库信息报表';
end;

procedure TForm30.N9Click(Sender: TObject);
begin
form20.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:出库信息报表';
end;

procedure TForm30.N10Click(Sender: TObject);
begin
form22.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:供应商信息报表';
end;

procedure TForm30.SpeedButton1Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='现在您的位置是:系统管理';
bitbtn6.caption :='系统管理';
panel8.Visible :=true;
panel8.top:=40;
panel2.Visible :=false;
panel9.Visible :=false;
panel10.Visible :=false;
panel11.Visible :=false;
panel12.Visible :=false;
dbgrid1.Visible :=false;
bevel1.Visible :=false;
bevel2.Visible :=false;
panel3.Visible :=false;
panel4.Visible :=false;
panel5.Visible :=false;
pagecontrol1.Visible :=false;
dbnavigator1.Visible :=false;
image1.Visible :=true;
end;

procedure TForm30.N21Click(Sender: TObject);
begin
form25.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:统计管理';
end;

procedure TForm30.N13Click(Sender: TObject);
begin
application.HelpCommand(help_contents,0);
StatusBar1.Panels[0].Text:='现在您的位置是:帮助';
end;

procedure TForm30.N12Click(Sender: TObject);
begin
form27.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:关于作者';
end;

procedure TForm30.N11Click(Sender: TObject);
begin
form28.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:关于本系统';
end;

procedure TForm30.N17Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='现在您的位置是:权限管理';
form29.ShowModal;
end;

procedure TForm30.SpeedButton10Click(Sender: TObject);
begin
 form5.showmodal;
end;

procedure TForm30.SpeedButton11Click(Sender: TObject);
begin
form6.showmodal;
end;

procedure TForm30.SpeedButton14Click(Sender: TObject);
begin
form7.showmodal;
end;

procedure TForm30.SpeedButton12Click(Sender: TObject);
begin
form8.showmodal;
end;

procedure TForm30.SpeedButton13Click(Sender: TObject);
begin
form29.ShowModal;
end;

procedure TForm30.SpeedButton20Click(Sender: TObject);
begin
form12.showmodal;
end;

procedure TForm30.SpeedButton21Click(Sender: TObject);
begin
form15.QuickRep1.Preview;
end;

procedure TForm30.SpeedButton22Click(Sender: TObject);
begin
form17.QuickRep1.Preview;
end;

procedure TForm30.SpeedButton24Click(Sender: TObject);
begin
form19.QuickRep1.Preview;
end;

procedure TForm30.SpeedButton23Click(Sender: TObject);
begin
form21.QuickRep1.Preview;
end;

procedure TForm30.SpeedButton36Click(Sender: TObject);
begin
form23.QuickRep1.Preview;
end;

procedure TForm30.SpeedButton25Click(Sender: TObject);
begin
application.HelpCommand(help_contents,0);
end;

procedure TForm30.SpeedButton26Click(Sender: TObject);
begin
form27.showmodal;
end;

procedure TForm30.SpeedButton27Click(Sender: TObject);
begin
form28.showmodal;
end;

procedure TForm30.SpeedButton30Click(Sender: TObject);
var
PopupItem:TMenuItem;
popupmenu1:tpopupmenu;
begin
with dm.BookQuery do
begin
close;
SQL.Clear;
SQL.Add('select distinct booktype from BookRecord');
open;
PopupMenu1:=TPopupMenu.Create(application);
PopupMenu1.AutoHotkeys:=maManual;
while Not Eof do
begin
PopupItem:=TMenuItem.Create(application);
PopupItem.Caption:=FieldByName('booktype').AsString;

PopupMenu1.Items.Add(PopupItem);
PopupItem.OnClick:=Popup2Handler;
Next;
end;  end;
PopupMenu1.Popup(SpeedButton30.Left+40 ,SpeedButton30.top+250);

end;

procedure TForm30.SpeedButton31Click(Sender: TObject);
var
PopupItem:TMenuItem;
popupmenu1:tpopupmenu;
begin
StatusBar1.Panels[0].Text:='现在您的位置是:按出版社分类';
//自动生成快捷按钮1的内容
with dm.BookQuery do
begin
close;
SQL.Clear;
SQL.Add('select distinct publisher from BookRecord');
open;
PopupMenu1:=TPopupMenu.Create(application);  //自动生成快捷菜单
PopupMenu1.AutoHotkeys:=maManual;    //自定义热键
while Not Eof do
begin           //根据出版社内容生成菜单子项
PopupItem:=TMenuItem.Create(application);
PopupItem.Caption:=FieldByName('publisher').AsString;

PopupMenu1.Items.Add(PopupItem);
PopupItem.OnClick:=Popup1Handler;     //确定菜单子项的点击事件
Next;
end;  end;
PopupMenu1.Popup(speedbutton31.left+15,speedbutton31.Top+210);

end;

procedure TForm30.SpeedButton15Click(Sender: TObject);
begin
form26.showmodal;
form0.ShowModal ;
end;

procedure TForm30.SpeedButton19Click(Sender: TObject);
begin
form11.ShowModal ;
end;

procedure TForm30.SpeedButton16Click(Sender: TObject);
begin
form25.showmodal;
end;

procedure TForm30.SpeedButton17Click(Sender: TObject);
begin
form3.showmodal;
end;

procedure TForm30.SpeedButton18Click(Sender: TObject);
begin
form13.showmodal;
end;

procedure TForm30.SpeedButton35Click(Sender: TObject);
begin
form9.showmodal;
end;

procedure TForm30.SpeedButton8Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='现在您的位置是:报表打印';
bitbtn6.caption :='报表打印';
panel10.Visible :=true;
panel10.top:=40;
panel2.Visible :=false;
panel9.Visible :=false;
panel8.Visible :=false;
panel11.Visible :=false;
panel12.Visible :=false;
dbgrid1.Visible :=true;
bevel1.Visible :=true;
bevel2.Visible :=true;
panel3.Visible :=true;
panel4.Visible :=true;
panel5.Visible :=true;
pagecontrol1.Visible :=true;
dbnavigator1.Visible :=true;
image1.Visible :=false;
end;

procedure TForm30.SpeedButton9Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='现在您的位置是:关于....';
bitbtn6.caption :='关于....';
panel11.Visible :=true;
panel11.top:=40;
panel2.Visible :=false;
panel9.Visible :=false;
panel10.Visible :=false;
panel8.Visible :=false;
panel12.Visible :=false;
dbgrid1.Visible :=false;
bevel1.Visible :=false;
bevel2.Visible :=false;
panel3.Visible :=false;
panel4.Visible :=false;
panel5.Visible :=false;
pagecontrol1.Visible :=false;
dbnavigator1.Visible :=false;
image1.Visible :=true;
end;

procedure TForm30.SpeedButton4Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='现在您的位置是:图书分类';
bitbtn6.caption :='图书分类';
panel12.Visible :=true;
panel12.top:=40;
panel2.Visible :=false;
panel9.Visible :=false;
panel10.Visible :=false;
panel11.Visible :=false;
panel8.Visible :=false;
dbgrid1.Visible :=true;
bevel1.Visible :=true;
bevel2.Visible :=true;
panel3.Visible :=true;
panel4.Visible :=true;
panel5.Visible :=true;
pagecontrol1.Visible :=true;
dbnavigator1.Visible :=true;
image1.Visible :=false;
end;

procedure TForm30.SpeedButton5Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='现在您的位置是:图书查询';
bitbtn6.caption :='图书查询引擎';
panel2.Visible :=true;
panel2.top:=40;
panel8.Visible :=false;
panel9.Visible :=false;
panel10.Visible :=false;
panel11.Visible :=false;
panel12.Visible :=false;
dbgrid1.Visible :=true;
bevel1.Visible :=true;
bevel2.Visible :=true;
panel3.Visible :=true;
panel4.Visible :=true;
panel5.Visible :=true;
pagecontrol1.Visible :=true;
dbnavigator1.Visible :=true;
image1.Visible :=false;
end;

procedure TForm30.N22Click(Sender: TObject);
begin
form24.showmodal;
end;

procedure TForm30.SpeedButton28Click(Sender: TObject);
begin
form24.showmodal;
end;

procedure TForm30.N24Click(Sender: TObject);
begin
form4.ShowModal ;
form4.Edit1.Clear ;
end;

procedure TForm30.SpeedButton29Click(Sender: TObject);
begin
form4.ShowModal ;
end;

procedure TForm30.SpeedButton32Click(Sender: TObject);
var
PopupItem:TMenuItem;
popupmenu1:tpopupmenu;
begin
StatusBar1.Panels[0].Text:='现在您的位置是:按库存量分类';
with dm.BookQuery do
begin
close;
SQL.Clear;
SQL.Add('select distinct number1 from BookRecord');
open;
PopupMenu1:=TPopupMenu.Create(application);
PopupMenu1.AutoHotkeys:=maManual;
while Not Eof do
begin
PopupItem:=TMenuItem.Create(application);
PopupItem.Caption:=FieldByName('number1').AsString;
PopupMenu1.Items.Add(PopupItem);
PopupItem.OnClick:=Popup3Handler;
Next;
end;
end;
PopupMenu1.Popup(speedbutton32.left+45,speedbutton32.Top+180);
end;

procedure TForm30.SpeedButton33Click(Sender: TObject);
var
PopupItem:TMenuItem;
popupmenu1:tpopupmenu;
begin
StatusBar1.Panels[0].Text:='现在您的位置是:按出版日期分类';
with dm.BookQuery do
begin
close;
SQL.Clear;
SQL.Add('select distinct pubdate from BookRecord');
open;
PopupMenu1:=TPopupMenu.Create(application);
PopupMenu1.AutoHotkeys:=maManual;
while Not Eof do
begin
PopupItem:=TMenuItem.Create(application);
PopupItem.Caption:=FieldByName('pubdate').AsString;
PopupMenu1.Items.Add(PopupItem);
PopupItem.OnClick:=Popup4Handler;
Next;
end;
end;
PopupMenu1.Popup(speedbutton33.left+45,speedbutton33.Top+150);

end;

procedure TForm30.SpeedButton34Click(Sender: TObject);
begin
form1.Hide;
form30.close;
form4.Edit1.Clear ;

form4.Show;
end;

procedure TForm30.SpeedButton37Click(Sender: TObject);
begin
form33.showmodal;
end;

procedure TForm30.SpeedButton38Click(Sender: TObject);
begin
form35.showmodal;
end;

end.