使用纯 ABAP 开发 SAP UI5 之一：概述

CLASS z2ui5_cl_app_demo_01 DEFINITION PUBLIC.
  PUBLIC SECTION.
    INTERFACES z2ui5_if_app.
    DATA product  TYPE string.
    DATA quantity TYPE string.
ENDCLASS.
CLASS z2ui5_cl_app_demo_01 IMPLEMENTATION.
  METHOD z2ui5_if_app~main.
    "event handling
    CASE client->get( )-event.
      WHEN 'BUTTON_POST'.
        client->popup_message_toast( |{ product } { quantity } - sent to the server| ).
    ENDCASE.
    "view rendering
    client->set_next( VALUE #( xml_main = z2ui5_cl_xml_view=>factory(
        )->page( title = 'abap2UI5 - First Example'
            )->simple_form( title = 'Form Title' editable = abap_true
                )->content( 'form'
                    )->title( 'Input'
                    )->label( 'quantity'
                    )->input( client->_bind( quantity )
                    )->label( 'product'
                    )->input( client->_bind( value = product )
                    )->button( text  = 'post' press = client->_event( 'BUTTON_POST' )
         )->get_root( )->xml_get( ) ) ).
  ENDMETHOD.
ENDCLASS.

INTERFACE z2ui5_if_app PUBLIC.
  METHODS main
    IMPORTING
      client TYPE REF TO z2ui5_if_client.
ENDINTERFACE.

<Page title="Page title" >
  <f:SimpleForm title="Form Title">
    <f:content>
      <Title text="Input" />
      <Label text="quantity"/>
      <Input value="{/oUpdate/QUANTITY}"/>
      <Label text="product" />
      <Input value="tomato" />
      <Button press="onEvent" text="post"/>
    </f:content>
  </f:SimpleForm>
</Page>

view->page( title = 'Page title' )
        )->simple_form( 'Form Title'
          )->content( 'f'
             )->title( 'Input'
             )->label( 'quantity'
             )->input( client->_bind( quantity )
             )->label( 'product'
             )->input( value = product editable = abap_false
             )->button( text = 'post'  press    = client->_event( 'BUTTON_POST' ) ).