peoplesoft中利用checkbox实现多值选择，修改

大概任务如下：

(图p-1-1) 

    

(图p-1-2)

第一张页面为添加用户，第二张页面为添加兴趣爱好.在这里我们讨论怎样用peoplesoft实现如下图所示的功能。

(图p-1-3)

在用户填写p-1-1页面的数据时可以通过“爱好”选项中的checkbox来选择兴趣爱好，并可通过p-1-3来修改兴趣爱好。

就以上内容我们建立三张数据存储的record；一张userinfo_tbl，存储p-1-1中用户信息内容；一张interest_tbl，存储p-1-2中添加的兴趣爱好内容；一张userinterest_rel_tbl，存储用户兴趣爱好关联表；另外建立derived/work类型的temp_wrk的record。

表结构如下：

userinfo_tbl(

   user_no  number key,

   user_name character,

   ...  ...

);

interest_tbl(

    inte_id number key,

    inte_name  character

);

 

userinterest_rel_tbl(

     ui_user_no;

     ui_inte_id;

);

temp_wrk(

      jt_temp1_field  character(1),

      jt_temp2_field  character(1)

);

其中，jt_temp1_field的translate values值为：
Field value:Y    long name Y     short name Y;

Field value:N    long name N     short name N;

 

注：本文重点讨论用checkbox实现多值选取，修改。如图 p-1-3。其他操作，代码全部省列。

 

图p-1-3整体为一个grid,总共四个字段，最后两个字段隐藏。

checkbox 与temp_wrk.jt_temp1_field关联；兴趣爱好显示列与interest_tbl.inte_name关联；

第三列与interest_tbl.inte_id关联，并隐藏（因为此字段不需显示，但向userinterest_rel_tbl插数据时需要这个字段的值）；

第四列与temp_wrk,jt_temp2_field关联，并隐藏，辅助列。

 

temp_wrk.jt_temp1_field    fieldChange事件添加以下代码：

 

rem if the field value is N,then delete userinterest_rel_tbl data;
rem if the field value is Y,then insert data to userinterest_rel_tbl record;

 

If temp_wrk.jt_temp1_field= "N" Then
        &sql = CreateSQL("delete from PS_USERINTEREST_REL_TBL tbl where tbl.UI_USER_NO,=:1");
        &sql.Execute(USERINFO_TBL.USER_NO);      
   Else
      &sql = CreateSQL("insert into PS_USERINTEREST_REL_TBL(UI_USER_NO,

                 UI_INTE_ID) values(:1,:2)");
      &sql.Execute(USERINFO_TBL.USER_NO, INTEREST_TBL.INTE_ID);   

   End-If;

 

temp_wrk.jt_temp2_field   rowinit事件添加以下代码：

 

 

Local array of number &hIds;
Local SQL &sql;
Local number &hId;

 

&hIds = CreateArray(&hId, 0);

&sql = CreateSQL("SELECT  UI_INTE_ID FROM PS_USERINTEREST_REL_TBL

                              where UI_USER_NO= :1", USERINFO_TBL.USER_NO);
While &sql.Fetch(&hId)
   &hIds.Push(&hId);
End-While;

 

For &i = 0 To &hIds.Len
   &k = &hIds.Find(INTEREST_TBL.INTE_ID);
   If &k = 0 Then
      temp_wrk.jt_temp1_field= "N";
   Else
      temp_wrk.jt_temp1_field= "Y";
   End-If;
End-For;

以上就可以实现在checkbox中任意修改，当添加兴趣爱好以后，后及时反映到添加user页面之上供选择。

（本文版权所有，如需转载，请注明出处）