pasdhjstj.pas

来自「一个图书批发商的通用软件」· PAS 代码 · 共 98 行

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.