unitsuptab1.pas

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

unit Unitsuptab1;

interface

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

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

var
  frmsuptab1: Tfrmsuptab1;

implementation
 uses unit2, Unitsuptab2;
{$R *.DFM}

procedure Tfrmsuptab1.FormShow(Sender: TObject);
var
 tmpsql:string;
begin
 with query1 do
 begin
  tmpsql:='select * from GoodSaleReportBase where 供货商='''+supplier+'''';
  close;
  sql.clear;
  sql.add(tmpsql);
  prepare;
  try
     open;
  except
     messagebox(frmsuptab1.handle,'数据库读写错误！','错误',MB_OK+MB_ICONINFORMATION);
     exit;
  end;
 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:='销项税';
 dbgrideh1.Columns[9].FieldName:='毛利润';
 dbgrideh1.Columns[10].FieldName:='平均进价';
 dbgrideh1.Columns[11].FieldName:='平均售价';
 dbgrideh1.Columns[12].FieldName:='去年同期销售额';
 dbgrideh1.Columns[13].FieldName:='去年同期毛利润';
 dbgrideh1.Columns[14].FieldName:='销售部门';
 dbgrideh1.Columns[15].FieldName:='最后更新日期';
end;

procedure Tfrmsuptab1.SpeedButton3Click(Sender: TObject);
begin
 close;
end;

procedure Tfrmsuptab1.SpeedButton2Click(Sender: TObject);
begin
printdbgrideh1.Preview;
end;

end.