如何做考试试题的程序设计思路 - VFP论坛

jxwjlx

等　级：新手上路
帖　子：236
专家分：8
注　册：2013-1-25
结帖率：97.78%

楼主

已结贴√ 问题点数：20 回复次数：26

如何做考试试题的程序设计思路

[attach]82424[/attach]如果是几题可以在表单上作，可是几千题呢？我想肯定要与数据库相联，
但前面的单选按钮在什么上设计？请高手指点思路。如图：

搜索更多相关主题的帖子: 如何　数据库　考试试题　程序设计　

2015-11-09 16:22

jxwjlx

等　级：新手上路
帖　子：236
专家分：8
注　册：2013-1-25

第 3 楼

得分:0

考试题样.rar (75.17 KB)

2015-11-09 17:14

jxwjlx

等　级：新手上路
帖　子：236
专家分：8
注　册：2013-1-25

第 5 楼

得分:0

版主，如有几千题如何才能作出上面图中的样式？我主要想做一个与考试宝典等软件的模式。请指导思路。

[此贴子已经被作者于2015-11-9 18:47编辑过]

2015-11-09 18:43

jxwjlx

等　级：新手上路
帖　子：236
专家分：8
注　册：2013-1-25

第 7 楼

得分:0

版主，能简单的做一个吗？它是如何与数据相连的？

[此贴子已经被作者于2015-11-9 19:13编辑过]

2015-11-09 19:11

吹水佬

等　级：版主
威　望：451
帖　子：10821
专家分：43424
注　册：2014-5-20

第 9 楼

得分:0

以下是引用jxwjlx在2015-11-9 19:11:39的发言：

版主，能简单的做一个吗？它是如何与数据相连的？

简单的示例：

图片附件: 游客没有浏览图片的权限，请登录或注册

程序代码：

** Test.prg
CREATE CURSOR 试题表 (题目 C(100), 选项 I, 单选 M)
INSERT INTO 试题表 VALUES ("题目1xxxxxxxxxxx", 4, "A选1"+0h0D0A+"B选"+0h0D0A+"C选"+0h0D0A+"D选"+0h0D0A+"E选")
INSERT INTO 试题表 VALUES ("题目2xxxxxxxxxxx", 3, "A选2"+0h0D0A+"B选"+0h0D0A+"C选"+0h0D0A+"D选")
INSERT INTO 试题表 VALUES ("题目3xxxxxxxxxxx", 2, "A选3"+0h0D0A+"B选"+0h0D0A+"C选")
INSERT INTO 试题表 VALUES ("题目4xxxxxxxxxxx", 1, "A选4"+0h0D0A+"B选")
GO TOP 
of = CREATEOBJECT("Form1")
of.show(1)

DEFINE CLASS Form1 as Form
    Height = 500
    ADD OBJECT Grid1 as Grid1 WITH Width=this.Width,Height=this.Height
ENDDEFINE

DEFINE CLASS Grid1 as Grid
    ColumnCount = 1
    RowHeight = 150
    RecordSourceType = 1
    RecordSource = "试题表"
    nRecno = 0
    
    PROCEDURE Init
        this.Column1.RemoveObject("Text1")
        this.Column1.AddObject("Contai1", "Contai1")
        this.Column1.Sparse = .F.
        this.Column1.Width = 200
        **this.Column1.DynamicCurrentControl = ["Contai1"]
    ENDPROC
    
ENDDEFINE

DEFINE CLASS Contai1 as Container
    Visible = .T.
    BorderStyle = 0

    ADD OBJECT Text1 as Text1 WITH Top=2,Left=2,ControlSource="试题表.题目"
    ADD OBJECT OptionGroup1 as OptionGroup WITH Top=20,Left=2,BorderStyle=0,ButtonCount=5,ControlSource="试题表.选项"
    ADD OBJECT OptionText1 as Text1 WITH Top=24,Left=22,ControlSource="GETWORDNUM(试题表.单选, 1)"
    ADD OBJECT OptionText2 as Text1 WITH Top=42,Left=22,ControlSource="GETWORDNUM(试题表.单选, 2)"
    ADD OBJECT OptionText3 as Text1 WITH Top=60,Left=22,ControlSource="GETWORDNUM(试题表.单选, 3)"
    ADD OBJECT OptionText4 as Text1 WITH Top=78,Left=22,ControlSource="GETWORDNUM(试题表.单选, 4)"
    ADD OBJECT OptionText5 as Text1 WITH Top=96,Left=22,ControlSource="GETWORDNUM(试题表.单选, 5)"
    
    PROCEDURE Init
        this.OptionGroup1.Width = 20
        this.OptionGroup1.Height = this.Parent.Parent.RowHeight-25
    ENDPROC
ENDDEFINE

DEFINE CLASS Text1 as TextBox
    Visible = .T.
    BackStyle = 0
    BorderStyle = 0
    ReadOnly = .T.
ENDDEFINE

[此贴子已经被作者于2015-11-9 23:45编辑过]

2015-11-09 20:40