ABAP实验报告.docx
- 文档编号:10460668
- 上传时间:2023-02-13
- 格式:DOCX
- 页数:24
- 大小:341.21KB
ABAP实验报告.docx
《ABAP实验报告.docx》由会员分享,可在线阅读,更多相关《ABAP实验报告.docx(24页珍藏版)》请在冰豆网上搜索。
ABAP实验报告
《SAPR/3开发课程》结课报告
——航空售票系统
专业:
姓名:
学号:
《SAPR/3开发课程》结课报告
——航空售票系统
专业:
学号:
姓名:
组名:
包名:
Z12XX_PK_1101
小组成员:
学号
姓名
主要分工
个人贡献权重
个人成绩
主要负责系统的代码开发及编写、系统测试、文档撰写等
25%
主要负责系统的代码开发及编写、系统测试、文档撰写等
25%
主要负责系统的代码编写、系统测试、帮助撰写文档
25%
主要负责系统的代码编写、系统测试、帮助撰写文档
25%
填表要求:
1.根据个人表现由任课教师给定单个成绩;
2.个人成绩计算公式:
个人成绩=项目组成绩×个人贡献权重/项目组个人最高贡献权重
3.小组成员个人贡献权重总和为100%,数据精确到个位。
2015年1月
目录
1.绪论2
2.需求分析2
2.1系统物理设计阶段3
2.1.1订票系统表3
2.1.2航空公司信息表:
3
2.1.3飞行航线信息表:
3
2.1.4航班信息表:
4
3.系统设计4
3.1订票系统表4
3.2航空公司信息表:
5
3.3飞行航线信息表:
5
3.4航班信息表:
6
4.系统实现6
4.1系统界面7
4.1.1功能模块选择界面7
4.1.2各功能模块功能实现界面7
4.2代码设计11
4.2.1订票系统维护代码11
4.2.2飞行航线系统维护代码13
4.2.3航班时间维护代码15
4.2.4航空公司信息维护代码17
5.测试及结论19
1.绪论
本技术小组根据需求参考企业实际情况,制定出了一套新的航空系统设计实施方案,应用SAP软件针对航空航天行业管理的要求与变化,并且运用APAB语言进行编写,在前系统的研究基础上开发了一个新的系统,这个系统总结了之前系统的不足和缺陷,咨询考察客户的新需求并且得到解决,创新并完善了航空系统,且融合了科学的管理模式和先进的IT技术以及其它行业用户成熟的实践经验。
这个新系统能够帮助企业有效地控制成本、提高服务质量,节约人力、物力等资源,加快对市场的反映速度,从而提高为客户服务的水平。
本航空订票管理系统提供了订票系统,查询系统、增加客户系统和删除客户信息系统。
面对各种不同种类的信息,有合理的数据库结构来保存数据信息以及有效的程序结构支持各种数据操作的执行。
而且这个系统在界面上对用户十分友好,图标与图形符号简化了人机交互时的操作,统一设计的用户界面确保了工作人员能够运用同样的熟悉的技术从事不同的工作,并支持多种语言,可以灵活地适应各地客户的使用。
2.需求分析
本系统提供了订票系统,查询系统、增加客户系统和删除客户信息系统管理。
面对各种不同种类的信息,有合理的数据库结构来保存数据信息以及有效的程序结构支持各种数据操作的执行。
而且这个系统在界面上对用户十分友好,图标与图形符号简化了人机交互时的操作,统一设计的用户界面确保了工作人员能够运用同样的熟悉的技术从事不同的工作,并支持多种语言,可以灵活地适应客户的使用。
2.1系统物理设计阶段
2.1.1订票系统表
订票系统表结构如下:
表2.1-1
2.1.2航空公司信息表:
航空公司信息表的表结构如下:
表2.1-2
2.1.3飞行航线信息表:
飞行航线信息表的表结构如下:
表2.2-3
2.1.4航班信息表:
航班信息表的表结构如下:
表2.2-4
在航空信息管理系统中,首先用户可以根据事先设定好的自己的查询系统,在查询系统界面会显示四个不同的信息表可供选择,其中包括:
订票系统表,航空公司信息表,飞行航线信息表,航班信息表进入某个特定的功能后,输入相应的信息后可进行增删改查的功能。
3.系统设计
这个模块可以实现航空与客户两种不同角色的用户登录。
客户根据自己的需求对航空的订票系统进行订票,同时也可以进行查询。
航空公司在此时也可以跟新系统的订票系统,航班时间,飞行航线系统和航空公司信息系统进行修改的物理结构设计,对SAP系统开发环境下用ABAP进行系统内部表的设计。
3.1订票系统表
订票系统表在系统中的实现如下
表3.1-1
3.2航空公司信息表:
航空公司信息表信息表在系统中的实现如下图:
表3.2-1
3.3飞行航线信息表:
飞行航线信息表在系统中的实现如下图:
图3.3-1
3.4航班信息表:
航班信息表在系统中的实现如下图:
图3.4-1
4.系统实现
系统实现将描述系统的实现方法,其中包括各个功能界面是如何实现的、业务逻辑在各个功能模块下的实现和代码设计等。
4.1系统界面
系统界面主要分为二大部分,功能模块选择界面和各功能模块功能实现界面。
4.1.1功能模块选择界面
功能模块选择界面是用户选择对系统的哪项功能进行具体的操作,根据客户需求作出不同的选择界面。
客户进入后有订票系统,航班时间,飞行航线系统和航空公司信息系统等四大系统
图4.1.1-1
4.1.2各功能模块功能实现界面
功能模块选择界面成功后,用户会进入相应的维护界面,订票系统,飞行航线系统,航班时间,航空公司信息。
各个界面的实现如下:
Ø订票系统信息维护界面
图4.1.2-1
图4.1.2-2
Ø飞行航线系统:
图4.1.2-3
图4.1.2-4
Ø航班时间:
图4.1.2-5
图4.1.2-6
Ø航空公司信息:
图4.1.2-7
图4.1.2-8
4.2代码设计
代码设计阶段主要是对系统各个界面所要实现的功能进行相应的代码设计,其中包括:
功能模块选择代码设计、用户信息维护代码设计、订票系统维护代码设计、飞行航线系统维护代码、航班时间维护代码、航空公司信息维护代码设计、
4.2.1订票系统维护代码
订票系统维护功能的代码设计包括:
定义航空公司,航线编码,订票数,飞行时间,顾客编码的所有字段,将页面所填信息与订票系统信息表的字段相对应,实现对航班订票信息的增删改查等功能。
REPORTZ12XX_SB00K_11.
tablesZ12XX_SBOOK_11.
dataok_codelikesy-ucomm.
datawa_Z12XX_SBOOK_11typeZ12XX_SBOOK_11.
WRITE:
AT10(8)'航空公司',AT20(10)'航线编码',AT
30(10)'订票数',AT50(10)'日期',AT70(8)'乘客编号',AT100
(1)'吸烟'.
ULINE.
START-OF-SELECTION.
SELECT*FROMZ12XX_SBOOK_11INTOZ12XX_SBOOK_11.
WRITE:
/wa_Z12XX_SBOOK_11-carridUNDER'航空公司',
wa_Z12XX_SBOOK_11-connidUNDER'航线编码',
wa_Z12XX_SBOOK_11-bookidUNDER'订票数',
wa_Z12XX_SBOOK_11-fldateUNDER'日期',
wa_Z12XX_SBOOK_11-customidUNDER'乘客编号',
wa_Z12XX_SBOOK_11-smokerUNDER'吸烟'.
HIDE:
wa_Z12XX_SBOOK_11-carrid,wa_Z12XX_SBOOK_11-connid.
ENDSELECT.
ATLINE-SELECTION.
SELECTSINGLE*FROMZ12XX_SBOOK_11INTOwa_Z12XX_SBOOK_11
WHEREcarrid=wa_Z12XX_SBOOK_11-carridand
connid=wa_Z12XX_SBOOK_11-connid.
MOVE-CORRESPONDINGwa_Z12XX_SBOOK_11TOZ12XX_SBOOK_11.
callscreen500.
*&---------------------------------------------------------------------*
*&ModuleSTATUS_0500OUTPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
moduleSTATUS_0500output.
*SETPF-STATUS'xxxxxxxx'.
*SETTITLEBAR'xxx'.
endmodule."STATUS_0500OUTPUT
*&---------------------------------------------------------------------*
*&ModuleUSER_COMMAND_0500INPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
moduleUSER_COMMAND_0500input.
CASEok_code.
WHEN'SAVE'.
MOVE-CORRESPONDINGZ12XX_SBOOK_11TOwa_Z12XX_SBOOK_11.
MODIFYZ12XX_SBOOK_11FROMwa_Z12XX_SBOOK_11.
MESSAGEok_codeTYPE'I'.
SETSCREEN0.
WHEN'BACK'.
MESSAGEs203(bc400)."message203=未保存数据返回"
SETSCREEN0.
WHEN'DELETE'.
DELETEZ12XX_SBOOK_11FROMwa_Z12XX_SBOOK_11.
MESSAGEok_codeTYPE'I'.
MESSAGEs205(bc400)."message205=删除数据返回
SETSCREEN0.
ENDCASE.
SETSCREEN0.
endmodule."USER_COMMAND_0500INPUT
*&---------------------------------------------------------------------*
*&ModuleSTATUS_0500OUTPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
4.2.2飞行航线系统维护代码
飞机航线系统维护功能的代码设计包括:
定义航空公司,航线编码,订票数,飞行时间,飞机类型,座位数量的所有字段,将页面所填信息与飞机航线系统信息表的字段相对应,实现对飞行航线信息的增删改查等功能。
REPORTZ12XX_SFLIGHT_11.
TABLESZ12XX_SFLIGHT_11.
DATAok_codeLIKEsy-ucomm.
DATAwa_Z12XX_SFLIGHT_11TYPEZ12XX_SFLIGHT_11.
WRITE:
AT10(20)'航空公司',AT20(20)'航线编码',
AT50(40)'飞行时间',AT70(30)'飞机类型',
AT90(30)'座位数量'.
ULINE.
START-OF-SELECTION.
SELECT*FROMZ12XX_SFLIGHT_11INTOwa_Z12XX_SFLIGHT_11.
WRITE:
/wa_Z12XX_SFLIGHT_11-carridUNDER'航空公司代码',
wa_Z12XX_SFLIGHT_11-connidUNDER'航线编码',
wa_Z12XX_SFLIGHT_11-fldatEUNDER'飞行时间',
wa_Z12XX_SFLIGHT_11-planetypeUNDER'飞机类型',
wa_Z12XX_SFLIGHT_11-seatsoccUNDER'座位类型'.
HIDE:
wa_Z12XX_SFLIGHT_11-carrid.
ENDSELECT.
ATLINE-SELECTION.
SELECTSINGLE*FROMZ12XX_SFLIGHT_11INTOwa_Z12XX_SFLIGHT_11
WHEREcarrid=wa_Z12XX_SFLIGHT_11-carrid.
MOVE-CORRESPONDINGwa_Z12XX_SFLIGHT_11TOZ12XX_SFLIGHT_11.
CALLSCREEN400.
*&---------------------------------------------------------------------*
*&ModuleSTATUS_0400OUTPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
MODULEstatus_0400OUTPUT.
*SETPF-STATUS'xxxxxxxx'.
*SETTITLEBAR'xxx'.
ENDMODULE."STATUS_0400OUTPUT
*&---------------------------------------------------------------------*
*&ModuleUSER_COMMAND_0400INPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
MODULEuser_command_0400INPUT.
CASEok_code.
WHEN'SAVE'.
MOVE-CORRESPONDINGZ12XX_SFLIGHT_11TOwa_Z12XX_SFLIGHT_11.
MODIFYZ12XX_SFLIGHT_11FROMwa_Z12XX_SFLIGHT_11.
MESSAGEok_codeTYPE'I'.
SETSCREEN0.
WHEN'EXIT'.
MESSAGEs203(bc400)."message203=未保存数据返回"
SETSCREEN0.
WHEN'DELETE'.
DELETEZ12XX_SFLIGHT_11FROMwa_Z12XX_SFLIGHT_11.
MESSAGEok_codeTYPE'I'.
SETSCREEN0.
ENDCASE.
SETSCREEN0.
ENDMODULE."USER_COMMAND_0400INPUT
4.2.3航班时间维护代码
航班时间系统维护功能的代码设计包括:
定义航空公司,航线编码,出发城市,到大城市,飞机时间,起飞时间,到达时间,路程单位的所有字段,将页面所填信息与飞机航班时间系统信息表的字段相对应,实现对航班时间信息的增删改查等功能。
REPORTZ12XX_SPFIL_11.
DATAOK_CODELIKESY-UCOMM.
DATAWATYPEZ12XX_SPFIL_11.
TABLESZ12XX_SPFIL_11.
WRITE:
AT10(8)'航空公司',AT20(10)'航线编码',
AT30(20)'出发城市',AT40(20)'到达城市',
AT50(60)'飞行时间',AT60(15)'起飞时间',
AT70(15)'到达时间',AT80(10)'路程单位'.
ULINE.
START-OF-SELECTION.
WRITE:
/'HELLO'.
SELECT*FROMZ12XX_SPFIL_11INTOWA.
WRITE:
/WA-CARRID,WA-CONNID,WA-CITYFROM,WA-AIRPFROM,WA-FLTIME
.
HIDE:
WA-CARRID.
ENDSELECT.
ATLINE-SELECTION.
SELECTSINGLE*FROMZ12XX_SPFIL_11INTOWA
WHERECARRID=WA-CARRID.
MOVEWATOZ12XX_SPFIL_11.
CALLSCREEN200.
*&---------------------------------------------------------------------*
*&ModuleUSER_COMMAND_0200INPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
moduleUSER_COMMAND_0200input.
IFok_code='SAVE'.
MOVEZ12XX_SPFIL_11TOWA.
MODIFYZ12XX_SPFIL_11FROMWA.
IFSY-SUBRC=0.
MESSAGE'DATASAVEDSUCCESSFULLY!
'TYPE'I'.
ENDIF.
ENDIF.
IFok_code='DELETE'.
MOVEZ12XX_SPFIL_11TOWA.
DELETEZ12XX_SPFIL_11FROMWA.
IFSY-SUBRC=0.
MESSAGE'DATADELETESUCCESSFULLY!
'TYPE'I'.
ENDIF.
ENDIF.
IFok_code='EXIT'.
leaveprogram.
ENDIF.
endmodule."USER_COMMAND_0200INPUT
4.2.4航空公司信息维护代码
航空公司系统维护功能的代码设计包括:
定义航空公司代码,航空公司名称,航空公司编码,航空公司地址的所有字段,将页面所填信息与航空公司信息系统信息表的字段相对应,实现对航空公司信息的增删改查等功能。
REPORTZ12XX_SCARR_11.
tablesZ12XX_SCARR_11.
dataok_codelikesy-ucomm.
datawa_Z12XX_SCARR_11typeZ12XX_SCARR_11.
WRITE:
AT1(12)'航空公司代码',AT16(12)'航空公司名称',
AT30(14)'航空公司编码',AT48(12)'航空公司地址'.
ULINE.
START-OF-SELECTION.
SELECT*FROMZ12XX_SCARR_11INTOwa_Z12XX_SCARR_11.
WRITE:
/wa_Z12XX_SCARR_11-carridUNDER'航空公司代码',
wa_Z12XX_SCARR_11-carrnameUNDER'航空公司名称',
wa_Z12XX_SCARR_11-currcodeUNDER'航空公司编码',
wa_Z12XX_SCARR_11-urlUNDER'航空公司地址'.
HIDE:
wa_Z12XX_SCARR_11-carrid.
ENDSELECT.
ATLINE-SELECTION.
SELECTSINGLE*FROMZ12XX_SCARR_11INTOwa_Z12XX_SCARR_11
WHEREcarrid=wa_Z12XX_SCARR_11-carrid.
MOVE-CORRESPONDINGwa_Z12XX_SCARR_11TOZ12XX_SCARR_11.
CALLSCREEN202.
*&---------------------------------------------------------------------*
*&ModuleSTATUS_0202OUTPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
moduleSTATUS_0202output.
*SETPF-STATUS'xxxxxxxx'.
*SETTITLEBAR'xxx'.
endmodule."STATUS_0202OUTPUT
*&---------------------------------------------------------------------*
*&ModuleUSER_COMMAND_0202INPUT
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
moduleUSER_COMMAND_0202input.
CASEo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ABAP 实验 报告