CxGrid一些实用的方法和代码入门必读.docx
- 文档编号:8859609
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:14
- 大小:22.49KB
CxGrid一些实用的方法和代码入门必读.docx
《CxGrid一些实用的方法和代码入门必读.docx》由会员分享,可在线阅读,更多相关《CxGrid一些实用的方法和代码入门必读.docx(14页珍藏版)》请在冰豆网上搜索。
CxGrid一些实用的方法和代码入门必读
这个文档是一个wangxian11的网友对其他网友的解答,非常实用,此网友非常热心,在此表示感谢,我稍微重新排了个版,贴出来供大家分享学习使用。
***************************************************************************
使用cxGrid有一些时间了,在这里总结一下使用cxGrid的一些方法,希望给刚开始接触cxGrid的人一些帮助。
1.简单介绍:
cxGrid右下方的cxGrid1Level1是表示Grid表的层,cxGrid可以有多层,这相当于集合了PageControl的功能,而cxGrid1DBTableView1相当于DBGrid一样。
右击cxGrid1可以添加cxGrid1Level2,右击cxGrid1Level2,可以选择CreateView,Addlevel或者DeleteLevel。
Addlevel可以增加子Level,CreateView里面可以选择很多不同总类的View。
1)DBTable可以和数据库连接的View,更一般的DBGrid类似,它比DBGrid多了比如鼠标中键可以用,可以统计,查询,等等功能;
2)DBBandedTable(多表头)则可以实现比如:
---------------------------------
|说明1|说明2|
---------------------------------
|字段1|字段2|字段3|字段4|
等类似的功能;
3)DBCardView则提供了卡片方式的显示数据的功能,这个用在比如人事档案管理比较不错;
4)其它不一一赘述。
2.一些使用方法:
1)有图片和MEMO的例子:
拖入一个cxGrid1,Table1,DataSource1。
Table1的DatabaseName设为DBDEMOS,
TableName设为biolife.db,
Active设为True;
DataSource1的DataSet设为Table1;
cxGrid1DBTableView1的DataController中的DataSource设为DataSource1;
右击cxGrid1DBTableView1选择CreateAllColumns;
双击cxGrid1,在弹出的窗口中找到cxGrid1DBTableView1Notes和cxGrid1DBTableView1Graphic,将它们的Properties属性设为BlobEdit;
运行看看结果。
再将cxGrid1DBTableView1Graphic的Properties属性设为Image,
再将Properties下的Stretch设为True,
将cxGrid1DBTableView1->optionsview->CellAutoHeight设为True,
看看结果。
2)如何让“Dragacolumnheretogroupby…”(控件上方的一行字)不显示
点击cxGrid1上的cxGrid1DBTableView1
在cxGrid1DBTableView1->optionsview->groupbybox:
=false即可
注:
OptionsView里面有很多属性可能经常要用,比如:
ColumnAutoWith,Navigator等等,慢慢琢磨吧:
)
3)GroupPanel上面的英文[Dragacolumnheadertogroupbythatcolumn]怎么可以改成中文?
最简单的方法是TcxGridTableView.OnCustomDrawPartBackground
也可用OnCustomDrawGroupCell:
procedureTForm1.cxGrid1DBTableView1CustomDrawPartBackground(Sender:
TcxGridTableView;ACanvas:
TcxCanvas;AViewInfo:
TcxCustomGridCellViewInfo;varADone:
Boolean);
begin
AViewInfo.Text:
='动态设置GroupBox的显示内容';
ACanvas.FillRect(AViewInfo.Bounds);
end;
4)如何实现如下功能:
+财务部
+原材料仓库
+成品库
+冲压车间
+软件开发部
这个是部门的名称,点击加号就可以将本部门的人员情况显示出来。
其实这是一个主从表关系,
1:
填好主表的keyfieldnames
2:
填好从表的keyfieldnames
3:
填好从表的 detaikeyfieldNames与masterkeyfieldnames
4:
从表的数据源一定要按与主表关联的字段排序
注:
其它地方设置了主从表结构那样就显示不出来,比如设置了从表的Table或者Query的mastersource和asterfield就会不能显示数据!
如果是两个cxGrid的主从关系,这样设置就很OK了。
5)统计功能
cxGrid1DBTableView1->optionsview->Footer设为True
cxGrid1DBTableView1->DataController->Summary设置FooterSummaryItems即可
6)类似PageControl显示
增加一个Level,将cxGrid1->RootLevelOptions->DetailTabsPosition设为dtpTop,然后相应的设置cxGrid1Level1,和cxGrid1Level2的Caption值。
7)如何设定左边几列,不能滚动?
使用DBBandedTable才可以实现,
在cxGrid1DBBandedTableView里建立Band0,Band1
Band0的Fixed=tfLeft
Band1的Fixed=tfnone
设置要锁定的字段的BandIndex=0,其它为1,就OK了。
8)怎样实现如EXCEL一样的,当前格=G14+G15+G16这样的功能
举一个简单的例子:
label1.Caption:
=cxGrid1DBTableView1.DataController.Values[2,3]
+cxGrid1DBTableView2.DataController.Values[1,1]
+cxGrid1DBTableView3.DataController.Values[1,1];
所以不同View中的数据都可以给当前格,这样就做到了EXCEL中的当前格=G14+G15+G16类似的功能。
9)鼠标右击cxGrid1DBBandedTableView1菜单里的EditLayout什么用,怎么使用?
可以拖动字段,并列的可以拖成有层次感(一层层),拖动时会显示箭头的,就是说可以拖一个字段放到最上面,就可以使记录按此字段进行分组。
点击其中一个字段,上面还会出现一个上升或者下降的小三角形,这个小三角形的作用是在运行阶段,数据就会按照这个字段上升或者下降排序。
还有一个SetasDefault的作用是保持当前TableView的参数,下此产生新的TableView的时候就会可以和上次保持的参数一样。
这个还没有做过试验。
10)怎样将cxGrid里的数据导入到EXCEL,HTML,XML和TEXT?
这个问题在用了cxGrid以后变得异常简单,
uses
cxExportGrid4Link;
procedureTForm1.Button1Click(Sender:
TObject);
begin
ExportGrid4ToEXCEL('d:
\wang.xsl',cxGrid1,True,True);
ExportGrid4ToTEXT('d:
\wang.txt',cxGrid1,True,True);
ExportGrid4ToXML('d:
\wang.xml',cxGrid1,True,True);
ExportGrid4ToHTML('d:
\wang.html',cxGrid1,True,True);
end;
11)如何使满足条件的数据显示不同的颜色?
var
AYellowStyle:
TcxStyle;
procedureTForm1.FormCreate(Sender:
TObject);
begin
//行颜色
AYellowStyle:
=TcxStyle.Create(Self);
AYellowStyle.Color:
=$0080FFFF;
AYellowStyle.TextColor:
=clMaroon;
end;
procedureTForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(Sender:
TcxCustomGridTableView;ARecord:
TcxCustomGridRecord;AItem:
TcxCustomGridTableItem;outAStyle:
TcxStyle);
begin
ifARecord.Values[cxGrid1DBBandedTableView1Lengthcm.Index]<81then
AStyle:
=AYellowStyle;
end;
这里cxGrid1DBBandedTableView1Lengthcm.Index小于81时就显示黄色
12)如何从外边的TXT文件导入到cxGrid?
procedureCustomizeColumns;
rocedureLoadData;
procedureTForm1.CustomizeColumns;
const
cDistance=1;
cRadius=5;
cPeriod=4;
cPstring=0;
var
I:
Integer;
begin
DecimalSeparator:
='.';
withcxGrid1TableView2do
forI:
=0toColumnCount-1do
ifIin[cDistance,cRadius]then
Columns[I].DataBinding.ValueTypeClass:
=TcxIntegerValueType
//1,5列为Integer
else
ifIin[cPstring,cPeriod]then
Columns[I].DataBinding.ValueTypeClass:
=TcxStringValueType
//0,4列为String
else
Columns[I].DataBinding.ValueTypeClass:
=TcxFloatValueType;
//其他为Float
end;
procedureTForm1.LoadData;
const
AFileName='资产负债表.txt';
AHeaderLineCount=2;
var
ARecords,AValues:
TStringList;
I:
Integer;
procedureInitRecord(constStr:
string);
var
J:
Integer;
V:
Variant;
begin
AValues.CommaText:
=Str;
forJ:
=0toAValues.Count-1do
ifAValues.Strings[J]<>'-'then
begin
V:
=AValues.Strings[J];
ifnotVarIsNull(V)then
cxGrid1TableView2.DataController.Values[I,J]:
=V;
end;
end;
begin
ifnotFileExists(AFileName)then
raiseException.Create('Datafilenotfound');
ARecords:
=TStringList.Create;
AValues:
=TStringList.Create;
withARecordsdo
try
LoadFromFile(AFileName);
cxGrid1TableView2.BeginUpdate;
cxGrid1TableView2.DataController.RecordCount:
=Count-AHeaderLineCount;
forI:
=0toCount-(AHeaderLineCount+1)do
InitRecord(Strings[I+AHeaderLineCount]);
finally
cxGrid1TableView2.EndUpdate;
ARecords.Free;
AValues.Free;
end;
end;
procedureTForm1.FormCreate(Sender:
TObject);
begin
CustomizeColumns;
LoadData_Zcfz;
end;
2003-11-313:
18:
58附件其中“资产负债表.txt”中的数据如下:
资产行次年初数期末数负债及所有者权益行次年初数期末数
-------------------------------------
流动资产:
10.000.00流动负债:
20.000.00
13)如何改变列的颜色?
var
AFirstColumnStyle:
TcxStyle;
procedureTForm1.FormCreate(Sender:
TObject);
begin
//列颜色
AFirstColumnStyle:
=TcxStyle.Create(Self);
AFirstColumnStyle.Color:
=clAqua;
AFirstColumnStyle.TextColor:
=clBlue;
cxGrid1TableView1.Columns[1].Styles.Content:
=AFirstColumnStyle;
end;
14)Setasdefault的用法?
Setasdefault的用法是为了解决设置参数的方便而做的,比如:
连好数据库以后,
更改cxGrid1DBBandedTableView1->OptionsCustomize->ColumnFiltering设为False。
(这个设置可以将字段名的下拉单给去掉)
更改cxGrid1DBBandedTableView1->OptionsView->Navigator设置为True。
然后右击cxGrid1DBBandedTableView1,在弹出的菜单栏里面点击Setasdefault。
OK,下次你再产生一个新的cxGrid1DBBandedTableView1时这些设置和刚才的一样了。
如果需要设置的参数很多的时候,这个Setasdefault很有用!
15)怎样使鼠标移动时,相应的单元里的文字变色?
var
FTrackItem:
TcxCustomGridTableItem;
FTrackRec:
TcxCustomGridRecord;
procedureTForm1.cxGrid1DBTableView1CustomDrawCell(Sender:
TcxCustomGridTableView;ACanvas:
TcxCanvas;AViewInfo:
TcxGridTableDataCellViewInfo;varADone:
Boolean);
begin
if(AViewInfo.GridRecord=FTrackRec)and(AViewInfo.Item=FTrackItem)then
begin
ACanvas.Font.Color:
=clred;//红色字体
ACanvas.Font.Style:
=[fsUnderline];//带下划线
end;
end;
procedureTForm1.cxGrid1DBTableView1MouseMove(Sender:
TObject;Shift:
TShiftState;X,Y:
Integer);
var
AHitTest:
TcxCustomGridHitTest;
ATrackItem:
TcxCustomGridTableItem;
ATrackRec:
TcxCustomGridRecord;
begin
ATrackItem:
=FTrackItem;
ATrackRec:
=FTrackRec;
AHitTest:
=(SenderasTcxGridSite).GridView.ViewInfo.GetHitTest(X,Y);ifAHitTestisTcxGridRecordCellHitTestthen
begin
FTrackItem:
=TcxGridRecordCellHitTest(AHitTest).Item;
FTrackRec:
=TcxGridRecordCellHitTest(AHitTest).GridRecord;
end
else
begin
FTrackItem:
=nil;
FTrackRec:
=nil;
end;
if(ATrackItem<>FTrackItem)or(ATrackRec<>FTrackRec)then
begin
//Invalidateoldcell
ifATrackRec<>nilthen
ATrackRec.Invalidate(ATrackItem);
//Invalidatenewcell
ifFTrackRec<>nilthen
FTrackRec.Invalidate(FTrackItem);
end;
end;
16)ExpressQuantumGrid3.2.2中的dxdbgrid和4.2版本中的cxgrid有什么区别?
有很大的区别,基本上相当于是两个控件一样。
cxgrid是在dxdbgrid基础上完全重写的,所以cxgrid不支持dxdbgrid,所以cxgrid里面特意提供了一个将dxdbgrid导入到cxgrid的功能。
17)怎样设计多表头的cxGrid?
cxGrid可以解决如下的表头:
---------------------------------
|说明1|说明2|
---------------------------------
|字段1|字段2|字段3|字段4|
|字段5|字段6|
|字段7|字段8|字段9|
实现这个很简单,你可以直接在上面拖动字段名,拖动时会显示箭头的,放入你想显示的位置就OK了。
或者在鼠标右击cxGrid1DBBandedTableView1菜单里的EditLayout里也可以拖放。
但是cxGrid不能实现如下的多表头形式:
---------------------------------
|说明1|说明2|
---------------------------------
|说明3|说明4|说明5|说明6|
|字段1|字段2|
|字段3|字段4|字段5|
……不知道有谁能实现这样的多表头?
18)在主从表结构时,当点开“+”时怎样将焦点聚在相应主表的记录上?
var
HitTest:
TcxCustomGridHitTest;
procedureTColumnsShareDemoMainForm.tvProjectsMouseDown(Sender:
TObject;Button:
TMouseButton;Shift:
TShiftState;X,Y:
Integer);
begin
//NotethattheSenderparameterisaSite
HitTest:
=(SenderasTcxGridSite).GridView.ViewInfo.GetHitTest(X,Y);
//Thepointbelongstothe[+]/[-]buttonarea
ifHitTestisTcxGridExpandButtonHitTestthen
//Movefocustotherecord
TcxGridExpandButtonHitTest(HitTest).GridRecord.Focused:
=True;
end;
xzzcq(2003-11-0711:
25:
00)
小弟有一个cxgrid方面的难题,至今没解决:
明细嵌套结构,level的排列顺序如何改变?
请楼上的各位大侠帮俺一下,我试了好长时间
wangxian11(2003-11-0711:
34:
00)
这个问题我也碰到,似乎在建立以后,确定好你的顺序以后就不可以随便更改了
arlierever(2003-11-1021:
57:
00)
我也实现不了双击事件,在Grid和TableView的doubleClick中写的代码,当鼠标双击时都不执行,好像没有一样
wangxian11(2003-11-118:
49:
00)
我知道原因,你把TableView1->OptionData->Editing设为False时doubleClick事件就出来了,原因在于你点击的时候就直接进入编辑状态,所以不响应你的doubleClick事件
arlierever(2003-11-1416:
46:
00)
确实如此,不过如果我把TableView1->OptionData->Editing设为False了,双击是可以了,可是就不能编辑了,有什么办法可以两全其美?
wangxian11(2003-11-1417:
08:
00)
我的方法是:
TableView1->OptionData->Editing设为True
将字段里面不需要Edit的字段的Editing设为FALSE,这样也可以相应doubleClick事件
arlierever(2003-11-1510:
38:
00)
我把immediateEditor属性置为false,也可以,不过要进入编辑状态,需要鼠标点两下.
xzzcq(2003-11-268:
10:
00)
大家有没有碰到过这样的问题:
主从表格,点击“+”展开里面的记录,双击调用里面的内容只能显示第一条记录:
在从表里面的表格双击事件中showmessage(adoqry2.fieldbyname('
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CxGrid 一些 实用 方法 代码 入门 必读
![提示](https://static.bdocx.com/images/bang_tan.gif)