Cryogen2003
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Unit
fmRepPivotGrid;
Interface
Uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
cxGraphics,
cxControls,
cxLookAndFeels,
cxLookAndFeelPainters,
cxClasses,
cxCustomData,
cxStyles,
cxEdit,
dxSkinsCore,
dxSkinBlack,
dxSkinBlue,
dxSkinCaramel,
dxSkinCoffee,
dxSkinDarkRoom,
dxSkinDarkSide,
dxSkinFoggy,
dxSkinGlassOceans,
dxSkiniMaginary,
dxSkinLondonLiquidSky,
dxSkinMcSkin,
dxSkinMoneyTwins,
dxSkinPumpkin,
dxSkinSeven,
dxSkinSharp,
dxSkinSilver,
dxSkinSpringTime,
dxSkinStardust,
dxSkinSummer2008,
dxSkinValentine,
dxSkinXmas2008Blue,
cxCustomPivotGrid,
cxDBPivotGrid,
cxExportPivotGridLink,
DB,
cxGridCustomPopupMenu,
cxGridPopupMenu,
Menus;
Type
TfrmRepPivotGrid = Class(TForm)
dbgRepPivotGrid: TcxDBPivotGrid;
dsRepPivotGrid: TDataSource;
PopupMenu: TPopupMenu;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
Excel1: TMenuItem;
HTML1: TMenuItem;
XML1: TMenuItem;
ExcelSaveDialog: TSaveDialog;
HTMLSaveDialog: TSaveDialog;
XMLSaveDialog: TSaveDialog;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
dbgRepPivotGridField1: TcxDBPivotGridField;
Procedure N2Click(Sender: TObject);
Procedure N3Click(Sender: TObject);
Procedure N4Click(Sender: TObject);
Procedure FormCreate(Sender: TObject);
Procedure Excel1Click(Sender: TObject);
Procedure HTML1Click(Sender: TObject);
Procedure XML1Click(Sender: TObject);
Procedure N11Click(Sender: TObject);
Procedure N12Click(Sender: TObject);
Procedure N13Click(Sender: TObject);
Procedure N14Click(Sender: TObject);
Procedure N15Click(Sender: TObject);
Private
FDateGroupField: TcxDBPivotGridField;
Published
Property DateGroupField: TcxDBPivotGridField Read FDateGroupField
Write FDateGroupField;
End;
Implementation
{$R *.dfm}
Uses
dmMain;
Procedure TfrmRepPivotGrid.Excel1Click(Sender: TObject);
Begin
If ExcelSaveDialog.Execute Then
cxExportPivotGridToExcel(ExcelSaveDialog.FileName, dbgRepPivotGrid);
End;
Procedure TfrmRepPivotGrid.FormCreate(Sender: TObject);
Begin
dmdMain.dxComponentPrinter1Link1.Component := dbgRepPivotGrid;
FDateGroupField := Nil;
End;
Procedure TfrmRepPivotGrid.HTML1Click(Sender: TObject);
Begin
If HTMLSaveDialog.Execute Then
cxExportPivotGridToHTML(HTMLSaveDialog.FileName, dbgRepPivotGrid);
End;
Procedure TfrmRepPivotGrid.N11Click(Sender: TObject);
Begin
If FDateGroupField <> Nil Then
FDateGroupField.GroupInterval := giDate;
End;
Procedure TfrmRepPivotGrid.N12Click(Sender: TObject);
Begin
If FDateGroupField <> Nil Then
FDateGroupField.GroupInterval := giDateMonth;
End;
Procedure TfrmRepPivotGrid.N13Click(Sender: TObject);
Begin
If FDateGroupField <> Nil Then
FDateGroupField.GroupInterval := giDateYear;
End;
Procedure TfrmRepPivotGrid.N14Click(Sender: TObject);
Begin
If FDateGroupField <> Nil Then
FDateGroupField.GroupInterval := giDateDay;
End;
Procedure TfrmRepPivotGrid.N15Click(Sender: TObject);
Begin
If FDateGroupField <> Nil Then
FDateGroupField.GroupInterval := giDateDayOfWeek;
End;
Procedure TfrmRepPivotGrid.N2Click(Sender: TObject);
Begin
dmdMain.dxComponentPrinter1.PageSetup(Nil);
End;
Procedure TfrmRepPivotGrid.N3Click(Sender: TObject);
Begin
dmdMain.dxComponentPrinter1.Preview(True, Nil);
End;
Procedure TfrmRepPivotGrid.N4Click(Sender: TObject);
Begin
dmdMain.dxComponentPrinter1.Print(True, Nil, Nil);
End;
Procedure TfrmRepPivotGrid.XML1Click(Sender: TObject);
Begin
If XMLSaveDialog.Execute Then
cxExportPivotGridToXML(XMLSaveDialog.FileName, dbgRepPivotGrid);
End;
End.
|
