depository.~pas

delphi制作的图书管理系统

unit Depository;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls,DB,DBTables;

type
  TDepositoryFrm = class(TForm)
    LblQueryTitel: TLabel;
    LblFrmTitle: TLabel;
    DBGridBookInfo: TDBGrid;
    BtnClose: TButton;
    EdtQueryContent: TEdit;
    CBoxQueryTitle: TComboBox;
    LblQueryContent: TLabel;
    BtnQuery: TButton;
    BtnQueryAll: TButton;
    Button1: TButton;
    procedure BtnCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);
    procedure BtnQueryAllClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DepositoryFrm: TDepositoryFrm;

implementation

uses DataModuel, Main, DPrtFrm, RPTMonthReport;

{$R *.dfm}

procedure TDepositoryFrm.BtnCloseClick(Sender: TObject);
begin
  MainForm.Sub_BookAccount.Enabled:=True;           //主界面的库存统计可用
  
  close;
end;

procedure TDepositoryFrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;


procedure TDepositoryFrm.FormDestroy(Sender: TObject);
begin
  DepositoryFrm:=nil;
end;

//******按相应内容进行查询
procedure TDepositoryFrm.BtnQueryClick(Sender: TObject);
begin
  With DM.QryDepository do
  begin
    Close;
    SQL.Text:='Select Bookinfo.BookID,BookName,Author,Press,Price,BookNum.Booknum from Bookinfo ,BookNum';
    SQL.Add('where Bookinfo.BookID=BookNum.BookID and');
    if CBoxQueryTitle.Text='书号' then
    begin
       SQL.Add('BookInfo.BookID like ''%'+Trim(EdtQueryContent.Text)+'%''');
    end
    else if CBoxQueryTitle.Text='书名' then
    begin
       SQL.Add('BookInfo.BookName like ''%'+Trim(EdtQueryContent.Text)+'%''');
    end
    else if CBoxQueryTitle.Text='作者' then
    begin
       SQL.Add('BookInfo.Author like ''%'+Trim(EdtQueryContent.Text)+'%''');
    end;
    Open;
  end;
end;

procedure TDepositoryFrm.BtnQueryAllClick(Sender: TObject);
begin
  EdtQueryContent.Text:='';
  CBoxQueryTitle.ItemIndex:=0;
  With DM.QryDepository do
  begin
    Close;
    SQL.Text:='Select Bookinfo.BookID,BookName,Author,Press,Price,BookNum.Booknum from Bookinfo ,BookNum';
    SQL.Add('where Bookinfo.BookID=BookNum.BookID');
    Open;
  end;
end;

procedure TDepositoryFrm.Button1Click(Sender: TObject);
var
  DAccountPrtFrm:TDAccountPrtFrm;
begin

  //**查询相应的信息，以便打印
  With DM.PurchaseQry do
  begin
    Close;
    SQL.Text:='Select Bookinfo.BookID,BookName,Author,Press,Price,BookNum.Booknum from Bookinfo ,BookNum';
    SQL.Add('where Bookinfo.BookID=BookNum.BookID and');
    if CBoxQueryTitle.Text='书号' then
    begin
       SQL.Add('BookInfo.BookID like ''%'+Trim(EdtQueryContent.Text)+'%''');
    end
    else if CBoxQueryTitle.Text='书名' then
    begin
       SQL.Add('BookInfo.BookName like ''%'+Trim(EdtQueryContent.Text)+'%''');
    end
    else if CBoxQueryTitle.Text='作者' then
    begin
       SQL.Add('BookInfo.Author like ''%'+Trim(EdtQueryContent.Text)+'%''');
    end;
    Open;
  end;

  DAccountPrtFrm:=TDAccountPrtFrm.Create(self);
  DAccountPrtFrm.QuickRep1.DataSet:=DM.PurchaseQry;

  DAccountPrtFrm.QBookID.DataSet:=DM.PurchaseQry;
  DAccountPrtFrm.QBKName.DataSet:=DM.PurchaseQry;
  DAccountPrtFrm.QAuthor.DataSet:=DM.PurchaseQry;
  DAccountPrtFrm.QPress.DataSet:=DM.PurchaseQry;
  DAccountPrtFrm.QBookNum.DataSet:=DM.PurchaseQry;
  DAccountPrtFrm.QuickRep1.Preview;
end;

end.