dfm_tsaleno.pas

仓库管理系统 仓库管理系统

unit dfm_tsaleno;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, ComCtrls, DB, ADODB;

type
  Tdfmtsaleno = class(TForm)
    StatusBar1: TStatusBar;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1bmh: TWideStringField;
    ADOQuery1rq: TDateTimeField;
    ADOQuery1jyh: TWideStringField;
    ADOQuery1yyyh: TWideStringField;
    ADOQuery1skyh: TWideStringField;
    ADOQuery1ssl: TFloatField;
    ADOQuery1ssjje: TBCDField;
    ADOQuery1szke: TBCDField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmtsaleno: Tdfmtsaleno;

implementation

uses dfm_ssaleno, chHeadUnit, dbmRainbowMis;

{$R *.dfm}

procedure Tdfmtsaleno.FormCreate(Sender: TObject);
var
  fstr:string;
begin
  fstr:='SELECT t_saledet.bmh, t_saledet.rq, t_saledet.jyh, t_saledet.yyyh, t_saledet.skyh, sum(t_saledet.sl) as ssl, sum(t_saledet.sjje) as ssjje, sum(t_saledet.zke) as szke'
       +' FROM t_saledet INNER JOIN (t_spec INNER JOIN t_ware ON (t_spec.cstyle = t_ware.flh) AND (t_spec.clabel = t_ware.clabel)) ON (t_saledet.clabel = t_ware.clabel) AND (t_saledet.spbh = t_ware.spbh)'
       +' where t_saledet.bmh like ''%s'' AND t_saledet.jyh like ''%s'' AND ([t_saledet.rq])>=#%s# and ([t_saledet.rq])<=#%s#'
       +' GROUP BY t_saledet.bmh, t_saledet.rq, t_saledet.jyh, t_saledet.yyyh, t_saledet.skyh'
       +' order by t_saledet.bmh,t_saledet.rq';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[chHeadUnit.getbmh(dfmssaleno.ComboBox1.text)+'%',trim(dfmssaleno.edit1.text)+'%',datetostr(dfmssaleno.DateTimePicker1.Date),datetostr(dfmssaleno.DateTimePicker2.Date)]));
    Prepared;
    open;
  end;
end;

end.