2

我们在我们的应用程序中使用 DevExpress ExpressQuantumGrid v3 (TdxDBGrid) 和 ExpressQuantumGrid Suite v12 (TcxGrid)。对于 TdxDBGrid，我们使用 TdxDBTreeListColumn.OnFilterStringFormat 和 OnFilterStringUnformat 事件来允许我们使用与列关联的基础数据类型的值的字符串表示形式进行过滤。例如，我们可能以毫秒为单位存储时间段，但以 HH:MM:SS 格式显示。

但我不知道如何使用 TcxGrid 做到这一点。虽然我可以使用 TcxGridDBBandedColumn.OnGetFilterDisplayText 作为 TdxDBTreeListColumn.OnFilterStringFormat 的模拟，但我仍然坚持如何实现 TdxDBTreeListColumn.OnFilterStringUnformat 提供的功能，以确保我可以从用户指定的显示值转换为存储在底层数据集。

TcxGrid 是如何实现这个功能的？

4

1 回答 1

2

我不确定我是否 100% 理解你的问题。我不确定你的意思

我坚持如何实现 TdxDBTreeListColumn.OnFilterStringUnformat 提供的功能，以确保我可以从用户指定的显示值转换为存储在基础数据集中的值。

首先我做了一个小例子：

添加了一个带有日期字段的新 TdxMemtable，将其链接到 tcxGrid，并且我向其中添加了一些随机数据：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  BeginOfYear: TDateTime;
begin
  Randomize;
  dxMemData1.Active := true;
  dxMemData1.DisableControls;
  BeginOfYear := EncodeDate(2015, 1, 1);

  for i := 0 to 500 do
    dxMemData1.AppendRecord([i, Random(Trunc(Date - BeginOfYear)) + BeginOfYear]);

  dxMemData1.EnableControls;
end;

然后我给 Column 一个 OnGetFilterDisplayText 事件：

procedure TForm1.cxGrid1DBTableView1Field2GetFilterDisplayText(Sender: TcxCustomGridTableItem; const AValue: Variant; var ADisplayText: string);
begin
  if VarIsType(AValue, varDate) then
    ADisplayText := FormatDateTime(FormatSettings.LongDateFormat, AValue);
end;

它给了我想要的结果：

没有OnGetFilterDisplayText事件：

在此处输入图像描述

并有一个OnGetFilterDisplayText事件：

在此处输入图像描述

如您所见，我已经在过滤器框中格式化了文本，而没有修改内部数据。

所以最后一件事是通过在列中添加一个OnGetDataText以所需格式显示数据：

procedure TForm1.cxGrid1DBTableView1Field1GetDataText(Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
var
  aDateTime: TDateTime;
begin
  if TryStrToDate(AText, aDateTime) then
    AText := FormatDateTime(FormatSettings.LongDateFormat, aDateTime);
end;

在这里你有结果：

在此处输入图像描述

后：

在此处输入图像描述

通过这样做，您可以将数据以内部格式保存在数据集中，但将其显示给不同的用户。

为了向您展示如何在屏幕上获取原始数据值和数据值，我向 mu 数据集添加了两个 tcxEdit 和一个 AfterScrollEcent：

procedure TMainForm.gridDBTableView1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
var
  Index: Integer;
begin
  if AFocusedRecord = nil then
    exit;

  Index := gridDBTableView1time_field.Index;
  cxTextEdit1.Text := AFocusedRecord.Values[Index];
  cxTextEdit2.Text := AFocusedRecord.DisplayTexts[Index];
end;

这是结果：

在此处输入图像描述

到目前为止，我们已经按照我们想要的方式显示了数据，并且可以从标题中进行过滤，但是如果您从选择自定义过滤中获得错误信息。

为了完成这项工作，您需要创建一个TcxFilterComboBoxHelper后代？

type
  TmyFilterComboBoxHelper = class(TcxFilterComboBoxHelper)
  private
    class function TryLongDateFormatToDate(const S: string; out Value: TDateTime): Boolean;
    class function TryStringToMilliseconds(const S: string; out Value: Int64): Boolean;
  public
    class procedure GetFilterValue(AEdit: TcxCustomEdit; AEditProperties: TcxCustomEditProperties; var V: Variant; var S: TCaption); override;
  end;

完整的代码可以在这里找到：http: //pastebin.com/A1NRNg2J

于 2015-04-22T06:29:17.023 回答