毕业设计代码.docx

1、毕业设计代码*&-*&ReportZZPXYLBS_LOGIN*&*&-*&*&*&-*reportzzpxylbs_login.data:ok_codetypesy-ucomm,save_oktypesy-ucomm.datainit.datacontainertypereftocl_gui_custom_container.datapicturetypereftocl_gui_picture.data:itabtypezzyltestoccurs0withheaderline.data:gt_qjitabtypezzyltestqjoccurs0withheaderline,gt_qjit

2、abltypezzyltestqj.data:gt_ccitabtypezzyltestccoccurs0withheaderline,gt_ccitabltypezzyltestcc.data:gt_pxitabtypezyltrainoccurs0withheaderline,gt_pxitabltypezyltrain.data:tid(20)typec,tpass(20)typec,judgetypeivalue1.data:mpost(10)typec,mapart(10)typec,nowdatetypesy-datum,enddatetypesy-datum.data:gtlin

3、etypezzyltestqjloccurs0withheaderline,gtlinecctypezzyltestccloccurs0withheaderline,gtlinepxtypezyltrainloccurs0withheaderline.start-of-selection.callscreen100.*-*MODULEstatus_0100OUTPUT*-*-*modulestatus_0100output.nowdate=sy-datum.select*intocorrespondingfieldsoftableitabfromzzyltest.select*fromzzyl

4、testqjintocorrespondingfieldsoftablegt_qjitab.setpf-statusGUI.loopatitabwhereqjing=Xorpxing=Xorccing=X.ifitab-qjing=X.select*fromzzyltestqjintocorrespondingfieldsoftablegt_qjitabwhereu_id=itab-u_id.loopatgt_qjitab.enddate=gt_qjitab-bdate+gt_qjitab-dayn.ifnowdateenddate.clear:gtline,gtline.move-corre

5、spondinggt_qjitabtogtline.appendgtline.insertzzyltestqjlfromtablegtline.updatezzyltestsetqjing=whereu_id=gt_qjitab-u_id.deletefromzzyltestqjwhereu_id=gt_qjitab-u_id.endif.endloop.endif.ifitab-ccing=X.select*fromzzyltestccintocorrespondingfieldsoftablegt_ccitabwhereu_id=itab-u_id.loopatgt_ccitab.endd

6、ate=gt_ccitab-edate.ifnowdateenddate.clear:gtlinecc,gtlinecc.move-correspondinggt_ccitabtogtlinecc.appendgtlinecc.insertzzyltestcclfromtablegtlinecc.updatezzyltestsetccing=whereu_id=gt_ccitab-u_id.deletefromzzyltestccwhereu_id=gt_ccitab-u_id.endif.endloop.endif.ifitab-pxing=X.select*fromzyltraininto

7、correspondingfieldsoftablegt_pxitabwhereu_id=itab-u_id.loopatgt_pxitab.enddate=gt_pxitab-bdate.ifnowdateenddate.clear:gtlinepx,gtlinepx.move-correspondinggt_pxitabtogtlinepx.appendgtlinepx.insertzyltrainlfromtablegtlinepx.updatezzyltestsetpxing=whereu_id=gt_pxitab-u_id.deletefromzyltrainwhereu_id=gt

8、_pxitab-u_id.endif.endloop.endif.endloop.ifinitisinitial.*图片地址字段定义dataurl(255).clearurl.*创建对象createobjectcontainerexportingcontainer_name=CC.createobjectpictureexportingparent=containerexceptionserror=1.ifsy-subrcne0.endif.*定义通用函数取得图片地址performload_pic_from_dbchangingurl.*显示图片callmethodpicture-load_p

9、icture_from_urlexportingurl=url.clearurl.ifsy-subrcne0.endif.*置标志位已初始init=X.endif.endmodule.status_0100OUTPUT*-*MODULEuser_command_0100INPUT*-*-*moduleuser_command_0100input.save_ok=ok_code.clearok_code.casesave_ok.whenM01.callscreen100.whenM02.callscreen101.whenM03.leaveprogram.when&BACK.leaveprogr

10、am.when&EXIT.leaveprogram.whenBTSURE.loopatitab.ifitab-u_id=tidanditab-passw=tpass.judge=3.mpost=itab-post.mapart=itab-apart.exit.endif.endloop.ifjudge=3.judge=1.ifmapart=I.message登陆成功！typeS.tpass=.setparameteridapartfieldmapart.setparameterididfieldtid.calltransactionZYL_MANAGER.elseifHcompost.setp

11、arameteridapartfieldmapart.setparameterididfieldtid.calltransactionZZPXYLBS_BOSS.tpass=.message登陆成功！typeS.elseifMAXeqtid.calltransactionZYL_ZJL.tpass=.message登陆成功！typeS.else.setparameteridapartfieldmapart.setparameterididfieldtid.calltransactionZYL_USER.tpass=.message登陆成功！typeS.endif.else.tpass=.mes

12、sage用户名或密码错误！typeE.endif.whenBTCANCEL.leaveprogram.whenothers.endcase.endmodule.user_command_0100INPUT*&-*&Formload_pic_from_db*&-*text*-*-P_URLtext*-*formload_pic_from_dbchangingp_url.dataquery_tablelikew3queryoccurs1withheaderline.datahtml_tablelikew3htmloccurs1.datareturn_codelikew3param-ret_code

13、.datacontent_typelikew3param-cont_type.datacontent_lengthlikew3param-cont_len.datapic_datalikew3mimeoccurs0.datapic_sizetypei.refreshquery_table.*查询对象数据query_table-name=_OBJECT_ID.*图片对象名称query_table-value=YL.QUERY_TABLE-VALUE=C:Userstest.gif.appendquery_table.*读取WWWDATA表,取得图片对象信息callfunctionWWW_GET_

14、MIME_OBJECTtablesquery_string=query_tablehtml=html_tablemime=pic_datachangingreturn_code=return_codecontent_type=content_typecontent_length=content_lengthexceptionsobject_not_found=1parameter_not_found=2others=3.ifsy-subrc=0.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY

15、-MSGV4.pic_size=content_length.endif.*创建图片URL地址callfunctionDP_CREATE_URLexportingtype=IMAGEsubtype=cndp_sap_tab_unknownsize=pic_size*DATE=*TIME=*DESCRIPTION=lifetime=cndp_lifetime_transaction*CACHEABLE=tablesdata=pic_data*FIELDS=*PROPERTIES=changingurl=urlexceptionsdp_invalid_parameter=1dp_error_put

16、_table=2dp_error_general=3others=4.ifsy-subrc0.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.endif.endform.load_pic_from_db*-*MODULEstatus_0101OUTPUT*-*-*modulestatus_0101output.setpf-statusGUI.endmodule.status_0101OUTPUT*-*MODULEuser_command_0101INPUT*-*-*moduleu

17、ser_command_0101input.save_ok=ok_code.clearok_code.casesave_ok.whenM01.callscreen100.whenM02.callscreen101.whenM03.leaveprogram.when&BACK.leaveprogram.when&EXIT.leaveprogram.endcase.endmodule.user_command_0101INPUT*&-*&ReportZZPXYLBS_LOGIN*&*&-*&*&*&-*reportzzpxylbs_login.data:ok_codetypesy-ucomm,sa

18、ve_oktypesy-ucomm.datainit.datacontainertypereftocl_gui_custom_container.datapicturetypereftocl_gui_picture.data:itabtypezzyltestoccurs0withheaderline.data:gt_qjitabtypezzyltestqjoccurs0withheaderline,gt_qjitabltypezzyltestqj.data:gt_ccitabtypezzyltestccoccurs0withheaderline,gt_ccitabltypezzyltestcc.data:g