各位师付你们好：  有一个问题想请教大家，详细说明一下：

我用VFP编的一个程序放在服务器上，  有三个客户端， 当只有一个客户端输入数量时：保存的数据正确， 但是当二个或三个客户端同时输入数据时， 保存的数量就有问题了（数据头和数据明细混乱：  同一组数据，数据头是张三输入的， 明细是李四输入的）

此数据界面的init过程中有以下代码：

IF .NOT. USED ('ck_yl_i')
USE IN SELECT(1) ck_yl_i shared
ENDI
select ck_yl_i
set order to bm_bh

IF .NOT. USED ('ck_yl_ip')
USE IN SELECT(1) ck_yl_ip shared
ENDI
select ck_yl_ip
set order to bm_bh

select ck_yl_i
thisform.label3.caption = ck_yl_i.bm_bh
SELECT ck_yl_ip
SET FILTER TO ck_yl_i.bm_bh=ck_yl_ip.bm_bh
SUM bao_num TO A_1 FOR ck_yl_i.bm_bh=ck_yl_ip.bm_bh
SUM baoh TO A_2 FOR ck_yl_i.bm_bh=ck_yl_ip.bm_bh
THISFORM.CONTAINER1.CONTAINER2.LABEL4.CAPTION = STR(A_1,6)
THISFORM.CONTAINER1.CONTAINER2.LABEL5.CAPTION = STR(A_2,4)
GO TOP
thisform.refresh

按“增加”按钮时出现以下代码：

if h_choice = 0  &&增加

SELECT ck_yl_i
      set order to bm_bh
      go bott
      l_bm_bh = PADL(alltrim(str(val(substr(ck_yl_i.bm_bh,1,8))+1,8)),8,'0')
      APPEND BLANK
      REPL ck_yl_i.BM_BH WITH  L_BM_BH
      THISFORM.LABEL3.CAPTION = ck_yl_i.BM_BH
      THISFORM.crk_date.VALUE = DTOC(DATE())
      select ck_yl_ip
      append blank   
      REPL ck_yl_ip.BM_BH WITH  L_BM_BH
      thisform.setena           &&h_choice = 1  
      THISFORM.CONTAINER1.CONTAINER2.LABEL4.CAPTION = STR(0,6)
      THISFORM.CONTAINER1.CONTAINER2.LABEL5.CAPTION = STR(0,4)     
      THISFORM.REFRESH
      thisform.cfrom_wh.setfocus

请问怎样修改代码可以解决问题？？？