学生信息管理系统之小小知识点

一、variant数据类型解释：

变量定义的一种变体类型
意思是：我现在定义了这个变量，但是我并不确定将来对他赋予什么类型来操作，所以就先暂时向内存借一个位置（空间）放下变量.等将来实际操作的时候动态的根据需要为该变量赋予相应类型

二、过程中的exit sub

exit sub 的作用是结束当前的过程，不再执行后续程序。

在此代码中的含义是：如果检测到文本框为空，则不再执行后续进程，返回初始，光标定在用户名文本框。

三、call viewdate

Call语句用于调用函数或子过程。
viewdata是函数名或子过程名来的。

调用函数或子过程序的三种方法：

1. 直接写该函数或子过程名；
2. 利用变量或对象赋值调用；
3. 用Call语句调用；

四、mrc与mrcc

Dim Mrc as ADODB.Record
Dim mrcc as ADODB.Record
这是定义的两个不同的记录集，每个记录集自在代码运行中都有各自的节点位置，互不干扰。但是可以通过对其中一个记录集逻辑内容的判断，使另一个记录集做出与判断是否相符的事件。
下面这段代码就是通过对mrcc记录的循环判断，判断输入内容是否符合代码要求，如若符合，则删除之前mrc的记录，更新新的记录。在这里mrcc只是作为了对输入内容进行正确与否的判断依据，与mrc并没有任何关系。（感谢连康讲解，虽然理解的还不是很好。）

txtSQL = "select * from class_info"Set mrcc = ExecuteSQL(txtSQL, MsgText)    If Not (mrcc.EOF Or mrcc.BOF) Then        mrcc.MoveFirst        While (mrcc.EOF = False)            If (Trim(mrcc.Fields(0)) = Trim(txtClassno.Text) And Trim(mrcc.Fields(1)) = Trim(combograde.Text) And _                Trim(mrcc.Fields(2)) = Trim(txtDirector.Text) And Trim(mrcc.Fields(3)) = Trim(txtClassroom.Text)) Then                MsgBox "班号或年级已经存在，请重新输入！", vbOKOnly + vbExclamation, "警告"                mrcc.Close                txtClassno.Text = ""                txtClassno.SetFocus                Exit Sub            Else                '移动到下一条记录                mrcc.MoveNext            End If        Wend        mrc.Delete        mrcc.Close        mrc.AddNew        mrc.Fields(0) = Trim(txtClassno.Text)        mrc.Fields(1) = Trim(combograde.Text)        mrc.Fields(2) = Trim(txtDirector.Text)        mrc.Fields(3) = Trim(txtClassroom.Text)        mrc.Update        MsgBox "更新数据成功！", vbOKOnly + vbExclamation, "修改班级信息"    Else         Exit Sub    End If

五、对于一些属性的重新学习

窗体属性：

windowstate——设置窗体首次显示时的尺寸（若设置为Maximized或者Minimized后，无法 通过Size属性设置窗体的大小）
MDIChild——将窗体的SDI（单文档界面）转换为MDI（多文档界面）

文档属性：

passwordchar——设置文本统一字符
ScrollBars——用来设置滚动条模式， 有四种选择：

• ScrollBars.None （无滚动条），
• ScrollBars.Horizontal（水平滚动条），
• ScrollBars.Vertical（垂直滚动条），
• ScrollBars.Both（水平和垂直滚动条）。

注意：只有当MultiLine属性为true时，该属性值才有效。在WordWrap属性值为true时，
水平滚动条将不起作用

MultiLine——返回或设置一个值，该值指示 TextBox 控件是否能够接受和显示多行文本