查
REPORT z_demo_database.TABLES: sflight.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE '数据查询'.SELECT-OPTIONS: s_carrid FOR sflight-carrid,s_connid FOR sflight-connid.
SELECTION-SCREEN END OF BLOCK b1.START-OF-SELECTION.SELECT carrid connid fldate priceFROM sflightINTO CORRESPONDING FIELDS OF TABLE @DATA(lt_sflight)WHERE carrid IN @s_carridAND connid IN @s_connid.LOOP AT lt_sflight INTO DATA(wa_sflight).WRITE: / wa_sflight-carrid, wa_sflight-connid, wa_sflight-fldate, wa_sflight-price.ENDLOOP.
增
REPORT z_demo_database_insert.TABLES: sbook.PARAMETERS: p_carrid TYPE sbook-carrid OBLIGATORY,p_connid TYPE sbook-connid OBLIGATORY,p_fldate TYPE sbook-fldate OBLIGATORY,p_bookid TYPE sbook-bookid OBLIGATORY,p_passname TYPE sbook-passname OBLIGATORY.START-OF-SELECTION.DATA: wa_sbook TYPE sbook.wa_sbook-carrid = p_carrid.wa_sbook-connid = p_connid.wa_sbook-fldate = p_fldate.wa_sbook-bookid = p_bookid.wa_sbook-passname = p_passname.wa_sbook-bookdate = sy-datum.wa_sbook-booktime = sy-uzeit.INSERT sbook FROM wa_sbook.IF sy-subrc = 0.WRITE: / '数据插入成功'.ELSE.WRITE: / '数据插入失败，错误码:', sy-subrc.ENDIF.
改
REPORT z_demo_database_update.TABLES: sbook.PARAMETERS: p_carrid TYPE sbook-carrid OBLIGATORY,p_connid TYPE sbook-connid OBLIGATORY,p_fldate TYPE sbook-fldate OBLIGATORY,p_bookid TYPE sbook-bookid OBLIGATORY,p_newstatus TYPE sbook-status OBLIGATORY.START-OF-SELECTION.DATA: wa_sbook TYPE sbook.SELECT SINGLE * FROM sbookINTO wa_sbookWHERE carrid = p_carridAND connid = p_connidAND fldate = p_fldateAND bookid = p_bookid.IF sy-subrc = 0.wa_sbook-status = p_newstatus.UPDATE sbook FROM wa_sbook.IF sy-subrc = 0.WRITE: / '数据更新成功'.ELSE.WRITE: / '数据更新失败，错误码:', sy-subrc.ENDIF.ELSE.WRITE: / '未找到匹配的数据记录'.ENDIF.
删
REPORT z_demo_database_delete.TABLES: sbook.PARAMETERS: p_carrid TYPE sbook-carrid OBLIGATORY,p_connid TYPE sbook-connid OBLIGATORY,p_fldate TYPE sbook-fldate OBLIGATORY,p_bookid TYPE sbook-bookid OBLIGATORY.START-OF-SELECTION.DELETE FROM sbookWHERE carrid = p_carridAND connid = p_connidAND fldate = p_fldateAND bookid = p_bookid.IF sy-subrc = 0.WRITE: / '数据删除成功'.ELSE.WRITE: / '数据删除失败，错误码:', sy-subrc.ENDIF.
查找数据
REPORT Z_ZFG_0616.TABLES: ZZFG_0320.START-OF-SELECTION." 定义内表和工作区
DATA: lt_employees TYPE STANDARD TABLE OF ZZFG_0320,ls_employee LIKE LINE OF lt_employees.SELECT * FROM ZZFG_0320 INTO TABLE lt_employees.LOOP AT lt_employees INTO ls_employee.WRITE: / '图书名称:', ls_employee-BOOK_NAME.
ENDLOOP.
增加数据
REPORT Z_ZFG_0616.TABLES: ZZFG_0320.DATA: ls_employee TYPE ZZFG_0320.
DATA: lv_message TYPE string.ls_employee-BOOK_NAME = '大数据22'.INSERT INTO ZZFG_0320 VALUES ls_employee.
* 判断插入是否成功
IF sy-subrc = 0.lv_message = '数据插入成功'.
ELSE.lv_message = '数据插入失败'.
ENDIF.* 输出结果
WRITE: lv_message.
删除数据
REPORT Z_ZFG_0616.TABLES: ZZFG_0320.DATA: ls_employee TYPE ZZFG_0320.
DATA: lv_message TYPE string.ls_employee-BOOK_NAME = '大数据22'.DELETE FROM ZZFG_0320 WHERE BOOK_NAME = '大数据22'.* 判断插入是否成功
IF sy-subrc = 0.lv_message = '数据删除成功'.
ELSE.lv_message = '数据删除失败'.
ENDIF.* 输出结果
WRITE: lv_message.
修改数据
REPORT Z_ZFG_0616.TABLES: ZZFG_0320.DATA: ls_employee TYPE ZZFG_0320.
DATA: lv_message TYPE string.UPDATE ZZFG_0320SET BOOK_NAME = 'MySQL数据库'WHERE BOOK_NAME = 'MYSQL'.* 判断插入是否成功
IF sy-subrc = 0.lv_message = '数据修改成功'.
ELSE.lv_message = '数据修改失败'.
ENDIF.* 输出结果
WRITE: lv_message.
REPORT Z_ZFG_0616.TABLES: ZZFG_0320.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.PARAMETERS:old_name TYPE string,new_name TYPE string.
SELECTION-SCREEN END OF BLOCK b1.DATA: ls_employee TYPE ZZFG_0320.
DATA: lv_message TYPE string.UPDATE ZZFG_0320SET BOOK_NAME = new_nameWHERE BOOK_NAME = old_name.* 判断插入是否成功
IF sy-subrc = 0.lv_message = '数据修改成功'.
ELSE.lv_message = '数据修改失败'.
ENDIF.* 输出结果
WRITE:/ lv_message.SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.PARAMETERS:nt_name TYPE string.
SELECTION-SCREEN END OF BLOCK b2.DATA: ls2_employee TYPE ZZFG_0320.
DATA: lv2_message TYPE string.ls2_employee-BOOK_NAME = nt_name.INSERT INTO ZZFG_0320 VALUES ls2_employee.
* 判断插入是否成功
IF sy-subrc = 0.lv2_message = '数据插入成功'.
ELSE.lv2_message = '数据插入失败'.
ENDIF.* 输出结果
WRITE:/ lv2_message.DATA: lt1_employees TYPE STANDARD TABLE OF ZZFG_0320,ls1_employee LIKE LINE OF lt1_employees.SELECT * FROM ZZFG_0320 INTO TABLE lt1_employees.LOOP AT lt1_employees INTO ls1_employee.WRITE: / '图书名称:', ls1_employee-BOOK_NAME.
ENDLOOP.
