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

沈航设计用纸

态，即题目表中的“已选择”复位变成0，学生表中的题目编号再次变为0

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

按command3,退出选课界面，回到主界面 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

第16页，共39页

沈航设计用纸

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

rst.Close cnn.Close End Sub

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

第17页，共39页

沈航设计用纸

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

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

rst.MoveNext Loop rst.Close cnn.Close

formcx:

以下进入查询窗体，如图4所示

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这个变量，是为了出现如图10所示的结果

第18页，共39页

沈航设计用纸

图10

TextTemp = TextTemp & \姓名：\姓名 & vbCrLf TextTemp = TextTemp & \学号：\学号 & vbCrLf TextTemp = TextTemp & \班级：\班级 & vbCrLf TextTemp = TextTemp & \选择的题目：\

TMBH = rst!题目编号

If TMBH = 0 Then

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

如果TMBH为0，说明该学生没有选择题目，则出现图11的窗口

第19页，共39页

沈航设计用纸

图11 Else

rst.Close

SQL = \题目 WHERE 编号 = \ rst.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdUnknown

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

End If Else

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

Text2.Text = TextTemp

第20页，共39页