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调用其他表中的数据库）