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

沈航设计用纸

cnn.Open

rst.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdUnknown If Not (rst.EOF And rst.BOF) Then '检查结果是否为空

rst.MoveFirst

Do While Not rst.EOF '光标下移直到最后一行

TextTemp = TextTemp & rst!学号 & vbTab & rst!姓名 & vbCrLf rst.MoveNext Loop Else

TextTemp = TextTemp & \无记录\End If rst.Close cnn.Close

Text2 = TextTemp

End Sub

Private Sub Command5_Click()

TextTemp = \查询到的结果\

NameTemp = \

SQL = \学生 WHERE 班级 = '\

cnn.Open

rst.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdUnknown If Not (rst.EOF And rst.BOF) Then '检查结果是否为空 rst.MoveFirst

Do While Not rst.EOF '光标下移直到最后一行

TextTemp = TextTemp & \姓名：\姓名 & vbCrLf TextTemp = TextTemp & \学号：\学号 & vbCrLf TextTemp = TextTemp & \班级：\班级 & vbCrLf

第36页，共39页

沈航设计用纸

TextTemp = TextTemp & \选择的题目：\

TMBH = rst!题目编号 If TMBH = 0 Then

TextTemp = TextTemp & \没有选择题目\ Else

cnn2.Open

SQL = \题目 WHERE 编号 = \

rst2.Open SQL, cnn2, adOpenForwardOnly, adLockReadOnly, adCmdUnknown

TextTemp = TextTemp & \内容 & vbCrLf

TextTemp = TextTemp & \题目等级：\等级 & vbCrLf & vbCrLf

cnn2.Close End If

rst.MoveNext Loop Else

TextTemp = TextTemp & \无记录\End If rst.Close cnn.Close

Text2.Text = TextTemp

End Sub

Private Sub Command6_Click() CommonDialog1.DefaultExt = \CommonDialog1.Action = 2

If CommonDialog1.FileName <> \

Open CommonDialog1.FileName For Output As #2 Print #2, Text2 Close #2 End If

第37页，共39页

沈航设计用纸

End Sub

Private Sub Command7_Click() If NameTemp = \cnn.Open

SQL = \学生 SET 题目编号 = '0' WHERE 姓名 = '\\

cnn.Execute SQL

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

cnn.Close

MsgBox \已成功取消\的选题！\Text2.Text = \

Command5.Visible = False End Sub

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

第38页，共39页

沈航设计用纸

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

Module1

Public mpath$, mlink$

Public cnn As New ADODB.Connection '定义一个ADODB连接 Public rst As ADODB.Recordset '定义Recordset对象

Public cnn2 As New ADODB.Connection '定义一个ADODB连接 Public rst2 As ADODB.Recordset '定义Recordset对象 Public SQL$

六．参考文献

[1] 刘瑞新．《Visual Basic程序设计教程》．北京：机械工业出版社，2003 [2]廖疆星 张艳钗 肖婕．《Access 2002数据库开发指南》．北京：冶金工业出版社，2001 [3]求是科技．《Visual Basic 6.0 数据库开发技术与工程实践》．北京：人民工业出版社，2004

龚沛曾．《Visual Basic程序设计教程》．北京：高等教育出版社，2007

第39页，共39页