学生信息管理系统总结（二）

内部知识点的理解和一些含义解释：

Trim( ):    删除字符串首尾的空白（可以首尾一起，也可以指定首或尾，取决于控制参数），但会保留字符串内部作为词与词之间分隔的空格。

语    法:Trim ( string )

各种 trim 函数的语法如下：

1.LTRIM(字串):将字串左边的空格移除。

2.RTRIM(字串): 将字串右边的空格移除。

3.TRIM(字串): 将字串首尾两端的空格移除,作用等于RTRIM和LTRIM两个函数共同的结果。

4.ALLTRIM(字串)：将字串左右边两边的空格移除。

__________________________________________________

BOF和EOF：

BOF 指示当前记录位置位于 Recordset 对象的第一个记录之前。

EOF 指示当前记录位置位于 Recordset 对象的最后一个记录之后。

查询到的解决上图问题的解决方案：

1.   if（mrc.BOF And mrc.EOF）then

 Msgbox"无数据"，vbOKOnly+vbExclamation,"温馨提示："

       Else

          mrc.MoveFirst

       End If

       Exit Sub

2.on error resume next 

rss.movefirst 

   if  err=3021 then 

      response.write "无数据！" 

   end if

———————————————————————————————

日期问题：

在程序中有添加学籍信息一项，常识都知道入校日期当然得晚于出生日期啦，所以可能需要这样啦

If DateDiff("d",txtBornDate,txtRuDate)<0 then

Msgbox"日期设置不合理"，vbOKOnly+vbExclamation,"温馨提示："

txtRuDate.Text=""

End If

________________________________________________________

StatusBar控件：

StatusBar1是状态栏控件的名称；Panels(1).Text表示状态栏上第1个空格所显示的文本内容，Panels（1）代表状态栏控件的第一个窗格；Format(Date, "\yyyy年mm月dd日\")这是调用格式函数Format，设置文本格式，Format函数可以将信息设置成你所需要的显示形式（格式）。

改正办法：

1.删除sbStatusBar.Panels(1).Text = "添加用户"或者将它注释掉

2.新建form取名sbStatusBar，然后在这个窗体上新建个文本框取名Panels，并且文本框属性index为1就可以了。

———————————————————————————————

参数不可选问题：

参数的数量和类型必须符合预期。此错误的原因和解决方案如下：

1. 参数数量不正确。请提供所有必要的参数。例如，Left 函数需要两个参数；第一个表示要操作的字符串，第二个表示要从字符串左侧返回的字符数。由于两个参数都不是可选参数，因此必须同时提供。

2.省略的参数不是可选参数。只有在过程声明中将参数声明为 Optional 时，才能在对用户定义的过程的调用中省略该参数。请在调用中提供参数，或在定义中将该参数声明为 Optional参数。

_______________________________________________________

窗体大小设置：窗体有个borderStyle属性  设置成3就是固定不变的了

电话位数设置：1.还记得窗体那里有个max和min设置吗？2.修改数据库里的属性将char（10）修改为char（11）就可以将10位电话号码修改为11位电话号码。

TEXT文本被选中设置：

很多时候，截面上有很多文本框，我们希望实现每一次文本框得到焦点时，全部内容都处于被选中的状态。我现在知道的方法是：  

Private Sub Text_GotFocus()
    Text.SelStart = 0
    Text.SelLength = Len(Text.Text)
End Sub

如果界面上有20个文本框，这段代码就要被写20次。很容易有遗漏或者由于反复拷贝造成错误。有没有什么好的办法，可以在一个函数里对文本框设置这个功能。比如说，有没有一个函数可以实现

    SetControlStyle(Text.hWnd, AutoSelectContent)

ExecuteSQL

Set mrc = ExecuteSQL(txtSQL, MsgText)经过查询发现是这样的。ExecuteSQL是个函数，它可以直接执行sql的语句，txtSQL就是咱们用来执行的sql语句，而MsgText就是个弹出框，告诉咱们到底成功了没。

$ 

If str2$ = vbOK ，$代表string，因为msgbox返回的是数值，ok返回的是"1"cancel返回的是"2"。