unit pasdhjstj;

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
  Tfrdhjstj = 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
  frdhjstj: Tfrdhjstj;

implementation

{$R *.dfm}

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

procedure Tfrdhjstj.FormDestroy(Sender: TObject);
begin
  frdhjstj:=nil;
end;

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

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

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

procedure Tfrdhjstj.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.