Registration

Dear SAP Community Member,
In order to fully benefit from what the SAP Community has to offer, please register at:
http://scn.sap.com
Thank you,
The SAP Community team.
Skip to end of metadata
Go to start of metadata

BSP Application to insert data into database table and to delete record from table : 
Go to Transaction se80->

Give the program name

 
 

Click on Yes to create BSP Application program

 
 
Check the object name 

Right click on object name and create a page 


Save   page and activate it.

To write code click on  page.

 

Click on Layout

 


Layout contains the following code

  :

 


 


In event Handler tab  -> On Initialization:


 
* event handler for data retrieval
select * from yhtable into table fs_emp.
if w_index <> 0.
 read table fs_emp into t_emp index w_index.
  w_empid = t_emp-empid.
  w_fname = t_emp-fname.
  w_sname = t_emp-sname.
  w_age = t_emp-age.
  w_address = t_emp-address.
  w_salary = t_emp-salary.
  w_flag = 1.
endif.


 * the handler is called whenever a request is made for a particular page
* it is used to restore the internal data structures from the request
class cl_htmlb_manager definition load.
case event_id.
  when cl_htmlb_manager=>event_id.
    data:
    event type ref to if_htmlb_data,
    selrow type ref to cl_htmlb_tableview.
    event = cl_htmlb_manager=>get_event_ex( request ).
    selrow ?= cl_htmlb_manager=>get_data( request = request
                                          name    = 'tableView'
                                          id      = 'Employee' ).
    data: tv_data type ref to cl_htmlb_event_tableview.
    tv_data = selrow->data.
  w_index = tv_data->selectedrowindex.
endcase


 

 


data:
w_event type ref to cl_htmlb_event,
w_object type ref to object,
w_inputfield type ref to cl_htmlb_inputfield,
w_eventid type string,
w_fieldid type string,
w_in_field type string,
w_in_value type string,
w_empid1 type yhtable-empid,
w_fname1 type yhtable-fname,
w_sname1 type yhtable-sname,
w_age1 type yhtable-age,
w_address1 type yhtable-address,
w_salary1 type yhtable-salary.
call method cl_htmlb_manager=>get_event
  exporting
    request = runtime->server->request
  receiving
    event   = w_event.
w_eventid = w_event->id.
if w_eventid eq 'save'.
  call method cl_htmlb_manager=>get_data
    exporting
      request = runtime->server->request
      name    = 'inputfield'
      id      = 'empid'
    receiving
      data    = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_empid = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request       = runtime->server->request
      name
      ='inputfield'
      id            = 'FNAME'
    receiving
      data          = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_fname = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request = runtime->server->request
      name    = 'inputfield'
      id      = 'LNAME'
    receiving
      data    = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_sname = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request = runtime->server->request
      name    = 'inputfield'
      id      = 'AGE'
    receiving
      data    = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_age = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request = runtime->server->request
      name    = 'inputfield'
      id      = 'ADDRESS'
    receiving
      data    = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_address = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request = runtime->server->request
      name    = 'inputfield'
      id      = 'SALARY'
    receiving
      data    = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_salary = w_in_value.
  update yhtable set        empid   = w_empid1
                            fname    = w_fname1
                            sname    = w_sname1
                            age = w_age1
                            address = w_address1
                            salary = w_salary1
                        where empid = w_empid1.
elseif w_eventid = 'insert'.
  call method cl_htmlb_manager=>get_data
    exporting
      request       = runtime->server->request
      name
      ='inputfield'
      id            = 'w_empid'
    receiving
      data          = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_empid = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request       = runtime->server->request
      name      ='inputfield'
      id            = 'w_fname'
    receiving
      data          = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_fname = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request       = runtime->server->request
      name      ='inputfield'
      id            = 'w_sname'
    receiving
      data          = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_sname = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request       = runtime->server->request
      name      ='inputfield'
      id            = 'w_age'
    receiving
      data          = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_age = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request       = runtime->server->request
      name      ='inputfield'
      id            = 'w_address'
    receiving
      data          = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_address = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request       = runtime->server->request
      name      ='inputfield'
      id            = 'w_salary'
    receiving
      data          = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_salary = w_in_value.
  clear: w_object,w_in_field,w_in_value.
  t_emp-empid   = w_empid.
  t_emp-fname    = w_fname.
  t_emp-sname    = w_sname.
  t_emp-age = w_age.
  t_emp-address = w_address.
  t_emp-salary = w_salary.
  insert yhtable from t_emp.
elseif w_eventid eq 'create'.
  w_flag = 2.
elseif w_eventid eq 'delete'.
  call method cl_htmlb_manager=>get_data
    exporting
      request  = runtime->server->request
      name     = 'inputfield'
      id
      ='empid'
    receiving
      data     = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_empid1 = w_in_value.
  . clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request  = runtime->server->request
      name     = 'inputfield'
      id      ='fname'
    receiving
      data     = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_fname1 = w_in_value.
  . clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request  = runtime->server->request
      name     = 'inputfield'
      id      ='lname'
    receiving
      data     = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_sname1 = w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request    = runtime->server->request
      name       = 'inputfield'
      id      ='address'
    receiving
      data       = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_address1 = w_in_value.
  .
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request = runtime->server->request
      name    = 'inputfield'
      id      ='age'
    receiving
      data    = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_age1 = w_in_value.
  .
  clear: w_object,w_in_field,w_in_value.
  call method cl_htmlb_manager=>get_data
    exporting
      request   = runtime->server->request
      name      = 'inputfield'
      id      ='salary'
    receiving
      data      = w_object.
  w_inputfield ?= w_object.
  w_in_value = w_inputfield->value.
  w_salary1 = w_in_value.
  t_emp-empid = w_empid1.
  t_emp-fname = w_fname1.
  t_emp-sname = w_sname1.
  t_emp-age = w_age1.
  t_emp-address = w_address1.
  t_emp-salary = w_salary1.
  delete yhtable from t_emp.
elseif w_eventid eq 'Employee'.
  data:
          event  type ref to if_htmlb_data,
          selrow type ref to cl_htmlb_tableview.
  event = cl_htmlb_manager=>get_event_ex( request ).
  selrow ?= cl_htmlb_manager=>get_data( request = request
                                        name    = 'tableView'
                                        id      = 'Employee' ).
  data: tv_data type ref to cl_htmlb_event_tableview.
  tv_data = selrow->data.
  w_index = tv_data->selectedrowindex.
endif.

In Types definition tab :

 types:

wa_emp type table of  yhtable.

Define Page Attributes as follows:

 

   OUTPUT:

   
     

Click on Create to insert a record:

 
 

 Enter the values in all fields:

 
 

 You can see the inserted record:

 
 


Select a record to delete :


 

 Click on delete:
 

Selected record  was deleted.

  • No labels