当前位置:跳过导航链接计算机毕业设计首页 : VB毕业设计 : 详细内容

VB试题库在线考试系统(程序下载)(9)

来源:xiaoniu168.com 作者:本站原创 添加时间:2014-11-08 点击数:19629

计算机毕业设计介绍:

(2)组卷历史
    此模块显示所有历史的组卷信息,包括组卷日期和卷子类型。可以查看该卷子的详细信息并导出试卷和删除试卷操作。
计算机毕业论文

以下是引用片段:

其关键代码实现如下:
Public Sub UpdateList()
'设置表格的标头和样式
'动态从数据库中装载数据
'1
Dim arrName()
    arrName = Array("编号", "组卷日期", "卷子类型")
Dim arrColwidth()
    arrColwidth = Array(0, ddd.Width / 2, ddd.Width / 2 - 300)
ddd.Cols = 3
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
    ddd.ColWidth(i) = arrColwidth(i)
    ddd.TextMatrix(0, i) = arrName(i)
    ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 28
Call UpdateDDD(ddd, ExecSql("SELECT ID, MakeDate, Type FROM dbo.PaperDetail    "), 0)

End Sub
Private Sub Form_Load()
'显示卷子内容
Dim tmprs As New ADODB.Recordset
Set tmprs = ExecSql("select * from PaperDetail   where  id=" & idkey & "")
With tmprs
    If .RecordCount > 0 Then
       tmp.strPaperA = .Fields("Jznr").Value
       tmp.strPaperA_Da = .Fields("Jzda").Value
    End If
    Me.RichTextBox1.Text = tmp.strPaperA
End With
End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第10页为计算机毕业论文部分......

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线