学生信息管理系统小结-优化篇_大学生选课信息管理系统怎么优化-优快云博客

本文详细探讨了学生信息管理系统优化过程中的关键问题，包括日期格式自动转换、课程与班级去重机制的实现，以及时间差函数应用。通过分析代码逻辑与数据库操作，提出了解决方案并强调了深入学习数据库与编程技巧的重要性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

学生信息管理系统（一）是遇到的问题，调试后能运行。而运行不是目的，让用户喜欢才是目的。所以我们要优化我们的系统。

开始很信任师父给的源码，其实只要你知识丰富了些或思考了，就发现有很多不对的地方。

1.日期添加方式自动转换

txtRudate.Text = Replace(txtRudate,".", "-")
txtRudate.Text = Replace(txtRudate,"/", "-")

".,/"查询到的， "-"要改的

2.listbox课程不重复

list控件说明：
list（index）：取索引值为index的item项的值
listindex：当前选择的item项的索引值
ListCount：返回当前list控件中的item数量
RemoveItem(Index)：从list中删除索引号为index的item项
clear：删除所有item项。

Private Sub cmdAdd_Click()
  Dim intCount  As Integer
   If ListAllcourse.ListIndex <> -1 Then
       intCount = 0
       
       Do While intCount < ListSelectcourse.ListCount
          IfListAllcourse.List(ListAllcourse.ListIndex) = ListSelectcourse.List(intCount)Then
                MsgBox "选择课程重复，请重新选择"
          Exit Sub
          End If
          intCount = intCount + 1
       Loop
 
           
       ListSelectcourse.AddItem ListAllcourse.List(ListAllcourse.ListIndex)
   End If
    
End Sub

3.班级不重复

mrc.MoveFirst
     mrc.MoveFirst
    While (mrc.EOF = False)
        If (Trim(mrc.Fields(1)) = Trim(ComboGrade.Text)) Then
            MsgBox "班级已经存在，请重选择班级！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
            ComboGrade.Text = ""
            ComboGrade.SetFocus
        Else
            mrc.MoveNext
        End If
    Wend

4.时间差函数datediff

If DateDiff("yyyy", CDate(txtRudate), CDate(txtBorndate) + 7) > 0 Then

5..学号按升序排列

 txtSQL = "select * from student_Info where student_ID = '" & comboSID.Text & "'"  & "order by student_ID"

总之，

学生信息管理系统小结-优化篇

4.时间差函数datediff

建数据库要有远见。

vb控件属性，事件，方法学的不扎实。——学而时习之

工具：网络

网址：MSDN:http://msdn.microsoft.com/en-us/library/ms724432(VS.85).aspx