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

沈航设计用纸

MsgBox \已清空所有选题记录\

End Sub

Private Sub Command3_Click() FormXT.Hide Form1.Show End Sub

Private Sub Form_Load()

Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient '返回游标引擎的位置 mpath = App.Path ' 获取程序所在的路径

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

mlink = \指定提供者

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

cnn.ConnectionString = mlink cnn.ConnectionTimeout = 30

List1.Clear '清空list1的内容 '向姓名表中增加所有姓名 SQL = \学生 \cnn.Open

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

Do While Not rst.EOF '光标下移直到最后一行 List1.AddItem rst!姓名 rst.MoveNext Loop

rst.Close cnn.Close End Sub

第31页，共39页

沈航设计用纸

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

Private Sub List1_Click()

StuName = List1.List(List1.ListIndex)

End Sub

Private Sub Option1_Click(Index As Integer)

On Error GoTo ERR2 '当代码出错后转到标签为 err2的那一行 List2.Clear

Select Case Index Case 0

Level = \

SQL = \题目 WHERE 等级 = 'A'\Case 1

SQL = \题目 WHERE 等级 = 'B'\ Level = \Case 2

SQL = \题目 WHERE 等级 = 'C'\ Level = \End Select cnn.Open

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

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

If rst!已选择 = \内容 '加载该等级题目，只显示未选择的题目 rst.MoveNext Loop

rst.Close cnn.Close

Exit Sub

第32页，共39页

沈航设计用纸

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

Dim TextTemp As String Dim TMBH As Integer Dim NameTemp As String

Private Sub Command1_Click()

TextTemp = \查询到的结果\

NameTemp = Text1.Text

SQL = \学生 WHERE 姓名 = '\

cnn.Open

rst.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdUnknown If Not (rst.EOF And rst.BOF) Then '检查结果是否为空 TextTemp = TextTemp & \姓名：\姓名 & vbCrLf TextTemp = TextTemp & \学号：\学号 & vbCrLf TextTemp = TextTemp & \班级：\班级 & vbCrLf TextTemp = TextTemp & \选择的题目：\

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

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

rst.Close

SQL = \题目 WHERE 编号 = \

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

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

End If

第33页，共39页

沈航设计用纸

Else

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

Text2.Text = TextTemp

End Sub

Private Sub Command2_Click()

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

第34页，共39页

沈航设计用纸

End Sub

Private Sub Command3_Click()

NameTemp = \

TextTemp = \已选题目列表\

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 & \学号\& vbTab & vbTab & vbTab & \姓名\& vbCrLf & vbCrLf

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

第35页，共39页