fastreport的数据表何字段如何显示为中文?急(80分)

  • 主题发起人 主题发起人 xsqxsq111
  • 开始时间 开始时间
X

xsqxsq111

Unregistered / Unconfirmed
GUEST, unregistred user!
在报表设计时显示的数据为
ORDERHEA ---- 我想显示为 '客户订单'
ORDERDTL ---- 我想显示为 '订单明细'

数据字段也同样




 
不是很明白你的意思.

1.数据集的fields里可以设置displaylabel属性.

2.在fastreport里双击memo,再在里面直接输入中文就行了.
 
可以通过数据字典来进行。
 
fly_hong_924:
请问如何设置,能否给段代码?
 
打开你的报表设计器.
file->data dictionary->field aliases.
在all datasets里选中你要的表,双击它,在它的右边的树型结构里选中你要的字段,再在下面的alias框里填上你的中文就行了.
 
to:jianguobu
谢谢
但是我想要通过程序动态设置,如何 实现呢

report.dictionary.banddatasource['order'] := '客户订单';
report.dictionary.banddatasource['orderDTL'] := '客户订单明细'
。。。。

我试过好几种方式都不行,






 
用视图或存贮过程
 
那就不用数据字典
procedure ConvertFrfToBig5(SourceF, DestiF : string);
var
p, i: integer;
AReport: TFrReport;
begin
AReport := TfrReport.Create(nil);
AReport.LoadFromFile(SourceF);
for p := 0 to AReport.Pages.Count -1 do
for i :=0 to AReport.Pages[p].Objects.Count-1 do
if TObject(AReport.Pages[p].Objects) is TFrView then
with (TFrView(AReport.Pages[p].Objects)) do
begin
Memo.Text := CvtStrToBig5(Memo.Text);
end;
AReport.SaveToFile(DestiF);
AReport.Free;
end;

以上是简体报表转换成繁体报表的例子,我想你看了后应该做做了吧,
无非是修改Memo.Text的内容呀.
 
to:jianguobu
我相信你的方法可行,但我要的不是这样的结果
我因为报表是用户自定义,需要显示DATASET.FIELD.DISPLAYCAPTION
好象只能用数据字典的方式,有没有解决办法?
 
你可以做个INI文件之类的来修改
DATASET.FIELD.DISPLAYLABEL
 
这个我作过,我把fastreport直接集成在我的程序中的。
frReport1.Dictionary.FieldAliases[窗体名.数据集名]:='这个数据集的中文名';
frReport1.Dictionary.BandDatasources[窗体名.数据集名+'DDS']:='这个数据集对应的BAND中文名';
frReport1.Dictionary.FieldAliases[窗体名.数据集名.字段名]:='这个数据集中的这个字段的中文名';

完全赋值下来就等于初始化了这个报表文件的字典.
至于这段代码的位置,应该是在frreport新建报表后。你可以试试。
不行的话,QQ:28873222
 
shangshang,:
我基本上是找这种方法做的,但是在插入数据时还是原来的数据表名
请再说明详细一点
 
在sql 语句中转换种文字段,如select a 姓名,b 年龄, c 性别 from person
 
你能否按你的方法做一个小例子发来?
否则,我不能保证一定适用.我也是试了好多次才成的.
 
问题解决了
原因是frReport1.Dictionary.FieldAliases
应该在LOADFROMFILE后面

谢谢shangshang
 
怎么最近好多人光知道感谢,不知道给分啊。楼主,你还等什么呢? 
 
安装ExpressQuantumGrid 4 Suite的后,启动DELPHI6的时候提示"无法定位程序入口@variant@...@findVarData@.....@variant",进入后,发现ExpressQuantumGrid 4 Suite并没有安装成功,这是为什么? 请求指教
 
verycom,你怎么老占别人的地方提自己的问题?你不会发分提问题吗?
你的原因估计是没有安装delphi6的update2升级包所致,如果安装了,则试试卸载.
 

Similar threads

回复
0
查看
881
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
844
DelphiTeacher的专栏
D
后退
顶部