学生信息系统优化总结

学生信息系统优化

 

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

学生信息系统还只是一个开始，我会在学习的路上越走越远的！