最近研究了一下UniGUI的TuniDBGrid，记录一下免得忘记了。

TuniDBGrid的重要属性包括：

1、列—TUniDBGridColumns和TUniDBGridColumn

每个列对象(TUniDBGridColumn)的重要属性包括：

CheckBoxField : TUniCheckBoxField

列作为CheckBox操作的相关属性

属性

类型

说明

AutoPost

Boolean

当用户点选CheckBox后，改变前端显示并根据该属性决定：

True—立即自动提交到数据集中并刷新前端显示

False—只改变前端显示，当记录滚动时再提交数据集

BooleanFieldOnly

Boolean

是否只针对Boolean字段，

True—只能识别Boolean字段，非Boolean字段将不能显示CheckBox

False—DisplayValues和FieldValues可以针对非Boolean字段进行处理

Enabled

Boolean

是否允许显示CheckBox

DisplayValues/

FieldValues

string

联合决定了CheckBox不同状态下对应的值，FieldValues存储字段值，DisplayValues存储显示文字，如果空白就表示不显示文字，只显示CheckBox，每个值通过分号(;)区分，文字显示CheckBox的右侧。如下图：

DisplayMemo:Boolean

对TMemoField而言，是否显示(Memo)字样，缺省为False

False—不显示字段内容，显示(Memo)字样

True—不显示(Memo)字样，而是直接显示字段内容

Filtering : TUniColumnFilter

在列标题下显示过滤编辑框，自动对列数据进行过滤，如下图：

参考Demos下的GridFilter例子。要实现该功能，必须：

A.放一个TUniHiddenPanel控件在窗体上，然后将TUniEdit、TUniComboBox 、TUniDBLookupComboBox等控件放置在这个隐藏的Panel上，如下图：

B.设置每个列的Filtering，将其Editor属性设置对应的编辑控件

C. 对编辑控件进行相关属性设置，如TUniDBLookupComboBox需要设置ListSource等

属性

类型

说明

ChangeDelay

Integer

当用户键入字符后，延时进行过滤处理的毫秒数

Editor

TControl

过滤的输入框，按照输入框内容进行过滤。TUniDBLookupComboBox按照KeyField的值进行过滤

Enabled

Boolean

是否允许进行过滤

GroupHeader和GroupHeaderSeparator

多栏显示表头，如GroupHeader = a;b;c 时的样式见下图：

ShowSummary：Boolean

是否显示合计值，与Grid的Summary的属性联合使用。

Sortable：Boolean

是否允许进行排序操作。允许排序操作时，在字段名称旁显示排序符号，并且在Menu中的排序菜单是可用的，如下图：

Editor ： TControl;

对该字段进行编辑时，对应的单元采用怎样的控件进行处理，这个功能非常强大，如设置TuniComboBox作为Editor则完全替代字段Picklist的功能，如下图：

Memu(TUniColumnMenu)

对列标题下拉显示的菜单进行控制

属性

类型

说明

ColoumnHideable

Boolean

是否允许隐藏字段，缺省True，即允许用户通过勾选隐藏指定的列，如下图：

MenuEnabled

Boolean

是否允许显示列的菜单

MenuText

String

该列显示在菜单上的文字，缺省为空，表示显示字段DisplayLabel，否则显示该文字。如下图：

ImageOptions

当该字段需要显示图片时，联合使用ImageOptions属性和OnFieldImage事件，其中：

属性

类型

说明

Height/Width

Integer

显示图片的大小

Visible

Boolean

是否显示图片，True则触发OnFieldImage事件进行图片处理，如：

procedure TMainForm.UniDBGrid1FieldImage(const Column: TUniDBGridColumn;

const AField: TField; var OutImage: TGraphic; var DoNotDispose: Boolean;

var ATransparent: TUniTransparentOption);

begin

if SameText(AField.FieldName, 'gender') then

begin

// 代码处理图片

DoNotDispose := True;

// 根据字段值返回图片

if AField.AsString = 'male' then

OutImage := UniImage1.Picture.Graphic

else if AField.AsString = 'female' then

OutImage := UniImage2.Picture.Graphic;

end;

end;

该方法可以让列显示某项图片按钮，如：