此段代码无论是速度、均衡性，还是随机度都非常好，也不会出现抽到重复记录的可能。

　　一、在SQL Server2000中生成随机记录的最好办法：

    withtk_querydo
　　begin
　　Close;
　　sql.clear;
　　sql.Add("selecttop"+inttostr
　　(st_count)+"tk.ID,标准答案from题库表tk");
　　sql.Add("wherepidisnullandtk.题型=
　　"+quotedstr(tx)+"andtk.知识点="+quotedstr(zsd));
　　sql.add("andtk.难易度="+quotedstr(nyd)+
　　"andtk.课程号="+quotedstr(kcdm)+"orderbynewid()");
　　Open;
　　end;

　　注：关键就是orderbynewid()这条语句，随机因子就是从这里产生。

　　二、数据库为Access2000时生成随机记录的最好办法：

　　由于Access中没有newid()这一随机函数，故要想在Access中直接由SQL语句生成我们所希望的随机记录不太可能，因此我们只好在开发语言中生成合适SQL语句，让Access执行了。

　　//获取题库表中的随机ID，组成一个字符串，类似这样(3,8,2,25,49,1,7,10,6,83....)

　　//kcdm:课程代码,tx:题型,zsd:知识点,nyd:难易度,t_count:某一题型某一知识点某一难度下的要抽取的题量

    functionTTest_Srv_RDataForm.Get_Random_ID
　　(constkcdm,tx,zsd,nyd,t_count:string):string;
　　var
　　sl:TStrings;
　　i,ii,kk:integer;
　　begin
　　try
　　Result:="";
　　sl:=TStringList.Create;
　　withTADOQuery.Create(nil)do
　　begin
　　try
　　Connection:=Adoconnection1;
　　SQL.Text:="selectIDfrom题库表
　　wherepidisnulland题型="+quotedstr(tx)+
　　"and知识点="+quotedstr(zsd)+"and难易度="+quotedstr(nyd)+
　　"and课程号="+quotedstr(Kcdm);
　　Open;
　　whilenotEofdo
　　begin
　　sl.Add(Fields[0].AsString);
　　Next;
　　end;
　　Close;
　　finally
　　Free;
　　end;
　　end;//endwith....
　　ifsl.Count=0then
　　Exit;
　　fori:=0toStrToIntDef(t_count,0)-1do
　　begin
　　kk:=sl.Count;//随机因子
　　Randomize;
　　ii:=Random(kk);//取得随机数
　　ifResult=""then
　　Result:=sl.Strings[ii]
　　else
　　Result:=Result+","+sl.Strings[ii];
　　sl.Delete(ii);
　　//为了避免有可能出现的重复，此ID被抽取过后把它删了
　　ifsl.Count=0then
　　//如果无题可抽了退出循环
　　Break;
　　end;
　　Result:="("+Result+")";
　　//给结果串前后加上(......)，最终形成(24,36,5,89,72,3,6,1....)的串样
　　finally
　　sl.Free;
　　end;
　　end;
　　//=================课程号,题型,知识点,难易度,题量
　　functionTTest_Srv_RDataForm.Get_Random_Sql
　　(constkcdm,tx,zsd,nyd,t_count:string):string;
　　begin
　　Result:=Get_Random_ID(kcdm,tx,zsd,nyd,t_count);
　　ifResult<>""then
　　Result:="selecttop"+t_count+"tk.ID,
　　标准答案from题库表tkwhereidin"+Result
　　else
　　Result:="selecttop"+t_count+"tk.ID,
　　标准答案from题库表tkwhere1=1";
　　end;
　　//以下为调用上述函数生成随机抽题的代码片断
　　.......
　　withtk_querydo
　　begin
　　Close;
　　sql.Clear;
　　sql.Text:=Get_Random_Sql(Kcdm,tx_str,zsd_str,nyd_str,txzsd_count_str);
　　Open;
　　end;