一、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 '移动到下一条纪录 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 控件是不是可以接收和显现多行文本
以上就是关于门生信息管理体系的知识点的细致内容,更多请关注ki4网别的相干文章!