Delphi编程实现如下图所示,点击右侧的题目编号可快速定位到该题,题目由数据库随机抽取,最好有源代码

如题所述

如果题目一题是一条记录,这就好办了,先让数据集组件的指针回到第一条记录,然后再将打针移动到编号所指定的位置。
取得编号
bh:=strToint(你那个被点击的框子上的数);
移动数据集指针到第一条记录;
fr_sjmk.TB_yhlx_sjbj.First;
再移动到所需要的位置:
fr_sjmk.TB_yhlx_sjbj.MoveBy(bh)追问

打个比方,1题1记录,随机出题后显示在memo1中,要在memo1中快速定位到某题,而非数据库中。类似于html中的锚点

追答

用memo这种纯文本编辑器,是搞不成的,也做不成超链接,我看了你图中那个编号表,他用的好像是一个stringGRID网格组件,这就可以按照我说的那办法定位了。我上面说也不让你只去操作数据库,而是在执行fr_sjmk.TB_yhlx_sjbj.MoveBy(bh) 之后,跟着就从MoveBy(bh)处开始 一条一条的显示题目或答案。如果你的界面可以显示5个题目,就用for i:=1 to 5 do 显示题目或题目及答案。每一次在网格上的点击,都会使题目显示区刷新。至于for i:=1 to 5 do的begin end之间的语句怎么写,不必要再说吧,用一个标签组件显示题目,再用几个多选框或者单选框显示答案。把数据记录中的字段 值赋值给caption属性就行。
题目及答案一类的数据表,文字题不太好办,一般只有判断题和选择题两种题型,一个字段放题目、一个字段放备选项、还有一个字段放答案,还有一个字段放序号,不然怎么随机抽取呢。

追问

还有其他方法吗?我是希望界面显示所有的题目,图片中的是一个网站上。而且我的题目比较长,得用备注型。交个朋友,多请教一下,最好E-MAIL联系:[email protected]

追答

我是没有其它办法了.顺便问一下,你是专业做程序,还是业余玩玩的.我可是业余玩玩的那种.

追问

业余玩玩。如果我是专业做程序的,以我的水平,后果可想而知。留个方式方便联系。

追答

liu55721@163,com

温馨提示:答案为网友推荐,仅供参考
相似回答