新建 文本文档.txt

试卷生成和评分系统 试卷生成和评分系统

Private Sub Form_Load()
    txtsql = "select * from 试卷"
    Set mrc = exesql(txtsql)
    Set DataGrid1.DataSource = mrc
End Sub

Private Sub Image1_Click()
    txtsql = "select * from 试卷"
    Set mrc = exesql(txtsql)
    Set DataGrid1.DataSource = mrc
    txtsql = "select * from 选择题"
    Set mrc2 = exesql(txtsql)
    Set DataGrid2.DataSource = mrc3
    If mrc.BOF Then
        mrc.MoveFirst
        Else
        mrc.MovePrevious
    End If
    Dim i As Integer
    k = 1
    On Error Resume Next
    For m = 1 To 10
    Select Case k
    Case 1
    txtsql = "select * from 试卷 where 题1 = '" & mrc2.Fields("题号") & "'"
       Set mrc2 = exesql(txtsql)
    mrc3.MoveLast
    mrc3.AddNew
        For l = 1 To 10
        mrc3.Fields(i) = mrc2.Fields(j)
        i = i + 1
        j = j + 1
        Next l
        Set DataGrid2.DataSource = mrc3
    k = 2
    Case 2
    txtsql = "select * from 试卷 where 题2 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 3
    Case 3
    txtsql = "select * from 试卷 where 题3 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 4
    Case 4
    txtsql = "select * from 试卷 where 题4 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 5
    Case 5
    txtsql = "select * from 试卷 where 题5 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 6
    Case 6
    txtsql = "select * from 试卷 where 题6 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 7
    Case 7
    txtsql = "select * from 试卷 where 题7 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 8
    Case 8
    txtsql = "select * from 试卷 where 题8 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 9
    Case 9
    txtsql = "select * from 试卷 where 题9 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 10
    txtsql = "select * from 试卷 where 题10 = '" & mrc2.Fields("题号") & "'"
    Call xuan
    k = 11
    End Select
    Next m
End Sub

Private Sub Image2_Click()
    If mrc.EOF Then
        mrc.MoveLast
        Else
        mrc.MoveNext
    End If
    Dim i As Integer
    Dim j As Integer
    Dim a As Integer
    a = 4
    j = 1
    i = 1
    On Error Resume Next
    For k = 1 To 10
    txtsql = "select * from 试卷 where " & mrc.Fields(a) & "= '" & mrc2.Fields("题号") & "'"
    Set mrc2 = exesql(txtsql)
    mrc3.MoveLast
    mrc3.AddNew
        For l = 1 To 10
        mrc3.Fields(i) = mrc2.Fields(j)
        i = i + 1
        j = j + 1
        Next l
        a = a + 1
        Set DataGrid2.DataSource = mrc3
    Next
End Sub
Sub xuan()
    Set mrc2 = exesql(txtsql)
    mrc3.MoveLast
    mrc3.AddNew
        For l = 1 To 10
        mrc3.Fields(i) = mrc2.Fields(j)
        i = i + 1
        j = j + 1
        Next l
        Set DataGrid2.DataSource = mrc3
End Sub