main_query_spxstj.pas

pos商场、超市管理系统

unit MAIN_QUERY_SPXSTJ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MAIN_QUERY, DB, DBTables, ComCtrls, StdCtrls, TFlatComboBoxUnit,
  TFlatSpeedButtonUnit, Grids, DBGrids, DsFancyButton, ExtCtrls,myself,frmmain;

type
  TFrm_main_query_spxstj = class(TFrm_main_query)
    procedure FormCreate(Sender: TObject);
    procedure SB_queryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SB_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main_query_spxstj: TFrm_main_query_spxstj;

implementation

uses PRINT_SPXSTJ, PRINT_TEMP;

{$R *.dfm}

procedure TFrm_main_query_spxstj.FormCreate(Sender: TObject);
var
   B_find:Boolean;
   I_temp:integer;
begin
  inherited;
   self.Caption :='商品销售统计';
   with query_data do
   begin
      close;
      sql.Clear ;
      sql.text:='select * from goodsmessage order by name';
      open;
      CB_goods.Style :=csDropDownList;
      CB_goods.Items.add('所有');
      while not eof do
      begin
         B_find:=false;
         for I_temp:=0 to CB_goods.items.Count-1 do
         begin
           if CB_goods.Items[I_temp]=fieldbyname('name').asstring then
             B_find:=true;          //找到相同名称
         end;
         if not B_find then        //没有找到时增加
           CB_goods.Items.add(fieldbyname('name').asstring);
         next;
      end;
      close;
   end;
end;

procedure TFrm_main_query_spxstj.SB_queryClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'查看') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   with query_data do
   begin
      close;
      sql.Clear ;
      if (cb_goods.Text ='') or (cb_goods.Text ='所有') then
         sql.Text :='SELECT Depot.name Depotname,Goodsmessage.NAME GOODSNAME,Goodsmessage.TYPE, '
               +' SUM( Sellrecord.NUMBER ) NUMBER,'
               +' SUM( Sellrecord.NUMBER * Sellrecord.PRICE  ) PRICE'
               +' FROM Sellrecord '
               +' INNER JOIN Depot '
               +' ON  (Sellrecord.DepotID = Depot.Id)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Sellrecord.GOODSID = Goodsmessage.ID)'
               +' WHERE (Sellrecord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Sellrecord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' GROUP BY Goodsmessage.NAME,Goodsmessage.TYPE, Depot.Name '
               +' UNION ALL'
               +' SELECT Depot.Name DEPOTNAME,Goodsmessage.NAME GOODSNAME,Goodsmessage.TYPE, '
               +' SUM( 0 - Xsthrecord.NUMBER ) NUMBER,'
               +' SUM( (0 - Xsthrecord.NUMBER) * Xsthrecord.PRICE  ) PRICE'
               +' FROM Xsthrecord '
               +' INNER JOIN DEPOT '
               +' ON  (Xsthrecord.DEPOTID = DEPOT.Id)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Xsthrecord.GOODSID = Goodsmessage.ID)'
               +' WHERE (Xsthrecord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Xsthrecord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' GROUP BY Goodsmessage.NAME, Goodsmessage.TYPE, DEPOT.Name'
               +'  ORDER BY GOODSMESSAGE.NAME'
      else
         sql.Text :='SELECT DEPOT.Name DEPOTNAME,Goodsmessage.NAME GOODSNAME,Goodsmessage.TYPE, '
               +' SUM( Sellrecord.NUMBER ) NUMBER,'
               +' SUM( Sellrecord.NUMBER * Sellrecord.PRICE  ) PRICE'
               +' FROM Sellrecord '
               +' INNER JOIN DEPOT '
               +' ON  (Sellrecord.DEPOTID = DEPOT.Id)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Sellrecord.GOODSID = Goodsmessage.ID)'
               +' WHERE (goodsmessage.name="'+cb_goods.Text +'")'
               +' and (Sellrecord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Sellrecord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' GROUP BY Goodsmessage.NAME, Goodsmessage.TYPE,DEPOT.Name '
               +' UNION ALL'
               +' SELECT DEPOT.Name DEPOTNAME,Goodsmessage.NAME GOODSNAME,Goodsmessage.TYPE, '
               +' SUM( 0 - Xsthrecord.NUMBER ) NUMBER,'
               +' SUM( (0 - Xsthrecord.NUMBER) * Xsthrecord.PRICE  ) PRICE'
               +' FROM Xsthrecord '
               +' INNER JOIN DEPOT '
               +' ON  (Xsthrecord.DEPOTID = DEPOT.Id)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Xsthrecord.GOODSID = Goodsmessage.ID)'
               +' WHERE (goodsmessage.name="'+cb_goods.Text +'")'
               +' and (Xsthrecord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Xsthrecord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' GROUP BY  Goodsmessage.NAME, Goodsmessage.TYPE,DEPOT.Name '
               +'  ORDER BY GOODSMESSAGE.NAME';
      try
         open;
      except
         messagedlg(Errormsg0001+'0008+0018+0023',mtError,[mbok],0);
         close;
      end;
   end;
end;

procedure TFrm_main_query_spxstj.FormShow(Sender: TObject);
begin
  inherited;
   SB_query.Click ;
end;

procedure TFrm_main_query_spxstj.SB_printClick(Sender: TObject);
begin
  inherited;
   try
      Application.CreateForm(TFrm_print_spxstj, Frm_print_spxstj);
      Application.CreateForm(TFrm_print_temp, Frm_print_temp);
   except
      messagedlg(Errormsg0011,mtError,[mbok],0);
      exit;
   end;
   Frm_print_spxstj.QuickRep_spxstj.preview;
   Frm_print_spxstj.Free ;
   Frm_print_temp.Free ;
end;

end.