delphicxGrid的使用.docx
- 文档编号:11823827
- 上传时间:2023-04-03
- 格式:DOCX
- 页数:8
- 大小:92.33KB
delphicxGrid的使用.docx
《delphicxGrid的使用.docx》由会员分享,可在线阅读,更多相关《delphicxGrid的使用.docx(8页珍藏版)》请在冰豆网上搜索。
delphicxGrid的使用
delphi-cxGrid的使用
delphicxGrid的使用(转)
2010-09-0610:
18
1.简单介绍:
cxGrid右下方的cxGrid1Level1是表示Grid表的层,cxGrid可以有多层,这相当于集合了PageControl的
功能,而cxGrid1Level1右边的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,看看结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;
procedureLoadData;
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;
其中“资产负债表.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)怎样设计多表头的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|
不知道有谁能实现这样的多表头?
17)在主从表结构时,当点开“+”时怎样将焦点聚在相应主表的记录上?
解决:
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;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- delphicxGrid 使用
![提示](https://static.bdocx.com/images/bang_tan.gif)