收费系统,多个客户端同时交费,发生数据库死索,问题在那里,如何解决?
收费系统,多个客户端同时交费,发生数据库死索,问题在那里,如何解决?
数据库为sql server 2000 交费视的代码如下
变量定义
数据验证
。。。
SELECT id into :ll_yhid FROM t_qbyh where yhdh=:sle_9.text using sqlca;
SELECT sfdid into :ll_sfdid FROM t_sfd_set where sfdmc=:sle_4.text using sqlca;
。。。
INSERT INTO t_sfxx (...
)
VALUES ( :ll_yhid,getdate(),:ld_jfsd,:ldt_ssqs,:ldt_ssjz,
:ld_znj,:ld_jfje,:ld_yhje,:ll_czrid,:ll_sfdid,
:ls_zdxs,:ls_fbh,:ls_czbz,:ll_sflx
) using sqlca;
update t_qbyh SET ssjz =:ldt_ssjz , ljzt ='正常' WHERE t_qbyh.id =:ll_yhid using sqlca;
IF sqlca.SQLNRows > 0 THEN
COMMIT USING sqlca ;
em_2.text=string(date(ldt_ssjz))
tab_1.tabpage_1.dw_1.SetTransObject (sqlca)
tab_1.tabpage_1.dw_1.retrieve(ll_yhid)
else
ROLLBACK USING SQLCA;
Messagebox('收费失败!',sqlca.sqlerrtext)
return
END IF
其它代码
........
[此贴子已经被作者于2005-10-8 16:04:11编辑过][/align]
[align=right][此贴子已经被作者于2005-10-8 16:09:08编辑过]