关于学生信息管理系统的知识点-tutorial mysql-php.cn

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

一个新手

Lepaskan： 2017-09-19 09:43:07

asal

2266 orang telah melayarinya

一、variant数据类型解释：

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

这里写图片描述

二、过程中的exit sub

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

这里写图片描述

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

三、call viewdate

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

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

直接写该函数或子过程名；
利用变量或对象赋值调用；
用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
                &#39;移动到下一条记录
                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

Salin selepas log masuk