abap航班管理信息系統(tǒng)

1、ABAP課程設(shè)計(jì)航班管理信息系統(tǒng) 課 程 設(shè) 計(jì) 任 務(wù) 書一、 軟件特色本系統(tǒng)為abap語(yǔ)言開發(fā)的航班管理信息系統(tǒng)，面對(duì)日益繁榮的航班運(yùn)行，我們根據(jù)管理員的需求，設(shè)計(jì)了這個(gè)系統(tǒng)。針對(duì)航班行業(yè)，實(shí)現(xiàn)對(duì)航班的多方面信息查詢，實(shí)現(xiàn)對(duì)航班信息的隨時(shí)修改更新。充分從管理員自身的角度出發(fā)，完善航班信息需求，促進(jìn)航班行業(yè)的發(fā)展。二、 設(shè)計(jì)原始資料1. 管理信息系統(tǒng)2. ERP三、人員分工（組長(zhǎng)）：系統(tǒng)分析；系統(tǒng)構(gòu)思；修改模塊、更新模塊、alv系統(tǒng)分析；信息查詢模塊；界面設(shè)計(jì)系統(tǒng)分析；信息顯示模塊；界面設(shè)計(jì)四、主要參考資料1武俊良管理信息系統(tǒng)(MIS)開發(fā)與應(yīng)用2王守蕊管理信息系統(tǒng)的分析與設(shè)計(jì)3ERP課件4

2、ABAP編程實(shí)例成 績(jī) 評(píng) 定 表作品成績(jī)報(bào)告成績(jī)口試（答辯）成績(jī)總評(píng)成績(jī)目 錄摘 要21 前言32 需求分析32.1 整體分析32作品展示42.1系統(tǒng)界面42.2 登陸界面42.3主界面62.3修改界面11修改前13修改后132.3 顯示界面142.4 刪除界面16ALV21ALV更新222.5 查詢界面22進(jìn)行查詢243 體會(huì)254 參考文獻(xiàn)25摘 要近些年來(lái)，我國(guó)民航事業(yè)取得了飛速的發(fā)展，與此同時(shí)計(jì)算機(jī)軟件技術(shù)、數(shù)據(jù)庫(kù)技術(shù)、信息技術(shù)也取得到了長(zhǎng)足的發(fā)展與廣泛的應(yīng)用。技術(shù)的進(jìn)步一方面提高了機(jī)場(chǎng)信息化的要求、另外一方面也使得企業(yè)信息化的環(huán)境日益復(fù)雜。本次的系統(tǒng)作業(yè)就是應(yīng)對(duì)于機(jī)場(chǎng)信息化要求，探

3、討了在機(jī)場(chǎng)復(fù)雜的信息化環(huán)境下的航班信息管理系統(tǒng)的方法與過(guò)程。一個(gè)機(jī)場(chǎng)的航班信息，就是這個(gè)機(jī)場(chǎng)運(yùn)營(yíng)的所有航班的實(shí)時(shí)信息，它們?yōu)槁每偷菣C(jī)轉(zhuǎn)機(jī)、親友接機(jī)和各類人員工作提供了必不可少的服務(wù)。而我設(shè)計(jì)的機(jī)場(chǎng)航班管理系統(tǒng)就是用于管理機(jī)場(chǎng)航班信息的。一個(gè)好的航班管理系統(tǒng)必須能夠合理的規(guī)劃航班信息，為高效有序地管理組織機(jī)場(chǎng)的生產(chǎn)與服務(wù),有效提高機(jī)場(chǎng)的運(yùn)營(yíng)效率及服務(wù)質(zhì)量,提高機(jī)場(chǎng)的贏利與競(jìng)爭(zhēng)水平,以保證為旅客、航空公司以及機(jī)場(chǎng)自身的業(yè)務(wù)管理提供一致、及時(shí)、準(zhǔn)確、系統(tǒng)、完整的信息服務(wù)功能。關(guān)鍵字：管理信息、ABAP、航班1 前言近年來(lái)隨著人們生活水平的提高，出外旅行的人越來(lái)越多，而飛機(jī)以其舒適、便捷的優(yōu)點(diǎn)開始成為

4、越來(lái)越多旅客的選擇。隨著乘機(jī)人員的越來(lái)越多，一個(gè)好的機(jī)場(chǎng)信息管理系統(tǒng)變得越來(lái)越重要。我設(shè)計(jì)的航班信息管理系統(tǒng)，可以為高效有序地管理組織機(jī)場(chǎng)的生產(chǎn)與服務(wù),有效提高機(jī)場(chǎng)的運(yùn)營(yíng)效率及服務(wù)質(zhì)量,提高機(jī)場(chǎng)的贏利與競(jìng)爭(zhēng)水平,以保證為旅客、航空公司以及機(jī)場(chǎng)自身的業(yè)務(wù)管理提供一致、及時(shí)、準(zhǔn)確、系統(tǒng)、完整的信息服務(wù)功能。飛機(jī)航班信息管理系統(tǒng)主要由前臺(tái)管理子系統(tǒng)、后臺(tái)管理子系統(tǒng)、航班信息顯示子系統(tǒng)、數(shù)據(jù)庫(kù)維護(hù)子系統(tǒng)、常用報(bào)表生成子系統(tǒng)等五個(gè)子系統(tǒng)組成。開發(fā)工具：SAP系統(tǒng) 語(yǔ)言：ABAP語(yǔ)言2 需求分析2.1 整體分析 當(dāng)前企業(yè)競(jìng)爭(zhēng)日趨激烈，管理現(xiàn)代化和技術(shù)創(chuàng)新是改造傳統(tǒng)產(chǎn)業(yè)、增強(qiáng)市場(chǎng)競(jìng)爭(zhēng)能力的主要手段。電子信息

5、技術(shù)發(fā)展日新月異，信息技術(shù)應(yīng)用和信息資源開發(fā)利用以驚人的速度向更廣、更深的層次發(fā)展，事實(shí)表明，信息技術(shù)革命有力地促進(jìn)了技術(shù)創(chuàng)新和經(jīng)濟(jì)發(fā)展，信息技術(shù)與管理科學(xué)的結(jié)合促成了管理信息系統(tǒng)(MIS，Management Information System)的產(chǎn)生及其技術(shù)的快速發(fā)展。信息技術(shù)已廣泛應(yīng)用于各行各業(yè)，而管理信息系統(tǒng)已成為信息化建設(shè)中的重要內(nèi)容。機(jī)場(chǎng)服務(wù)是一個(gè)技術(shù)與資金密集、業(yè)務(wù)復(fù)雜、發(fā)展迅速、對(duì)安全和服務(wù)要求極高的行業(yè)。機(jī)場(chǎng)是一個(gè)國(guó)家和城市最重要的窗口,直接體現(xiàn)著該地區(qū)的經(jīng)濟(jì)發(fā)展以及現(xiàn)代化程度,它猶如一臺(tái)龐大的機(jī)器,如何能使它正常運(yùn)轉(zhuǎn)和保持經(jīng)濟(jì)效益的遞增,其管理手段和管理水平起到了至關(guān)重要

6、的作用。隨著民航業(yè)務(wù)的高速發(fā)展,各機(jī)場(chǎng)的業(yè)務(wù)量不斷擴(kuò)大,各項(xiàng)功能服務(wù)日趨完善,信息量與日俱增,但是業(yè)務(wù)人員卻陷入繁重的手工工作,信息交流不暢通,管理決策層不能及時(shí)得到生產(chǎn)數(shù)據(jù)等,制約了機(jī)場(chǎng)改進(jìn)企業(yè)管理和提高經(jīng)濟(jì)效益。建立一套行之有效的機(jī)場(chǎng)生產(chǎn)信息管理系統(tǒng)是完善機(jī)場(chǎng)管理,使機(jī)場(chǎng)適應(yīng)競(jìng)爭(zhēng)、邁向現(xiàn)代化的重要手段。信息管理系統(tǒng)是信息技術(shù)與管理科學(xué)相結(jié)合的產(chǎn)物，它使用計(jì)算機(jī)系統(tǒng)完成輔助工作，能夠提供信息支持企業(yè)或組織的運(yùn)行、管理和決策功能，是現(xiàn)代企業(yè)管理的有力輔助工具。經(jīng)過(guò)二十多年的發(fā)展，信息管理系統(tǒng)在理論上和實(shí)際應(yīng)用中都得到了長(zhǎng)足的發(fā)展。已經(jīng)有很多成熟的信息管理系統(tǒng)在實(shí)際應(yīng)用中發(fā)揮著巨大的作用。在此背

7、景下，使用信息管理系統(tǒng)來(lái)實(shí)現(xiàn)生產(chǎn)調(diào)度室的航班管理、信息查詢及統(tǒng)計(jì)已經(jīng)具備了應(yīng)用需求上的迫切性和技術(shù)上。2作品展示2.1系統(tǒng)界面2.2 登陸界面管理員根據(jù)用戶名和密碼登陸本系統(tǒng)，進(jìn)行信息管理。登錄的代碼：邏輯流：PROCESS BEFORE OUTPUT. MODULE STATUS_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 SCREE

8、N 100.MODULE CANCEL INPUT. LEAVE PROGRAM.ENDMODULE.MODULE USER_COMMAND_0100 INPUT. SAVE_OK = OK_CODE. CLEAR OK_CODE. CASE SAVE_OK. WHEN 'TI'. SUBMIT YC2 AND RETURN. WHEN 'EXIT'. LEAVE PROGRAM. ENDCASE. ENDMODULE.2.3主界面主界面上顯示的模塊式我們經(jīng)過(guò)分析設(shè)計(jì)后決定實(shí)現(xiàn)的模塊。邏輯流：PROCESS BEFORE OUTPUT.MODULE STATUS

9、_0101.*PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND.MODULE USER_COMMAND_0101.主程序：（中間有一段插入圖片的代碼沒(méi)刪掉）REPORT YC2.DATA: OK_CODE TYPE SY-UCOMM, SAVE_OK TYPE SY-UCOMM.*定義控制和圖像對(duì)象定義DATA CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.DATA PICTURE TYPE REF TO CL_GUI_PICTURE.*初始標(biāo)志字段定義DATA INIT.CALL SCREEN 1

10、01.*&-*& Module USER_COMMAND_0100 INPUT*&-* text*-*MODULE USER_COMMAND_0101 INPUT.*用戶交互* SAVE_OK = OK_CODE.* CLEAR OK_CODE.*CASE SAVE_OK.* WHEN 'EXIT'.* LEAVE PROGRAM.* ENDCASE.*ENDMODULE. " USER_COMMAND_0100 INPUT*&-*& Module STATUS_0100 OUTPUT*&-* 定義狀態(tài)條、包括菜單、工具

11、條按鈕、系統(tǒng)按鈕等*-*MODULE STATUS_0101 OUTPUT. SET PF-STATUS 'STATUS1'.*如果還未創(chuàng)建定制對(duì)象 IF INIT IS INITIAL.*圖片地址字段定義 DATA URL(255). CLEAR URL.*創(chuàng)建對(duì)象 CREATE OBJECT CONTAINER EXPORTING CONTAINER_NAME = 'P1'. CREATE OBJECT PICTURE EXPORTING PARENT = CONTAINER EXCEPTIONS ERROR = 1. IF SY-SUBRC NE 0. E

12、NDIF.*定義通用函數(shù)取得圖片地址 PERFORM LOAD_PIC_DB CHANGING URL.*顯示圖片 CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL EXPORTING URL = URL. IF SY-SUBRC NE 0. ENDIF.*置標(biāo)志位已初始 INIT = 'X'. ENDIF.ENDMODULE. " STATUS_0101 OUTPUT*&-*& Form LOAD_PIC_DB*&-* 獲取圖片地址通用函數(shù)*-* <-P_URL text*-*FORM LOAD

13、_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 LIKE W3MIME OCCURS 0. DATA PIC_SIZE TYPE I

14、. REFRESH QUERY_TABLE.*查詢對(duì)象數(shù)據(jù) QUERY_TABLE-NAME = '_OBJECT_ID'.*圖片對(duì)象名稱 QUERY_TABLE-VALUE = 'feiji.jpg'. APPEND QUERY_TABLE.*讀取WWWDATA表，取得圖片對(duì)象信息 CALL FUNCTION 'WWW_GET_MIME_OBJECT' TABLES QUERY_STRING = QUERY_TABLE HTML = HTML_TABLE MIME = PIC_DATA CHANGING RETURN_CODE = RETURN

15、_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.*創(chuàng)建圖片URL地址 CALL FUNCTION 'DP_CREATE_URL' EXPORTING TYPE = 'image' SUBTYPE = CNDP_SAP_TAB_UNKNOWN SI

16、ZE = PIC_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 T

17、YPE SY-MSGTY NUMBER 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. WHE

18、N 'EXIT'. SUBMIT YC1 AND RETURN. WHEN '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. ENDLOO

19、P.*PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0103. LOOP WITH CONTROL TBL1. MODULE READTBL1. ENDLOOP.主程序：REPORT YODIFY.DATA: OK_CODE TYPE SY-UCOMM, SAVE_OK TYPE SY-UCOMM.*定義內(nèi)表，注意，兩種寫法一樣*DATA SP2 LIKE SPFLI OCCURS 0 WITH HEADER LINE.DATA SP2 LIKE TABLE OF SPFLI WITH HEADER

20、 LINE.*定義單結(jié)構(gòu)記錄DATA SP1 TYPE SPFLI.*增加內(nèi)表數(shù)據(jù)SELECT * INTO CORRESPONDING FIELDS OF TABLE SP2 FROM SPFLI.*直接調(diào)用窗口CALL SCREEN 103.*定義表控制對(duì)象CONTROLS TBL1 TYPE TABLEVIEW USING SCREEN 103.*輸出數(shù)據(jù)，看內(nèi)表有無(wú)改變LOOP AT SP2. WRITE: / SP2-CARRID,SP2-CONNID,SP2-COUNTRYFR,SP2-CITYFROM.ENDLOOP.MODULE STATUS_0103 OUTPUT. SET

21、PF-STATUS 'STATUS1'.ENDMODULE.MODULE USER_COMMAND_0103 INPUT. SAVE_OK = OK_CODE. CLEAR OK_CODE. CASE SAVE_OK. WHEN 'EXIT'. LEAVE TO SCREEN 0. WHEN 'FAN'. SUBMIT YC2 AND RETURN. ENDCASE.ENDMODULE.*&-*& Module FILL OUTPUT*&-* 逐行從內(nèi)表填寫表控制*-*MODULE FILLTBL1 OUTPUT. REA

22、D TABLE SP2 INTO SP1 INDEX TBL1-CURRENT_LINE.ENDMODULE.*&-*& Module READ INPUT*&-* 逐行從內(nèi)表控制更新內(nèi)表*-*MODULE READTBL1 INPUT. MODIFY SP2 FROM SP1 INDEX TBL1-CURRENT_LINE.ENDMODULE.修改前修改后在修改界面上，修改信息后，點(diǎn)擊修改按鈕，便可以將信息進(jìn)行修改更新。上面有信息修改前后的對(duì)照?qǐng)D。2.3 顯示界面信息顯示界面顯示航班的全部信息，方便隨時(shí)進(jìn)行查詢。4、 顯示界面代碼：邏輯流：PROCESS BEFORE

23、 OUTPUT. MODULE STATUS_0106.*PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0106.主程序：REPORT YC5.TABLES: SPFLI.DATA: SELA(10) TYPE C, NUM1 TYPE I.START-OF-SELECTION. SKIP.*輸出 ULINE AT /(95). WRITE: / SY-VLINE,'',SY-VLINE, (15) '航線承運(yùn)人',SY-VLINE, (15) '航班連接&#

24、39;,SY-VLINE, (15) '國(guó)家代碼',SY-VLINE, (15) '起飛城市',SY-VLINE, (15) '起飛機(jī)場(chǎng)',SY-VLINE. ULINE AT /(95).*輸出 SELECT * FROM SPFLI. WRITE: / SY-VLINE,SELA AS CHECKBOX,SY-VLINE,(15) SPFLI-CARRID, SY-VLINE, (15) SPFLI-CONNID,SY-VLINE,(15) SPFLI-COUNTRYTO, SY-VLINE, (15) SPFLI-CITYFROM,SY-V

25、LINE, (15) SPFLI-AIRPFROM,SY-VLINE.*隱藏關(guān)鍵字 HIDE: SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO, SPFLI-CITYFROM,SPFLI-AIRPFROM. ULINE AT /(95).*隱藏選擇框，使表格行不會(huì)選擇 HIDE SELA. ENDSELECT.END-OF-SELECTION. NUM1 = SY-LSIND - 1.AT LINE-SELECTION.*只輸出第一頁(yè) IF SY-LSIND = 1. DO NUM1 TIMES.*讀取行 READ LINE SY-INDEX FIELD V

26、ALUE SELA.*如果CHECKED，輸出隱含字段 IF SELA = 'X'. WRITE: / SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO, SPFLI-CITYFROM,SPFLI-AIRPFROM. ENDIF. ENDDO.2.4 刪除界面 刪除使用了alv控件。刪除界面代碼：邏輯流：PROCESS BEFORE OUTPUT. MODULE STATUS_0105.PROCESS AFTER INPUT.MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0105.主程序：

27、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 SPFLI.DATA: WA_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA', ALV_GRID TYPE REF TO CL_GUI_AL

28、V_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*-*-*CLASS LCL_EVENT_RECEIVER DEFINITION.

29、 PUBLIC SECTION. TYPES: DEL_ROWS TYPE STANDARD TABLE OF SPFLI. DATA: DDEL_ROWS TYPE STANDARD TABLE OF SPFLI. METHODS: HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID IMPORTING ER_DATA_CHANGED. METHODS: UPDATE_DELTA_TABLES IMPORTING PR_DATA_CHANGED TYPE REF TO CL_ALV_CHANGED_DATA_PROTOC

30、OL. METHODS: GET_DELETED_ROWS EXPORTING DELETED_ROWS TYPE DEL_ROWS.ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION*-* CLASS LCL_EVENT_RECEIVER IMPLEMENTATION*-*-*CLASS LCL_EVENT_RECEIVER IMPLEMENTATION. METHOD HANDLE_DATA_CHANGED. CALL METHOD UPDATE_DELTA_TABLES( ER_DATA_CHANGED ). ENDMETHOD. "HA

31、NDLE_DATA_CHANGED METHOD UPDATE_DELTA_TABLES. DATA: L_DEL_ROW TYPE LVC_S_MOCE. LOOP AT PR_DATA_CHANGED->MT_DELETED_ROWS INTO L_DEL_ROW. READ TABLE WA_SPFLI INTO LS_SPFLI INDEX L_DEL_ROW-ROW_ID. IF SY-SUBRC NE 0. MESSAGE E208(00) WITH '處理錯(cuò)誤'. ELSE. APPEND LS_SPFLI TO DDEL_ROWS. ENDIF. ENDL

32、OOP. ENDMETHOD. "update_delta_tables METHOD GET_DELETED_ROWS. DELETED_ROWS = ME->DDEL_ROWS. ENDMETHOD. "get_deleted_rowsENDCLASS. "LCL_EVENT_RECEIVER DEFINITIONSTART-OF-SELECTION. CALL SCREEN 105. WRITE / '刪除的內(nèi)表記錄'. WRITE / '_'. CALL METHOD EVENT_RECEIVER->GET_DE

33、LETED_ROWS IMPORTING DELETED_ROWS = WADEL_SPFLI. LOOP AT WADEL_SPFLI INTO SPFLI. WRITE: / SPFLI-CARRID,SPFLI-CONNID,SPFLI-CITYFROM. ENDLOOP. WRITE: / '更新后的內(nèi)表記錄：'. WRITE: / '_'. LOOP AT WA_SPFLI INTO SPFLI. WRITE : / SPFLI-CARRID,SPFLI-CONNID,SPFLI-CITYFROM. ENDLOOP.*WHEN 'SAVE

34、9;.* MODIFY SPFLI FORM TABLE WA_SPFLI.* IF SY-SUBRC NE 0.* MESSAGE I005(YMESS) WITH '更新數(shù)據(jù)錯(cuò)誤！'.* EXIT.* ELSE.* MESSAGE I005(YMESS) WITH '更新數(shù)據(jù)OK！'.* ENDIF.* DELETE SPFLI FROM TABLE DELA_SPFLI.* IF SY-SUBRC NE 0.* MESSAGE I005(YMESS) WITH '更新數(shù)據(jù)錯(cuò)誤！'.* ELSE.* MESSAGE I005(YMESS) W

35、ITH '更新數(shù)據(jù)OK！'.* ENDIF.END-OF-SELECTION.*&-*& Module STATUS_0100 OUTPUT*&-* text*-*MODULE STATUS_0105 OUTPUT. SET PF-STATUS 'STATUS1'. IF WA_CUSTOM_CONTAINER IS INITIAL. CREATE OBJECT WA_CUSTOM_CONTAINER EXPORTING CONTAINER_NAME = WA_CONTAINER. CREATE OBJECT ALV_GRID EXPOR

36、TING I_PARENT = WA_CUSTOM_CONTAINER. CREATE OBJECT EVENT_RECEIVER. SET HANDLER EVENT_RECEIVER->HANDLE_DATA_CHANGED FOR ALV_GRID. CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING I_STRUCTURE_NAME = 'SPFLI' IS_LAYOUT = WA_LAYOUT CHANGING IT_OUTTAB = WA_SPFLI. ENDIF.ENDMODULE.

37、" STATUS_0100 OUTPUT*&-*& Module USER_COMMAND_0100 INPUT*&-* text*-*MODULE USER_COMMAND_0105 INPUT. SAVE_OK = OK_CODE. CLEAR OK_CODE. CASE SAVE_OK. WHEN 'EXIT'. DATA L_RET VALUE 'X'. CALL METHOD ALV_GRID->CHECK_CHANGED_DATA IMPORTING E_VALID = L_RET. LEAVE TO SCREEN 0. WHEN 'FAN'. SUBMIT YC2 AND RETURN. ENDCASE.ENDMODULE. " USER_COMMAND_0105 INPUT主程序：ALV ALV更新2.5 查詢界面這是進(jìn)入查詢模塊后的界面，根據(jù)設(shè)計(jì)，填入前兩項(xiàng)信息，便可以查詢這個(gè)航班的更多信息。查詢界面代碼：邏輯流：PROCESS BEFORE OUTPUT.MODULE STA