时间:2021-07-01 10:21:17 帮助过:126人阅读
变量定义的一种变体类型
意思是:我现在定义了这个变量,但是我并不确定将来对他赋予什么类型来操作,所以就先暂时向内存借一个位置(空间)放下变量.等将来实际操作的时候动态的根据需要为该变量赋予相应类型
exit sub 的作用是结束当前的过程,不再执行后续程序。
在此代码中的含义是:如果检测到文本框为空,则不再执行后续进程,返回初始,光标定在用户名文本框。
Call语句用于调用函数或子过程。
viewdata是函数名或子过程名来的。
调用函数或子过程序的三种方法:
直接写该函数或子过程名;
利用变量或对象赋值调用;
用Call语句调用;
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 控件是否能够接受和显示多行文本
以上就是关于学生信息管理系统的知识点的详细内容,更多请关注Gxl网其它相关文章!