dfm_xszsfx.pas

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

unit dfm_xszsfx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, DBCtrls, StdCtrls, Buttons, ExtCtrls, DBTables,
  Db, ppModule, daDatMod, ppCtrls, ppVar, ppBands, ppClass, ppPrnabl, ppDB,
  ppProd, ppReport, ppComm, ppRelatv, ppCache, ppDBPipe, ppDBBDE, Mask,
  TeeProcs, TeEngine, Chart, mxgraph, mxDB, Series, mxtables, mxstore;

type
  Tdfmrxfx = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Panel2: TPanel;
    Panel3: TPanel;
    dstposloca: TDataSource;
    tbltposloca: TTable;
    qrytcls: TQuery;
    dsqrysale: TDataSource;
    ComboBox1: TComboBox;
    dssumsale: TDataSource;
    sumsale: TQuery;
    DecisionGraph1: TDecisionGraph;
    DecisionSource1: TDecisionSource;
    DecisionCube1: TDecisionCube;
    DecisionQuery1: TDecisionQuery;
    Srrxfx: TLineSeries;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    Query1: TQuery;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    Label5: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure totalnum;
    procedure ppVariable1Calc(Sender: TObject; var Value: Variant);
    procedure ppVariable2Calc(Sender: TObject; var Value: Variant);
    procedure ppVariable3Calc(Sender: TObject; var Value: Variant);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DecisionGraph1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure BitBtn2Click(Sender: TObject);
//    procedure qrytpossaleCalcFields(DataSet: TDataSet);
//    procedure qrytpossaleAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmrxfx: Tdfmrxfx;
  var vloca:string;

implementation

uses dfm_xsqxfx, Printers, dfm_rpxszs;

{$R *.DFM}

procedure Tdfmrxfx.totalnum;
begin
  with sumsale do
  begin
    close;
    SQL.clear;
    SQL.add('insert t_decdate SELECT SADATE, SUM(SAQTY) AS tsaqty, SUM(SASAL) AS tsasal FROM t_possale');
    SQL.Add('where SASTOR like :vsastor and sadate>=:vsdate and sadate<=:vedate');
    SQL.Add('GROUP BY SADATE');
    ParamByName ('vsastor').asstring:=trim(combobox1.text)+'%';
    ParamByName ('vsdate').asdate :=DateTimePicker1.date;
    ParamByName ('vedate').asdate :=DateTimePicker2.date;
    ExecSQL;
  end;
end;

procedure Tdfmrxfx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  tbltposloca.active:=false;
  action:=cafree;
end;

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

procedure Tdfmrxfx.ppVariable2Calc(Sender: TObject; var Value: Variant);
begin
  value:=datetostr(DateTimePicker1.date);
end;

procedure Tdfmrxfx.ppVariable3Calc(Sender: TObject; var Value: Variant);
begin
  value:=datetostr(DateTimePicker2.date);
end;

procedure Tdfmrxfx.BitBtn3Click(Sender: TObject);
begin
  If  Application.FindComponent('dfmxsqxfx')=Nil Then
    dfmxsqxfx:=Tdfmxsqxfx.Create(Application);
  dfmxsqxfx.Show;
end;

procedure Tdfmrxfx.FormCreate(Sender: TObject);
begin
  tbltposloca.active:=true;
  while not tbltposloca.Eof do begin
    ComboBox1.Items.Add(tbltposloca.FieldByName('lcstor').AsString);
    tbltposloca.Next;
  end;
end;

procedure Tdfmrxfx.FormShow(Sender: TObject);
begin
  DateTimePicker1.DateTime:=date();
  DateTimePicker2.DateTime:=date();
end;

procedure Tdfmrxfx.BitBtn1Click(Sender: TObject);
begin
  if tbltposloca.FindKey ([combobox1.text]) then
    label5.Caption:=tbltposloca.FieldByName('lcname').AsString
  else
    label5.Caption:='';
  qrytcls.ExecSQL;
  totalnum;
  DecisionQuery1.Active :=false;
  DecisionQuery1.Active :=true;
end;

procedure Tdfmrxfx.DecisionGraph1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  tmpTask:Longint;
  tmark:Tseriesmarks;
begin
  tmpTask:=Srrxfx.Clicked(x,y);
  if tmpTask<>-1 then
  begin
    label2.caption:=Srrxfx.XLabel[tmpTask];
  end
  else
  begin
//    Label2.Caption:='pppppppppppp';
  end;
end;
procedure Tdfmrxfx.BitBtn2Click(Sender: TObject);
begin
//  DecisionGraph1.PrintRect( Rect ( 0,0,Printer.PageWidth-1,Printer.PageHeight-1) );
//  DecisionGraph1.Print;
    dfmrpxszs.qrpxszs.preview;
end;

end.