盒子论坛 v2.1

现有个大小写金额转换涵数NtoC,在窗体上有DBEDIT1，DBEDIT2，DBEDIT1关联数据库（ACCESS）的小写金额字段，DBEDIT2关联数据库的大写金额字段，想在小写金额输入后DBEDIT2自动转换应该如何做？
----------------------------------------------
-

作者：

89205149 (浪子)	★☆☆☆☆	-
	普通会员

2004/3/10 16:58:13

1楼：

这问题是不是好难啊？各位大侠帮帮忙啊
----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2004/3/10 18:08:03

2楼：

你可以在DBEdit1的键盘事件如KeyDown中拦截回车键，然后改变DBEdit2的值。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/10 18:14:29

3楼：

给：
function Tform1.SmallTOBig(small:real):string;
var SmallMonth,BigMonth:string;
wei1,qianwei1:string[2];
wei,qianwei,dianweizhi,qian:integer;
begin
{------- 修改参数令值更精确 -------}
{小数点后的位数，需要的话也可以改动该值}
qianwei:=-2;

{转换成货币形式，需要的话小数点后加多几个零}
Smallmonth:=formatfloat('0.00',small);
{---------------------------------}

dianweizhi :=pos('.',Smallmonth);{小数点的位置}

{循环小写货币的每一位，从小写的右边位置到左边}
for qian:=length(Smallmonth) downto 1 do
begin
{如果读到的不是小数点就继续}
if qian<>dianweizhi then
begin

{位置上的数转换成大写}
case strtoint(copy(Smallmonth,qian,1)) of

1:wei1:='壹'; 2:wei1:='贰';
3:wei1:='叁'; 4:wei1:='肆';
5:wei1:='伍'; 6:wei1:='陆';
7:wei1:='柒'; 8:wei1:='捌';
9:wei1:='玖'; 0:wei1:='零';
end;

{判断大写位置，可以继续增大到real类型的最大值，可是谁有那么多钱}
case qianwei of
-3:qianwei1:='厘';
-2:qianwei1:='分';
-1:qianwei1:='角';
0 :qianwei1:='元';
1 :qianwei1:='拾';
2 :qianwei1:='佰';
3 :qianwei1:='千';
4 :qianwei1:='万';
5 :qianwei1:='拾';
6 :qianwei1:='佰';
7 :qianwei1:='千';
8 :qianwei1:='亿';
9 :qianwei1:='十';
10:qianwei1:='佰';
11:qianwei1:='千';
end;

inc(qianwei);
BigMonth :=wei1+qianwei1+BigMonth;{组合成大写金额}
end;

end;

SmallTOBig:=BigMonth;

end;

程序调用如下“edit1.text:=SmallTOBig(1234567890.1234);”他自动默认小数点后两位

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/10 18:25:43

4楼：

声明：来自《葵花宝典2.7》，非本人原创
浪子，挣了钱可要分呀！

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

89205149 (浪子)	★☆☆☆☆	-
	普通会员

2004/3/11 9:17:59

5楼：

像我这样还没入门哪能谈挣钱啊，还有个问题就是我用的是DBEDIT1，DBEDIT2如何调用啊
----------------------------------------------
-

信息

登陆以后才能回复