嘘~ 小破站正在拼命加载中 . . .

【PB案例学习笔记】-21小大写金额转换


写在前面

这是PB案例学习笔记系列文章的第21篇,该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习,提高编程技巧,以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码,小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

gitee代码仓库

需要源代码的小伙伴们可以自行下载查看,后续文章涉及到的案例代码也都会提交到这个仓库【**pb-project-example**】

如果对小伙伴有所帮助,希望能给一个小星星⭐支持一下小凡。

一、小目标

在日常开发中,我们经常会需要将小写的金额转换成大写的金额显示。比如说在做收费系统时,完成一笔费用结算,往往需要在

发票上显示费用大写金额。最终实现效果如下

小大写金额转换

在本案例中,小大写转换属于通用功能,所以我们需要学会全局函数的封装

二、全局函数简介

自定义全局函数不封装在其他对象内,而是作为独立的对象存储。自定义全局函数常用于处理一些通用功能,例如数字计算、字符串处理等等通用功能。通过自定义全局函数,有利于在程序的各个地方很方便的调用。同时也方便将函数移植到其他程序

三、创建程序基本框架

① 新建examplework 工作区

② 新建exampleapp应用

③ 新建w_main窗口,并将其Title设置为”自定义函数之小大写金额转换”

④ 控件布局

在窗口w_main上添加1个EditMask控件,1个SingleLineEdit 控件和一个CommandButton控件

依次命名为em_1sle_1cb_1,布局如下

  • em_1: 用于输入小写金额
  • sle_1:用于显示大写金额
  • cb_1: 转换功能按钮,小大写转换功能写在此按钮事件中

image-20240612222757816

四、建立自定义全局函数

① 建立函数对象

在菜单栏中单击File-->New 命令,然后在PB Object选项卡中选择Function图标,然后单击【ok】按钮,然后进入函数定义面板

函数对象选择

创建函数

② 编写函数代码

 
string dx_sz,dx_dw,str_int,str_dec,dx_str,fu,a,b,b2,c,d,result
long num_int,num_dec,len_int,i,a_int,pp

dx_sz = "零壹贰叁肆伍陆柒捌玖" 
dx_dw = "万仟佰拾亿仟佰拾万仟佰拾元" 

  //处理小于零情况
if xjje<0 then
   xjje = xjje*(-1) 
   fu = "负" 
else 
    fu = "" 
end if 

  //取得整数及整数串
dx_str = string(xjje)
if (xjje>0) and (xjje<1) then dx_str = "0"+dx_str 
pp = pos(dx_str,".") 
if pp>0 then 
     str_int = mid(dx_str,1,pos(dx_str,".")-1)
else
    str_int = dx_str 
end if 
num_int = long(str_int) 

  //取得小数及小数串
if (xjje>0) and (xjje<1) then 
    num_dec = xjje * 100
else
    num_dec = (xjje - num_int) * 100 
end if 
str_dec = string(num_dec) 
len_int = len(str_int) 
dx_str = "" 

  //转换整整部分
for i = 1 to len_int 
    //a为小写数字字符,b为对应的大写字符,c为对应大写单位,d为当前大写字符串的最后一个汉字
   a= mid(str_int,i,1) 
   a_int = long(a) 
   b = mid(dx_sz,(a_int*2)+1,2) 
   c = mid(dx_dw,((13 - len_int +i - 1)*2+1),2) 
   if dx_str<>"" then
      d=mid(dx_str,len(dx_str)-1,2)
   else
        d= "" 
    end if 
    
   if (b="零") and ((d="零") or (b=b2) or (c="元") or (c="万") or (c="亿")) then  b = "" 
   if (a="0") and (c<>"元") and (c<>"万") and (c<>"亿") then c="" 
   if ((c="元") or (c="万") or (c="亿")) and (d="零") and (a="0") then
      dx_str = mid(dx_str,1,len(dx_str)-2) 
      d=mid(dx_str,len(dx_str)-1,2) 
      if ((c="元") and (d="万")) or ((c="万") and (d="亿")) then c = "" 
    end if 
    dx_str = dx_str + b+ c 
    b2 = b 
next

  //处理金额小于1的情况
  if len(dx_str) <= 2 then dx_str= "" 
  //转换小数部分
  if (num_dec<10) and (xjje>0) then
    a_int = long(str_dec) 
    b = mid(dx_sz,(a_int*2+1),2) 
    if num_dec = 0 then dx_str = dx_str + "整" 
    if num_dec > 0 then dx_str = dx_str +"零"+b+"分" 
  end if
  
  if num_dec >= 10 then
    a_int = long(mid(str_dec,1,1)) 
    a = mid(dx_sz,(a_int*2+1),2) 
    a_int = long(mid(str_dec,2,1)) 
    b = mid(dx_sz,(a_int*2+1),2) 
    if a<>"零" then a = a+"角" 
    if b <> "零" then
        b = b+"分"
    else 
        b= "" 
    end if
    dx_str = dx_str + a + b 
  end if
  if xjje= 0 then dx_str = "零元整" 
  dx_str = fu+dx_str 
  
  result = dx_str 

return result

③ 保存函数

五、编写程序代码

① 给按钮cb_1Clicked事件添加如下代码

dec ld_xjje

ld_xjje = dec(em_1.text)

sle_1.text = gf_lowercase_trans(ld_xjje)

② 双击代码编辑框左边的System Tree中的exampleapp应用,在其Open事件中添加如下代码

open(w_main)

六、运行程序

经过一波代码输出后,来检验下成果。

小大写金额转换

本期内容到这儿就结束了,★,°:.☆( ̄▽ ̄)/$:.°★ 。 希望对您有所帮助

我们下期再见 ヾ(•ω•`)o (●’◡’●)


文章作者: xiezhr
版权声明: 本博客所有文章除特別声明外,均采用 CC BY 4.0 许可协议。转载请注明来源 xiezhr !
评论
  目录