关于SQLServer2000的事务控制和存储过程调用（CB5+ADO）？(100分)

1. 发现有时动态创建TADOStoredProc，调用执行过程一切正常，
可是没有执行结果，也得不到返回值，有时可以，不稳定,我的代码如下：
//-----------------------------------------------------------
//取服务器时间
TDateTime __fastcall TBillControl::GetToday()
{
TADOStoredProc *ADOStoredProc;
TParameter * Parameter ;
TDateTime dtRetVal;
try
{
dtRetVal =NULL;
ADOStoredProc = new TADOStoredProc(NULL);
ADOStoredProc->ProcedureName ="UP_GETSERVERSYSDATE";
Parameter= new TParameter(ADOStoredProc->Parameters);
Parameter->DataType = ftDateTime;
Parameter->Name = "@dtSySDateTime";
Parameter->Direction = pdInputOutput;
ADOStoredProc->Connection = FConnection;
ADOStoredProc->ExecProc();
dtRetVal = StrToDateTime(ADOStoredProc->Parameters ->ParamValues["@dtSySDateTime"]);
if(Parameter!=NULL){delete Parameter;Parameter=NULL;}
if(ADOStoredProc!=NULL){delete ADOStoredProc;ADOStoredProc=NULL;}
FDateTime = dtRetVal;
return dtRetVal;
}
catch(...)
{
if(Parameter!=NULL){delete Parameter;Parameter=NULL;}
if(ADOStoredProc!=NULL){delete ADOStoredProc;ADOStoredProc=NULL;}
return dtRetVal;
}
}
2. SQLServer2000的事务控制
.....
begin
begin trans
delete from cs_tbl_moduleInfo
insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','101','数据备份与恢复','','')
insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','102','数据处理与传输','','')
insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','103','部门信息','','')
commit trans
if(@@error <> 0)
rollback trans
.....
假如，第三条记录已经存在，无法插入，本应滚回事务，但是，前两行还是可以插入，为什么？？？

begin
begin trans
delete from cs_tbl_moduleInfo
insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','101','数据备份与恢复','','')
///if(@@error <> 0)
rollback trans


insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','102','数据处理与传输','','')
//if(@@error <> 0)
//rollback trans

insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','103','部门信息','','')
commit trans
if(@@error <> 0)
rollback trans

跟我写的差不多。应该这样写：
begin
begin tran
delete from cs_tbl_moduleInfo
insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','101','数据备份与恢复','','')
insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','102','数据处理与传输','','')
insert into cs_tbl_moduleInfo(mod_sMid,mod_sMname,mod_sid,mod_sName,tr_date,tr_state)
values('1','文件','103','部门信息','','')
if(@@error <> 0)
rollback tran
commit tran
不过还是会报错：
服务器: 消息 2627，级别 14，状态 1，行 1
违反了 PRIMARY KEY 约束 'PK11'。不能在对象 'CS_TBL_MODULEINFO' 中插入重复键。
语句已终止。
服务器: 消息 3902，级别 16，状态 1，行 15
COMMIT TRANSACTION 请求没有对应的 BEGIN TRANSACTION。