数字化教学环境是学校数据化校园建设的重要组成部分。而数字化教学环境以建立网上教务管理系统、网上考试系统、网上答疑系统和网上讨论系统等为主要内容。目前，已实现网上教务管理、网上答疑和网上讨论目标。为实现网上考试目标，探索开发适用于多学科的计算机在线考试软件系统成为关键。要开发出适用于多学科的平台型计算机在线考试系统，首先对试题内容、试题形式、评分标准、试题数量、试卷分析等问题要进行周密的考虑，据此设计出一种能够适用于多学科的平台型试卷模板，在网络环境正常运行的前提下，实现网上在线考试。通过该考试系统，完成自动抽取试卷、自动批阅试卷、自动回收成绩、自动分析试卷、打印成绩单等功能。针对软件系统的功能和性能等实际需求，设计服务器开发环境采用安全性较高稳定性较好的数据服务器SQL Server 2000，采用Windows 2003 Server 作为服务器操作系统，C/S结构前端采用Borland Delphi 7作为开发工具[4]。
CREATE PROCEDURE cp_Paper_Sel @tblDL char(20), @MyPrior int, @MyNext int, @MyKM char(30)
AS
exec(′select top 1 套题编号,套题名称 from tblcrecord where 套题编号 not in
(select 套题编号 from ′+@tblDL+′ where IP序号=′+@MyPrior+′or IP序号=′+@MyNext+′) and 科目名称=‘’‘+@MyKM+’‘’and 是否抽取=′′是′′ order by newid()′)
GO
//检查是否同一IP登录
with cds2 do
begin
Close ;
SQL.Clear ;
SQL.Add(′exec sp_Query_All:fldName,:tblName′);;
Params.ParamByName(′fldname′).Value :=′*′;
Params.ParamByName(′tblName′).Value:=
dm.tblDL+′ where登录IP='''+dm.MyIP+''';
try
Open;
if recordcount<>0 then
begin
sMessageDlg(′警告′,′无效的考试请求！′,
mtWarning ,[mbOK],0);
exit;
end ;
except
raise ;
end;
exec(′insert into′+@tblKS+′ (学生学号,套题编号,试题序号,试题内容,试题答案,试题分数,是否答题,套题名称,考试科目,试题类型,学生分数,类别序号) select '''+@MyNo+''','''+@Mynum+''',试题序号,试题内容,试题答案,试题分数,′′否′′,套题名称,科目名称,试题类型,0,类别序号 from ′+@Mytbl+′ where 套题编号='''+@mynum+''')
GO
