unitdeptab2.pas

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

unit Unitdeptab2;

interface

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

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

var
  Frmdeptab2: TFrmdeptab2;
  selecteddep:string;
implementation
uses Unitdeptab1, Unitdeptab3;
{$R *.DFM}

procedure TFrmdeptab2.FormShow(Sender: TObject);
var
 curdep,tmpsql,curyear:string;
 year,month,day:word;
begin
 DecodeDate(now,year,month,day);
 curyear:=Inttostr(year);
 curdep:='商场';
 label2.Caption:=curyear+'年'+selectedMonth+'月';
  with query1 do
 begin
  tmpsql:='select * from shopSaleReportBase where 年份='''+curyear+''' and 月份='''+selectedMonth+''' and 部门编码<>'''+curdep+'''';
  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 TFrmdeptab2.DBGridEh1CellClick(Column: TColumnEh);
begin
if column.FieldName='部门编码' then
 begin
  selecteddep:=column.Field.Text;

  Application.CreateForm(Tfrmdeptab3,frmdeptab3);
  frmdeptab3.showmodal;
 end;
end;

procedure TFrmdeptab2.SpeedButton3Click(Sender: TObject);
begin
 frmdeptab2.Close;
end;

procedure TFrmdeptab2.SpeedButton2Click(Sender: TObject);
var
 tmpdate:string;
begin
 tmpdate:=label2.Caption;
 printdbgrideh1.Title.Clear;
 printdbgrideh1.Title.Append(tmpdate);
 printdbgrideh1.Preview;
end;

end.