Question

基于VB试题库自动组卷系统的毕业设计的组卷过程的主要代码要怎么去完成呢?最近忙毕业设计了，等几天去学校

基于VB试题库自动组卷系统的毕业设计的组卷过程的主要代码要怎么去完成呢?最近忙毕业设计了，等几天去学校了就要交！

Answer 1

　　关于你这个计算机毕业设计相关的代码我还是比较精通的，我首历可以给你写一些你参考一下

　　组卷过程：在这里先给出窗体加载谈旁时的代码，主要是完成一些数据库的绑定：

　者侍搜　Private Sub Form_Load()

　　Image1.Picture = LoadPicture(App.Path & "\zj.gif")

　　For i = 0 To 4

　　Adodc1(i).ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data

　　Source=" + App.Path + "\datadb.mdb;"

　　Next

　　Adodc1(0).RecordSource = "选择题"

　　Adodc1(1).RecordSource = "书面表达"

　　Adodc1(2).RecordSource = "短文改错"

　　Adodc1(3).RecordSource = "阅读理解"

　　Adodc1(4).RecordSource = "完型填空"

　　For i = 0 To 4

　　Adodc1(i).Refresh

　　Adodc1(i).Recordset.Filter = adFilterNone

　　Next

　　Data1.DatabaseName = App.Path & "\tempdb.mdb"

　　Data1.RecordSource = "temp"

　　Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\tempdb.mdb"

　　Adodc2.RecordSource = "temp"

　　Adodc2.Refresh
　　Data1.DatabaseName = App.Path & "\tempdb.mdb"

　　Data1.RecordSource = "temp"

　　End Sub