请问怎样修改以下代码，多用户同时保存数据时不会冲突？

是不是需要锁定？ 共享表需要用SQL语句下面的代码怎样修改才能 更完善？

 

 

以下是保存代码：     
      select ck_cp_ix
      dele all for empty(ck_cp_ix.ck_wp) OR ck_cp_ix.bao_num = 0
      begin transaction
           if tableupdate(.t.,.f.,"ck_cp_i")
                  if tableupdate(.t.,.f.,"ck_cp_ix")
                     else
                        unlock all
                        rollback
                        =messagebox("成品明细不能保存，请稍候重试！")
                  ENDIF    
           ELSE
                ROLLBACK      
                unlock all                          
                =messagebox("成品主库不能保存，请稍候重试！")                       
          ENDIF
ENDIF              

 

增加代码：

if h_choice = 0
      SELECT ck_cp_i
      set order to bm_bh
      go bott
      l_bm_bh = '6'+PADL(alltrim(str(val(substr(ck_cp_i.bm_bh,2,8))+1,7)),7,'0')
      APPEND BLANK
      REPL ck_cp_i.BM_BH WITH  L_BM_BH
      select ck_cp_ix
      append blank   
      REPL ck_cp_ix.BM_BH WITH  L_BM_BH
      thisform.setena           &&h_choice = 1  
      THISFORM.REFRESH
      thisform.lsc_tzd.setfocus