由层得到数据表名:
procedure TFB_PatientWaiting.cxgrdbtblvwGrid1DBTableView_MyPatienWaitingDblClick( Sender: TObject); var tmp_ifGHD : Boolean; MyTV: TcxGridDBTableView; begin tmp_ifGHD := False; if cxgrd_Patient.ActiveLevel.Index = 0 then tmp_ifGHD := True; MyTV := TcxGridDBTableView(cxgrd_Patient.ActiveLevel.GridView); currentPatientSelect(tmp_ifGHD,(MyTV.DataController.DataSource.DataSet as TClientDataSet)); end;
当前记录的top值:
cxgrid.Controller.FocusedRow.ViewInfo.Bounds.Top
------------------------------------------------------
用代码进行过滤是提示转换bool异常错误:
用代码cxgrid使用过滤时,使用like等表达式,字段类型必须是string类型,不能其他如integer。否则做like时转换会出现异常。被这个破问题搞晕了;
------------------------------------------------------
cxgrid有几个level,如何知道当前那一层active:
当前激活的是cxgrd_JY.ActiveLevel.Index;
转 cxgrid属性说明
TCXGRID控件:
属性:
ActiveLevel: 当前层
BorderStyle: 窗口风格
Color: 颜色
FocusedView: 当前View;
Font: 字体
LevelTabs: 类似PageControls头设置
CaptionAlgnment:标题对齐方式
Images:图标
Style:风格
Levels:
RootLevelOptions:层选项
DetailTabsPosition: 类似PageControls头显示位置;
TabsForEmptyDetails: 如果数据为空是否显示Tabs
TcxGridLevel组件:
属性:
Active: 读写激活该层;
Controls: 读写指向TCXGrid;
CanBeVisible: 读取是否能设置可见;
Count: 读取子层个数;
Displaycaption: 读取层标题;
IsMaster: 读取是否cxgrid的最上层;
Items: 读取层组,例: Items[0]访问第一个层;
Level: 读取层级数;
VisibleCount: 读取可见层个数
VisibleIndex: 读取可见索引个数
VisibleItems: 读取可见层组,例:VisibleItems[0]访问第一个可见层
Caption: 读写层标题;
GridView: 指定或读取该层的Grid显示;
ImageIndex: 读写图标索引
Options: TcxGridLevelOptions选项
DetailFrameColor: 读或写明细表格颜色
DetailFramWidth: 读或写明细表格
DetailTabsPosition: 读或写Tab位置,类似PageControlsTabs
Styles: 样式
Tab: 读或设置tab样式
tabsBackground: 读或设置tab背景样式
Visible: 读或设置是否可见
方法:
Add: 增加一个Level;
Levels[i].Add:增加一个子Level;
TcxGridDBBandedTableView组件:
属性:
BackGroundBitmaps:背景图片选项
Background:背景图
Bandbackground:带背景图
Bankheader:带头背景
Content:细节区背景
filterBox:过滤区背景
footer:注脚背景
group: 组背景
header:列头背景
preview:预览区背景
Bands:带列表
DataController: 数据控制
DataSource:数据源
DetailKeyFieldNames:主从表时设置细表键字段名
KeyFieldNames: 主从表时设置关键字段名
MasterKeyFieldNames:主从表时设置主表键字段名
Summary:合计组
FooterSummaryItems:注脚定义
FooterSummaryItems:组脚定义
FilterBox:过滤框
CustomizeDialog:是否自定义过滤条件
Position:过滤框显示位置
Visible:显示过滤框
NavigatorButtons:导航条设置
Append:增加按钮设置
Enabled:是否禁用该按钮
Visible:是否显示该按钮
ImageIndex:图标ID
Cancel:取消按钮设置,具体设置同Append;
ConfirmDelete:删除时是否确认提示
Delete: 具体设置同Append;
Edit: 具体设置同Append;
First: 具体设置同Append;
Insert: 具体设置同Append;
Last: 具体设置同Append;
Next: 具体设置同Append;
Filter: 具体设置同Append;
GotoBookmark: 具体设置同Append;
NextPage: 具体设置同Append;
Post: 具体设置同Append;
Prior: 具体设置同Append;
PriorPage: 具体设置同Append;
Refresh: 具体设置同Append;
SaveBookmark: 具体设置同Append;
OptionsBehavior:行为选项
AlwaysShowEditor:是否总是显示编辑条
BandHeaderHints:带头是否显示提示
CellHints:单元格是否显示提示
ColumnHeaderHints:列头是否显示提示
CopyCaptionsToClipboard:是否允许复制标题到剪贴板
CopyPreviewToClipboard:是否允许复制预览内容到剪贴板
ExpandMasterRowOnDblClik:是否允许双击行显示明细
FocusFirstCellOnNewRecord:新增记录时是否焦点指向第一列单元格
GoToNextCellOnEnter:按回车是否自动跳到下一单元格
NavigatorHints:是否显示导航条提示
OptionsCustomize:自定义选项
BandHiding:是否显示带
BandMoving:是否允许拖动带
ColumnFiltering:是否允许列过滤
ColumnGrouping:是否允许列分组
ColumnHiding:列头是否隐藏
ColumnHorzSizing:是否允许调整列宽度
ColumnMoving:是否允许列拖动
ColumnSorting:是否允许列排序
ColumnVertSizing:是否允许调整列高度
DataRowSizing:是否允许调整数据行高度
GroupBySorting:是否允许组排序
GroupRowSizing:是否允许调整组行高度
OptionData: 允许数据操作
Appending: 是否允许增加
CancelOnExit: 退出时是否自动取消修改
Deleting: 是否允许删除
DeletingConfirmation: 删除是否提示
Editing :是否允许编辑
Inserting: 是否允许插入
OptionsSelection: 单元格操作
CellMultiSelect:是否允许选择多单元格
CellSelect: 进入单元格是否选择
InvertSelect: 是否允许转换选择
MultiSelect: 是否允许多行选择
HideFocusRectOnExit: 移开是否隐藏焦点
UnselectFocusedRecordOnExit:移开是否允许取消焦点
OptionsView:表格选项
BandCaptionsInColumnAlternateCaption:是否允许在列里修改带标题
BandHeaderHeight: 带头高度
BandHeaderLineCount: 带头显示行数
BandHeaders: 是否显示带头
CellAutoHeight:单元格是否自动高度
CellTextMaxLineCount: 单元格文本最大行数
ColumnAutoWidth: 列是否自动宽度
DataRowHeight: 数据行高度
Footer:是否允许显示注脚
FooterAutoHeight: 注脚是否自动适应高度
FooterMultiSummaries:是否允许多注脚
GridLineColor:表格行线颜色
GridLines:显示表格行线类型
GroupByBox:是否允许拖动列到分组区进行分组
GroupFooters:显示组脚类型
Header:是否显示列头
HeaderAutoHeight:列头是否自动适应高度
HeaderHeight: 列头高度
IndicatorWidth:是否显示左边指示条
IndicatorWidth: 指示条宽度
Navigator: 是否显示导航条
NavigatorOffSet: 导航条偏移位置
ShowColumnFilterButtons: 是否显示列过滤按钮
ShowEditButtons: 是否显示编辑按钮
Preview:预览选项
AutoHeight:是否自动适应高度
Column:要预览的列,只能选一列
LeftIndent: 左缩进点数
MaxLineCount:最大显示行数
RightIndent:右缩进点数
Visible: 预览是否可见
PopupMenu:弹出菜单
Styles:样式或风格组
BackGround:背景风格
Content:明细风格
Footer:注脚风格
Group:组风格
GroupSummary:组合计区风格
Header:头风格
Indicator:指示区风格
Preview:预览区风格
Selection:选择区风格
StyleSheet:风格组,选中后自动设置各区风格
方法或函数:
CreateColumn:
参数:无;
功能:新建一列;
返回:返回列类型结果;
GetColumnByFieldName:
参数:字段名串;
功能:取得指定字段列;
返回:返回列类型结果;
例:MyTV.GetColumnByFieldName('First').Visible := False;
CleaarItems:
参数:无;
功能:清除全部显示列;
返回:无
CreateItem:
参数:无;
功能:建一显示列;
返回:列类型值
StoreToIniFile:导出布局到Ini文件
StoreToRegistry:导出布局到注册表
StoreToStream:导出布局到流体
RestoreFromIniFile: 从Ini文件恢复布局
RestoreFromRegistry:从注册表恢复布局
RestoreFromStream:从流体恢复布局
FindItemByID:根据ID号查找列
FindItemByName:根据列名查找列
FindItemByTag:根据Tag查找列
IndexofItem:返回列的序号
CreateViewInfo:建表格
TCXGRID用法指南
假设已设定以下变量
MycxGrid: TcxGrid;
MycxGridLevel: TcxGridLevel;
MyTV: TcxGridDBTableView;
MyDataSource: TDataSource;
方法:
一、 建层和层视图
MycxGrid := TcxGrid.Create(self);
MycxGridLevel := MycxGrid.Levels.Add; //建层
MyTV:= TcxGridDBTableView(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.Width := 400;
MyTV.Preview.visible := true;
三、 设定数据源及分配全部字段
MyTV.DataController.DataSource := MyDataSource;
MyTV.DataController.DeleteAllItems; //清除全部字段
MyTV.DataController.CreateAllItems; //建全部显示字段
四、 动态增加显示列及列访问
var
iIndex: integer;
vCol: TcxGridDBColumn;
vImgCom: TcxImageComboBoxItem;
i,j: integer;
for i:= 0 to Mydatasource.dataset.FieldCount -1 do
begin
vCol := MyTV.CreateColumn;
vCol.DataBinding.FieldName:=Mydatasource.dataset.Fields[i].FieldName;
if (i = 1) then
begin
vCol.PropertiesClassName := 'TcxImageComboBoxProperties'; ////分区分大小写
vCol.DataBinding.ValueType := 'String';
for j := 0 to 5 do
begin
vImgCom:=TcxImageComboBoxProperties(vCol.Properties).Items.Add;
vImgCom.Description := IntToStr(j);
vImgCom.Value := IntToStr(j);
end;
end;
end;
showmessage(MyTV.Columns[0].Caption);//列标题访问
showmessage(MyTV.Columns[0].DataBinding.FieldName);//列字段名访问
MyTV.Columns[0].SortIndex := 0;
MyTV.Columns[0].SortOrder := soAscending; //列升序排序
MyTV.Columns[0].SortIndex := -1;
MyTV.Columns[0].SortOrder := soNone; //取消列排序
MyTV.DataController.Search.Locate(MyTV.GetColumnByFieldName(FieldName).Index, 查找值);// 列值搜索
MyTV.DataController.FocusedRowIndex := MyTV.DataController.FocusedRowIndex - 1;//记录回翻,即Prior;
DBView.DataController.FocusedRowIndex := DBView.DataController.FocusedRowIndex + 1; //记录后翻,即Next;
Aa:=MyTV.datacontroller.values[1,1] ;// 访问第二行第二列的值
MyTV.Columns[0].DataBinding.ValueTypeClass := TcxStringValueType;//设置列字段类型,
其他如整型[TcxIntegerValueType],浮点型[TcxFloatValueType];
//设置列风格:
MyFirstColumnStyle := TcxStyle.Create(Self);
MyFirstColumnStyle.Color := clAqua;
MyFirstColumnStyle.TextColor := clBlue;
MyTV.Columns[1].Styles.Content := MyFirstColumnStyle;
//设置列下拉框选择列表及类型
var
A:TDataSource:
B:TcxlookupcomboboxProperties;
begin
A:=TDataSource.create(self);
B:=tcxlookupcomboboxproperties.create(self);
A.Dataset:=Dic_ry_xb;//此处指定数据源。
B.listdource:=A;//此处指明字段的listsource属性。
B.keyfieldnames:='a'; //此处指明字段的关键字段
B.listfieldnames:='b'; //此处指明字段的返回值。
B.listcolumns.items[0].caption:='x’; //此处默认是会建立一个字段,但是显示的表头是name,所以此处让它显示为自己想要的中午显示。
MYTVc1_sex_code.Properties:=B; //此处指明是那个字段。
end;
五、 设置列外观
MyTV.OptionsView.ColumnAutoWidth := true //列自动宽度
MyTV.OptionsView.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;
begin
MyStyleSheet := 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 := cxStyleRepository; //分配样式
End;
七、 设置Preview列
前提条件是设置footer=true;
MyTV.Preview.column := MyTVField1;//设置预览列
MyTV.Preview.MaxLineCount := 4;//设置预览列最大显示行数
MyTV.Preview.LeftIndent :=150; //显示左缩进
MyTV.Preview.RightIndent :=150;//显示右缩进
八、 Footer设置
Var ASummary: TcxDataSummary;
MyFooterItems :TcxDataFooterSummaryItems;
Acolumn :TcxGridDBColumn;
ASummary := MyTV.DataController.Summary; //提取Footer;
MyFooterItems := ASummary.FooterSummaryItems; //提取FooterItems;
//增加FooterItems
With TcxGridDBTaleSummaryItem(MyFooterItems.add) do
Begin
try
Try
Beginupdate;
Column := TcxGridDBColumn(MyTV.VisibleColumns[0]; //Footer显示列位置
AColumn := TcxGridDBColumn(MyTV.VisibleColumns[0];
If assigned(AColumn) then
FieldName := AColumn.dataBinding.FieldName; //Footer计算字段
Kind := TcxSummaryKind(skSum);
//skNone=无.skSum=合计;skMax=取最大值,
//skCount=//记录数,skAverage=平均数
Finally
Endupdate;
End;
Except
Showmessage(‘error’);
MyFooterItems.Items[MyFooterItems.Count-1].Free;//报错释放刚加入的
End;
End;
//删除FooterItems
MyFooterItems := TcxGridDBTableSummaryItem(MyFooterItems[0]);
If MyFooterItems.FieldByName<>’’ then
For i:= 0 to MyTV.VisibleColumnCount -1 do
Begin
AColumn := TcxGridDBColumn(MyTV.VisibleColumns[i]);
If AColumn.DataBinding.FieldName = MyFooterItems.FieldName then
Break;
End;
If Assigned(MyFooterItems.Column) then
MyFooterItems.Items[0].Free;
九、 建Band
Var MyBand : TcxGridBand;
MyBandViewInfo: TcxGridbandViewInfo;
MyBand := MyTV.Bands.Add;
MyBand.Caption : =’新建带’;
MyBandViewInfo:= MyTV.ViewInfo.HeaderViewInfo.BandsViewInfo[MyBand.visibleIndex];
MyTV.Controller.LeftPos := MyBandViewInfo.Bounds.right;
十、 主从表明细嵌套关联设置
MyTV.DetailKeyFieldNames := mastered; //主表关键列
MyTV.KeyFieldNames := ID; //子表对应关键列
MasterKeyFieldNames := ID;//子表自己的关键列
子表ADOQUERY的indexFieldNames := mastered;
十一、组设置
MyTV.DataController.Groups.FullExpand;//组展开
MyTV.DataController.Groups.Collapse;//组收缩
十二、记录操作
MyTV.Datacontroller.Append;//增加记录
MyTV.Datacontroller.Insert;//插入记录
MyTV.Datacontroller.Values[0.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 ;可见行数