学生系统优化三

1.查询窗体复选框优化
查询数据时当复选框被选中时，对应的文本框可用并获得焦点，没有被选中则文本框不可用。
窗体的加载事件使文本框不可用
复选框的单击事件
‘Check√取消后面的内容随之取消
Private Sub Check1_Click()
If Check1.Value = 0 Then
txtSID.Text = “”
txtSID.Enabled = False
With myFlexgrid
.Rows = 2
.CellAlignment = 4
.TextMatrix(1, 0) = “”
.TextMatrix(1, 1) = “”
.TextMatrix(1, 2) = “”
.TextMatrix(1, 3) = “”
.TextMatrix(1, 4) = “”
.TextMatrix(1, 5) = “”
End With
Else
txtSID.Enabled = True
txtSID.SetFocus
End If
End Sub
2.添加成绩信息
添加成绩信息时要先判断学号，考试编号，课程三项是否同时重复，如果重复则不能添加。
‘不能重复
txtSQL = "select *from result_Info where exam_No=’" & comboexamtype.Text & "’ and student_ID= ‘" & combosid.Text & "’ and course_Name= ‘" & combocourse.Text & "’"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
If mrc.EOF = False Then
MsgBox “有相同记录，请重新输入信息！”, vbOKOnly + vbExclamation, “警告”
mrc.Close
Else
'添加内容
mrc.AddNew
mrc.Fields(0) = Trim(comboexamtype.Text)
mrc.Fields(1) = Trim(combosid.Text)
mrc.Fields(2) = Trim(txtname.Text)
mrc.Fields(3) = Trim(comboclassno.Text)
mrc.Fields(4) = Trim(combocourse.Text)
mrc.Fields(5) = Trim(txtresult.Text)
'更新数据库
mrc.Update
'关闭数据集对象
mrc.Close
MsgBox “添加成绩信息成功！”, vbOKOnly + vbExclamation, “添加成绩信息”
End If
End Sub
3.设置课程优化
设置课程时，可以单击列表框中的内容添加或删除，如果已经选中避免添加重复
Private Sub listAllcourse_Click()
Dim selectcourse As Integer
Dim i As Integer '定义两个整形变量
Dim j As Integer

For selectcourse = 0 To listallcourse.ListCount - 1
If listallcourse.Selected(selectcourse) = True Then
listselectcourse.AddItem listallcourse.List(listallcourse.ListIndex)
’ 往listselectcourse列表中添加课程
For i = 0 To listselectcourse.ListCount - 1
For j = i + 1 To listselectcourse.ListCount
‘判断在list列表中是否有相同的名称
If listselectcourse.List(i) = listselectcourse.List(j) Then
listselectcourse.RemoveItem j
MsgBox “已添加此课程！”, vbOKOnly, “提示”
Exit Sub
End If
Next j
Next i
End If
Next selectcourse
End Sub
当选中年级时，把该年级已选择的课程在已选课程的列表框中显示出来
txtSQL = “select*from gradecourse_info where grade = '” & Trim(combograde.Text) & "’"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
While (mrc.EOF = False)
listselectcourse.AddItem mrc.Fields(1)
mrc.MoveNext
Wend
mrc.Close