statistiche_u.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 207 行

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.