abap航班管理信息系统.docx

1、abap航班管理信息系统ABAP课程设计航班管理信息系统 课 程 设 计 任 务 书一、软件特色本系统为abap语言开发的航班管理信息系统，面对日益繁荣的航班运行，我们根据管理员的需求，设计了这个系统。针对航班行业，实现对航班的多方面信息查询，实现对航班信息的随时修改更新。充分从管理员自身的角度出发，完善航班信息需求，促进航班行业的发展。二、设计原始资料1.管理信息系统2.ERP三、人员分工（组长）：系统分析；系统构思；修改模块、更新模块、alv系统分析；信息查询模块；界面设计系统分析；信息显示模块；界面设计四、主要参考资料1武俊良管理信息系统(MIS)开发与应用2王守蕊管理信息系统的分析与设

2、计3ERP课件4ABAP编程实例成 绩 评 定 表作品成绩报告成绩口试（答辩）成绩总评成绩摘 要近些年来，我国民航事业取得了飞速的发展，与此同时计算机软件技术、数据库技术、信息技术也取得到了长足的发展与广泛的应用。技术的进步一方面提高了机场信息化的要求、另外一方面也使得企业信息化的环境日益复杂。本次的系统作业就是应对于机场信息化要求，探讨了在机场复杂的信息化环境下的航班信息管理系统的方法与过程。一个机场的航班信息，就是这个机场运营的所有航班的实时信息，它们为旅客登机转机、亲友接机和各类人员工作提供了必不可少的服务。而我设计的机场航班管理系统就是用于管理机场航班信息的。一个好的航班管理系统必须能

3、够合理的规划航班信息，为高效有序地管理组织机场的生产与服务,有效提高机场的运营效率及服务质量,提高机场的赢利与竞争水平,以保证为旅客、航空公司以及机场自身的业务管理提供一致、及时、准确、系统、完整的信息服务功能。关键字：管理信息、ABAP、航班1前言近年来随着人们生活水平的提高，出外旅行的人越来越多，而飞机以其舒适、便捷的优点开始成为越来越多旅客的选择。随着乘机人员的越来越多，一个好的机场信息管理系统变得越来越重要。我设计的航班信息管理系统，可以为高效有序地管理组织机场的生产与服务,有效提高机场的运营效率及服务质量,提高机场的赢利与竞争水平,以保证为旅客、航空公司以及机场自身的业务管理提供一致

4、、及时、准确、系统、完整的信息服务功能。飞机航班信息管理系统主要由前台管理子系统、后台管理子系统、航班信息显示子系统、数据库维护子系统、常用报表生成子系统等五个子系统组成。开发工具：SAP系统 语言：ABAP语言2需求分析整体分析 当前企业竞争日趋激烈，管理现代化和技术创新是改造传统产业、增强市场竞争能力的主要手段。电子信息技术发展日新月异，信息技术应用和信息资源开发利用以惊人的速度向更广、更深的层次发展，事实表明，信息技术革命有力地促进了技术创新和经济发展，信息技术与管理科学的结合促成了管理信息系统(MIS，Management Information System)的产生及其技术的快速发展

5、。信息技术已广泛应用于各行各业，而管理信息系统已成为信息化建设中的重要内容。机场服务是一个技术与资金密集、业务复杂、发展迅速、对安全和服务要求极高的行业。机场是一个国家和城市最重要的窗口,直接体现着该地区的经济发展以及现代化程度,它犹如一台庞大的机器,如何能使它正常运转和保持经济效益的递增,其管理手段和管理水平起到了至关重要的作用。随着民航业务的高速发展,各机场的业务量不断扩大,各项功能服务日趋完善,信息量与日俱增,但是业务人员却陷入繁重的手工工作,信息交流不畅通,管理决策层不能及时得到生产数据等,制约了机场改进企业管理和提高经济效益。建立一套行之有效的机场生产信息管理系统是完善机场管理,使机

6、场适应竞争、迈向现代化的重要手段。信息管理系统是信息技术与管理科学相结合的产物，它使用计算机系统完成辅助工作，能够提供信息支持企业或组织的运行、管理和决策功能，是现代企业管理的有力辅助工具。经过二十多年的发展，信息管理系统在理论上和实际应用中都得到了长足的发展。已经有很多成熟的信息管理系统在实际应用中发挥着巨大的作用。在此背景下，使用信息管理系统来实现生产调度室的航班管理、信息查询及统计已经具备了应用需求上的迫切性和技术上。2作品展示2.1系统界面登陆界面管理员根据用户名和密码登陆本系统，进行信息管理。登录的代码：逻辑流：PROCESS BEFORE OUTPUT. MODULE STATUS

7、_0100.*PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0100.主程序：REPORT YC1.DATA: OK_CODE TYPE SY-UCOMM, SAVE_OK TYPE SY-UCOMM.CALL SCREEN 100.MODULE CANCEL INPUT. LEAVE PROGRAM.ENDMODULE.MODULE USER_COMMAND_0100 INPUT. SAVE_OK = OK_CODE. CLEAR OK_CODE. CASE SAVE_OK. WHEN TI. S

8、UBMIT YC2 AND RETURN. WHEN EXIT. LEAVE PROGRAM. ENDCASE. ENDMODULE.2.3主界面主界面上显示的模块式我们经过分析设计后决定实现的模块。逻辑流：PROCESS BEFORE OUTPUT.MODULE STATUS_0101.*PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND.MODULE USER_COMMAND_0101.主程序：（中间有一段插入图片的代码没删掉）REPORT YC2.DATA: OK_CODE TYPE SY-UCOMM, SAVE_OK TYPE SY-UC

9、OMM.*定义控制和图像对象定义DATA CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.DATA PICTURE TYPE REF TO CL_GUI_PICTURE.*初始标志字段定义DATA INIT.CALL SCREEN 101.*&-*& Module USER_COMMAND_0100 INPUT*&-* text*-*MODULE USER_COMMAND_0101 INPUT.*用户交互* SAVE_OK = OK_CODE.* CLEAR OK_CODE.*CASE SAVE_OK.* WHEN EXIT.* LEAVE PROG

10、RAM.* ENDCASE.*ENDMODULE. USER_COMMAND_0100 INPUT*&-*& Module STATUS_0100 OUTPUT*&-* 定义状态条、包括菜单、工具条按钮、系统按钮等*-*MODULE STATUS_0101 OUTPUT. SET PF-STATUS STATUS1.*如果还未创建定制对象 IF INIT IS INITIAL.*图片地址字段定义 DATA URL(255). CLEAR URL.*创建对象 CREATE OBJECT CONTAINER EXPORTING CONTAINER_NAME = P1. CREATE OBJECT

11、PICTURE EXPORTING PARENT = CONTAINER EXCEPTIONS ERROR = 1. IF SY-SUBRC NE 0. ENDIF.*定义通用函数取得图片地址 PERFORM LOAD_PIC_DB CHANGING URL.*显示图片 CALL METHOD PICTURE-LOAD_PICTURE_FROM_URL EXPORTING URL = URL. IF SY-SUBRC NE 0. ENDIF.*置标志位已初始 INIT = X. ENDIF.ENDMODULE. STATUS_0101 OUTPUT*&-*& Form LOAD_PIC_DB*

12、&-* 获取图片地址通用函数*-* -P_URL text*-*FORM LOAD_PIC_DB CHANGING P_URL. DATA QUERY_TABLE LIKE W3QUERY OCCURS 1 WITH HEADER LINE. DATA HTML_TABLE LIKE W3HTML OCCURS 1. DATA RETURN_CODE LIKE W3PARAM-RET_CODE. DATA CONTENT_TYPE LIKE W3PARAM-CONT_TYPE. DATA CONTENT_LENGTH LIKE W3PARAM-CONT_LEN. DATA PIC_DATA L

13、IKE W3MIME OCCURS 0. DATA PIC_SIZE TYPE I. REFRESH QUERY_TABLE.*查询对象数据 QUERY_TABLE-NAME = _OBJECT_ID.*图片对象名称 QUERY_TABLE-VALUE = feiji.jpg. APPEND QUERY_TABLE.*读取WWWDATA表，取得图片对象信息 CALL FUNCTION WWW_GET_MIME_OBJECT TABLES QUERY_STRING = QUERY_TABLE HTML = HTML_TABLE MIME = PIC_DATA CHANGING RETURN_CO

14、DE = RETURN_CODE CONTENT_TYPE = CONTENT_TYPE CONTENT_LENGTH = CONTENT_LENGTH EXCEPTIONS OBJECT_NOT_FOUND = 1 PARAMETER_NOT_FOUND = 2 OTHERS = 3. IF SY-SUBRC EQ 0. PIC_SIZE = CONTENT_LENGTH. ENDIF.*创建图片URL地址 CALL FUNCTION DP_CREATE_URL EXPORTING TYPE = image SUBTYPE = CNDP_SAP_TAB_UNKNOWN SIZE = PIC_

15、SIZE* DATE =* TIME =* DESCRIPTION = LIFETIME = CNDP_LIFETIME_TRANSACTION* CACHEABLE = TABLES DATA = PIC_DATA* FIELDS =* PROPERTIES = CHANGING URL = URL EXCEPTIONS DP_INVALID_PARAMETER = 1 DP_ERROR_PUT_TABLE = 2 DP_ERROR_GENERAL = 3 OTHERS = 4 . IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBE

16、R SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.ENDFORM. LOAD_PIC_DB*CALL SCREEN 0101.*MODULE CANCEL INPUT.* LEAVE PROGRAM.*ENDMODULE.MODULE USER_COMMAND_0101 INPUT. SAVE_OK = OK_CODE. CLEAR OK_CODE. CASE SAVE_OK. WHEN XIU. SUBMIT YODIFY AND RETURN. WHEN EXIT. SUBMIT YC1 AND RETURN. WHEN

17、 SHAN. SUBMIT YCE4 AND RETURN. WHEN CHA. SUBMIT YC3 AND RETURN. WHEN XIAN. SUBMIT YC5 AND RETURN. ENDCASE. ENDMODULE.2.3修改界面修改界面代码：逻辑流：PROCESS BEFORE OUTPUT. MODULE STATUS_0103. LOOP WITH CONTROL TBL1. MODULE FILLTBL1. ENDLOOP.*PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0

18、103. LOOP WITH CONTROL TBL1. MODULE READTBL1. ENDLOOP.主程序：REPORT YODIFY.DATA: OK_CODE TYPE SY-UCOMM, SAVE_OK TYPE SY-UCOMM.*定义内表，注意，两种写法一样*DATA SP2 LIKE SPFLI OCCURS 0 WITH HEADER LINE.DATA SP2 LIKE TABLE OF SPFLI WITH HEADER LINE.*定义单结构记录DATA SP1 TYPE SPFLI.*增加内表数据SELECT * INTO CORRESPONDING FIELDS

19、 OF TABLE SP2 FROM SPFLI.*直接调用窗口CALL SCREEN 103.*定义表控制对象CONTROLS TBL1 TYPE TABLEVIEW USING SCREEN 103.*输出数据，看内表有无改变LOOP AT SP2. WRITE: / SP2-CARRID,SP2-CONNID,SP2-COUNTRYFR,SP2-CITYFROM.ENDLOOP.MODULE STATUS_0103 OUTPUT. SET PF-STATUS STATUS1.ENDMODULE.MODULE USER_COMMAND_0103 INPUT. SAVE_OK = OK_CO

20、DE. CLEAR OK_CODE. CASE SAVE_OK. WHEN EXIT. LEAVE TO SCREEN 0. WHEN FAN. SUBMIT YC2 AND RETURN. ENDCASE.ENDMODULE.*&-*& Module FILL OUTPUT*&-* 逐行从内表填写表控制*-*MODULE FILLTBL1 OUTPUT. READ TABLE SP2 INTO SP1 INDEX TBL1-CURRENT_LINE.ENDMODULE.*&-*& Module READ INPUT*&-* 逐行从内表控制更新内表*-*MODULE READTBL1 INPU

21、T. MODIFY SP2 FROM SP1 INDEX TBL1-CURRENT_LINE.ENDMODULE.修改前修改后在修改界面上，修改信息后，点击修改按钮，便可以将信息进行修改更新。上面有信息修改前后的对照图。显示界面信息显示界面显示航班的全部信息，方便随时进行查询。4、显示界面代码：逻辑流：PROCESS BEFORE OUTPUT. MODULE STATUS_0106.*PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0106.主程序：REPORT YC5.TABLES: SPFLI.

22、DATA: SELA(10) TYPE C, NUM1 TYPE I.START-OF-SELECTION. SKIP.*输出 ULINE AT /(95). WRITE: / SY-VLINE,SY-VLINE, (15) 航线承运人,SY-VLINE, (15) 航班连接,SY-VLINE, (15) 国家代码,SY-VLINE, (15) 起飞城市,SY-VLINE, (15) 起飞机场,SY-VLINE. ULINE AT /(95).*输出 SELECT * FROM SPFLI. WRITE: / SY-VLINE,SELA AS CHECKBOX,SY-VLINE,(15) SP

23、FLI-CARRID, SY-VLINE, (15) SPFLI-CONNID,SY-VLINE,(15) SPFLI-COUNTRYTO, SY-VLINE, (15) SPFLI-CITYFROM,SY-VLINE, (15) SPFLI-AIRPFROM,SY-VLINE.*隐藏关键字 HIDE: SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO, SPFLI-CITYFROM,SPFLI-AIRPFROM. ULINE AT /(95).*隐藏选择框，使表格行不会选择 HIDE SELA. ENDSELECT.END-OF-SELECTION. NUM

24、1 = SY-LSIND - 1.AT LINE-SELECTION.*只输出第一页 IF SY-LSIND = 1. DO NUM1 TIMES.*读取行 READ LINE SY-INDEX FIELD VALUE SELA.*如果CHECKED，输出隐含字段 IF SELA = X. WRITE: / SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO, SPFLI-CITYFROM,SPFLI-AIRPFROM. ENDIF. ENDDO.删除界面 删除使用了alv控件。删除界面代码：逻辑流：PROCESS BEFORE OUTPUT. MODULE S

25、TATUS_0105.PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0105.主程序：REPORT YCE4.DATA: OK_CODE TYPE SY-UCOMM, SAVE_OK TYPE SY-UCOMM.TABLES SPFLI.DATA LS_SPFLI TYPE SPFLI.DATA WA_SPFLI TYPE TABLE OF SPFLI.DATA WADEL_SPFLI TYPE TABLE OF SPFLI.SELECT * INTO TABLE WA_SPFLI FROM SPF

26、LI.DATA: WA_CONTAINER TYPE SCRFNAME VALUE ALVDATA, ALV_GRID TYPE REF TO CL_GUI_ALV_GRID, WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.DATA WA_LAYOUT TYPE LVC_S_LAYO.WA_LAYOUT-EDIT = X.CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.DATA EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.*-* CLASS lcl_event_receiver DEFINITION*-*-