dfm_saler.pas

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

unit dfm_saler;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask,
  DBCtrls, ADODB, TeEngine, Series, TeeProcs, Chart, DbChart, MXTABLES,
  Mxstore, MXDB, MXGRAPH, DBGridEh, ppCtrls, ppBands, ppPrnabl, ppClass,
  ppDB, ppCache, ppDBPipe, ppComm, ppRelatv, ppProd, ppReport, ppVar;

type
  Tdfmsaler = class(TForm)
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    quitbtn: TBitBtn;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    DataSource1: TDataSource;
    Label4: TLabel;
    DBChart2: TDBChart;
    Series2: TBarSeries;
    ADOQuery1bmh: TWideStringField;
    ADOQuery1yyyh: TWideStringField;
    ADOQuery1efname: TWideStringField;
    ADOQuery1esl: TFloatField;
    ADOQuery1esjje: TFloatField;
    DBGridEh1: TDBGridEh;
    BitBtn1: TBitBtn;
    ppReport1: TppReport;
    ppDBPipeline1: TppDBPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppSummaryBand1: TppSummaryBand;
    ppLabel6: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppDBCalc2: TppDBCalc;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLabel9: TppLabel;
    ppVariable1: TppVariable;
    ppVariable2: TppVariable;
    ppLabel10: TppLabel;
    ppVariable3: TppVariable;
    ppLabel11: TppLabel;
    atblbranch: TADOTable;
    atblslpara: TADOTable;
    ComboBox1: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1Exit(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
    procedure BitBtn1Click(Sender: TObject);
    procedure ppVariable1Calc(Sender: TObject; var Value: Variant);
    procedure ppVariable2Calc(Sender: TObject; var Value: Variant);
    procedure ppVariable3Calc(Sender: TObject; var Value: Variant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmsaler: Tdfmsaler;

implementation

uses dbmRainbowMis, chHeadUnit;

{$R *.DFM}

procedure Tdfmsaler.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  atblslpara.close;
  atblbranch.close;
  action:=cafree;
end;

procedure Tdfmsaler.quitbtnClick(Sender: TObject);
var
  fstr:String;
begin
  fstr:='SELECT t_saledet.bmh, t_saledet.yyyh, man.fname as efname, sum(t_saledet.sl) as esl, sum(t_saledet.sjje) as esjje FROM t_saledet,man'
       +' WHERE t_saledet.yyyh=man.freno and t_saledet.bmh like ''%s'' AND ([t_saledet.rq])>=#%s# and ([t_saledet.rq])<=#%s#'
       +' group by t_saledet.bmh, t_saledet.yyyh, man.fname';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[trim(ComboBox1.text)+'%',datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date)]));
    Prepared;
    open;
  end;
end;

procedure Tdfmsaler.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date:=date();
  DateTimePicker2.Date:=date();
  atblslpara.Open;
  atblbranch.Open;
  chHeadUnit.combolist(combobox1,atblbranch,'bmh','cid',1);
  ComboBox1.Text :=atblslpara['bmh'];
end;

procedure Tdfmsaler.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  ARect: Trect;
  temp: integer;
begin 
  inherited; 
  ARect := Rect; 
  temp := (sender as Tdbgrid).datasource.dataset.recno; 
  with (sender as Tdbgrid) do 
    if (DataCol = 0) then 
      DrawText(Canvas.Handle, PChar(inttostr(temp)), Length(inttostr(temp)), ARect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX)
end;

procedure Tdfmsaler.DBGrid1Exit(Sender: TObject);
begin
  i:=1;
end;

procedure Tdfmsaler.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  ARect: Trect;
  temp: integer;  
begin
  inherited; 
  ARect := Rect; 
  temp := (sender as TDBGridEh).datasource.dataset.recno;
  with (sender as TDBGridEh) do 
    if (DataCol = 0) then 
      DrawText(Canvas.Handle, PChar(inttostr(temp)), Length(inttostr(temp)), ARect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX)
end;

procedure Tdfmsaler.DBGridEh1TitleClick(Column: TColumnEh);
begin
  chHeadUnit.ehtitclick(column); 
end;

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

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

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

procedure Tdfmsaler.ppVariable3Calc(Sender: TObject; var Value: Variant);
begin
  value:=trim(ComboBox1.Text); 
end;

end.