pasfhjstj.~pas

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

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)+char(13)+'发货加损统计表';
  frPrintGrid1.ShowReport;
end;

end.