学生信息管理系统系列博客五
2014-08-06 10:19
405 查看
全心全意为人民服务是没有尽头的……所以继续优化我的系统!!
优化5、设置课程不可重复
当我们为年级设置课程时,需要从所有课程中为每个年级设置相应的课程,但总是能重复添加。所以我们需要一段代码控制不能重复添加课程。代码如下:
Private Function addlist(list As ListBox,str As String) As Boolean
'自定义函数,保证每次添加时,只能添加某项一次
Dim i As Long
For i = 0 To list.ListCount - 1
If list.list(i) = str Then
Exit Function
End If
Next
list.AddItem str
addlist = True
End Function
Private Sub cmdAdd_Click()
'添加时要调用不重复添加的自定义过程
If listAllcourse.ListIndex <> -1 Then
Calladdlist(listSelectcourse, listAllcourse.list(listAllcourse.ListIndex))
End If
End Sub
这样用户就不能重复的添加课程啦……
优化6、当查询学籍或成绩时,没有记录需要提醒
我们在查询时,如果有我们查询的,结果会弹出来,但是当没有时,就没有任何的反应,所以我们要在没有查询结果时,给用户一个提示。代码如下:
If mrc.EOF = True Then
MsgBox "没有该记录!", vbOKOnly, "提示"
Check1(0).Value = False
Check1(1).Value = False
Check1(2).Value = False
txtSID.Text = ""
txtName.Text = ""
txtCourse.Text = ""
EndIf
注意:此段代码一定要加在Set mrc = ExecuteSQL(txtSQL, MsgText) 之后,因为这句之上是查询之后,将表拿过来放在记录集中,之后我们判断是不是在记录集在中没有此项记录。
优化7、一下清空所有的文本框
每当我们要添加信息的时候,窗体弹出,每个文本框应该是空的,这样更方便用户添加。但是在代码中,我们就必须把每个框清空,写好多行的代码。我们可以用一个循环一下清空所有的文本框,代码如下:
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then '是否为文本框TextBox
ctrl.Text = ""
End If
Next
优化8、限制某些文本框只能输入数字
例如学号文本框和联系方式文本框只能输入数字,如果有的用户输入别的话,会提示。代码如下
Private Sub Text1_change()
'非数字校验~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字!", 48, "错误提示"
Text1.Text =""
Text1.SetFocus
Exit Sub
End If
Endsub
优化的地方我就想到了这么多,看来要想做到全心全意为人民服务真不是一件容易的事呀!!!
优化5、设置课程不可重复
当我们为年级设置课程时,需要从所有课程中为每个年级设置相应的课程,但总是能重复添加。所以我们需要一段代码控制不能重复添加课程。代码如下:
Private Function addlist(list As ListBox,str As String) As Boolean
'自定义函数,保证每次添加时,只能添加某项一次
Dim i As Long
For i = 0 To list.ListCount - 1
If list.list(i) = str Then
Exit Function
End If
Next
list.AddItem str
addlist = True
End Function
Private Sub cmdAdd_Click()
'添加时要调用不重复添加的自定义过程
If listAllcourse.ListIndex <> -1 Then
Calladdlist(listSelectcourse, listAllcourse.list(listAllcourse.ListIndex))
End If
End Sub
这样用户就不能重复的添加课程啦……
优化6、当查询学籍或成绩时,没有记录需要提醒
我们在查询时,如果有我们查询的,结果会弹出来,但是当没有时,就没有任何的反应,所以我们要在没有查询结果时,给用户一个提示。代码如下:
If mrc.EOF = True Then
MsgBox "没有该记录!", vbOKOnly, "提示"
Check1(0).Value = False
Check1(1).Value = False
Check1(2).Value = False
txtSID.Text = ""
txtName.Text = ""
txtCourse.Text = ""
EndIf
注意:此段代码一定要加在Set mrc = ExecuteSQL(txtSQL, MsgText) 之后,因为这句之上是查询之后,将表拿过来放在记录集中,之后我们判断是不是在记录集在中没有此项记录。
优化7、一下清空所有的文本框
每当我们要添加信息的时候,窗体弹出,每个文本框应该是空的,这样更方便用户添加。但是在代码中,我们就必须把每个框清空,写好多行的代码。我们可以用一个循环一下清空所有的文本框,代码如下:
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then '是否为文本框TextBox
ctrl.Text = ""
End If
Next
优化8、限制某些文本框只能输入数字
例如学号文本框和联系方式文本框只能输入数字,如果有的用户输入别的话,会提示。代码如下
Private Sub Text1_change()
'非数字校验~
If IsNumeric(Text1.Text) = False Then
MsgBox "请输入数字!", 48, "错误提示"
Text1.Text =""
Text1.SetFocus
Exit Sub
End If
Endsub
优化的地方我就想到了这么多,看来要想做到全心全意为人民服务真不是一件容易的事呀!!!
相关文章推荐
- 学生信息管理系统系列博客七
- 学生信息管理系统系列博客二
- 学生信息管理系统系列博客(一)
- 学生信息管理系统系列博客四
- 学生信息管理系统系列博客三
- 学生信息管理系统系列博客六
- 学生信息管理系统个人博客
- 学生信息管理系统个人博客
- 学生信息管理系统系列三:验收时的改进
- 学生信息管理系统系列二:常见问题
- Java课程设计 学生基本信息管理系统 团队博客
- JAVA课程设计-学生信息管理系统(个人博客)
- 就C语言的指针、链表的原理和各类操作撰写一篇技术博客,说说自己学习C语言指针和链表的体会,并将学生信息管理系统进行修改,使能完成其他的功能,并撰写体会,附加源代码。
- 学生信息管理系统团队博客
- 学生信息管理系统系列一:问题总结
- [VB.NET源码]学生信息管理系统
- 文博学费管理系统简介+适用于各类学校的学生收费管理+信息统计
- 【原创视频教程】学生信息管理系统5--学员成绩管理
- 命名规范不只是增加可读性!(实例:asp.net C#学生信息管理系统)
- 【原创视频教程】学生信息管理系统6--学员信息管理(完结篇)