dfm_saledetail.pas

来自「仓库管理系统 仓库管理系统」· PAS 代码 · 共 159 行

unit dfm_saledetail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, ExtCtrls, ComCtrls, StdCtrls, Buttons, DB,
  ADODB, Mask, ppCtrls, ppBands, ppClass, ppVar, ppPrnabl, ppCache, ppDB,
  ppDBPipe, ppComm, ppRelatv, ppProd, ppReport, ppModule, daDataModule;

type
  Tdfmsaledetail = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    quitbtn: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    Label6: TLabel;
    MaskEdit1: TMaskEdit;
    UpDown1: TUpDown;
    BitBtn1: TBitBtn;
    ppReport1: TppReport;
    ppDBPipeline1: TppDBPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    atblbranch: TADOTable;
    DataSource2: TDataSource;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppVariable1: TppVariable;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppVariable2: TppVariable;
    ppLabel8: TppLabel;
    ppVariable3: TppVariable;
    ppLabel9: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppLine1: TppLine;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppLabel10: TppLabel;
    daDataModule1: TdaDataModule;
    ppLine2: TppLine;
    procedure quitbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
    procedure ppVariable2Calc(Sender: TObject; var Value: Variant);
    procedure ppVariable3Calc(Sender: TObject; var Value: Variant);
    procedure BitBtn1Click(Sender: TObject);
    procedure ppVariable1Calc(Sender: TObject; var Value: Variant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmsaledetail: Tdfmsaledetail;

implementation

uses dbmRainbowMis, chHeadUnit;

{$R *.dfm}

procedure Tdfmsaledetail.quitbtnClick(Sender: TObject);
var
  fstr:String;
begin
  fstr:='SELECT t_saledet.clabel, Left(t_saledet.spbh,%d) AS spbh, sum(t_saledet.sl) as esl, sum(t_saledet.sjje) as esjje, sum(t_saledet.zke) as ezke, t_spec.cname FROM t_saledet,t_ware,t_spec'
       +' WHERE t_saledet.clabel=t_ware.clabel and t_saledet.spbh=t_ware.spbh and t_spec.clabel=t_ware.clabel and t_spec.cstyle=t_ware.flh and'
       +' t_saledet.bmh like ''%s'' AND (t_saledet.clabel) like ''%s'' and (t_ware.spbh) like ''%s'' AND ([t_saledet.rq])>=#%s# and ([t_saledet.rq])<=#%s#'
       +' group by Left(t_saledet.spbh,%d),t_spec.cname, t_saledet.clabel';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[strtoint(trim(MaskEdit1.text)),chHeadUnit.getbmh(ComboBox1.text)+'%',trim(ComboBox2.text)+'%',trim(edit1.text)+'%',datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date),strtoint(trim(MaskEdit1.text))]));
    Prepared;
    open;
  end;
end;

procedure Tdfmsaledetail.FormCreate(Sender: TObject);
begin
  adotable1.Open;
  adotable2.Open;
  DateTimePicker1.Date:=date();
  DateTimePicker2.Date:=date();
  chHeadUnit.combolist(combobox1,adotable1,'bmh','bmmc',2);
  chHeadUnit.combolist(combobox2,adotable2,'clabel','cfactory',1);
  combobox1.Text:=dmRainbowMIS.atbldefault['cbmh'];
  combobox2.Text:=dmRainbowMIS.atbldefault['clabel'];
end;

procedure Tdfmsaledetail.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  adotable1.close;
  adotable2.close;
  action:=cafree;
end;

procedure Tdfmsaledetail.DBGridEh1TitleClick(Column: TColumnEh);
begin
  chHeadUnit.ehTitClick(column);
end;

procedure Tdfmsaledetail.ppVariable2Calc(Sender: TObject;
  var Value: Variant);
begin
  value:=DateTimePicker1.Date;
end;

procedure Tdfmsaledetail.ppVariable3Calc(Sender: TObject;
  var Value: Variant);
begin
  value:=DateTimePicker2.Date;
end;

procedure Tdfmsaledetail.BitBtn1Click(Sender: TObject);
begin
  ppReport1.Print;
end;

procedure Tdfmsaledetail.ppVariable1Calc(Sender: TObject;
  var Value: Variant);
begin
  value:=combobox1.Text;
end;

end.