实现方法一 applet实现页面是rmb.jsp，此页面是通过applet来实现人民币小写转换成大写的。此页面有三个变量需要在载入classes的时候进行初始化： <applet  type="applet" id="myApplet" codebase = "." name="TestApplet" align="middle" code="lqh.rmb.Applicate.Rmb.class" width="560" height="25"> <param name="RGB_Back" value="241|247|251"> <param name="RGB_Fore" value="255|0|0"/> <para...

实现方法一 applet实现页面是rmb.jsp，此页面是通过applet来实现人民币小写转换成大写的。此页面有三个变量需要在载入classes的时候进行初始化： <applet  type="applet" id="myApplet" codebase = "." name="TestApplet" align="middle" code="lqh.rmb.Applicate.Rmb.class" width="560" height="25"> <param name="RGB_Back" value="241|247|251"> <param name="RGB_Fore" value="255|0|0"/> <...

根据我国的财务票据的当前特点，仍需要财务票据中人民币有大写一项。现在本人用PB编写了一个人民币大写的函数。您只要将您数据窗口中的人民币小写项数据值取出，利用我的这个函数将其转换成大写方式，然后再赋到数据窗口的某项中即可。string jet,dxs,xxs,jew1,jew2,jew,jeq,jeb,jes,jeg,jej,jeflong ls,lssstring jedxjet=string(yjk)ls=len(jet)lss=10 - lsjet=space(lss)+jetdxs='零壹贰叁肆伍陆柒捌玖／'xxs='0123456789 'jew2=mid(jet,1,1)jew1=mid(jet,2,1)jew=mid(jet,3,1)jeq=mid(jet,4,1)jeb=mid(jet,5,1)jes=mid(jet,6,1)jeg=mid(jet,7,1)jej=mid(jet,9,1)jef=mid(jet,10,1)jew2=mid(dxs,pos(xxs,jew2)*2 - 1,2)+"佰"jew1=...