unitdeptab3.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit Unitdeptab3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Buttons, Grids, DBGridEh, StdCtrls, Db, DBTables, PrintAtOnces,
  PrnDbgeh, EHGrids;

type
  Tfrmdeptab3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Query1: TQuery;
    DataSource1: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdeptab3: Tfrmdeptab3;

implementation
 uses Unitdeptab2;
{$R *.DFM}

procedure Tfrmdeptab3.FormShow(Sender: TObject);
var
 tmpsql,curyear:string;
 year,month,day:word;
begin
 DecodeDate(now,year,month,day);
 curyear:=Inttostr(year);
 label3.Caption:='销售部门：'+selecteddep;
 label2.Caption:='制表日期：'+formatdatetime('yyyy-mm-dd',now);
 with query1 do
 begin
  tmpsql:='select * from shopSaleReportBase where 年份='''+curyear+''' and 部门编码='''+selecteddep+''' order by 月份';
  close;
  sql.clear;
  sql.add(tmpsql);
  prepare;
  open;
 end;
 dbgrideh1.Columns[0].FieldName:='月份';
 dbgrideh1.Columns[1].FieldName:='当月销售额';
 dbgrideh1.Columns[2].FieldName:='当月销项税';
 dbgrideh1.Columns[3].FieldName:='当月商品成本';
 dbgrideh1.Columns[4].FieldName:='当月毛利润';
 dbgrideh1.Columns[5].FieldName:='去年同期销售额';
 dbgrideh1.Columns[6].FieldName:='去年同期毛利润';
 dbgrideh1.Columns[7].FieldName:='前年同期销售额';
 dbgrideh1.Columns[8].FieldName:='前年同期毛利润';
end;

procedure Tfrmdeptab3.SpeedButton3Click(Sender: TObject);
begin
 frmdeptab3.Close;
end;

procedure Tfrmdeptab3.SpeedButton2Click(Sender: TObject);
var
  tmpdep,tmpdate:string;
begin
 tmpdep:=label3.Caption;
 tmpdate:=label2.Caption;
 printdbgrideh1.Title.Clear;
 printdbgrideh1.Title.Append(tmpdep+'                                '+tmpdate);
 printdbgrideh1.Preview;
end;

end.