准備寫個財務類軟件,請推荐幾個好用的控件.(100分)

  • 主题发起人 主题发起人 011101
  • 开始时间 开始时间
还是去下面地址去找吧,只是简单注册就可下,免费的。好的控件好多的!看看下载次数就知道哪些好用了!
http://www.delphibox.com/
 
qaz2003:
我也知道网上有下的,請告訴我適合財務軟件的控件名稱行嗎?[:(]
 
ehlib3,RX Library,Developer Express
 
可以顯示: 萬千百十....厘 的那種grid是哪個控件包里面的?
 
为什么不去参考一下胜天进销存??
 
ehlib3,RX Library,Developer Express,flatstyle,Raize309。。。很多
 
ehlib3.2,dev express公司的tdxdbgrid或tcxdbgrid, 去 www.51delphi.com www.playicq.com 下载。
 
>>为什么不去参考一下胜天进销存??
勝天不錯,不知有沒繁体或E文版的?
>>ehlib3,RX Library,.............
這些我有,我在找 [blue]可以顯示: 萬千百十....厘 的那種grid是哪個控件包里面的? [/blue]
 
可以顯示: 萬千百十....厘 用下面的函数
function Tmainfrm.SmallTOBig(small:real):string;
var
SmallMonth,BigMonth:string;
wei1,qianwei1:string[2];
fs,qianwei,dianweizhi,qian:integer;
begin
{------- 修改参数令值更精确 -------}
qianwei:=-2;{小数点后的位置,需要的话也可以改动-2值}
Smallmonth:=formatfloat('0.00',small);{转换成货币形式,需要的话小数点后加多几个零}
{---------------------------------}
dianweizhi :=pos('.',Smallmonth);{小数点的位置}
fs:=pos('-',smallmonth);{负号的位置}
for qian:=length(Smallmonth)do
wnto 1do
{循环小写货币的每一位,从小写的右边位置到左边}
begin
if (qian<>dianweizhi) and (qian<>fs) 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;
case qianwei of{判断大写位置,可以继续增大到real类型的最大值}
-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;
 
qaz2003:
我要那個grid控件,不是要函數,象速達財務中的.
 
楼主看一下以下连接:
http://www.playicq.com/dispdocnew.php?id=11000
 
多人接受答案了。
 

Similar threads

I
回复
0
查看
813
import
I
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
820
import
I
后退
顶部