frmmain.pas

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

unit frmmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, ComCtrls,
  DBCtrls, OleServer, Outlook2000, jpeg, QRCtrls, QuickRpt;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    G1: TMenuItem;
    P1: TMenuItem;
    H1: TMenuItem;
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DBGrid1: TDBGrid;
    PageControl1: TPageControl;
    DBNavigator1: TDBNavigator;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBNavigator2: TDBNavigator;
    DBNavigator3: TDBNavigator;
    DBGrid4: TDBGrid;
    DBNavigator4: TDBNavigator;
    DBGrid5: TDBGrid;
    DBNavigator5: TDBNavigator;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    N2: TMenuItem;
    N1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Panel6: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn6: TBitBtn;
    Timer2: TTimer;
    Label6: TLabel;
    Bevel1: TBevel;
    Panel3: TPanel;
    Bevel2: TBevel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel7: TPanel;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Panel12: TPanel;
    SpeedButton30: TSpeedButton;
    SpeedButton31: TSpeedButton;
    Panel11: TPanel;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    Panel9: TPanel;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton35: TSpeedButton;
    Panel8: TPanel;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    Panel10: TPanel;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    SpeedButton36: TSpeedButton;
    Image1: TImage;
    N22: TMenuItem;
    SpeedButton28: TSpeedButton;
    N23: TMenuItem;
    N24: TMenuItem;
    SpeedButton29: TSpeedButton;
    SpeedButton32: TSpeedButton;
    SpeedButton33: TSpeedButton;
    SpeedButton34: TSpeedButton;
    SpeedButton37: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton35Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton32Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure SpeedButton34Click(Sender: TObject);
    procedure SpeedButton37Click(Sender: TObject);
    procedure DBGrid1Enter(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);

  private
    { Private declarations }
  public
    { Public declarations }
    Procedure Popup1Handler(Sender:Tobject);
    Procedure Popup2Handler(Sender:TObject);
    procedure Popup3Handler(Sender: TObject);
    procedure Popup4Handler(Sender: TObject);
    function getdbgridedit(vdbgrid:tdbgrid):tedit;
    function getdbgridedittext(vdbgrid:tdbgrid):string;
  end;

var
  Form1: TForm1;
   i:integer;
implementation

uses data,  frmpassword, frmpassword1, frmpassword2, frmpassword3,
  findemp, findshop, password, frmin, frmout, findguest, pbook, pbook2,
  pemp1, pshop1, pguest1, pin1, pout1, frmsum,  frmauthor,
  frmbox, frmpower, frmshuj, pemp2, pguest2, pin2, pout2, pshop2, frmlookup,
  frmmain1;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Width:=800;Height:=600;
i:=1;
StatusBar1.Panels[0].Text:='现在您的位置是:主窗口';
label6.Top:=panel6.Height +panel6.top;
label6.Caption :='    图书管理系统'+#13+#13+'随着经济文化水平的显'+#13
+'著提高人们对生活质量'+#13+'及工作环境的要求也越'+#13+'来越高书籍做为人类的'
+#13+'精神食粮在现代社会中'+#13+'越来越受到重视大量的'+#13+'书籍出现在市场上人们'
+#13+'有了各种各样不同的选'+#13+'择随着图书的大量增加'+#13+'其管理难度也越来越大'
+#13+'如何优化仓库的日常管'+#13+'理也就成为了一个大众'+#13+'化的课题'+#13+
'采用计算机管理信息系'+#13+'统已成为仓库管理科学'+#13+'化和现代化的重要标志'+#13
+'它给企业管理来了明显'+#13+'的经济效益和社会效益'+#13+'主要体现在：'+#13+#13+
'1.极大提高了仓库工作'+#13+'人员的工作效率大大减'+#13+'少了以往入出存流程繁'+#13
+'琐杂乱周期长的弊端'+#13+#13+'2.基于仓库管理的全面'+#13+'自动化可以减少入库管'+#13
+'理出库管理及库存管理'+#13+'中的漏洞可以节约不少'+#13+'管理开支增加企业收入'+#13
+#13+'3.仓库的管理的操作自'+#13+'动化和信息的电子化全'+#13+'面提高了仓库的管理水'+#13
+'平.'+#13+#13+'4.加快仓库管理自动化'+#13+'的步伐提高仓库的管理'+#13+'业务处理效率建立仓库'
+#13+'管理系统已变得十分心'+#13+'要.'+#13+#13+'通过对仓库管理日常工'+#13+'作的详细调查搜集了大'
+#13+'量的资料从系统结构的'+#13+'组织功能的实现技术的'+#13+'要求以及可行性等多方'
+#13+'面进行考虑本课题是一'+#13+'个适应现今图书仓库管'+#13+'理需求的计算机信息管'
+#13+'理系统具有一定的实际'+#13+'开发价值和使用价值.';
end;
procedure Tform1.Popup1Handler(Sender: TObject);
begin       //快捷按钮1(点"按出版社分类"按钮产生)的点击事件
with dm.MainQuery do
begin     //打开数据模块窗体的MainQuery，对BookRecord表进行操作
close;     //关闭MainQuery
SQL.Clear;      //清除SQL属性中的SQL命令语句
SQL.Add('select * from BookRecord where Publisher=:Pub'); //添加新的SQL语句
Parameters.ParamByName('Pub').Value:=(Sender as TMenuItem).Caption;
open;      //重新打开MainQuery
end;
end;
procedure Tform1.Popup2Handler(Sender: TObject);
begin
with dm.MainQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from BookRecord where booktype=:booktype');
Parameters.ParamByName('booktype').Value:=(Sender as TMenuItem).Caption;
open;
end;
end;
procedure Tform1.Popup3Handler(Sender: TObject);
begin
with dm.MainQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from BookRecord where number1=:number1');
Parameters.ParamByName('number1').Value:=(Sender as TMenuItem).Caption;
open;
end;
end;
procedure Tform1.Popup4Handler(Sender: TObject);
begin
with dm.MainQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from BookRecord where pubdate=:pubdate');
Parameters.ParamByName('pubdate').Value:=(Sender as TMenuItem).Caption;
open;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin

StatusBar1.Panels[1].Text:='现在本系统的日期是:';
StatusBar1.Panels[2].Text:=DateToStr(Date);
StatusBar1.Panels[3].Text:='现在本系统的时间是:';
StatusBar1.Panels[4].Text:=TimeToStr(Time);

end;

procedure TForm1.SpeedButton6Click(Sender: TObject);

Var
s1,s2,s3,s4,s5 :String;
begin
with dm.MainQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from BookRecord');
SQL.Add('where BookID Like :BookID and BookName Like :Name and Author Like :Author and Publisher Like :pub and BookType Like :BookType');

if Edit1.Text<>''  then  s1:='%'+Edit1.Text+'%'   else  s1:='%';
Parameters.ParamByName('BookID').Value:=s1;
if Edit2.Text<>''  then  s2:='%'+Edit2.Text+'%'   else  s2:='%';
Parameters.ParamByName('Name').Value:=s2;
if Edit3.Text<>''  then  s3:='%'+Edit3.Text+'%'   else  s3:='%';
Parameters.ParamByName('Author').Value:=s3;
if Edit4.Text<>''  then  s4:='%'+Edit4.Text+'%'   else  s4:='%';
Parameters.ParamByName('Pub').Value:=s4;
if Edit5.Text <>''  then  s5:='%'+Edit5.Text+'%'   else  s5:='%';
Parameters.ParamByName('BookType').Value:=s5;
open;
if FieldValues['BookID']=NULL
then  begin
Messagedlg('没有找到你所需要的记录！',mtInformation,[mbOK],0);
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit4.Text:='';Edit5.Text:='';
close;
SQL.Clear;
SQL.Add('select * from BookRecord');
open;
end;end;
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
with dm.MainQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from BookRecord');
open;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin

DBGrid1.DataSource:=dm.MainSource;
DBNavigator1.DataSource:=dm.MainSource;
DBGrid2.DataSource:=dm.EmpSource;
DBNavigator2.DataSource:=dm.EmpSource;
DBGrid3.DataSource:=dm.ShopSource;
DBNavigator3.DataSource:=dm.ShopSource;
DBGrid4.DataSource:=dm.InSource;
DBNavigator4.DataSource:=dm.InSource;
DBGrid5.DataSource:=dm.OutSource;
DBNavigator5.DataSource:=dm.OutSource;
with dm.empQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from employee');
open;
end;
with dm.shopQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from shopkeeper');
open;
end;
with dm.inQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from inrecord');
open;
end;
with dm.outQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from outRecord');
open;
end;
with dm.MainQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from BookRecord');
open;
end;

end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if MessageDlg('您确定要关闭吗!',mtInformation,[mbyes,mbno],0)=mryes
then application.Terminate ;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
 form5.showmodal;
 StatusBar1.Panels[0].Text:='现在您的位置是:系统密码';
end;

procedure TForm1.N6Click(Sender: TObject);
begin
form6.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:密码修改';
end;

procedure TForm1.N7Click(Sender: TObject);
begin
form7.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:用户注册';
end;

procedure TForm1.N8Click(Sender: TObject);
begin
form8.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:用户注销';
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin

StatusBar1.Panels[0].Text:='现在您的位置是:用户管理';
bitbtn6.caption :='用户管理';
panel9.Visible :=true;
panel9.top:=40;
panel9.Height:=361;
panel2.Visible :=false;
panel8.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 TForm1.N14Click(Sender: TObject);
begin
form3.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:员工管理';
end;

procedure TForm1.N16Click(Sender: TObject);
begin
form9.showmodal;
StatusBar1.Panels[0].Text:='现在您的位置是:供应商管理';
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='现在您的位置是:图书查询引擎';
if i=0 then
begin
if bitbtn6.Caption ='图书查询引擎' then
begin
panel2.height:=0;
panel2.Top:=0;
end;
if bitbtn6.Caption ='系统管理' then
begin
panel8.height:=0;
panel8.Top:=0;
end;
if bitbtn6.Caption ='用户管理' then
begin
panel9.Visible :=true;
panel9.height:=0;
panel9.Top:=0;
end;
if bitbtn6.Caption ='报表打印' then
begin
panel10.height:=0;
panel10.Top:=0;
end;
if bitbtn6.Caption ='关于....' then
begin
panel11.height:=0;
panel11.Top:=0;
end;
if bitbtn6.Caption ='图书分类' then
begin
panel12.height:=0;
panel12.Top:=0;
end;
i:=1;
end
else
if i=1 then
begin
if bitbtn6.Caption ='图书查询引擎' then
begin
panel2.height:=278;
panel2.Left :=4;
panel2.top:=40;
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:=361;
panel9.Left :=4;
panel9.top:=40;
end;
if bitbtn6.Caption ='报表打印' then