- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
小企业的管理软件代码阅读汇报
李龙跃 2008145551
李文龙 2008145552
刘新宇 2008145565
一.软件架构描述
《华能日照电厂管理信息系统》是一个基于C/S软件体系结构的管理信息系统,各个模块在逻辑上保持相对独立性,整个系统的逻辑结构清晰,从而提高了本系统的可维护性和扩展性,并且可以使用多个客户端,方便日常使用和管理。
二.软件功能描述
该系统客户端操作界面如上图所示,包括燃料管理、档案管理、商业运营、财务预算等,不仅功能齐全,而且界面清晰简洁,方便使用者快速掌握使用方法,并且提供了不同的使用权限,通过不同颜色提示用户的操作权限,简洁明了,既方便了使用,又简化了界面开发过程。可以预见,通过该界面可以基本满足客户的日常工作的需求,系统化生产过程,便于统筹管理,节约人力物力。
系统管理模块如上图所示,实现用户等数据的增加、修改、删除、查找。在此模块中,使用了索引,可以方便使用者的正常操作,并且可以在一定程度上避免使用者的操作错误,并且便于管理。
所用算法描述
int i,li_lendec,li_lenint
int li_amout_flag
string ls_numstr,a,b,c,d,bbak
string ls_dxint[13],ls_dxdec[2],ls_sz[13]
string ls_dxstr=万仟佰拾亿仟佰拾万仟佰拾元
string ls_szstr=零壹贰叁肆伍陆柒捌玖
if ad_amout = 0.00 then
ls_dxstr = 零元整
return ls_dxstr
else
if ad_amout 0.00 then
ad_amout = abs(ad_amout)
li_amout_flag = 1
end if
end if
ls_numstr=string(ad_amout,#0.00)
li_lenint=len(mid(ls_numstr,1,pos(ls_numstr,.) - 1))
if right(ls_numstr,2)=00 then
li_lendec=0
else
li_lendec=2
end if
for i=1 to 13
ls_dxint[i]=mid(ls_dxstr,26 - i*2+1,2)
if i11 then
ls_sz[i]=mid(ls_szstr,i*2 - 1,2)
else
ls_sz[i]=
end if
next
ls_dxdec[1]=角
ls_dxdec[2]=分
ls_dxstr=
for i = 1 to li_lenint
a = mid(mid(ls_numstr,1,li_lenint),i,1)
b = ls_sz[integer(a)+1]
c = ls_dxint[li_lenint - i +1]
if ls_dxstr then
d = mid(ls_dxstr,len(ls_dxstr) - 1 ,2)
else
d =
end if
if b=零 and (d=零 or b=bbak 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
ls_dxstr=mid(ls_dxstr,1,len(ls_dxstr) - 2)
d = mid(ls_dxstr,len(ls_dxstr) - 1,2)
if (c=元 and d=万 or c=万and d=亿) then c=
end if
ls_dxstr=ls_dxstr + b + c
bbak = b
next
for i=1 to li_lendec
a = mid (mid(ls_numstr,li_lenint+2,li_lendec),i,1)
if a=0 and ls_dxdec[i]=分 then
b=
else
b=ls_sz[integer(a) + 1]
end if
if a0 then
ls_dxstr=ls_dxstr+b+ls_dxdec[i]
else
ls_dxstr=ls_dxstr+b
end if
next
if li_lendec=0 then ls_dxstr=ls_dxstr+整
if ad_amout 1.00 then ls_dxstr = 零 + trim(ls_dxstr )
if li_amout_flag = 1 t
您可能关注的文档
最近下载
- 施工企业现场质量管理制度及奖惩办法.pdf VIP
- 传感器原理及应用 教案.pdf VIP
- 砂石料供应、运输、售后服务方案14627.pdf VIP
- 传承雷锋精神争做时代新人--主题班会课件.pptx VIP
- 气管切开非机械通气患者气道管理考试题及答案.doc
- 横河flxa21两线制电导率变送器快速启动手册.pdf VIP
- 图集规范-天津图集-12J5-1图集(2012版)平屋面 DBJT29-18-2013.pdf VIP
- 第2课+丰富多彩的中华传统体育+课件 2025-2026学年人教版(2024)初中体育与健康八年级全一册.pptx VIP
- 第12课 闭环控制助稳定 教案 义务教育人教版信息科技六年级全一册.pdf VIP
- 生命教育PPT模板.pptx VIP
文档评论(0)