大哥们:
我想要一个用DB数据库放题目的随机抽题程序的原码?
要求如下:
选择题
题目涉及语文、英语等十类。要求从每一类中选一题。
如果语文类没有再从英语类中选一题。
做完后返回用户作错题的答案和总分等信息。
请发送到邮箱:[email protected]
高分相送
分数可以再加!
我想要一个用DB数据库放题目的随机抽题程序的原码?
要求如下:
选择题
题目涉及语文、英语等十类。要求从每一类中选一题。
如果语文类没有再从英语类中选一题。
做完后返回用户作错题的答案和总分等信息。
请发送到邮箱:[email protected]
高分相送
分数可以再加!
解决方案 »
- 连表查询更新数据的问题?
- 請教一個procedure edtCodeButtonClick(Sender: TObject; AbsoluteIndex: Integer)是什麼控件!
- 关于导出到Excel及对Excel设置问题?
- 【Look for Project】武汉的朋友可以进来聊聊吗,散分100
- 求大虾指点
- 打印问题!
- 我有一段PB源程序,請問哪位高手能把他改成Delphi???
- 关于将查询结果用excel输出的问题
- 100分求两个函数的Object Pascal代码。提供C代码,要求转成Object Pascal代码。
- 关于在向固定格式的Word模版中导入数据的问题,急!!!!!!!!!!!!!!!
- 再次提问,一个比较不常见的问题,请各位高人相助。谢谢,在下感激不尽,大家都进来看看!
- 关于Delphi开发Web程序的报表打印问题(又得出放分了)
以前用asp写过此类程序,
但原码在公司里
现在我放假在家啊
random(x)返回一个大于0小于x的随机值
使用前要先调用randomize或者给randseed赋值初始化var I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;
select top 10 * from 表 order by newid()
上面的代码已经给得很清楚了
sql 语句
select top 10 * from 表 order by newid()
使用adoquery控件
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add();
adoquery1.open;
//你还要记得配置connectionstring属性,连接上数据库