国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

DBGridEh用法總結(jié)三(PivotGrid的漢化)

2019-11-10 19:55:11
字體:
供稿:網(wǎng)友

數(shù)據(jù)庫字段一般都是英文,不能直接展示給用戶,而應(yīng)該顯示中文含義給用戶。需要漢化兩部分,一是設(shè)計用的字段漢化,二是表格區(qū)顯示內(nèi)容的漢化。

1、 字段漢化

設(shè)計工具(PivotGridToolBoxEh1)中顯示字段中文含義,是通過數(shù)據(jù)集字段的DisplayLabel屬性實現(xiàn),只需要正確設(shè)置DisplayLabel即可。

一種方法運行期動態(tài)指定,是把字段名和中文含義保存在數(shù)據(jù)庫中,需要的時候動態(tài)從數(shù)據(jù)庫取。另一種方法是設(shè)計期靜態(tài)指定,是在設(shè)計期設(shè)置每個字段的中文含義。我的程序中采用的是第一種方法。先創(chuàng)建數(shù)據(jù)表格(DBGridEh),并設(shè)置每一列的標(biāo)題。在數(shù)據(jù)打開之后按表格的標(biāo)題設(shè)置數(shù)據(jù)集字段的DisplayLable。for I := 0 to DBGridEh1.FieldCount - 1 dobegin  DBGridEh1.Columns[i].Field.DisplayLabel := DBGridEh1.Columns[i].Title.Caption;end;

2、 表格漢化

顯示統(tǒng)計結(jié)果的表格PivotGridEh中老是顯示字段名,這樣對普通用戶使用很不方便。通過下面事件實現(xiàn)英文字段的漢化,顯示中文含義,做如下修改即可實現(xiàn)。

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;      //下面這句話,可以實現(xiàn)表格中字段名的中文漢化      PivotCel.Value := PivotDataSource.PivotFields.FindFieldByName(ActualValueFields[v].PivotFieldName).DisplayName;

    end;

備注:

這樣修改后,用控件本身的打印功能,也可以正常顯示漢化后的字段(按現(xiàn)在這樣修修改之前也找到的別的方法,雖然可以解決表格上顯示的問題,但是打印時還是英文,進而才找到現(xiàn)在的方案)。

打印代碼如下:

procedure TQueryFrm.BtnPrintClick(Sender: TObject);begin  inherited;  PivotGridEh1.PrintService.PageHeader.CenterText := self.Caption + '分組統(tǒng)計';  PivotGridEh1.PrintService.Preview;end;


發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 密山市| 会泽县| 黑山县| 海淀区| 廊坊市| 丰城市| 顺平县| 祁东县| 温州市| 张家界市| 海城市| 南丰县| 赤城县| 南皮县| 阜南县| 台南市| 邓州市| 崇阳县| 新建县| 咸阳市| 江都市| 剑川县| 西乌珠穆沁旗| 洛阳市| 彭山县| 中超| 莲花县| 清徐县| 资溪县| 宽城| 韩城市| 九江县| 清涧县| 盖州市| 大渡口区| 沭阳县| 昌图县| 将乐县| 冷水江市| 武穴市| 昌乐县|