unit pasfhjstj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxBar, dxBarExtItems,data, DB, ADODB, dxCntner, dxEditor,
  dxExEdtr, dxDBEdtr, dxDBELib, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  Grids, DBGrids, FR_PTabl;

type
  Tfrfhjstj = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarLargeButton6: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    cxLookupComboBox1: TcxLookupComboBox;
    DBGrid1: TDBGrid;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    frPrintGrid1: TfrPrintGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure dxBarLargeButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frfhjstj: Tfrfhjstj;

implementation

{$R *.dfm}

procedure Tfrfhjstj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tfrfhjstj.FormDestroy(Sender: TObject);
begin
  frfhjstj:=nil;
end;

procedure Tfrfhjstj.FormCreate(Sender: TObject);
begin
  ADOQuery1.Open;
end;

procedure Tfrfhjstj.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
  if RadioButton1.Checked then
    stemp:='select bookname as 圖書名稱,sum(addBook) as 數量 from tbSaleSubs group by bookname';
  if RadioButton2.Checked then
  stemp:='select bookname as 圖書名稱,sum(addBook) as 數量 from tbSaleSubs where bookid='''+trim(cxLookupComboBox1.Text)+''' group by bookname';
  ADOQuery2.Close;
  ADOQuery2.SQL.Text:=stemp;
  ADOQuery2.Open;
end;

procedure Tfrfhjstj.dxBarLargeButton4Click(Sender: TObject);
begin
  close;
end;

procedure Tfrfhjstj.dxBarLargeButton6Click(Sender: TObject);
var stemp:string;
begin
  if not ADOQuery2.Active then
  begin
    exit;
  end;
  frPrintGrid1.Title.Text:=sysname;
  stemp:='全部圖書按書名分類統計';
  if RadioButton2.Checked then stemp:='圖書名稱：'+trim(cxLookupComboBox1.Text);
  frPrintGrid1.PageHeader.Text:='發貨加損統計表   ->'+stemp;
  frPrintGrid1.PageFooter.Text:=datetimetostr(now);
  frPrintGrid1.ShowReport;
end;

end.