用ABAP编写程序,屏幕的一组输入/输出框是SBOOK的字段CARRID、CONNID、FLDATE、BOOKID,另外还有三个按钮分别为“订票”、“重置”和“返回”,当按“订票”钮后,该条信息被保存,并且出现新的屏幕,屏幕上有一个输出框,显示“XX航空公司XX航线XX航班订票人数为XX人”;当按“重置”钮后,屏幕上的文字都被清除;当按“返回”钮后,返回程序。

时间: 2023-07-15 22:14:34 浏览: 42
以下是一个简单的 ABAP 程序,实现了上述功能: ```abap REPORT Z_BOOK_FLIGHT. * 数据定义 DATA: BEGIN OF SBOOK, CARRID TYPE SFLIGHT-CARRID, CONNID TYPE SFLIGHT-CONNID, FLDATE TYPE SFLIGHT-FLDATE, BOOKID TYPE SBOOK-BOOKID, END OF SBOOK. DATA: NUM_BOOKED TYPE I. * 屏幕定义 SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. PARAMETERS: carrid TYPE SFLIGHT-CARRID, connid TYPE SFLIGHT-CONNID, fldate TYPE SFLIGHT-FLDATE, bookid TYPE SBOOK-BOOKID. SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002. SELECTION-SCREEN PUSHBUTTON /1(10) '订票' USER-COMMAND book. SELECTION-SCREEN PUSHBUTTON /1(10) '重置' USER-COMMAND reset. SELECTION-SCREEN PUSHBUTTON /1(10) '返回' USER-COMMAND back. SELECTION-SCREEN END OF BLOCK b2. * 事件处理 AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. CASE screen-group1. WHEN 'B1'. screen-active = 1. WHEN 'B2'. IF screen-name = 'BOOK'. screen-active = 1. ELSE. screen-active = 0. ENDIF. ENDCASE. MODIFY SCREEN. ENDLOOP. AT SELECTION-SCREEN. CASE sy-ucomm. WHEN 'BOOK'. * 保存订票信息 MOVE-CORRESPONDING SBOOK TO SBOOK_DB. APPEND SBOOK_DB TO SBOOKS_DB. * 统计订票人数 SELECT COUNT(*) FROM SBOOKS INTO NUM_BOOKED WHERE carrid = SBOOK_DB-carrid AND connid = SBOOK_DB-connid AND fldate = SBOOK_DB-fldate. * 显示订票信息 MESSAGE |{ SBOOK_DB-carrid }航空公司{ SBOOK_DB-connid }航线{ SBOOK_DB-fldate }航班订票人数为{ NUM_BOOKED }人| TYPE 'S'. WHEN 'RESET'. * 清除输入框 CLEAR SBOOK. WHEN 'BACK'. * 退出程序 LEAVE TO SCREEN 0. ENDCASE. ``` 这个程序定义了一个名为 `SBOOK` 的结构体,用来保存输入框的内容。在屏幕上定义了一组输入框和三个按钮,分别对应订票、重置和返回操作。当用户点击“订票”按钮时,程序会将输入框的内容保存到一个名为 `SBOOKS_DB` 的表中,并统计当前航班的订票人数,最后在屏幕上显示订票信息。当用户点击“重置”按钮时,程序会清除输入框的内容。当用户点击“返回”按钮时,程序直接退出。

相关推荐

最新推荐

recommend-type

手把手教你配置Eclipse开发SAP ABAP程序环境.docx

从零开始,教授如何配置 Eclipse 开发 SAP ABAP 程序环境。2020 年最新版本操作...ABAP Development Tool的Java端实现就是Eclipse的一个扩展,使用JCO(Java Connector)连接ABAP后台的adt服务,实现对ABAP程序的操作。
recommend-type

ABAP模块池程序设计给文本字段做多项选择

ABAP在模块池程序设计中,有时要给文本字段做多项选择,当然可以用到选择屏幕,但选择屏幕有一定的局限性,有时需要手工做多项选择,其实很简单,具体请看附件。基中方法二为个人根据经验独创。
recommend-type

在alv输出屏幕上增加按钮实现方法

在alv输出屏幕上增加按钮实现方法,自己首次编写的教材,希望对大家有帮助
recommend-type

ABAP 为物料主数据添加字段

ABAP 为物料主数据添加字段 Add field in material master.
recommend-type

基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip

基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip个人经导师指导并认可通过的高分毕业设计项目,评审分98分。主要针对计算机相关专业的正在做毕设的学生和需要项目实战练习的学习者,也可作为课程设计、期末大作业。 基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统源码+数据集+详细文档(高分毕业设计).zip基于网络的入侵检测系统
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

【实战演练】MATLAB用遗传算法改进粒子群GA-PSO算法

![MATLAB智能算法合集](https://static.fuxi.netease.com/fuxi-official/web/20221101/83f465753fd49c41536a5640367d4340.jpg) # 2.1 遗传算法的原理和实现 遗传算法(GA)是一种受生物进化过程启发的优化算法。它通过模拟自然选择和遗传机制来搜索最优解。 **2.1.1 遗传算法的编码和解码** 编码是将问题空间中的解表示为二进制字符串或其他数据结构的过程。解码是将编码的解转换为问题空间中的实际解的过程。常见的编码方法包括二进制编码、实数编码和树形编码。 **2.1.2 遗传算法的交叉和
recommend-type

openstack的20种接口有哪些

以下是OpenStack的20种API接口: 1. Identity (Keystone) API 2. Compute (Nova) API 3. Networking (Neutron) API 4. Block Storage (Cinder) API 5. Object Storage (Swift) API 6. Image (Glance) API 7. Telemetry (Ceilometer) API 8. Orchestration (Heat) API 9. Database (Trove) API 10. Bare Metal (Ironic) API 11. DNS
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。