学生信息系统优化
1、查询时，如果取消勾选“按学号”，文本框中的1 不会清楚，这个的解决办法是加入一段代码，
Private Sub Check1_Click()
If Check1.Value = 1 Then
txtSID.Visible = True
Else
txtSID.Text =""
End If
End Sub
2、下拉框中可以输入字符怎么po，在属性中更改一下就可以了
combo的style属性默认值是0-dropdown combo，把它更改为2-dropdown list
0-dropdown combo 下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择活在文本框中输入
1-dropdown combo 简单组合框，包括一个文本框和一个不能下拉的列表，可以从列表中选择或在文本框中输入内容
2-dropdown combo 下拉式列表，这种样式仅允许从下拉式列表中选择
3、MSGFlexGrid查询时有空行，修改代码
4日历问题有两个办法
在工程-部件 中添加Microsoft Windows common controls-2 6.0, 然后可以添加DTPicker控件也可以添加MonthView控件，最终的实现结果是一样的。
但是我认为有点不太好，因为要一个月一个月的去点，所以我设置了一下UpDown属性，变成了这个样子我觉得这样很方便
5数据库为空时
在修改的窗体中加入代码
先判断数据库是否为空，如果这个时候去点击修改记录什么的，会报出错误，所以索性就让它不能用好了，于是我加上了后面两行代码，就是控件都不可用了，这样避免了报出错误。
6在添加成绩窗体中
设置选中学号自动弹出姓名
Private SubcomboSID_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select*from student_infowhere student_Name='" & comboSID.ListCount & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
txtname.Text = mrc.Fields(1)
End Sub
7在设置课程窗口中，避免重复添加课程
Private SubcmdAdd_Click()
Dim selectcourseAs Integer
Dim i As Integer
Dim j As Integer
For selectcourse = 0 Tolistallcourse.ListCount - 1
If listallcourse.Selected(selectcourse) =True Then
listselectcourse.AddItemlistallcourse.List(listallcourse.ListIndex)
' 向listselectcourse列表中添加课程
For i = 0 Tolistselectcourse.ListCount - 1
For j = i + 1 Tolistselectcourse.ListCount
'判断在list列表中是否有相同的名称
If listselectcourse.List(i) =listselectcourse.List(j) Then
listselectcourse.RemoveItemj
MsgBox "已添加此课程！", vbOKOnly + vbExclamation, "提示"
Exit Sub
End If
Next j
Next i
End If
Next selectcourse
End Sub
学生信息系统还只是一个开始，我会在学习的路上越走越远的！