salesaccount.~pas

delphi制作的图书管理系统

unit SalesAccount;

interface

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

type
  TSalesAccountFrm = class(TForm)
    LblQueryTitel: TLabel;
    LblFrmTitle: TLabel;
    DBGridBookInfo: TDBGrid;
    BtnClose: TButton;
    EdtQueryContent: TEdit;
    CBoxQueryTitle: TComboBox;
    LblQueryContent: TLabel;
    BtnQuery: TButton;
    LblQueryDate: TLabel;
    DTPStart: TDateTimePicker;
    DTPEnd: TDateTimePicker;
    LblTo: TLabel;
    Button1: TButton;
    procedure BtnCloseClick(Sender: TObject);                  //关闭窗体
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);                  //开始查询
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SalesAccountFrm: TSalesAccountFrm;

implementation

uses DataModuel, Main, Depository, PurchasePrt;

{$R *.dfm}

procedure TSalesAccountFrm.BtnCloseClick(Sender: TObject);
begin
  MainForm.Sub_SAccount.Enabled:=True;           //主界面的销售统计可用
  with DM.PurchaseAccountQry do
  begin
    Active:=False;
  end;
  close;
end;

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


procedure TSalesAccountFrm.FormDestroy(Sender: TObject);
begin
  SalesAccountFrm:=nil;
end;


procedure TSalesAccountFrm.BtnQueryClick(Sender: TObject);
Var
  EndDate:TDate;
  StartDate:TDate;
begin
  StartDate:=DTPStart.Date;
  EndDate:=DTPEnd.Date;
  if (EndDate<StartDate) then
  begin
    MessageDlg('查询的起始日期比结束日期晚，不能查询！',mtInformation,[mbOK],0);
    exit;
  end;

  DM.TmpPurchaseTable.EmptyTable;
  With DM.PurchaseQry do
  begin
    close;
    SQL.Text:='Select BookID,Sum(PurhchaseQuantity) as TotalNum,Sum(PurchaseAmount) as TotalAmount from PurchaseSub,PurchaseMaster ';
    SQL.Add('where (PurchaseSub.PurchaseID=PurchaseMaster.PurchaseID) and');
    SQL.Add('((PurchaseDate>=:StartDate) and (PurchaseDate<=:EndDate)) ');
    SQL.Add(' Group by BookID');
    Params.ParamByName('StartDate').Value:=StartDate;
    Params.ParamByName('EndDate').Value:=EndDate;
    Open;
  end;
  DM.TmpPurchaseTable.BatchMove(DM.PurchaseQry,batAppend);

  //******按相应内容进行查询
  With DM.PurchaseAccountQry do
  begin
    close;
    SQL.Text:='Select Bookinfo.BookID,BookName,Author,Press,Price,TotalNum,TotalAmount from PurchaseAccount,Bookinfo';
    SQL.Add('where (PurchaseAccount.BookID=Bookinfo.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;
    if RecordCount=0 then
    begin
      MessageDlg('没有你想要的查询结果！'+#13+'请重新查询',mtInformation,[mbOk],0);
      exit;
    end;
  end;

end;

procedure TSalesAccountFrm.FormCreate(Sender: TObject);
begin
  DTPStart.Date:=Date();
  DTPEnd.Date:=Date();             //对日期进行初始化
end;

procedure TSalesAccountFrm.Button1Click(Sender: TObject);
var
  PurchasePrtFrm:TPurchasePrtFrm;
begin
  //******按相应内容进行查询
  With DM.PurchaseQry do
  begin
    close;
    SQL.Text:='Select Bookinfo.BookID,BookName,Author,Press,Price,TotalNum,TotalAmount from PurchaseAccount,Bookinfo';
    SQL.Add('where (PurchaseAccount.BookID=Bookinfo.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;
  PurchasePrtFrm:=TPurchasePrtFrm.Create(self);
  PurchasePrtFrm.QuickRep1.DataSet:=DM.PurchaseQry;

  PurchasePrtFrm.QBookID.DataSet:=DM.PurchaseQry;
  PurchasePrtFrm.QBKName.DataSet:=DM.PurchaseQry;
  PurchasePrtFrm.QAuthor.DataSet:=DM.PurchaseQry;
  PurchasePrtFrm.QPress.DataSet:=DM.PurchaseQry;
  PurchasePrtFrm.QPrice.DataSet:=DM.PurchaseQry;
  PurchasePrtFrm.QTotalNum.DataSet:=DM.PurchaseQry;
  PurchasePrtFrm.QTotalAmount.DataSet:=DM.PurchaseQry;
  PurchasePrtFrm.QuickRep1.Preview;

end;

end.