采用存储过程上传的问题
我们公司开发了一套考试软件, 通过存储过程上传成绩.
目前成绩可以上传, 但总是把最先约考的成绩覆盖(约考时间是原来的),造成调用该成绩时找不到相应的记录.目前其他公司做的软件并没有出现这种问题,应该不会是存储过程和成绩调用的问题.上传过程如下请大家帮我看看.
procedure Tksform.scTimeTimer(Sender: TObject);
var sch : integer;
Mzt,hres,herr,scMlsh,mems:string;
begin
sch:=5; //-----------------------------------------------------
with qryshanchuan do
begin
sctime.Enabled:=false;
close;
sql.Clear;
sql.add( 'select lsh,zkzmbh,sfzmhm,xm,riqi,kscx,kscj,kscs,ksy1,ksy2,jbr,fherr,fhres,shangch from ksxx where shangch= ' ' '+inttostr(sch)+ ' ' ' ');
open;
first;
while not eof do
begin
mems:= ' ';
if (fieldbyname( 'kscs ').AsInteger mod 2)=1 then
begin
if fieldbyname( 'kscj ').AsInteger <90 then Mzt:= '2 ' else
if fieldbyname( 'kscj ').AsInteger> =90 then mzt:= '1 ';
end
else
if (fieldbyname( 'kscs ').AsInteger mod 2)=0 then
begin
if fieldbyname( 'kscj ').AsInteger <90 then Mzt:= '0 ' else
if fieldbyname( 'kscj ').AsInteger> =90 then mzt:= '1 ';
end;
scmlsh:=fieldbyname( 'lsh ').asstring;
storedproc1.ParamByName( 'v_lsh ').AsString:=trim(fieldbyname( 'lsh ').asstring);
storedproc1.ParamByName( 'v_sfzmhm ').AsString:=trim(fieldbyname( 'sfzmhm ').asstring);
storedproc1.ParamByName( 'v_kscx ').AsString:=trim(fieldbyname( 'kscx ').asstring);;
storedproc1.ParamByName( 'v_ksrq ').asdatetime:=fieldbyname( 'riqi ').AsDateTime;
storedproc1.ParamByName( 'v_kscj ').AsInteger:=fieldbyname( 'kscj ').AsInteger;
storedproc1.ParamByName( 'v_kscs ').AsInteger:=fieldbyname( 'kscs ').AsInteger;
storedproc1.ParamByName( 'v_ksy1 ').asstring:=trim(fieldbyname( 'ksy1 ').asstring);
storedproc1.ParamByName( 'v_ksy2 ').AsString:=trim(fieldbyname( 'ksy2 ').asstring);
storedproc1.ParamByName( 'v_jbr ').AsString:=trim(fieldbyname( 'jbr ').AsString);
storedproc1.ParamByName( 'v_zt ').AsString:=trim(Mzt); //fieldbyname(zt).AsString;
storedproc1.ExecProc;
hres:=inttostr(storedproc1.parambyname( 'v_res ').Asinteger);
herr:=storedproc1.parambyname( 'v_err ').asstring;
mems:=mems+scmlsh+ ' '+trim(fieldbyname( 'sfzmhm ').asstring)+ ' '+trim(fieldbyname( 'xm ').asstring)+ ' '+herr;

with datamodule1.ADOQrysc do
begin
close;
sql.Clear;
sql.Add( 'update ksxx set shangch=6,fhres= '+hres+ ',fherr= ' ' '+herr+ ' ' ' where lsh= ' ' '+scmlsh+ ' ' ' ');
execsql;
close;
end;
memo2.Lines.Add(mems);
next;
end;


sctime.Enabled:=true;

end;


[解决办法]
根本用不着存储过程。用Insert语句更好些。