1.sTokens=split(SQL)
split函数:返回一个下标从0开始的一维数组,它包含指定数目的子字符串
sTokens(0)=”SELECT”
sTokens(1)=”*”
sTokens(2)=”FROM”
sTokens(3)=”student_info”
*本段代码作用:将一个查询语句分为一个数组
2.InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0)))
InStr函数:指定一字符串在另一字符串中最先出现的位置
UCase$函数:将其中包含转化为大小写字符串
3.If Not fLogin.OK Then
OK是frmLogin的自带属性
4.
‘建立新连接
set cnn=new conncetion
‘定义cnn为连接方式
Dim cnn as ADODB.connection
5.
‘建立新连接
set rst=new Recordset
‘定义str为数据集
Dim str as ADODB.recordset
6.
'存放SQL语句
Dim txtSQL As String
'存放记录集对象
Dim mrc As ADODB.Recordset
'存放返回信息
Dim MsgText As String
7.fields()
Fields()内的数字代表数据库的表内每列的字段的索引值
比如student_ID的字段为0
Student_Name的字段为1
......
8. mrc.EOF=true表示当前位置在最后一行前,记录为空
mrc.EOF = False表示当前位置在最后一行前,记录不为空
BOF为当前位置在第一行前,true或false时记录与EOF同理
9.MDIForm与SDIForm的显著区别
一个可以在焦点转移出去后仍然显示,一个则不能
10.Exit Sub 是一个动词,表示在过程中任意位置退出过程,End Sub 是一个状态词,表示过程到这里已经结束了
11.trim()函数:去掉trim()内引用的控件(比如text)中数字两侧的空格
e.g:If (Trim(mrc.Fields(0)) = Trim(txtCourseNo.Text)) Then
这段话代码是一个“为了判断是否有重复的课程编号”功能代码的一部分,在这里trim起到方便程序判断,避免空格干扰的作用
12.Unload Me的合理使用
13.mybookmark=mrc.bookmark 做书签
Mrc.bookmark=mybookmark 回到书签位置
14.mcclean(Boolean)什么含义?
判断是否修改信息,若有(相同)记录则提示先修改
15.txtSQL =” select * from …”含义:
查询语句
16.
'查询语句
txtSQL = "select * from gradecourse_info where grade='" & Trim(comboGrade.Text) & "'"
'调用函数
Set mrc = ExecuteSQL(txtSQL, MsgText)
这一大段代码除了有查询语句、调用函数之外的基本功能外,因为增加了where语句的判断,还有判断是否有重复值的功能
17.comboSID.AddItem mrc!student_ID
含义等同于comboSID.AddItem mrc.field()
18.Call viewdata:修改学籍信息中的关键所在
viewdata函数:将数据库内的内容导入到文本框中
19.将数据库中的内容导入到combo控件中
20.将文本框内容导入数据库中
21.选择相应学号后,名称栏跳出名字
22.
'设定该数据为书签
myBookmark = mrc.Bookmark
'回到书签位置
mrc.Bookmark = myBookmark
23.一个事件下要想调用不同的数据,需要定义不同的变量名(例子:在修改学籍信息中,mrc起调用数据库内作用,mrcc起修改后combo调用其他表中的数据库)