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

沈航设计用纸

End Sub

Private Sub Command2_Click()

Command2为查询班级选课情况的按钮，使用的SQL查询语句跟用姓名查找大同小异，command3、4、5亦同。

NameTemp = \

TextTemp = \未选题目列表\

SQL = \题目 WHERE 已选择 = '0'\

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 & \编号 & vbTab & rst!内容 & vbCrLf

rst.MoveNext Loop Else

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

Text2 = TextTemp

End Sub

Private Sub Command3_Click()

NameTemp = \

TextTemp = \已选题目列表\

第21页，共39页

沈航设计用纸

SQL = \题目 WHERE 已选择 = '1'\

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 & \编号 & vbTab & rst!内容 & vbCrLf

rst.MoveNext Loop Else

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

Text2 = TextTemp

End Sub

Private Sub Command4_Click()

NameTemp = \

TextTemp = \未选题学生\

TextTemp = TextTemp & \学号\姓名\vbCrLf & vbCrLf

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

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

If Not (rst.EOF And rst.BOF) Then '检查结果是否为空

第22页，共39页

沈航设计用纸

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 TextTemp = TextTemp & \选择的题目：\

TMBH = rst!题目编号

第23页，共39页

沈航设计用纸

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 = \ '默认保存的数据类型为文本txt型 CommonDialog1.Action = 2 '使用通用对话框2，打开另存为 If CommonDialog1.FileName <> \

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

Close #2 '关闭文件 End If End Sub

Private Sub Command7_Click()

第24页，共39页

沈航设计用纸

Comand7为清除该同学的选课，即该同学可以清除当前的选课信息后可以去改选，单击该按钮，数据库中的该同学的“选课编号”变为0，同时题目表中的该题目的“已选择”变成0，数据库更新完成，如图12，同时再次用姓名查找，显示该同学没有选择题目，如图13

图12 图13 If NameTemp = \cnn.Open

SQL = \学生 SET 题目编号 = '0' WHERE 姓名 = '\& NameTemp & \cnn.Execute SQL

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

cnn.Close

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

Command5.Visible = False End Sub

第25页，共39页