学生管理系统--细节知识点

引言
当我们进行到学生信息管理系统时，这就是我们自己编写的第一个系统，作为一个系统，首先要具备较高的用户感受，所以接下来，就和大家分享一下我在学生信息管理系统中的细微知识点。

command控件-————快捷键

1、设置ESC快捷键
将对应的command控件的Cancel属性设置为True
2、设置回车快捷键
将对应的command控件的Default属性设置为True

日历控件

添加方式：工程—>部件—>Microsoft Windows Common Controls-2.6—>应用—>确定
Format – 决定是否使用标准或自定义格式显示日期和时间。
属性：format：主要是规定格式，当选择属性值为3时，就是设置自定义格式，格式的类型填写在CustomFormat属性中，
例如：
设置范围：

'    检验出生和入校时间的关系
    If DTBornData.Value > DTRudate.Value Or DTBornData.Value = DTRudate.Value Then
        MsgBox "出生日期必须早于入校时间", vbOKCancel + vbExclamation, "警告"
        Exit Sub
    End If

    '给控件变量赋初值
    DTBornData.MaxDate = Date
    DTRudate.MaxDate = Date
    If DTBornData.MaxDate < DTBornData.Value Then
        MsgBox "根据您填写的出生日期，您还没有出生！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If

       '判断时间
    If DTRudate.MaxDate < DTRudate.Value Then
        MsgBox "根据您填写的入校日期，您还没有出生！", vbOKOnly + vbExclamation, "警告"
        DTRudate.Value = ""
        DTRudate.SetFocus
        Exit Sub
    End If

设置年级课程

为了避免重复添加，所以在添加按钮下添加：

Private Sub cmdAdd_Click()
    Dim i%
    For i = 0 To listSelectcourse.ListCount - 1
        If listSelectcourse.List(i) = listAllcourse.List(listAllcourse.ListIndex) Then
            Exit Sub
        End If
    Next
        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End Sub

这样就限制了重复添加的问题！

总结

感谢阅读，如果您有更好的方法，感谢分享，如果小编有写的不好的地方，欢迎指点!