?? u_stat.pas
字號:
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -