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

沈航设计用纸

Private Sub Command1_Click()

SQL = \学生 WHERE 姓名 = '\从学生表中查询学生信息，学生信息正如下图所示

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

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

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

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

判断是否选题的依据是数据库中的题目表中的“已选择”是0或者是1，如果是0，则该题目未被选定，如果“已选择”的值为1，说明该题目已经被选择，数据库中的题目表如图6所示

第11页，共39页

沈航设计用纸

图6 rst.Close cnn.Close

If Check1.Value Then '若进行随机选择，即复选框已经勾起来，如图7

图7

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

第12页，共39页

沈航设计用纸

List2中列出相应等级的未被学生选择的题目

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 \请选择一个题目内容\如果没有在2表中选择题目，则不继续进行，如图8所示

第13页，共39页

沈航设计用纸

图8

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

rst.MoveFirst 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

第14页，共39页

沈航设计用纸

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

如果该学生已经选择过题目，再次选择是会出现如图9的界面

图9 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

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

End Sub

如果单机command2按钮，系统会清空所有的学生选课信息，数据库同时回到初始状

第15页，共39页