HW大型考试系统源码 · 用户讨论与问答

--提交成绩存储过程 CREATE PROCEDURE SubmitUserScore @ExamState int,@RemTime int,@LoginIP varchar(20),@JudgeState int,@JudgeUserID int,@ImpScore float,@SubScore float,@PassState int,@TotalMark float,@UserScoreID int AS Update UserScore set ExamState=@ExamState,EndTime=Getdate(),RemTime=@RemTime,LoginIP=@LoginIP,JudgeState=@JudgeState,JudgeUserID=@JudgeUserID,ImpScore=@ImpScore,SubScore=@SubScore,PassState=@PassState,TotalMark=@TotalMark where UserScoreID=@UserScoreID

--更新成绩存储过程 CREATE PROCEDURE UpdateUserScore @RemTime int,@LoginIP varchar(20),@UserScoreID int AS Update UserScore set EndTime=Getdate(),RemTime=@RemTime,LoginIP=@LoginIP where UserScoreID=@UserScoreID ---

--更新答案存储过程 CREATE PROCEDURE UpdateUserAnswer @RecordNumber int,@UserScoreID int,@RubricID varchar(8000),@UserAnswer varchar(8000),@UserScore varchar(8000) AS Declare @SpliterChar varchar(10) Declare @SpliterLen int Declare @CurrentNumber int Declare @RubricIDBegPos int Declare @RubricIDCurPos int Declare @OneRubricID int Declare @UserAnswerBegPos int Declare @UserAnswerCurPos int Declare @OneUserAnswer varchar(2000)

Declare @UserScoreBegPos int Declare @UserScoreCurPos int Declare @OneUserScore float set @SpliterChar='|' set @SpliterLen=len(@SpliterChar) set @CurrentNumber=1 set @RubricIDBegPos=1 set @UserAnswerBegPos=1 set @UserScoreBegPos=1 while (@CurrentNumber<=@RecordNumber) begin set @RubricIDCurPos=CHARINDEX(@SpliterChar,@RubricID,@RubricIDBegPos) set @OneRubricID=cast(substring(@RubricID,@RubricIDBegPos,@RubricIDCurPos-@RubricIDBegPos) as int)

set @UserAnswerCurPos=CHARINDEX(@SpliterChar,@UserAnswer,@UserAnswerBegPos) set @OneUserAnswer=substring(@UserAnswer,@UserAnswerBegPos,@UserAnswerCurPos-@UserAnswerBegPos) set @UserScoreCurPos=CHARINDEX(@SpliterChar,@UserScore,@UserScoreBegPos) set @OneUserScore=cast(substring(@UserScore,@UserScoreBegPos,@UserScoreCurPos-@UserScoreBegPos) as float) Update UserAnswer set UserAnswer=@OneUserAnswer,UserScore=@OneUserScore where UserScoreID=@UserScoreID AND RubricID=@OneRubricID set @RubricIDBegPos=@RubricIDCurPos+@SpliterLen set @UserAnswerBegPos=@UserAnswerCurPos+@SpliterLen set @UserScoreBegPos=@UserScoreCurPos+@SpliterLen

set @CurrentNumber=@CurrentNumber+1 end ---