kok电子竞技

1、TCXGRID 控件:属性:ActiveLevel: 当前层BorderStyle: 窗口风格Color: 颜色FocusedView: 当前View;Font: 字体LevelTabs: 类似PageControls 头设置CaptionAlgnment:标题对齐方式Images:图标Style:风格Levels:RootLevelOptions:层选项DetailTabsPosition: 类似PageControls 头显示位置;TabsForEmptyDetails: 如果数据为空是否显示TabsT cxGridLevel 组件:属性：Active: 读写激活该层;Controls:

2、读写指向TCXGrid;CanBeVisible: 读取是否能设置可见;Count: 读取子层个数;Displaycaption: 读取层标题；IsMaster: 读取是否cxgrid 的最上层;Items: 读取层组，例: Items0访问第一个层;Level: 读取层级数;VisibleCount: 读取可见层个数VisibleIndex: 读取可见索引个数VisibleItems: 读取可见层组，例：VisibleItems0访问第一个可见层 Caption: 读写层标题；GridView: 指定或读取该层的Grid 显示;ImageIndex: 读写图标索引Options: TcxGr

3、idLevelOptions选项DetailFrameColor: 读或写明细表格颜色DetailFramWidth: 读或写明细表格DetailTabsPosition: 读或写Tab 位置, 类似PageControlsTabs Styles: 样式Tab: 读或设置tab 样式tabsBackground: 读或设置tab 背景样式Visible: 读或设置是否可见方法：Add: 增加一个Level;Levelsi.Add:增加一个子Level;T cxGridDBBandedT ableView 组件:属性：BackGroundBitmaps:背景图片选项Background:背景图B

4、andbackground:带背景图Bankheader:带头背景Content:细节区背景filterBox:过滤区背景footer:注脚背景group: 组背景header:列头背景preview:预览区背景Bands:带列表DataController: 数据控制DataSource:数据源DetailKeyFieldNames:主从表时设置细表键字段名KeyFieldNames: 主从表时设置关键字段名MasterKeyFieldNames:主从表时设置主表键字段名Summary:合计组FooterSummaryItems:注脚定义FooterSummaryItems:组脚定义Filt

5、erBox:过滤框CustomizeDialog:是否自定义过滤条件Position:过滤框显示位置Visible:显示过滤框NavigatorButtons:导航条设置Append:增加按钮设置Enabled:是否禁用该按钮Visible:是否显示该按钮ImageIndex:图标IDCancel:取消按钮设置, 具体设置同Append;ConfirmDelete:删除时是否确认提示Delete: 具体设置同Append;Edit: 具体设置同Append;First: 具体设置同Append;Insert: 具体设置同Append;Last: 具体设置同Append;Next: 具体设置同A

6、ppend;Filter: 具体设置同Append;GotoBookmark: 具体设置同Append;NextPage: 具体设置同Append;Post: 具体设置同Append;Prior: 具体设置同Append;PriorPage: 具体设置同Append;Refresh: 具体设置同Append;SaveBookmark: 具体设置同Append;OptionsBehavior:行为选项AlwaysShowEditor:是否总是显示编辑条BandHeaderHints:带头是否显示提示CellHints:单元格是否显示提示ColumnHeaderHints:列头是否显示提示Copy

7、CaptionsToClipboard:是否允许复制标题到剪贴板CopyPreviewToClipboard:是否允许复制预览内容到剪贴板 ExpandMasterRowOnDblClik:是否允许双击行显示明细FocusFirstCellOnNewRecord:新增记录时是否焦点指向第一列单元格 GoToNextCellOnEnter:按回车是否自动跳到下一单元格NavigatorHints:是否显示导航条提示OptionsCustomize:自定义选项BandHiding:是否显示带BandMoving:是否允许拖动带ColumnFiltering:是否允许列过滤ColumnGroupin

8、g:是否允许列分组ColumnHiding:列头是否隐藏ColumnHorzSizing:是否允许调整列宽度ColumnMoving:是否允许列拖动ColumnSorting:是否允许列排序ColumnVertSizing:是否允许调整列高度DataRowSizing:是否允许调整数据行高度GroupBySorting:是否允许组排序GroupRowSizing:是否允许调整组行高度OptionData: 允许数据操作Appending: 是否允许增加CancelOnExit: 退出时是否自动取消修改Deleting: 是否允许删除DeletingConfirmation: 删除是否提示Edi

9、ting :是否允许编辑Inserting: 是否允许插入OptionsSelection: 单元格操作CellMultiSelect:是否允许选择多单元格CellSelect: 进入单元格是否选择InvertSelect: 是否允许转换选择MultiSelect: 是否允许多行选择HideFocusRectOnExit: 移开是否隐藏焦点UnselectFocusedRecordOnExit:移开是否允许取消焦点OptionsView:表格选项BandCaptionsInColumnAlternateCaption:是否允许在列里修改带标题 BandHeaderHeight: 带头高度Ban

10、dHeaderLineCount: 带头显示行数BandHeaders: 是否显示带头CellAutoHeight:单元格是否自动高度CellTextMaxLineCount: 单元格文本最大行数ColumnAutoWidth: 列是否自动宽度DataRowHeight: 数据行高度Footer:是否允许显示注脚FooterAutoHeight: 注脚是否自动适应高度FooterMultiSummaries:是否允许多注脚GridLineColor:表格行线颜色GridLines:显示表格行线类型GroupByBox:是否允许拖动列到分组区进行分组GroupFooters:显示组脚类型Head

11、er:是否显示列头HeaderAutoHeight:列头是否自动适应高度HeaderHeight: 列头高度IndicatorWidth:是否显示左边指示条IndicatorWidth: 指示条宽度Navigator: 是否显示导航条NavigatorOffSet: 导航条偏移位置ShowColumnFilterButtons: 是否显示列过滤按钮ShowEditButtons: 是否显示编辑按钮Preview:预览选项AutoHeight:是否自动适应高度Column:要预览的列，只能选一列LeftIndent: 左缩进点数MaxLineCount:最大显示行数RightIndent:右缩进

12、点数Visible: 预览是否可见PopupMenu:弹出菜单Styles:样式或风格组BackGround:背景风格Content:明细风格Footer:注脚风格Group:组风格GroupSummary:组合计区风格Header:头风格Indicator:指示区风格Preview:预览区风格Selection:选择区风格StyleSheet:风格组，选中后自动设置各区风格 方法或函数：CreateColumn:参数：无；功能：新建一列;返回：返回列类型结果;GetColumnByFieldName ：参数：字段名串；功能：取得指定字段列;返回：返回列类型结果;例：MyTV .GetColu

13、mnByFieldName('First' .Visible := False;CleaarItems:参数：无；功能：清除全部显示列;返回：无CreateItem:参数：无；功能：建一显示列;返回：列类型值StoreToIniFile:导出布局到Ini 文件StoreToRegistry:导出布局到注册表StoreToStream:导出布局到流体RestoreFromIniFile: 从Ini 文件恢复布局RestoreFromRegistry:从注册表恢复布局RestoreFromStream:从流体恢复布局FindItemByID:根据ID 号查找列FindItemByN

14、ame:根据列名查找列FindItemByTag:根据Tag 查找列IndexofItem:返回列的序号CreateViewInfo:建表格TCXGRID 用法指南假设已设定以下变量MycxGrid: TcxGrid;MycxGridLevel: TcxGridLevel;MyTV : TcxGridDBTableView;MyDataSource: TDataSource;方法：一、 建层和层视图MycxGrid := TcxGrid.Create(self;MycxGridLevel := MycxGrid.Levels.Add; /建层MyTV:= TcxGridDBTableView(

15、MycxGrid.createview(TcxGridDBTableView;/建视图 MycxGridLevel.Control := MycxGrid;/指定关系MycxGridLevel.GridView := MyTV;/指定视图TcxGridDataController(GetDetailDataController(FocusedRecordIndex, 0.GridView;/得到下层视图二、设定表格位置和大小MycxGrid.ParentWindow := self.Handle;MycxGrid.Top := 0;MycxGrid.Height := 200;MycxGrid

16、.Width := 400;MyTV .Preview.visible := true;三、 设定数据源及分配全部字段MyTV .DataController.DataSource := MyDataSource;MyTV .DataController.DeleteAllItems; /清除全部字段MyTV .DataController.CreateAllItems; /建全部显示字段四、 动态增加显示列及列访问variIndex: integer;vCol: TcxGridDBColumn;vImgCom: TcxImageComboBoxItem;i,j: integer;for i:

17、= 0 to Mydatasource.dataset.FieldCount -1 dobeginvCol := MyTV.CreateColumn;vCol.DataBinding.FieldName:=Mydatasource.dataset.Fieldsi.FieldName;if (i = 1 thenbeginvCol.PropertiesClassName := 'TcxImageComboBoxProperties' /分区分大小写 vCol.DataBinding.V alueType := 'String'for j := 0 to 5 dob

18、eginvImgCom:=TcxImageComboBoxProperties(vCol.Properties.Items.Add;vImgCom.Description := IntToStr(j;vImgCom.V alue := IntToStr(j;end;end;end;showmessage(MyTV.Columns0.Caption;/列标题访问showmessage(MyTV.Columns0.DataBinding.FieldName;/列字段名访问MyTV .Columns0.SortIndex := 0;MyTV .Columns0.SortOrder := soAsce

19、nding; /列升序排序MyTV .Columns0.SortIndex := -1;MyTV .Columns0.SortOrder := soNone; /取消列排序MyTV .DataController.Search.Locate(MyTV.GetColumnByFieldName(FieldName.Index, 查找值;/ 列值搜索MyTV .DataController.FocusedRowIndex := MyTV.DataController.FocusedRowIndex - 1;/记录回翻, 即Prior;DBView.DataController.FocusedRow

20、Index := DBView.DataController.FocusedRowIndex + 1; /记录后翻, 即Next;Aa:=MyTV.datacontroller.values1,1 ;/ 访问第二行第二列的值MyTV .Columns0.DataBinding.ValueTypeClass := TcxStringValueType;/设置列字段类型, 其他如整型TcxIntegerValueType,浮点型TcxFloatValueType;/设置列风格:MyFirstColumnStyle := TcxStyle.Create(Self;MyFirstColumnStyle

21、.Color := clAqua;MyFirstColumnStyle.TextColor := clBlue;MyTV .Columns1.Styles.Content := MyFirstColumnStyle;/设置列下拉框选择列表及类型varA:TDataSource:B:TcxlookupcomboboxProperties;beginA:=TDataSource.create(self;B:=tcxlookupcomboboxproperties.create(self;A.Dataset:=Dic_ry_xb;/此处指定数据源。B.listdource:=A;/此处指明字段的li

22、stsource 属性。B.keyfieldnames:='a' /此处指明字段的关键字段B.listfieldnames:='b' /此处指明字段的返回值。B.listcolumns.items0.caption:='x; /此处默认是会建立一个字段，但是显示的表头是name ，所以此处让它显示为自己想要的中午显示。MYTVc1_sex_code.Properties:=B; /此处指明是那个字段。end;五、 设置列外观MyTV .OptionsView.ColumnAutoWidth := true /列自动宽度MyTV .OptionsView.

23、CellAutoHeight := true /单元自动高度MyTV .OptionsView.Footer := true /表格合计行显示MyTV .OptionsView.Header := true / 表格头显示MyTV .OptionsView.Indicator := true /显示指示条MyTV .OptionsView.GroupByBox:=true /显示分组框MyTV .Preview := True /显示预览区六、 设置表格样式var MyStyleSheet:TcxGridTableViewStyleSheet;MyStyle :TcxStyle;beginMy

24、StyleSheet := TcxGridTableViewStyleSheet.Create(;MyStyle := TcxStyle.Create(self;MyStyle.Color := clBlack;MyStyle.TextColor := clWrite;MyTV .Styles.Background := MyStyle; /设置背景样式MyStyleSheet.AddStyles(MyStyle;/分配样式cxStyleRepository.CreateStyleSheet(MyStyleSheet;MyTV .Styles.StyleSheet := cxStyleRepo

25、sitory; /分配样式End;七、 设置Preview 列前提条件是设置footer=true;MyTV .Preview.column := MyTVField1;/设置预览列MyTV . Preview.MaxLineCount := 4;/设置预览列最大显示行数MyTV.Preview.LeftIndent :=150; /显示左缩进MyTV.Preview.RightIndent :=150;/显示右缩进八、 Footer 设置V ar ASummary: TcxDataSummary;MyFooterItems :TcxDataFooterSummaryItems;Acolumn

26、 :TcxGridDBColumn;ASummary := MyTV.DataController.Summary; /提取Footer;MyFooterItems := ASummary.FooterSummaryItems; /提取FooterItems;/增加FooterItemsWith TcxGridDBTaleSummaryItem(MyFooterItems.add doBegintryTryBeginupdate;Column := TcxGridDBColumn(MyTV.VisibleColumns0; /Footer显示列位置AColumn := TcxGridDBCol

27、umn(MyTV.VisibleColumns0;If assigned(AColumn thenFieldName := AColumn.dataBinding.FieldName; /Footer计算字段Kind := TcxSummaryKind(skSum;/skNone=无.skSum=合计;skMax=取最大值,/skCount=/记录数,skAverage=平均数FinallyEndupdate;End;ExceptShowmessage(error ;MyFooterItems.ItemsMyFooterItems.Count-1.Free;/报错释放刚加入的End;End;/

28、删除FooterItemsMyFooterItems := TcxGridDBTableSummaryItem(MyFooterItems0;If MyFooterItems.FieldByName<> thenFor i:= 0 to MyTV.VisibleColumnCount -1 doBeginAColumn := TcxGridDBColumn(MyTV.VisibleColumnsi;If AColumn.DataBinding.FieldName = MyFooterItems.FieldName thenBreak;End;If Assigned(MyFooter

29、Items.Column thenMyFooterItems.Items0.Free;九、 建BandV ar MyBand : TcxGridBand;MyBandViewInfo: TcxGridbandViewInfo;MyBand := MyTV.Bands.Add;MyBand.Caption : =新建带;MyBandViewInfo:= MyTV.ViewInfo.HeaderViewInfo.BandsViewInfoMyBand.visibleIndex; MyTV .Controller.LeftPos := MyBandViewInfo.Bounds.right;十、 主

30、从表明细嵌套关联设置MyTV .DetailKeyFieldNames := mastered; /主表关键列MyTV .KeyFieldNames := ID; /子表对应关键列MasterKeyFieldNames := ID;/子表自己的关键列子表ADOQUERY 的indexFieldNames := mastered;十一、组设置MyTV .DataController.Groups.FullExpand;/组展开MyTV .DataController.Groups.Collapse;/组收缩十二、记录操作MyTV .Datacontroller.Append;/增加记录MyTV

31、.Datacontroller.Insert;/插入记录MyTV .Datacontroller.V alues0.1:=a ;/单元格赋值MyTV .Datacontroller.Cancel;/取消修改MyTV .Datacontroller.Post;/提交保存MyTV .Datacontroller.DeleteFocused;/删除当前记录MyTV .Controller.Controller.FocusedRow.IsFirst ;/是否第一行MyTV .Controller.Controller.FocusedRow.IsLast ;/是否最后行MyTV .DataController.Options.FocusTopRowAfterSorting :=True;/排序后指向第一行 MyTV .ViewInfo.VisibleRecordCount ;可见行数