delphi 2009 SQLStoredProcÖ´ÐдíÎó˵û²ÎÊý£¿

    SQLStoredProc.StoredProcName:='[dbo].[UpDIMS]';
    SQLStoredProc.ParamByName('@Mindex').AsInteger:=mInfo.Mindex;
    SQLStoredProc.ParamByName('@Longitude').AsInteger:=mInfo.Longitude;
    SQLStoredProc.ParamByName('@Latitude').AsInteger:=mInfo.Latitude;
    SQLStoredProc.ParamByName('@Angle').AsInteger:=mInfo.Angle;
    SQLStoredProc.ParamByName('@Speed').AsInteger:=mInfo.Speed;
    SQLStoredProc.ParamByName('@Time').AsInteger:=mInfo.Time;
    SQLStoredProc.ExecProc;
´æ´¢¹ý³ÌÈçÏ£º
    ALTER PROCEDURE [dbo].[UpDIMS]
-- Add the parameters for the stored procedure here
    @Mindex int,
    @Longitude int,
    @Latitude int,
    @Angle int,
    @Speed int,
    @Time datetime
AS
BEGIN
--ÅжÏdb_infoÖÐÊÇ·ñ´æÔڼǼ
  if(select count(*)
    from db_info where Mindex=@Mindex)>0
    update db_info set Longitude=@Longitude,Latitude=@Latitude,Speed=@Speed,Angle=@Angle,[Time]=@Time where Mindex=@Mindex
  else
    insert into db_info values(@Mindex,@Longitude,@Latitude,@Speed,@Angle,@Time)
  insert into db_info_his values(@Mindex,@Longitude,@Latitude,@Speed,