u_stat.pas

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

unit u_stat;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Mask, DBCtrls, Db, DBTables, Menus, ActnList,
  ExtCtrls, TeeProcs, TeEngine, Chart, DBChart, Grids, DBGrids, Series;

type
  TImpostazioni_statistica = class(TForm)
    DsImpostazioni: TDataSource;
    Aggiornamento: TGroupBox;
    Esegui: TButton;
    dataAggiornamento: TDateTimePicker;
    TabellaStat: TDBGrid;
    GraficoStat: TDBChart;
    ActionList1: TActionList;
    Tabella: TAction;
    Grafico: TAction;
    PopupMenu1: TPopupMenu;
    Tabella1: TMenuItem;
    Grafico1: TMenuItem;
    Series1: TLineSeries;
    procedure TabellaExecute(Sender: TObject);
    procedure GraficoExecute(Sender: TObject);
    procedure EseguiClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Impostazioni_statistica: TImpostazioni_statistica;

implementation

uses ana_mod;

{$R *.DFM}

procedure TImpostazioni_statistica.TabellaExecute(Sender: TObject);
begin
     GraficoStat.Visible := false ;
     TabellaStat.Visible := true ;
     Tabella1.Checked := True ;
end;

procedure TImpostazioni_statistica.GraficoExecute(Sender: TObject);

begin
     GraficoStat.Visible := True ;
     TabellaStat.Visible := False ;
     Grafico1.Checked := True ;
end;

procedure TImpostazioni_statistica.EseguiClick(Sender: TObject);
begin
     ModuloDatiAnagrafiche.AggiornaStatistiche(dataAggiornamento.date) ;
end;

end.