课程设计题目选择系统 - 图文(6)

沈航设计用纸

Private Sub Command8_Click() Private Sub Command8_Click()

CommonDialog1.Action = 5 '打开打印对话框 For i = 1 To CommonDialog1.Copies

Printer.Print Text2.Text '打印文本框中的数据 Next i

Printer.EndDoc '结束文档的打印 End Sub

Private Sub Form_Load()

Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset Set cnn2 = New ADODB.Connection Set rst2 = New ADODB.Recordset rst.CursorLocation = adUseClient rst2.CursorLocation = adUseClient

mpath = App.Path ' 获取程序所在的路径

If Right(mpath, 1) <> \ ' 判断是否为子目录

mlink = \ ' 指定提供者

mlink = mlink + \ ' 在数据库文件名前插入路径

cnn.ConnectionString = mlink cnn.ConnectionTimeout = 30 cnn2.ConnectionString = mlink cnn2.ConnectionTimeout = 30

End Sub

Private Sub Form_Unload(Cancel As Integer) Form1.Show End Sub

第26页，共39页

沈航设计用纸

四．总结

我课程设计的题目是vb课设题目选择系统，一周的课设让我了解了VB与access的联系，学会了读取aaccess数据库的内容并向数据库中修改信息。

在编程的过程中，我遇到了重重困难。通过向同学请

教和自己查阅资料，经过大量的调试和程序界面的不断优化，我克服了困难，顺利的完成了任务。

这次课程设计让我体会到了VB程序设计这门课程真的很有用。运用这些知识可以解决许多我们身边的问题，所以理论与实践结合是必要的。同时我也认识到了自己在编程方面的不足，需要不断深入和完善对计算机语言的学习。

五．完整的源程序

Form1 Private Sub Command1_Click() Form1.Hide

第27页，共39页

沈航设计用纸

FormXT.Show End Sub

Private Sub Command2_Click() Form1.Hide FormCX.Show End Sub

Private Sub Form_Load() Form2.Show Form1.Hide End Sub Form2 Private Sub Command1_Click() Form2.Hide Form1.Show End Sub

Private Sub Command2_Click() End End Sub Formxt Dim XuanZ As Integer, Conta As String Dim StuName As String Dim Level As String

Private Sub Command1_Click()

SQL = \学生 WHERE 姓名 = '\

On Error GoTo ERR1 '当代码出错后转到标签为 err1的那一行

cnn.Open ' '打开数据集的连接

rst.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdUnknown rst.MoveFirst ''把数据库指针移到第一条信息

If rst!题目编号 = \判断该学生是否已经选题 rst.Close cnn.Close

第28页，共39页

沈航设计用纸

If Check1.Value Then '若进行随机选择

SQL = \题目 WHERE 已选择 = '0' AND 等级 = '\& Level & \构建SQL语句，对数据库的查询，修改，添加，删除都需要使用SQL语句

cnn.Open

rst.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdUnknown '调出你选择的学生的信息 rst.MoveFirst XuanZ = rst!编号 Conta = rst!内容 rst.Close

SQL = \题目 SET 已选择 ='1' WHERE 编号 = \将题目表中选定的题目变为已选状态

cnn.Execute SQL '返回更新查询到结果集

SQL = \学生 SET 题目编号 = '\姓名 = '\学生表中该学生添加选择的题号 cnn.Execute SQL

cnn.Close

For i = 0 To List2.ListCount - 1 '将选过的题目从表中删掉 If List2.List(i) = Conta Then List2.RemoveItem (i): Exit For

Next i

Else '不进行随机选择 If List2.ListIndex < 0 Then MsgBox \请选择一个题目内容\Exit Sub '如果没有在2表中选择题目，则不继续进行

SQL = \* FROM 题目 WHERE 内容 = '\& List2.List(List2.ListIndex) & \根据题目的内容，查出题目的编号 cnn.Open

rst.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdUnknown

rst.MoveFirst

第29页，共39页

沈航设计用纸

XuanZ = rst!编号 rst.Close

SQL = \题目 SET 已选择 = '1' WHERE 编号 = \'将题目表中选定的题目变为已选状态 cnn.Execute SQL

SQL = \学生 SET 题目编号 = '\姓名 = '\学生表中该学生添加选择的题号 cnn.Execute SQL

cnn.Close

List2.RemoveItem (List2.ListIndex) End If Else

rst.Close cnn.Close

MsgBox \该学生已选择题目！\End If

Exit Sub

ERR1: MsgBox \数据库出错，请检查程序\End Sub

Private Sub Command2_Click()

cnn.Open

SQL = \题目 SET 已选择 = '0'\ cnn.Execute SQL

SQL = \学生 SET 题目编号 = '0'\ cnn.Execute SQL cnn.Close

第30页，共39页