delphi第3方控件的使用方法 下载本文

object cxDBF_TestType: TcxDBLookupComboBox Left = 85 Top = 50

AutoSize = False

DataBinding.DataField = 'TestType'

DataBinding.DataSource = dmTest.ds_Test Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True

Properties.KeyFieldNames = 'TestTypeTbID' Properties.ListColumns = < item

FieldName = 'TestTypeName' end>

Properties.ListOptions.ShowHeader = False Properties.ListSource = dmTest.ds_TestTypeTb

Style.LookAndFeel.Kind = lfOffice11

Style.LookAndFeel.SkinName = 'Lilian'

StyleDisabled.LookAndFeel.Kind = lfOffice11 StyleDisabled.LookAndFeel.SkinName = 'Lilian' StyleFocused.LookAndFeel.Kind = lfOffice11 StyleFocused.LookAndFeel.SkinName = 'Lilian' StyleHot.LookAndFeel.Kind = lfOffice11 StyleHot.LookAndFeel.SkinName = 'Lilian' TabOrder = 3 Height = 22 Width = 140 end

×××××××××× cxGrid控件的应用方法

var

i: Integer;

FieldName,DisplayName: string; FColumn: TcxGridDBColumn;

for i := 0 to AdoTable1.Fields.Count - 1 do begin

FieldName := AdoTable1.Fields[i].FieldName;

AdoTable1.Fields[i].DisplayLabel := FieldName; FColumn := cxGridDBTableView.CreateColumn; FColumn.DataBinding.FieldName := FieldName; FColumn.MinWidth := 100; end; end; 另一种方法:

procedure TForm1.btnAddRowColumnClick(Sender: TObject); var

Column: TcxGridColumn; begin

Column:= cxGrid1TableView1.CreateColumn; Column.Caption := 'Test';

cxGrid1TableView1.DataController.AppendRecord;

cxGrid1TableView1.DataController.Values[0, 0] := 'ABC'; cxGrid1TableView1.DataController.Post; end;

procedure TForm1.btnDelRowColumnClick(Sender: TObject); begin

cxGrid1TableView1.DataController.DeleteRecord(0); cxGrid1TableView1.Columns[0].Free; end;

最近做了Cxgrid的加强右键菜单工具

新版本已出来,加入了多语控制等功能,优化了速度(希望大家给点意见)

主要功能:(详情请下载后运行其中的cxGridPopupMenuTest.exe文件) 1.多列排序

2.对列进行計數、合計、求最大值、求最小值、求平均值的聚合操作 3.设置列的对齐方式:居中、居左、居右 4.将数据输出到EXCEL、HTML、XML、TEXT 5.过滤数据 6.选择隐藏列

7.图形分析(将直接数据或分组后的数据用条图、屏图等多种图形显示出来) 8.增删改表头操作,也可设置表头的位置

9.增删改非数据关联列的操作,可定义计算列的取值脚本

10.配色设置(可选择统一配色或根据列或记录的值自定义列或行的颜色) 11.打印设置(可打印当前的cxGrid或其它此窗体上的控件) 12.多语功能

13.其它(如加入序号列、块选择数据、使过滤数据在Dataset上也起作用) 如果你有新的需求或更改的地放,请联系,谢谢

所有介绍中的设置都会自动保存,下次打开窗体时会自动加载上次的设置。

联系方式:13641869371 QQ:16187001 SKYPE:grjyubosoft.net

grj208981@163.com,grj208981sina.com 主页:http://grjgrj.512j.com

预览地址

http://grjgrj.512j.com/file/view.bmp 下载地址:

http://grjgrj.512j.com/file/test.rar

××××××××

cxgrid:cxgrid如何框选表中的数据?

cxgrid里已经是多选

但选择时候只能有鼠标+ctrl或是头选下,然后shift选尾

能不能用框选的,就是用鼠标按住拖动进行多选??? 怎么设置呀??

cxGird里面通常有个cxView,需要设置其OptionsSelection->CellMultiSelect为True 3Q

原来我是打勾MultiSelect

×××××××××××××

cxgrid取某一个列的求和的值,怎么读取???

在CXGRID中,已经对某一列在footerkind设置了求和skSum, 我Label.caption:=这个列的求和?? 要怎么读取啊?? 统计功能

解决:cxGrid1DBTableView1->optionsview->Footer 设为True

cxGrid1DBTableView1->DataController->Summary设置FooterSummaryItems即可

可以在那一列的OnCustomDrawFooterCell事件里面写: Label.Caption:=AViewInfo.Text;

获得总计项目 var

AItem: TcxDataSummaryItem; begin

AItem := .DataController.Summary.FooterSummaryItems.ItemOfItemLink();

AItem := .DataController.Summary.DefaultGroupSummaryItems.ItemOfItemLink();

procedure TForm1.cxGrid1DBTableView1DataControllerSummaryAfterSummary( ASender: TcxDataSummary);

V1 := ASender.FooterSummaryValues[ASender.FooterSummaryItems.IndexOfItemLink(cxGrid1DBTableView1CustNo)];

V2 := ASender.FooterSummaryValues[ASender.FooterSummaryItems.IndexOfItemLink(cxGrid1DBTableView1Addr1)];

××××××××××××××××

DevExpress的TcxDBLookupComboBox使用方法及问题 DevExpress的TcxDBLookupComboBox使用方法及问题 如题。

首先,使用方法不会,请各位不吝赐教。。。谢谢

TcxDBLookupComboBox

DataSource=S1 , DataBinding.DataField=A , Properties.ListSource=S2 , Properties.KeyFieldName=A , Properties.ListFieldIndex=0 , Properties.ListFieldName=B , Properties.ListColumns只包含B , S1和S2为一样的数据集,但不是同一个。

在这样的设置情况下,当Properties.GridMode设置为TRUE时,编译通过,运行时错误但是错误提示太简单。为什么会发生错误??

当Properties.GridMode设置为FALSE时,编译通过,运行时无错误。且显示正确即可以显示数据集的所有记录。但是选择条目时无效,即无法选择,无论选择什么条目结果都是同一个条目(第一个)。为什么??

一直等待。。。。。

谢谢

例子看了,明白了点。测试也通过了。不过和我的本意还是不一样。 也许组件选择错了。。。

我是想这样:表A包含A1,A2字段,A1为数据,A2为显示。用LookupComboBox显示A2,当选择不同A2时获取相应的A1。