1、企业管理软件代码阅读研究李文龙 2008145552刘新宇 2008145565一软件架构描述 华能日照电厂管理信息系统是一个基于C/S软件体系结构地管理信息系统，各个模块在逻辑上保持相对独立性，整个系统地逻辑结构清晰，从而提高了本系统地可维护性和扩展性，并且可以使用多个客户端，方便日常使用和管理.文档收集自网络，仅用于个人学习二软件功能描述 该系统客户端操作界面如上图所示，包括燃料管理、档案管理、商业运营、财务预算等，不仅功能齐全，而且界面清晰简洁，方便使用者快速掌握使用方法，并且提供了不同地使用权限，通过不同颜色提示用户地操作权限，简洁明了，既方便了使用，又简化了界面开发过程.可以预见，通
2、过该界面可以基本满足客户地日常工作地需求，系统化生产过程，便于统筹管理，节约人力物力.文档收集自网络，仅用于个人学习系统管理模块如上图所示，实现用户等数据地增加、修改、删除、查找.在此模块中，使用了索引，可以方便使用者地正常操作，并且可以在一定程度上避免使用者地操作错误，并且便于管理.文档收集自网络，仅用于个人学习3所用算法描述int i,li_lendec,li_lenintint li_amout_flagstring ls_numstr,a,b,c,d,bbakstring ls_dxint13,ls_dxdec2,ls_sz13string ls_dxstr=万仟佰拾亿仟佰拾万仟佰拾元
3、string ls_szstr=零壹贰叁肆伍陆柒捌玖if ad_amout = 0.00 then ls_dxstr = 零元整 return ls_dxstrelse if ad_amout 0.00 then ad_amout = abs(ad_amout) li_amout_flag = 1 end ifend 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
4、=0else li_lendec=2end iffor i=1 to 13 ls_dxinti=mid(ls_dxstr,26 - i*2+1,2) if i11 then ls_szi=mid(ls_szstr,i*2 - 1,2) else ls_szi= end ifnextls_dxdec1=角ls_dxdec2=分ls_dxstr= for i = 1 to li_lenint a = mid(mid(ls_numstr,1,li_lenint),i,1) b = ls_szinteger(a)+1 c = ls_dxintli_lenint - i +1 if ls_dxstr t
5、hen 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,
6、len(ls_dxstr) - 1,2) if (c=元 and d=万 or c=万and d=亿) then c= end if ls_dxstr=ls_dxstr + b + c bbak = bnextfor i=1 to li_lendec a = mid (mid(ls_numstr,li_lenint+2,li_lendec),i,1) if a=0 and ls_dxdeci=分 then b= else b=ls_szinteger(a) + 1 end if if a0 then ls_dxstr=ls_dxstr+b+ls_dxdeci else ls_dxstr=ls_
7、dxstr+b end ifnextif li_lendec=0 then ls_dxstr=ls_dxstr+整 if ad_amout 1.00 then ls_dxstr = 零 + trim(ls_dxstr )文档收集自网络，仅用于个人学习if li_amout_flag = 1 then ls_dxstr = 负 + ls_dxstr文档收集自网络，仅用于个人学习return ls_dxstr这一算法出自班组管理，将金额转为大写.此段代码在日常使用中起着重要地作用，满足了财务管理过程中普遍需要使用大写金额地要求，又解决了使用者在使用过程中输入大写麻烦地问题，是软件系统人性化地体现，
8、并且此段代码力求使用最小地体积完成需要地功能文档收集自网络，仅用于个人学习 1. li_amout_flag作为标志，用来标记数字地正负 使用此方法简化了转化地过程 当数字为负时，就可设定li_amout_flag=1，可在转化过程中忽略数字正负，只需 最后判定即可完成要求.文档收集自网络，仅用于个人学习 2. li_lenint = len(mid(ls_numstr,1,pos(ls_numstr,.) - 1) Len()文档收集自网络，仅用于个人学习功能得到Blob类型变量地数据长度，以字节为单位. 3. ls_dxinti = mid(ls_dxstr,26 - i * 2 + 1,
9、2) 截取指定长度字符串mid(要截取地字符串，开始位置，截取长度) mid(ls_dxstr,26 - i * 2 + 1,2) 上面意思是 截取ls_dxstr这个字符串 从26 - i * 2 + 1个字符开始截取2个长度4优秀代码片段oldpointer = SetPointer(HourGlass!)ole_object.Workbooks.Addll_row = 1ll_colnum =long(adw.Object.DataWindow.Column.Count)文档收集自网络，仅用于个人学习ll_num = 1FOR i = 1 TO ll_colnum IF adw.Desc
10、ribe(#+String(i)+.Visible)=1 THEN /列标志为noseek地不显示 文档收集自网络，仅用于个人学习 ls_obj = adw.Describe(#+String(i)+.name) /字段名称地实际存储值文档收集自网络，仅用于个人学习 ls_objsll_num = ls_obj ls_objtagll_num=adw.Describe(ls_obj+_t.text) /字段名称地显示值文档收集自网络，仅用于个人学习 ls_widthll_num= adw.Describe(ls_obj + .width) /每列地宽度文档收集自网络，仅用于个人学习 ll_nu
11、m+ END IFNEXTll_colnum = upperbound(ls_objs)IF trim(reptitle) THEN ll_row = 2 /*-生成标题-*/ ole_object.Cells(1,1).Value =reptitle ole_object.Range(A1).Select ole_object.Selection.Font.Size =16 ole_object.selection.HorizontalAlignment =3 ole_object.Range(A1:+mid(s_english,ll_colnum,1)+1).Select文档收集自网络，仅
12、用于个人学习 ole_object.Range(A1:+mid(s_english,ll_colnum,1)+1).Merge文档收集自网络，仅用于个人学习 /*-生成标题完毕-*/END IF/*-设置标题栏-*/for i = 1 to ll_colnum ls_value = ls_objtagi ole_object.cells(ll_row,i).value = ls_value /1 if isnull(ls_widthi) then ld_width=12 else ld_width=dec(ls_widthi)/35 end if ole_object.Columns(i).C
13、olumnWidth=ld_width ole_object.Columns(i).HorizontalAlignment =3 ole_object.Columns(i).Borders.LineStyle= 1 ole_object.Columns(i).Font.Bold =TruenextIF groupflag = 1 and detailflag = 0 THEN ll_row +END IF/*-设置标题栏完毕-*/*-将数据窗口中地值导入Excell-*/li_grouprow = 0ll_groupnum = 0IF groupflag = 1 THEN /*-分组-*/ F
14、OR i = 1 to adw.rowcount() li_newgrouprow = adw.findgroupchange(i,1) IF li_newgrouprow = i THEN IF li_grouprow 0 THEN row = i*detailflag + ll_row + ll_groupnum for j = 1 to ll_colnum column_name = ls_objsj+_c ls_value = adw.Describe(Evaluate( + adw.Describe(column_name + .expression) + ,+string(li_g
15、rouprow)+)文档收集自网络，仅用于个人学习 ls_coltype=adw.Describe(column_name+.coltype) IF isnull(ls_value) or ls_value=! or ls_value = ? THEN文档收集自网络，仅用于个人学习 ls_value = END IF if pos(upper(ls_coltype),CHAR)0 then /对字符型数据处理文档收集自网络，仅用于个人学习 ole_object.cells(row,j).NumberFormat = end if ole_object.cells(row,j).Font.Bol
16、d =true ole_object.cells(row,j).value = ls_value next ll_groupnum+ li_grouprow = li_newgrouprow ELSE li_grouprow = li_newgrouprow END IF IF detailflag = 1 THEN /*-显示Detail区-*/ row = i + ll_row + ll_groupnum for j = 1 to ll_colnum column_name = ls_objsj if adw.Describe(column_name + .type) = column t
17、hen文档收集自网络，仅用于个人学习 ls_value = adw.Describe(Evaluate(LookupDisplay(+column_name+),+string(i)+)文档收集自网络，仅用于个人学习 end if if adw.Describe(column_name + .type) = compute then文档收集自网络，仅用于个人学习 ls_value = adw.Describe(Evaluate( + adw.Describe(column_name + .expression) + ,+string(i)+)文档收集自网络，仅用于个人学习 end if IF
18、isnull(ls_value) or ls_value=! or ls_value = ? THEN文档收集自网络，仅用于个人学习 ls_value = END IF ls_coltype=adw.Describe(column_name+.coltype) if pos(upper(ls_coltype),CHAR)0 then /对字符型数据处理文档收集自网络，仅用于个人学习 ole_object.cells(row,j).NumberFormat = end if ole_object.cells(row,j).Font.Bold =false ole_object.cells(row
19、,j).value = ls_value next END IF ELSE IF detailflag = 1 THEN /*-显示Detail区-*/ row = i + ll_row + ll_groupnum for j = 1 to ll_colnum column_name = ls_objsj if adw.Describe(column_name + .type) = column then文档收集自网络，仅用于个人学习 ls_value = adw.Describe(Evaluate(LookupDisplay(+column_name+),+string(i)+)文档收集自网
20、络，仅用于个人学习 end if if adw.Describe(column_name + .type) = compute then文档收集自网络，仅用于个人学习 ls_value = adw.Describe(Evaluate( + adw.Describe(column_name + .expression) + ,+string(i)+)文档收集自网络，仅用于个人学习 end if IF isnull(ls_value) or ls_value=! or ls_value = ? THEN文档收集自网络，仅用于个人学习 ls_value = END IF ls_coltype=adw
21、.Describe(column_name+.coltype) if pos(upper(ls_coltype),CHAR)0 then /对字符型数据处理文档收集自网络，仅用于个人学习 ole_object.cells(row,j).NumberFormat = end if ole_object.cells(row,j).Font.Bold =false ole_object.cells(row,j).value = ls_value next END IF END IF NEXT ll_sumrow = i*detailflag + ll_row + ll_groupnum IF gro
22、upflag = 1 THEN row = i*detailflag + ll_row + ll_groupnum ll_sumrow+ for j = 1 to ll_colnum column_name = ls_objsj+_c ls_value = adw.Describe(Evaluate( + adw.Describe(column_name + .expression) + ,+string(li_grouprow)+)文档收集自网络，仅用于个人学习 ls_coltype=adw.Describe(column_name+.coltype) IF isnull(ls_value)
23、 or ls_value=! or ls_value = ? THEN文档收集自网络，仅用于个人学习 ls_value = END IF if pos(upper(ls_coltype),CHAR)0 then /对字符型数据处理文档收集自网络，仅用于个人学习 ole_object.cells(row,j).NumberFormat = end if ole_object.cells(row,j).Font.Bold =true ole_object.cells(row,j).value = ls_value next END IFELSE /*-没有分组-*/ FOR i = 1 TO ad
24、w.rowcount() for j = 1 to ll_colnum column_name = ls_objsj if adw.Describe(column_name + .type) = column then文档收集自网络，仅用于个人学习 ls_value = adw.Describe(Evaluate(LookupDisplay(+column_name+),+string(i)+)文档收集自网络，仅用于个人学习 end if if adw.Describe(column_name + .type) = compute then文档收集自网络，仅用于个人学习 ls_value =
25、adw.Describe(Evaluate( + adw.Describe(column_name + .expression) + ,+string(i)+)文档收集自网络，仅用于个人学习 end if IF isnull(ls_value) or ls_value=! or ls_value = ? THEN文档收集自网络，仅用于个人学习 ls_value = END IF ls_coltype=adw.Describe(column_name+.coltype) if pos(upper(ls_coltype),CHAR)0 then /对字符型数据处理文档收集自网络，仅用于个人学习 o
26、le_object.cells(ll_row+i,j).NumberFormat = end if ole_object.cells(ll_row+i,j).Font.Bold =false ole_object.cells(ll_row+i,j).value = ls_value next NEXT ll_sumrow = ll_row + iEND IFIF sumflag = 1 THEN for j = 1 to ll_colnum column_name = ls_objsj+_sum ls_value = adw.Describe(Evaluate( + adw.Describe(
27、column_name + .expression) + ,+string(1)+)文档收集自网络，仅用于个人学习 ls_coltype=adw.Describe(column_name+.coltype) IF isnull(ls_value) or ls_value=! or ls_value = ? THEN文档收集自网络，仅用于个人学习 ls_value = END IF if pos(upper(ls_coltype),CHAR)0 then /对字符型数据处理文档收集自网络，仅用于个人学习 ole_object.cells(ll_sumrow,j).NumberFormat = e
28、nd if ole_object.cells(ll_sumrow,j).Font.Bold =true ole_object.cells(ll_sumrow,j).value = ls_value nextEND IF五设计描述 该系统通过设定用户地权限来实现系统地综合管理，从而保证了数据地安全性，便于统一管理，简化了数据，减少了数据维护成本.设计接口来实现系统地开发管理，使系统结构更加清晰，便于使用过程中地维护和对系统功能进行升级.清晰地模块划分，使软件项目管理过程更加方便，节约了开发成本，并且方便软件地测试，降低了开发风险，实现了该系统自顶向下、逐步细化地设计思想.文档收集自网络，仅用于个
29、人学习版权申明本文部分内容，包括文字、图片、以及设计等在网上搜集整理。版权为张俭个人所有This article includes some parts, including text, pictures, and design. Copyright is Zhang Jians personal ownership.用户可将本文的内容或服务用于个人学习、研究或欣赏，以及其他非商业性或非盈利性用途，但同时应遵守著作权法及其他相关法律的规定，不得侵犯本网站及相关权利人的合法权利。除此以外，将本文任何内容或服务用于其他用途时，须征得本人及相关权利人的书面许可，并支付报酬。Users may use the contents or services of this article for personal
