最近终于可以静下心来敲学生系统的代码了，作为全职的我现在还在学生系统阶段徘徊，很是惭愧啊，看来之前是对自己太仁慈了，以后要努力咯。不过再怎么着急也要脚踏实地的来做,下面是我在敲写代码过程中的一些小结点，分享给大家，希望对小伙伴有所帮助。

一、判断文本框是否为空Testtxt

 If Not Testtxt(txtClassno.Text) Then       '防止输入框为空
        MsgBox "请输入班号！", vbOKOnly + vbExclamation, "警告"
        txtClassno.SetFocus
        Exit Sub
    End If

二、判断文本框内容是否为数字IsNumeric

    If Not IsNumeric(Trim(txtClassno.Text)) Then                  '班号得为数字
        MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        txtClassno.SetFocus
    End If

三、文本框内容与数据库内容对比，是否有相同

    txtSQL = "select*from result_Info where exam_No='" & comboExamtype.Text & "' and student_ID='" & comboSID.Text & "' and course_Name='" & comboCourse.Text & "'"

    Set mrc = ExecuteSQL(txtSQL, MsgText)

    If mrc.EOF = False Then

        MsgBox "有相同记录，请重新输入信息！", vbOKOnly + vbExclamation, "警告"
        mrc.Close                      
    Else                                
        mrc.AddNew                      
        mrc.Fields(0) = comboExamtype.Text      
        mrc.Fields(1) = comboSID.Text
        mrc.Fields(2) = txtName.Text
        mrc.Fields(3) = comboClassNo.Text
        mrc.Fields(4) = comboCourse.Text
        mrc.Fields(5) = txtResult.Text
        mrc.Update                             
        mrc.Close                             
        MsgBox "添加成绩成功!", vbOKOnly + vbExclamation, "警告"
        Unload Me
    End If

四、通过班号找到该班学生的学号

 comboSID.Clear
    comboCourse.Clear         

    txtSQL = "select * from student_Info where class_NO ='" & comboClassNo.Text & "'"

    Set mrc = ExecuteSQL(txtSQL, MsgText)      
    While (mrc.EOF = False)                     
        comboSID.AddItem mrc!student_ID         
        mrc.MoveNext                            
    Wend
    mrc.Close

4.1单引号里面引入双引号的含义

双引号里面的字段会经过编译器解释后再作HTML代码输出，但是单引号里面的不需要解释，直接输出。

    例如：  $abc='I WANT GO'          $取出的值直接拼装在SQL语句中，#
     echo $abc //结果是：I WANT GO     echo是dos命令，相同于VB中的print
     echo '$abc'//结果是：$abc
     echo "$abc" // 结果是：I WANT GO    

所以在对数据库里面的SQL语句赋值的时候也要用在双引号里面SQL=”select a,b,c from…”但是SQL语句中会有单引号把字段名引出来
例如：selet * from table where user='abc'

单在SQL中只支持单引号，表示字符串常量，而我们代码中的双引号是VB编码语言中的，与SQL无关。
txtSQL是定义一个字符串变量，所以用”“来定义字符串，单引号才是SQL语句中用到的，这里我们可以把单引号看成是字符串而不是符号。

4.2 VB中”!”与“.”的区别

在VB中，感叹号“！”和圆点“.“都用于对象命名，但两者语法上却存在很大的区别。
圆点操作符”.”用来表示对象的属性和方法，在引用时，需要用到对象的name、圆点和需要的属性或方法。

4.2.1 “.”的使用方法有两种形式

1、控件.属性（后者是前者的属性）

Command1.Caption = "Text"

2、控件.控件（前者是后者的容器）

 Form1.Command1.Caption = "Text"

4.2.2 “!”则仅有一种形式

控件！控件（前者是后者的容器）

为了更加深刻形象的认识两者的区别，大家看以动手打一下如下两个代码：

 Private Sub Command1_Click()


 Form1!Command1.Caption = "Text"

 End Sub

 Private Sub Command1_Click()

 Form1.Command1.Caption = "Text"

 End Sub

4.2.3 where子句

SELECT 列名称 FROM 表名称 WHERE 列 运算符 值

下面的运算符可在 WHERE 子句中使用：

WHERE 子句
如果只希望选取居住在城市 “Beijing” 中的人，我们需要向 SELECT 语句添加 WHERE 子句：

 SELECT * FROM Persons WHERE City='Beijing'

以上是我在敲写代码的过程中对不明白的代码进行的汇总，代码才敲到一半，后面肯定还会有很多新鲜的代码需要我去探索，摸索。冒险继续，期待后面的连载吧……