做考试系统!(欢迎terry_lzs!)(100分)

1.我想在数据库的一条记录如chapter,type字段设置为'第一章','填空题',
这条记录post后,下一条记录的chapter,type字段自动变为'第一章','填空题';
这个应该如何做???(具体一点代码好吗?)
2:我想用两个combobox框,过滤数据库,如combobox1.text='第一章';combobox2.text='填空';如何来写sql语句,还是用dbgrid的filter.
不过我还是想用sql语句,如果用???
with dm.query1 do
begin
close;
sql.Clear;
sql.Add('select id,type from question where chapter=:chapter and type=:typea);
ParamByname('chapter').asstring=:chapter.text;
Parambyname('typea').asstring=:typea.text;
prepare;
open;
end;
对吗???
3,我做题库的,动态抽题大家有啥好的想法啊???

1、设置全局标量chaptername,typename
在afterpost事件中给它们赋值为当前记录的值；
chaptername:=query1.fieldbyname('chapter').asstring;
type:=query1.fieldbyname('typea').asstring;
这两个字符串值就可以在append新的记录时赋值了，然后post后再给它们赋值，不过初始化
要注意，在post第一条记录你要怎么处理？给它赋什么值？
2、
sql.Add('select id,type from question （where chapter=:chapter) and (type=:typea)');
可以这样写的
3、关于抽题的算法，其实在网上有很多的文章叙述比较多的是随机抽题、第归和启发式搜索
抽题条件用向导式的让用户一步一步地输入，这样范围会越来越小，而且也不会出现各项指
标交集为空的情况

我的代码程序，希望能对你起提示作用
combobox1.Clear ;
adodataset1.Active :=false;
adodataset1.CommandText :='';
adodataset1.Active :=false;
adodataset1.Parameters.CreateParameter('pan',ftstring, pdInput, 1, null);
adodataset1.Parameters.ParamByName('pan').value:='T';
adodataset1.CommandText :='SELECT 订货单头及文本表.定单号 , 供货商表.供货商名称 , '+
'订货单头及文本表.供货商ID FROM 订货单头及文本表 '+
' INNER JOIN ' +
' 供货商表 on 订货单头及文本表.供货商ID = 供货商表.供货商ID '+
' where 订货单头及文本表.订货状态=an';
adodataset1.Active :=true;
for i:=1 to adodataset1.RecordCount do
begin
combobox1.Items.Add(adodataset1.FieldByName('定单号').asstring+' - '+
deletestring(adodataset1.FieldByName('供货商名称').asstring));
adodataset1.Next;
end;
combobox1.ItemIndex :=0;

做什么题库？中学的、大学的？还是专业领域的？

大学的题库啊,还要很专业,现在有以上几个问题了,大家帮忙哦!

多人接受答案了。