多维度统计模版
This commit is contained in:
parent
821eecf691
commit
a0564ff5dd
321
public10/design/U_QryPivotBaseList.dfm
Normal file
321
public10/design/U_QryPivotBaseList.dfm
Normal file
|
|
@ -0,0 +1,321 @@
|
||||||
|
object frmQryPivotBaseList: TfrmQryPivotBaseList
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Caption = 'frmQryPivotBaseList'
|
||||||
|
ClientHeight = 453
|
||||||
|
ClientWidth = 1037
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #24494#36719#38597#40657
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 21
|
||||||
|
object ToolBar3: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1037
|
||||||
|
Height = 27
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 27
|
||||||
|
ButtonWidth = 92
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
GradientEndColor = clWindow
|
||||||
|
List = True
|
||||||
|
GradientDrawingOptions = [gdoHotTrack]
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object Trefresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26597#35810
|
||||||
|
ImageIndex = 8
|
||||||
|
OnClick = TrefreshClick
|
||||||
|
end
|
||||||
|
object Tprint: TToolButton
|
||||||
|
Left = 48
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986'Excel'
|
||||||
|
ImageIndex = 28
|
||||||
|
OnClick = TprintClick
|
||||||
|
end
|
||||||
|
object TprintGrid: TToolButton
|
||||||
|
Left = 134
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #25171#21360
|
||||||
|
ImageIndex = 21
|
||||||
|
end
|
||||||
|
object TsaveGrid: TToolButton
|
||||||
|
Left = 182
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 30
|
||||||
|
end
|
||||||
|
object TgridLiSet: TToolButton
|
||||||
|
Left = 262
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #34920#26684#21015#35774#32622
|
||||||
|
ImageIndex = 16
|
||||||
|
end
|
||||||
|
object Tclose: TToolButton
|
||||||
|
Left = 358
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TcloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frmFrameDateSel1: TfrmFrameDateSel10
|
||||||
|
Left = 0
|
||||||
|
Top = 27
|
||||||
|
Width = 1037
|
||||||
|
Height = 45
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
Color = clBtnFace
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitTop = 27
|
||||||
|
ExplicitWidth = 1037
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 1037
|
||||||
|
ExplicitWidth = 1037
|
||||||
|
inherited BegDate: TcxDateEdit
|
||||||
|
Left = 116
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 116
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited EndDate: TcxDateEdit
|
||||||
|
Left = 265
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 265
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited cxButton1: TcxButton
|
||||||
|
Left = 465
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 465
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited cxButton2: TcxButton
|
||||||
|
Left = 625
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 625
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited cxButton3: TcxButton
|
||||||
|
Left = 756
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 756
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited cbbType: TcxComboBox
|
||||||
|
Left = 705
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 705
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited cxButton4: TcxButton
|
||||||
|
Left = 385
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 385
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited cxButton5: TcxButton
|
||||||
|
Left = 545
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 545
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited TimeType: TcxComboBox
|
||||||
|
Left = 16
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 16
|
||||||
|
ExplicitTop = 11
|
||||||
|
end
|
||||||
|
inherited jqModel: TcxCheckBox
|
||||||
|
Left = 859
|
||||||
|
Top = 11
|
||||||
|
ExplicitLeft = 859
|
||||||
|
ExplicitTop = 11
|
||||||
|
ExplicitWidth = 82
|
||||||
|
ExplicitHeight = 25
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
ItemIndex = 1
|
||||||
|
end
|
||||||
|
inherited dxLayoutItem1: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'New Item'
|
||||||
|
end
|
||||||
|
inherited dxLayoutItem2: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'New Item'
|
||||||
|
end
|
||||||
|
inherited dxLayoutItem8: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'New Item'
|
||||||
|
end
|
||||||
|
inherited dxLayoutItem9: TdxLayoutItem
|
||||||
|
CaptionOptions.Text = 'New Item'
|
||||||
|
end
|
||||||
|
inherited dxLayoutItem10: TdxLayoutItem
|
||||||
|
ControlOptions.OriginalHeight = 25
|
||||||
|
ControlOptions.OriginalWidth = 82
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl_query: TdxLayoutControl
|
||||||
|
Tag = 999
|
||||||
|
Left = 0
|
||||||
|
Top = 72
|
||||||
|
Width = 1037
|
||||||
|
Height = 45
|
||||||
|
Align = alTop
|
||||||
|
ParentBackground = True
|
||||||
|
TabOrder = 2
|
||||||
|
Transparent = True
|
||||||
|
LayoutLookAndFeel = BaseDataLink.dxLayoutSkinLookAndFeel1
|
||||||
|
OptionsItem.SizableHorz = True
|
||||||
|
OptionsItem.SizableVert = True
|
||||||
|
object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
|
||||||
|
AlignHorz = ahParentManaged
|
||||||
|
AlignVert = avParentManaged
|
||||||
|
CaptionOptions.AlignVert = tavCenter
|
||||||
|
SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
|
||||||
|
SizeOptions.SizableHorz = True
|
||||||
|
SizeOptions.SizableVert = True
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
Padding.Bottom = -5
|
||||||
|
Padding.Top = -5
|
||||||
|
Padding.AssignedValues = [lpavBottom, lpavTop]
|
||||||
|
ShowBorder = False
|
||||||
|
Index = -1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel_page: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 117
|
||||||
|
Width = 1037
|
||||||
|
Height = 37
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
TabOrder = 3
|
||||||
|
DesignSize = (
|
||||||
|
1037
|
||||||
|
37)
|
||||||
|
object LBCPAP: TLabel
|
||||||
|
Left = 425
|
||||||
|
Top = 8
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
Alignment = taCenter
|
||||||
|
Anchors = [akLeft]
|
||||||
|
AutoSize = False
|
||||||
|
Caption = #24403#21069#39029'/'#24635#39029#25968
|
||||||
|
Layout = tlCenter
|
||||||
|
ExplicitTop = 7
|
||||||
|
end
|
||||||
|
object Label31: TLabel
|
||||||
|
Left = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 96
|
||||||
|
Height = 21
|
||||||
|
Alignment = taCenter
|
||||||
|
Anchors = [akLeft]
|
||||||
|
Caption = #27599#39029#35760#24405#26465#25968
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object BTNP: TButton
|
||||||
|
Left = 532
|
||||||
|
Top = 5
|
||||||
|
Width = 78
|
||||||
|
Height = 30
|
||||||
|
Anchors = [akLeft]
|
||||||
|
Caption = #19979#19968#39029
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object BTLP: TButton
|
||||||
|
Left = 338
|
||||||
|
Top = 4
|
||||||
|
Width = 78
|
||||||
|
Height = 31
|
||||||
|
Anchors = [akLeft]
|
||||||
|
Caption = #19978#19968#39029
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object TCBNOR: TcxComboBox
|
||||||
|
Tag = 2
|
||||||
|
Left = 122
|
||||||
|
Top = 2
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
'500'
|
||||||
|
'1000'
|
||||||
|
'5000'
|
||||||
|
'10000')
|
||||||
|
TabOrder = 2
|
||||||
|
Text = '500'
|
||||||
|
Width = 94
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1: TcxDBPivotGrid
|
||||||
|
Left = 16
|
||||||
|
Top = 160
|
||||||
|
Width = 555
|
||||||
|
Height = 250
|
||||||
|
Groups = <>
|
||||||
|
ShowHint = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnDblClick = cxDBPivotGrid1DblClick
|
||||||
|
end
|
||||||
|
object ADOQueryBaseCmd: TADOQuery
|
||||||
|
Parameters = <>
|
||||||
|
Left = 281
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
object ADOQueryBaseTemp: TADOQuery
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 201
|
||||||
|
Top = 225
|
||||||
|
end
|
||||||
|
object CDS_List: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 395
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
object ADOQueryList: TADOQuery
|
||||||
|
Connection = DataLink_schedule.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 704
|
||||||
|
Top = 368
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = CDS_List
|
||||||
|
Left = 768
|
||||||
|
Top = 296
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 208
|
||||||
|
Top = 287
|
||||||
|
end
|
||||||
|
end
|
||||||
298
public10/design/U_QryPivotBaseList.pas
Normal file
298
public10/design/U_QryPivotBaseList.pas
Normal file
|
|
@ -0,0 +1,298 @@
|
||||||
|
unit U_QryPivotBaseList;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ToolWin,cxExportPivotGridLink,
|
||||||
|
FrameDateSel10, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, cxClasses, dxLayoutContainer, cxPivotDrillDownFormUnit,
|
||||||
|
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
|
||||||
|
Vcl.StdCtrls, Vcl.ExtCtrls, cxCustomData, cxStyles, dxBarBuiltInMenu,U_WindowFormdesign,
|
||||||
|
cxCustomPivotGrid, cxPivotGrid, cxGridCustomPopupMenu, cxGridPopupMenu, math,
|
||||||
|
Data.DB, Datasnap.DBClient, Data.Win.ADODB, cxDBPivotGrid;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmQryPivotBaseList = class(TForm)
|
||||||
|
ToolBar3: TToolBar;
|
||||||
|
Trefresh: TToolButton;
|
||||||
|
Tprint: TToolButton;
|
||||||
|
TprintGrid: TToolButton;
|
||||||
|
TsaveGrid: TToolButton;
|
||||||
|
TgridLiSet: TToolButton;
|
||||||
|
Tclose: TToolButton;
|
||||||
|
frmFrameDateSel1: TfrmFrameDateSel10;
|
||||||
|
dxLayoutControl_query: TdxLayoutControl;
|
||||||
|
dxLayoutControl_queryGroup_Root: TdxLayoutGroup;
|
||||||
|
Panel_page: TPanel;
|
||||||
|
LBCPAP: TLabel;
|
||||||
|
Label31: TLabel;
|
||||||
|
BTNP: TButton;
|
||||||
|
BTLP: TButton;
|
||||||
|
TCBNOR: TcxComboBox;
|
||||||
|
ADOQueryBaseCmd: TADOQuery;
|
||||||
|
ADOQueryBaseTemp: TADOQuery;
|
||||||
|
CDS_List: TClientDataSet;
|
||||||
|
ADOQueryList: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
cxDBPivotGrid1: TcxDBPivotGrid;
|
||||||
|
procedure TprintClick(Sender: TObject);
|
||||||
|
procedure TrefreshClick(Sender: TObject);
|
||||||
|
procedure TcloseClick(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure cxDBPivotGrid1DblClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
fWindowDesign: TWindowFormdesign;
|
||||||
|
CurrentPage, RecordsNumber: Integer;
|
||||||
|
fDesignCode:string;
|
||||||
|
procedure doQuery();
|
||||||
|
procedure doQueryByCriteria();
|
||||||
|
procedure initGrid();
|
||||||
|
protected
|
||||||
|
fParameters1: string;
|
||||||
|
fParameters2: string;
|
||||||
|
fParameters3: string;
|
||||||
|
fParameters4: string;
|
||||||
|
fParameters5: string;
|
||||||
|
fParameters10: string;
|
||||||
|
function GetPivotGrid: TcxCustomPivotGrid; virtual;
|
||||||
|
public
|
||||||
|
fExportFileName:string;
|
||||||
|
fFormId: integer;
|
||||||
|
fProcedureName:string; //存储过程名称
|
||||||
|
FLMType:string; //报表文件类型标志
|
||||||
|
ftimeType:string; //日期类型
|
||||||
|
fQueryType:String; //查询类型
|
||||||
|
FFiltration1:string; //打印参数条件
|
||||||
|
fCriteria:string; //条件参数
|
||||||
|
property PivotGrid: TcxCustomPivotGrid read GetPivotGrid;
|
||||||
|
constructor Create(AOwner: TComponent; ACaption: string=''; Parameters1: string=''; Parameters2: string=''; Parameters3: string=''; Parameters4: string=''; Parameters5: string=''; Parameters10: string='';FormID:Integer=0);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmQryPivotBaseList: TfrmQryPivotBaseList;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
U_RTFun, U_globalVar, U_dataLink,U_FormLayOutDesign, U_LabelPrint;
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
constructor TfrmQryPivotBaseList.Create(AOwner: TComponent; ACaption: string=''; Parameters1: string=''; Parameters2: string=''; Parameters3: string=''; Parameters4: string=''; Parameters5: string=''; Parameters10: string='';FormID:Integer=0);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
if ACaption <> '' then
|
||||||
|
Caption := ACaption;
|
||||||
|
|
||||||
|
fParameters1 := Parameters1;
|
||||||
|
fParameters2 := Parameters2;
|
||||||
|
fParameters3 := Parameters3;
|
||||||
|
fParameters4 := Parameters4;
|
||||||
|
fParameters5 := Parameters5;
|
||||||
|
fParameters10 := Parameters10;
|
||||||
|
fFormId:= FormID ;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.FormClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Sendmessage(application.MainForm.Handle, WM_CloseForm, 4, 0);
|
||||||
|
|
||||||
|
Action:=cafree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxDBPivotGrid1.Align:=alClient;
|
||||||
|
CurrentPage := 1;
|
||||||
|
RecordsNumber := 500;
|
||||||
|
fWindowDesign := TWindowFormdesign.Create();
|
||||||
|
frmFrameDateSel1.begdate.Date:=SGetServerDate(ADOQueryBaseTemp);
|
||||||
|
frmFrameDateSel1.enddate.Date:=frmFrameDateSel1.begdate.Date;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
fWindowDesign.free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
fDesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1';
|
||||||
|
if DParameters8<>'1' then
|
||||||
|
begin
|
||||||
|
fWindowDesign.FormStyleInit10(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
|
||||||
|
end;
|
||||||
|
if dxLayoutControl_query.Tag<>999 then
|
||||||
|
readLayOut(dxLayoutControl_query,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_query.Name+'.ini'));
|
||||||
|
fWindowDesign.fProcedureName:=fProcedureName;
|
||||||
|
//增加动态条件
|
||||||
|
addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7);
|
||||||
|
initGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.TcloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.TprintClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxExportPivotGridToXLSX(fExportFileName, cxDBPivotGrid1, True, True, '', nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.TrefreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if frmFrameDateSel1.BegDate.Visible then
|
||||||
|
begin
|
||||||
|
frmFrameDateSel1.BegDate.SetFocus;
|
||||||
|
end;
|
||||||
|
CurrentPage := 1;
|
||||||
|
initGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
///////////////////////////////
|
||||||
|
///
|
||||||
|
procedure TfrmQryPivotBaseList.initGrid();
|
||||||
|
begin
|
||||||
|
if fQueryType='criteria' then
|
||||||
|
begin
|
||||||
|
doQueryByCriteria() ;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
frmFrameDateSel1.jqModel.Checked:=true;
|
||||||
|
doQuery() ;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
////////////////////////////////////
|
||||||
|
procedure TfrmQryPivotBaseList.cxDBPivotGrid1DblClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
ACrossCell: TcxPivotGridCrossCell;
|
||||||
|
begin
|
||||||
|
// with PivotGrid.HitTest do
|
||||||
|
// begin
|
||||||
|
// if HitAtDataCell then
|
||||||
|
// begin
|
||||||
|
// ACrossCell := (HitObject as TcxPivotGridDataCellViewInfo).CrossCell;
|
||||||
|
// if ACrossCell <> nil then
|
||||||
|
// cxShowDrillDownDataSource(ACrossCell);
|
||||||
|
// end;
|
||||||
|
// end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseList.doQuery();
|
||||||
|
var
|
||||||
|
strwhere: string;
|
||||||
|
begin
|
||||||
|
if fProcedureName='' then
|
||||||
|
begin
|
||||||
|
application.MessageBox('存储过程名称参数不能为空!','警告信息',0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
strwhere := GetProcedureParam(dxLayoutControl_query);
|
||||||
|
|
||||||
|
try
|
||||||
|
cxDBPivotGrid1.BeginUpdate();
|
||||||
|
CDS_List.DisableControls;
|
||||||
|
with ADOQueryList do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
Filtered := false;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('exec '+fProcedureName);
|
||||||
|
sql.Add('@timeType='+quotedstr(fTimeType));
|
||||||
|
sql.Add(',@begDate='+quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
|
||||||
|
sql.Add(',@endDate='+quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date+1)));
|
||||||
|
if frmFrameDateSel1.jqModel.Checked then
|
||||||
|
sql.Add(',@jqModel=1')
|
||||||
|
else
|
||||||
|
sql.Add(',@jqModel=0');
|
||||||
|
if Panel_page.Visible then
|
||||||
|
begin
|
||||||
|
sql.Add(',@pageIndex=' + inttostr(CurrentPage));
|
||||||
|
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||||
|
end;
|
||||||
|
sql.Add(',@criteria='+ quotedstr(fcriteria));
|
||||||
|
if strwhere<>'' then
|
||||||
|
sql.Add(','+strwhere);
|
||||||
|
// showMessage(sql.Text);
|
||||||
|
//cxMemo1.Text:= sql.Text ;
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryList, CDS_List);
|
||||||
|
SInitCDSData(ADOQueryList, CDS_List);
|
||||||
|
if Panel_page.Visible then
|
||||||
|
begin
|
||||||
|
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(cds_list.FieldByName('TotalCount').AsInteger / RecordsNumber));
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
CDS_List.EnableControls;
|
||||||
|
cxDBPivotGrid1.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
////////////////////////////////////
|
||||||
|
procedure TfrmQryPivotBaseList.doQueryByCriteria();
|
||||||
|
var
|
||||||
|
mSqlWhere: string;
|
||||||
|
begin
|
||||||
|
if fProcedureName='' then
|
||||||
|
begin
|
||||||
|
application.MessageBox('存储过程名称参数不能为空!','警告信息',0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
mSqlWhere := SLGetFilters(dxLayoutControl_query, 1, 2);
|
||||||
|
if trim(mSqlWhere) <> '' then
|
||||||
|
begin
|
||||||
|
mSqlWhere := ' and ' + trim(mSqlWhere);
|
||||||
|
end;
|
||||||
|
mSqlWhere:=fCriteria + ' ' + mSqlWhere ;
|
||||||
|
try
|
||||||
|
cxDBPivotGrid1.BeginUpdate();
|
||||||
|
CDS_List.DisableControls;
|
||||||
|
with ADOQueryList do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
Filtered := false;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('exec '+fProcedureName);
|
||||||
|
sql.Add('@timeType='+quotedstr(fTimeType));
|
||||||
|
sql.Add(',@begDate='+quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date)));
|
||||||
|
sql.Add(',@endDate='+quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date+1)));
|
||||||
|
if Panel_page.Visible then
|
||||||
|
begin
|
||||||
|
sql.Add(',@pageIndex=' + inttostr(CurrentPage));
|
||||||
|
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||||
|
end;
|
||||||
|
sql.Add(',@criteria='+ quotedstr(mSqlWhere));
|
||||||
|
|
||||||
|
//cxMemo1.Text:= sql.Text ;
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryList, CDS_List);
|
||||||
|
SInitCDSData(ADOQueryList, CDS_List);
|
||||||
|
if Panel_page.Visible then
|
||||||
|
begin
|
||||||
|
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(cds_list.FieldByName('TotalCount').AsInteger / RecordsNumber));
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
CDS_List.EnableControls;
|
||||||
|
cxDBPivotGrid1.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmQryPivotBaseList.GetPivotGrid: TcxCustomPivotGrid;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
156
public10/design/U_QryPivotBaseListExample.dfm
Normal file
156
public10/design/U_QryPivotBaseListExample.dfm
Normal file
|
|
@ -0,0 +1,156 @@
|
||||||
|
inherited frmQryPivotBaseListExample: TfrmQryPivotBaseListExample
|
||||||
|
Caption = 'frmQryPivotBaseListExample'
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 21
|
||||||
|
inherited ToolBar3: TToolBar
|
||||||
|
Height = 30
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 115
|
||||||
|
Images = DataLink_schedule.cxImageList_bar
|
||||||
|
ExplicitHeight = 30
|
||||||
|
inherited Trefresh: TToolButton
|
||||||
|
ExplicitWidth = 71
|
||||||
|
ExplicitHeight = 30
|
||||||
|
end
|
||||||
|
inherited Tprint: TToolButton
|
||||||
|
Left = 71
|
||||||
|
ExplicitLeft = 71
|
||||||
|
ExplicitWidth = 109
|
||||||
|
ExplicitHeight = 30
|
||||||
|
end
|
||||||
|
inherited TprintGrid: TToolButton
|
||||||
|
Left = 180
|
||||||
|
ExplicitLeft = 180
|
||||||
|
ExplicitWidth = 71
|
||||||
|
ExplicitHeight = 30
|
||||||
|
end
|
||||||
|
inherited TsaveGrid: TToolButton
|
||||||
|
Left = 251
|
||||||
|
ExplicitLeft = 251
|
||||||
|
ExplicitWidth = 103
|
||||||
|
ExplicitHeight = 30
|
||||||
|
end
|
||||||
|
inherited TgridLiSet: TToolButton
|
||||||
|
Left = 354
|
||||||
|
ExplicitLeft = 354
|
||||||
|
ExplicitWidth = 119
|
||||||
|
ExplicitHeight = 30
|
||||||
|
end
|
||||||
|
inherited Tclose: TToolButton
|
||||||
|
Left = 473
|
||||||
|
ExplicitLeft = 473
|
||||||
|
ExplicitWidth = 71
|
||||||
|
ExplicitHeight = 30
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frmFrameDateSel1: TfrmFrameDateSel10
|
||||||
|
Top = 30
|
||||||
|
ExplicitTop = 30
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl_query: TdxLayoutControl
|
||||||
|
Top = 75
|
||||||
|
ExplicitTop = 75
|
||||||
|
end
|
||||||
|
inherited Panel_page: TPanel
|
||||||
|
Top = 120
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 120
|
||||||
|
end
|
||||||
|
inherited cxDBPivotGrid1: TcxDBPivotGrid
|
||||||
|
Width = 783
|
||||||
|
DataSource = DataSource1
|
||||||
|
OptionsView.ColumnGrandTotalWidth = 170
|
||||||
|
OnDblClick = cxDBPivotGrid1DblClick
|
||||||
|
ExplicitWidth = 783
|
||||||
|
object cxDBPivotGrid1C_name: TcxDBPivotGridField
|
||||||
|
Area = faRow
|
||||||
|
AreaIndex = 1
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #21697#21517
|
||||||
|
DataBinding.ValueType = 'String'
|
||||||
|
DataBinding.FieldName = 'C_name'
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #21697#21517
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1orderNo: TcxDBPivotGridField
|
||||||
|
Area = faRow
|
||||||
|
AreaIndex = 2
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #35746#21333#21495
|
||||||
|
DataBinding.ValueType = 'String'
|
||||||
|
DataBinding.FieldName = 'orderNo'
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #35746#21333#21495
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1C_color: TcxDBPivotGridField
|
||||||
|
AreaIndex = 0
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'C_color'
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #39068#33394
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1meter: TcxDBPivotGridField
|
||||||
|
Area = faData
|
||||||
|
AreaIndex = 0
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #31859#25968
|
||||||
|
DataBinding.ValueType = 'FMTBcd'
|
||||||
|
DataBinding.FieldName = 'meter'
|
||||||
|
Options.Filtering = False
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #31859#25968
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1batchNo: TcxDBPivotGridField
|
||||||
|
AreaIndex = 1
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #32568#21495
|
||||||
|
DataBinding.ValueType = 'String'
|
||||||
|
DataBinding.FieldName = 'batchNo'
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #32568#21495
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1year1: TcxDBPivotGridField
|
||||||
|
Area = faColumn
|
||||||
|
AreaIndex = 0
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #24180
|
||||||
|
DataBinding.ValueType = 'Integer'
|
||||||
|
DataBinding.FieldName = 'year1'
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #24180
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1month: TcxDBPivotGridField
|
||||||
|
Area = faColumn
|
||||||
|
AreaIndex = 1
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #26376
|
||||||
|
DataBinding.ValueType = 'Integer'
|
||||||
|
DataBinding.FieldName = 'month1'
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #26376
|
||||||
|
end
|
||||||
|
object cxDBPivotGrid1custName: TcxDBPivotGridField
|
||||||
|
Area = faRow
|
||||||
|
AreaIndex = 0
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.ValueType = 'String'
|
||||||
|
DataBinding.FieldName = 'custName'
|
||||||
|
Visible = True
|
||||||
|
UniqueName = #23458#25143
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_schedule.ADOLink
|
||||||
|
Top = 208
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_schedule.ADOLink
|
||||||
|
Top = 201
|
||||||
|
end
|
||||||
|
inherited ADOQueryList: TADOQuery
|
||||||
|
Left = 344
|
||||||
|
Top = 200
|
||||||
|
end
|
||||||
|
end
|
||||||
52
public10/design/U_QryPivotBaseListExample.pas
Normal file
52
public10/design/U_QryPivotBaseListExample.pas
Normal file
|
|
@ -0,0 +1,52 @@
|
||||||
|
unit U_QryPivotBaseListExample;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_QryPivotBaseList, cxGraphics,
|
||||||
|
cxControls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
|
||||||
|
dxSkinsDefaultPainters, dxSkinWXI, cxContainer, cxEdit, cxClasses,
|
||||||
|
cxCustomData, cxStyles, dxBarBuiltInMenu, cxGridCustomPopupMenu,
|
||||||
|
cxGridPopupMenu, Data.DB, Datasnap.DBClient, Data.Win.ADODB,
|
||||||
|
cxCustomPivotGrid, cxPivotGrid, cxTextEdit, cxMaskEdit, cxDropDownEdit,
|
||||||
|
Vcl.StdCtrls, Vcl.ExtCtrls, dxLayoutContainer, dxLayoutControl,
|
||||||
|
FrameDateSel10, Vcl.ComCtrls, Vcl.ToolWin, cxDBPivotGrid;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmQryPivotBaseListExample = class(TfrmQryPivotBaseList)
|
||||||
|
cxDBPivotGrid1orderNo: TcxDBPivotGridField;
|
||||||
|
cxDBPivotGrid1C_name: TcxDBPivotGridField;
|
||||||
|
cxDBPivotGrid1C_color: TcxDBPivotGridField;
|
||||||
|
cxDBPivotGrid1meter: TcxDBPivotGridField;
|
||||||
|
cxDBPivotGrid1batchNo: TcxDBPivotGridField;
|
||||||
|
cxDBPivotGrid1year1: TcxDBPivotGridField;
|
||||||
|
cxDBPivotGrid1month: TcxDBPivotGridField;
|
||||||
|
cxDBPivotGrid1custName: TcxDBPivotGridField;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmQryPivotBaseListExample: TfrmQryPivotBaseListExample;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
U_dataLink;
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmQryPivotBaseListExample.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
fProcedureName:='P_pvoidGrid_test';
|
||||||
|
FLMType:='xxx';
|
||||||
|
frmFrameDateSel1.initTimeType('制单日期,交货日期');
|
||||||
|
fQueryType:='criteria';
|
||||||
|
//参数条件
|
||||||
|
FFiltration1:='';
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in New Issue
Block a user