数据库 数据不变 数据跟踪了 语句正确？
procedure TFmMain.bitstopClick(Sender: TObject);
var
hhh:integer;
astr:string;
ss:string;
procedure updatedata;
begin
dm.qCheck.close;
dm.qCheck.sql.clear;
//dm.qCheck.sql.add(' begin tran ');

if ss='4999' then
begin
dm.qCheck.sql.add('UPDATE CR_Awards'+curPosID+' SET C_1_Count=C_1_Count-1 ');
dm.qCheck.SQL.add('insert into zj(cr,time) values (''4999'',getdate())');

end
else if ss='1000' then
begin
dm.qCheck.sql.add('UPDATE CR_Awards'+curPosID+' SET C_2_Count=C_2_Count-1 ');
dm.qCheck.SQL.add('insert into zj(cr,time) values (''1000'',getdate())');

end
else if ss='200' then
begin
dm.qCheck.sql.add('UPDATE CR_Awards'+curPosID+' SET C_3_Count=C_3_Count-1 ');
dm.qCheck.SQL.add('insert into zj(cr,time) values (''200'',getdate())');

end
else if ss='100' then
begin
dm.qCheck.sql.add('UPDATE CR_Awards'+curPosID+' SET C_4_Count=C_4_Count-1 ');
dm.qCheck.SQL.add('insert into zj(cr,time) values (''100'',getdate())');

end
else if ss='50' then
begin
dm.qCheck.sql.add('UPDATE CR_Awards'+curPosID+' SET C_5_Count=C_5_Count-1 ');
dm.qCheck.SQL.add('insert into zj(cr,time) values (''50'',getdate())');

end
else if ss='0' then
begin
dm.qCheck.sql.add('UPDATE CR_Awards'+curPosID+' SET C_Pjcs=C_Pjcs-1 ');
//dm.qCheck.sql.add(' if @@error=0 commit tran else rollback tran ');
end;
dm.qCheck.execsql;
end;


[解决办法]
dm.qCheck.execsql;前先输出dm.qcheck.sql.text看看，复制到查询分析器，能不能执行