statistiche_u.pas

基于OOP设计的一套较好的ERP系统

unit statistiche_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Grids, DBGrids, ActnList, ppEndUsr, ppProd,
  ppClass, ppReport, ppComm, ppCache, ppDB, ppDBPipe, ppDBBDE, ppVar,
  ppStrtch, ppMemo, ppCtrls, ppPrnabl, ppBands, ComCtrls, ToolWin, ExtCtrls,
  TeEngine, Series, TeeProcs, Chart, DBChart, TeeFunci, DBCtrls, ppRelatv,
  Mask;

type
  TStatistiche = class(TForm)
    ActionList1: TActionList;
    cercatutto: TAction;
    Anagrafico: TAction;
    ppGiacenza: TppBDEPipeline;
    Giacenza: TppReport;
    modGiacenza: TppDesigner;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppDBText3: TppDBText;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppDBMemo1: TppDBMemo;
    ppSystemVariable1: TppSystemVariable;
    ToolBar1: TToolBar;
    Esegui: TAction;
    Stampa: TAction;
    Modifica: TAction;
    Chiudi: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    Pagine: TPageControl;
    Impostazione: TTabSheet;
    Grafico: TTabSheet;
    Chart: TDBChart;
    Series1: TBarSeries;
    Tabella: TTabSheet;
    Panel1: TPanel;
    Series2: TBarSeries;
    Rimanenza: TCheckBox;
    Venduto: TCheckBox;
    TTParam: TTable;
    TTParamFornitore: TStringField;
    TTParamDeposito: TStringField;
    TTParamMarca: TStringField;
    TTParamCategoria: TStringField;
    TTParamMerceologia: TStringField;
    TTParamFornitoreLookUP: TStringField;
    TTParamDepositoLookUP: TStringField;
    TTParamMarcaLookUP: TStringField;
    TTParamCategoriaLookUP: TStringField;
    TTParamMerceologiaLookUP: TStringField;
    TTParamTuttiifornitori: TBooleanField;
    TTParamTuttiidepositi: TBooleanField;
    TTParamTuttelemarche: TBooleanField;
    TTParamTuttelecategorie: TBooleanField;
    TTParamTuttelemerceologie: TBooleanField;
    DSParam: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Label4: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Label5: TLabel;
    DBLookupComboBox5: TDBLookupComboBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox1: TDBCheckBox;
    Raggruppamento: TRadioGroup;
    Griglia: TDBGrid;
    Mostragrafico: TAction;
    Mostratabella: TAction;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    QSelezione: TQuery;
    ProgressBar: TProgressBar;
    DsSituazione: TDataSource;
    Qsoggetti: TQuery;
    TTParamDadata: TDateField;
    TTParamAdata: TDateField;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    Label7: TLabel;
    DBEdit2: TDBEdit;
    procedure QGiacenzaCalcFields(DataSet: TDataSet);
    procedure cercatuttoExecute(Sender: TObject);
    procedure AnagraficoExecute(Sender: TObject);
    procedure modGiacenzaCustomSaveDoc(Sender: TObject);
    procedure EseguiExecute(Sender: TObject);
    procedure StampaExecute(Sender: TObject);
    procedure ModificaExecute(Sender: TObject);
    procedure ChiudiExecute(Sender: TObject);
    procedure RimanenzaClick(Sender: TObject);
    procedure VendutoClick(Sender: TObject);
    procedure TTSituazioneCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Statistiche: TStatistiche;
  id : integer ;

implementation

uses Ucerca, Umenu, ana_mod;

{$R *.DFM}

procedure TStatistiche.QGiacenzaCalcFields(DataSet: TDataSet);
begin
(*     ini := QgiacenzaIniziale.asFloat ;
     car := QgiacenzaCarico.asFLoat ;
     scar := QgiacenzaScarico.asFloat ;
     QGiacenzaQta.asFloat := ini+ car - scar ;
     QGiacenzaindice.asFloat := (car / scar) * 100 ;*)
end;

procedure TStatistiche.cercatuttoExecute(Sender: TObject);
begin
     Cerca_form.Trova(self) ;
end;

procedure TStatistiche.AnagraficoExecute(Sender: TObject);
begin
 (*Menu_form.Apri_articoli.Execute ;
 ModuloDatiAnagrafiche.TTarticoli.FindKey([Destinazione2ArticoloInterno.asString]) ;*)

end;

procedure TStatistiche.modGiacenzaCustomSaveDoc(Sender: TObject);
begin
     ModuloDatiAnagrafiche.ScriviChiave('Layout giacenza',Giacenza.Template.Filename) ;
     Giacenza.Template.SaveToFile ;
end;

procedure TStatistiche.EseguiExecute(Sender: TObject);

begin
     IF TTParam.State = dsEdit then TTParam.Post ;
     Qselezione.Close ;
     Qselezione.Open ;
     ProgressBar.Position := 7 ;
     ProgressBar.Update ;

end;

procedure TStatistiche.StampaExecute(Sender: TObject);

begin
{     Nome_report := '' ;
     If ModuloDatiAnagrafiche.LeggiChiave('Layout giacenza',nome_report) then
       begin
        Giacenza.Template.filename := nome_report ;
        Giacenza.Template.LoadFromFile ;
       end ;
     Giacenza.Print ;}

end;

procedure TStatistiche.ModificaExecute(Sender: TObject);
begin
     modGiacenza.ShowModal ;
end;

procedure TStatistiche.ChiudiExecute(Sender: TObject);
begin
     release ;
end;

procedure TStatistiche.RimanenzaClick(Sender: TObject);
begin
 Chart.Series[0].Active := Rimanenza.Checked ;
end;

procedure TStatistiche.VendutoClick(Sender: TObject);
begin
 Chart.Series[1].Active := Venduto.Checked ;
end;

procedure TStatistiche.TTSituazioneCalcFields(DataSet: TDataSet);
begin
    // TTSituazioneId.Value := ID ;
    // Inc(ID) ;
end;

end.