首页 > 学院 > 开发设计 > 正文

DBGridEh用法总结三(PivotGrid的汉化)

2019-11-10 18:51:58
字体:
来源:转载
供稿:网友

数据库字段一般都是英文,不能直接展示给用户,而应该显示中文含义给用户。需要汉化两部分,一是设计用的字段汉化,二是表格区显示内容的汉化。

1、 字段汉化

设计工具(PivotGridToolBoxEh1)中显示字段中文含义,是通过数据集字段的DisplayLabel属性实现,只需要正确设置DisplayLabel即可。

一种方法运行期动态指定,是把字段名和中文含义保存在数据库中,需要的时候动态从数据库取。另一种方法是设计期静态指定,是在设计期设置每个字段的中文含义。我的程序中采用的是第一种方法。先创建数据表格(DBGridEh),并设置每一列的标题。在数据打开之后按表格的标题设置数据集字段的DisplayLable。for I := 0 to DBGridEh1.FieldCount - 1 dobegin  DBGridEh1.Columns[i].Field.DisplayLabel := DBGridEh1.Columns[i].Title.Caption;end;

2、 表格汉化

显示统计结果的表格PivotGridEh中老是显示字段名,这样对普通用户使用很不方便。通过下面事件实现英文字段的汉化,显示中文含义,做如下修改即可实现。

PRocedure TCustomPivotGridEh.BuildGridArrayRowsMeasures;for v := 0 to ActualValueFields.Count-1 do    begin      PivotCel := PivotGridArray[ip + ActualRowFlds.Count + v, ActualColFlds.Count + 1];      PivotCel.CelType := sctValuesColCaptionEh;      PivotCel.Value := //ActualValueFields[v].PivotFieldName;      //下面这句话,可以实现表格中字段名的中文汉化      PivotCel.Value := PivotDataSource.PivotFields.FindFieldByName(ActualValueFields[v].PivotFieldName).DisplayName;

    end;

备注:

这样修改后,用控件本身的打印功能,也可以正常显示汉化后的字段(按现在这样修修改之前也找到的别的方法,虽然可以解决表格上显示的问题,但是打印时还是英文,进而才找到现在的方案)。

打印代码如下:

procedure TQueryFrm.BtnPrintClick(Sender: TObject);begin  inherited;  PivotGridEh1.PrintService.PageHeader.CenterText := self.Caption + '分组统计';  PivotGridEh1.PrintService.Preview;end;


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表