fmqrymonthdatau.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit FMQryMonthDataU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMBaseQryU, ImgList, DB, ADODB, ComCtrls, ToolWin, ExtCtrls,
  Grids, DBGrids, StdCtrls;

type
  TFMQryMonthData = class(TFMBaseQry)
    Notebook: TNotebook;
    adoTotal: TADOQuery;
    adoTotalfProductId: TSmallintField;
    adoTotalfSHQty: TFloatField;
    adoTotalfTHQty: TFloatField;
    adoTotalfLLQty: TFloatField;
    adoTotalfTLQty: TFloatField;
    adoTotalfDZQty: TFloatField;
    adoTotalfSHAmt: TFloatField;
    adoTotalfTHAmt: TFloatField;
    adoTotalfLLAmt: TFloatField;
    adoTotalfTLAmt: TFloatField;
    adoTotalfDZAmt: TFloatField;
    adoTotalfQty: TFloatField;
    adoTotalfAmt: TFloatField;
    adoTotalfEndQty: TFloatField;
    adoTotalfEndAmt: TFloatField;
    adoTotalfproductno: TWideStringField;
    adoTotalfProductName: TWideStringField;
    adoTotalfSpec: TWideStringField;
    adoTotalfSaleUnit: TWideStringField;
    dsTotal: TDataSource;
    Panel1: TPanel;
    dsMonth: TDataSource;
    GridMonth: TDBGrid;
    adoMonth: TADOQuery;
    PageControl: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GridAmt: TDBGrid;
    GridQty: TDBGrid;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnExcleClick(Sender: TObject);
    procedure GridMonthDblClick(Sender: TObject);
    procedure btnExpClick(Sender: TObject);
  private
    { Private declarations }
    strBegDate,strEndDate :string ; 
  public
    { Public declarations }
    aCompany :string ; 
  end;

var
  FMQryMonthData: TFMQryMonthData;

implementation

{$R *.dfm}

procedure TFMQryMonthData.FormCreate(Sender: TObject);
begin
  inherited;
  adoMonth.Active :=false ; adoMonth.Active :=true ; 
end;

procedure TFMQryMonthData.btnExcleClick(Sender: TObject);
begin
  inherited;
  if not adoTotal.Active then exit ;
  if GridQty.DataSource.DataSet.RecordCount =0 then exit ;
  sCCompanyName :=aCompany ;
  if PageControl.ActivePageIndex =0 then
     SaveExcel('数量帐','统计日期:'+strBegDate+'-'+strEndDate,GridQty)
  else
     SaveExcel('金额帐','统计日期:'+strBegDate+'-'+strEndDate,GridAmt) ;
end;

procedure TFMQryMonthData.GridMonthDblClick(Sender: TObject);
begin
  inherited;
  if adoMonth.RecordCount =0 then exit ;

  strBegDate :=adoMonth.fieldByname('fBegDate').AsString  ;
  strEndDate :=adoMonth.fieldByname('fEndDate').AsString  ;

  adoTotal.Active :=false ;
  adoTotal.SQL.Text :='select a.*,b.fproductno,b.fProductName,b.fSpec,b.fSaleUnit from tb_month_detail a,ts_item b where a.fproductid=b.fproductid '
   +' and a.fid='+adoMonth.fieldByName('fid').AsString +' order by b.fproductno';
  adoTotal.Active :=true ; 

  Notebook.PageIndex := 1 ; 
end;

procedure TFMQryMonthData.btnExpClick(Sender: TObject);
begin
  inherited;
  Notebook.PageIndex :=0 ; 
end;

end.