学生信息管理系统(一)是遇到的问题,调试后能运行。而运行不是目的,让用户喜欢才是目的。所以我们要优化我们的系统。
开始很信任师父给的源码,其实只要你知识丰富了些或思考了,就发现有很多不对的地方。
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"
总之,