一、variant数据类型解释:

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

关于学生信息管理系统的知识点-LMLPHP

二、过程中的exit sub

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

关于学生信息管理系统的知识点-LMLPHP

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

三、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 控件是否能够接受和显示多行文本

以上就是关于学生信息管理系统的知识点的详细内容,更多请关注Work网其它相关文章!

09-12 03:03