bbyylrb.pas

来自「IT业进销存管理系统源代码Delphi」· PAS 代码 · 共 76 行

unit BbYyLrb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComTjfx, ActnList, Menus, TeeProcs, TeEngine, Chart, DBChart, ComCtrls,
  DBCtrls, ToolWin, ExtCtrls, StdCtrls, Grids, DBGrids, Series;

type
  TfrmBbYyLrb = class(TfrmComTjfx)
    Series1: TBarSeries;
    procedure FormShow(Sender: TObject);override;
    procedure OpendataSet;override;
  private
    { Private declarations }
  public
    { Public declarations }
    dteRQ: TDate;
  end;

var
  frmBbYyLrb: TfrmBbYyLrb;

implementation

uses Dm, DmBb, Ndsz, MyLib;

{$R *.DFM}

procedure TfrmBbYyLrb.FormShow(Sender: TObject);
begin
  dteRQ := frmNdsz.dtpRq.Date;
  labTj.Caption := '统计年份: ' + FormatDateTime('yyyy', dteRQ) + '年';
  inherited;
end;

procedure TfrmBbYyLrb.OpendataSet;
var
  strSqlYf, strSqlTj: string;
  dteRQA, dteRQB: TDate;
begin
  dteRQA := StrToDate(FormatDateTime('yyyy', dteRQ) + '-01-01');
  dteRQB := StrToDate(FormatDateTime('yyyy', dteRQ) + '-12-31');
  strSqlYf :=
    'select top 1 1 as YF from AppUser union all ' +
    'select top 1 2 as YF from AppUser union all ' +
    'select top 1 3 as YF from AppUser union all ' +
    'select top 1 4 as YF from AppUser union all ' +
    'select top 1 5 as YF from AppUser union all ' +
    'select top 1 6 as YF from AppUser union all ' +
    'select top 1 7 as YF from AppUser union all ' +
    'select top 1 8 as YF from AppUser union all ' +
    'select top 1 9 as YF from AppUser union all ' +
    'select top 1 10 as YF from AppUser union all ' +
    'select top 1 11 as YF from AppUser union all ' +
    'select top 1 12 as YF from AppUser';
  strSqlTj :=
    'select month(M.RQ) as YF, ' +
    'sum(M.SL1 * M.DJ) as JEA, ' +
    'sum(M.SL1 * M.CBDJ) as CBJE, ' +
    'JEA - CBJE as LRJE, ' +
    'sum(FYJE1) as FYJE, sum(SRJE1) as SRJE ' +
    'from (' + GetSqlLrmx(dteRQA, dteRQB) + ') M ' +
    'group by month(M.RQ)';
  dsJbzl.Close;
  dsJbzl.CommandText :=
    'select Y.YF, B.JEA, B.CBJE, B.LRJE, B.FYJE, B.SRJE, ' +
    'B.LRJE + B.SRJE - B.FYJE as YYLR ' +
    'from (' + strSqlYf + ') as Y, (' + strSqlTj + ') as B, ' +
    'Y left join B on Y.YF = B.YF';
  inherited;
end;

end.