计算机毕业设计手动组卷功能介绍：
4.6 手动组卷管理
此模块可以通过在试题列表里选择试题以后，进行组卷。
|
以下是引用片段：
其关键代码实现如下：
Private Sub UserControl12_Click()
'将当前列表中所有行前面的标志为 对号的
'依次拼成组卷信息中的题目
Dim strJznr As String
Dim strJznrAll As String
Dim strDa As String
Dim fs As Integer
Dim i As Long
Dim j As Long
j = 1
For i = 1 To Me.ddd.Rows - 1
If Me.ddd.TextMatrix(i, 0) = "√" Then
strJznr = strJznr & "第" & j & "题:" & ddd.TextMatrix(i, 4) & "(" & CInt(ddd.TextMatrix(i, 6)) & "分)" & vbCrLf & vbCrLf
strJznrAll = strJznrAll & "第" & j & "题:" & ddd.TextMatrix(i, 4) & "(" & CInt(ddd.TextMatrix(i, 6)) & vbCrLf & "答案:" & ddd.TextMatrix(i, 5) & vbCrLf & vbCrLf
strDa = strDa & "第" & i & "题答案:" & ddd.TextMatrix(i, 5) & vbCrLf & vbCrLf
fs = fs + CInt(ddd.TextMatrix(i, 6))
j = j + 1
End If
Next
strJznr = strJznr & vbCrLf & vbCrLf & "卷子总分:" & fs
strDa = strDa & vbCrLf & vbCrLf & "卷子总分:" & fs
strJznrAll = strJznrAll & vbCrLf & vbCrLf & "卷子总分:" & fs
'保存组卷信息
Dim tmprs As New ADODB.Recordset
With tmprs
If .State = 1 Then .Close
.Open "Zj", conn, adOpenDynamic, adLockOptimistic
.AddNew
.Fields("Jznr").Value = strJznr
.Fields("Jznrall").Value = strJznrAll
.Fields("jzda").Value = strDa
.Fields("zfs").Value = fs
.Fields("ygid").Value = strRyid
.Fields("lrsj").Value = Date
.Update
End With
'显示组卷信息详细内容
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第12页为计算机毕业论文组卷信息管理功能介绍......