请问reportbuilder里面怎么将金额转换为大写?
代码要怎么用?用label还是variable呢?请高手门举个详细的操作例子OTZ
代码要怎么用?用label还是variable呢?请高手门举个详细的操作例子OTZ
解决方案 »
- SkinAdapter怎样为Frame中的第三方控件换肤
- 大家请帮忙,如何在delphi中使用udl文件动态改变ado连接
- 谁知道 delphi+Winsock 和windows目录共享那个在LAN里的传输速度快.
- 请教delphi中有关case语句的用法
- 怎样改变动态创建teechart(series)的轴标记的style?
- 一个SQL查询语句,在线等答复。
- reset,rewrite的第二个参数表示什么意思,根据什么来设定它的值
- {准程序员}的初学者demo之二:query+updatesql的增、删、保存例子,高手不必入内。有需要的请进来请个地址。
- 百思不得其解
- delphi中嵌ie browser的问题,今晚解决不了,我不能回去吃饭(200点)
- cxLookupComboBox如何填充下拉的值?及获取值
- Strings.ValueFromIndex[i-1]在Delphi6里怎么写
vstr:='';
vcramt:= dbcalc1.value+dbcalc2.value;
Smallmonth:=formatfloat('0.00',vcramt);
dianweizhi :=pos('.',Smallmonth);
Bigmonth:='';
for qian:=1 to length(Smallmonth) do
begin
qian1:=length(Smallmonth)-qian+1;
if qian1<>dianweizhi then
begin
if copy(Smallmonth,qian1,1)='-' then wei1:='?o';
case strtoint(copy(Smallmonth,qian1,1)) of
1:wei1:='壹'; 2:wei1:='贰';
3:wei1:='叁'; 4:wei1:='肆';
5:wei1:='伍'; 6:wei1:='陆';
7:wei1:='柒'; 8:wei1:='捌';
9:wei1:='玖'; 0:wei1:='零';
end;
case qianwei of
1:qianwei1:='分';
2:qianwei1:='角';
3 :qianwei1:='元';
4 :qianwei1:='拾';
5 :qianwei1:='佰';
6 :qianwei1:='千';
7 :qianwei1:='万';
8 :qianwei1:='拾';
9 :qianwei1:='佰';
10 :qianwei1:='千';
11 :qianwei1:='亿';
12 :qianwei1:='十';
13:qianwei1:='佰';
14:qianwei1:='千';
end;
qianwei:=qianwei+1;
BigMonth :=wei1+qianwei1+BigMonth; end;
end;
Value:=vstr+bigMonth;