《学生信息管理系统》知识点总结

    写这个系统的代码的时候，有很多函数还有VB知识不懂，现在明白了些，整理下，打包下收获：

    1.trim函数

    好多个窗体的代码里都有用这个函数，一开始啥都不懂，哎，怎么我也没查查呢，忘了为什么了...反正跟个机器似的，一直在那敲，敲完了，一头雾水，整的个啥呢，那就开始倒嚼吧，于是上网，2秒钟得到结果，我靠，这么简单：删除字符串中多余的空格，但会在英文字符串中保留一个作为词与词之间分隔的空格。SQL 中的 TRIM 函数是用来移除掉一个字串中的字头或字尾。最常见的用途是移除字首或字尾的空白。这个函数在不同的资料库中有不同的名称。

    好几天不懂的东西，秒秒钟搞定了...

    ltrim   去掉左边空格

    rtrim   去掉右边空格

    2.end sub 和 exit sub

    end sub 结束一个过程，exit sub 从过程中退出，这个exit sub 在我优化的系统中起到了举足轻重的地位，程序执行到end sub 表示这个进程执行完了，执行到exit sub ，表示从进程中退出，后面的代码就不用执行了。看起来好像一样，有时候我们需要在一定的条件下从过程中退出，而当条件不足时，就不要退出。

    比如修改课程信息里面的删除记录按钮

     看下代码，注意找里面的exit sub

Private Sub deleteCommand_Click()
myBookmark = mrc.Bookmark
str2 = MsgBox("是否删除当期记录？", vbOKCancel, "删除当期记录")
On Error GoTo gperror
If str2 = vbOK Then
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
myBookmark = mrc.Bookmark
mrc.MoveLast
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
Else
myBookmark = mrc.Bookmark
mrc.MovePrevious
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
End If
Else
mrc.Bookmark = myBookmark
Call viewData
End If
Exit Sub
'在这儿，这个exit sub 作用很大
gperror:
MsgBox "已经没有记录了，窗口即将关闭！", vbOKOnly + vbInformation, "提示"
txtCourseno = ""
Unload Me
str1 = MsgBox("记录都删没了，还添加吗？", vbOKCancel + vbQuestion, "问题：")
If str1 = vbOK Then
frmAddcourseinfo.Show
End If
End Sub

    程序就这么一行一行的执行着，当点击删除记录按钮后，如果还有记录则显示，如果删除的是正好是最后一条记录，这时，不执行任何操作，程序肯定就会报错，显示eof和bof重合，那么从Exit Sub 那退出过程，开始执行事先编写的错误处理语句，完美解决问题。

    系统代码中还有很多Exit Sub，作用不可小觑。

     3.SQL Server 2008里各种DateTime的取值范围

       我的网易博客

            4.入学日期和出生日期的比较

      定义两个日期型变量即可直接比较，解决问题

Dim borndate As Date
'定义这两个变量，后期进行输入出生和入学时期的比较
Dim getdate As Date
borndate = Trim(txtBorndate.Text)
getdate = Trim(txtRudate.Text)
If getdate <= borndate Then
MsgBox "入学时间不能小于出生时间，(+﹏+)~狂晕 请重新输入", vbOKOnly + vbInformation, "提示"
txtRudate.SetFocus
Exit Sub
End If

     这个还没有深入了解，知道它是个函数，要执行SQL语句，系统中有这么一句

Set mrc = ExecuteSQL(txtSQL, MsgText)

     括号里面的两个参数 txtSQL 是用来执行的SQL语句 比如:select * from 表；MsgText参数 指的是执行完SQL语句后的弹出框，是成功了还是失败了之类的。

     李亚松的博客有解释这个函数的定义，注释做的很好。

             6. Dim str2$ AS Boolean  这句错误代码

     字符串型(String) 这一数据类型声明符是用 $ 表示的，它与Boolean相互冲突。而且MsgBox返回的是Integer值。

     这么写就不会出错了：

Dim str2 As Integer
str2 = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

     7.Dim mrcc AS ADODB.Recordset

     一直把mrcc还写作mrc，最后程序跑起来总是得不到结果，然后改为mrcc，竟然成功了...没想到，真有这个mrcc啊，而且定义都为记录集，好吧，才疏学浅

     还有很多不懂的，在机房收费系统中再次长见识吧。   

最后

以上就是彪壮大叔为你收集整理的《学生信息管理系统》知识点总结的全部内容，希望文章能够帮你解决《学生信息管理系统》知识点总结所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。