学生总结二

前言：学生系统从大体上讲已经基本结束，对于代码已经逻辑关系已经有了一定的了解，下面的思维导图请大家借鉴学生的正确敲法：

学生中应该按照这样一步步的来，首先应该想明白数据的原理以及使用，然后确定好大致关系后才可以敲，因为战略上的错误会导致你非常的后悔，这个图是按照学籍表一个个数据库以及窗体进行开来的

---

一、 BOF和EOF用法

    一）  
    |EOF                                       |BOF
    |True   当前行的位置是在最后一行的后面，无记录    |当前行的位置是在第一行之前，无记录
    |False  当前行的位置是在最后一行或其前面，有记录   |当前位置是在第一行或其后，有记录

    二）：说明
    1. BOF：指当前记录位置位于Recordset对象的第一个记录之前
    2. EOF：指当前记录位置位于Recordset对象的最后

布尔型：
    1. 定义：布尔常量值True赋值给一个整型，则整型变量的值为（-1）
    2. 规定：
    将整型或长整型赋值给布尔变量时，0-->false,非0-->true
    将布尔变量赋值给整型或长整型时，false-->0,true-->-1

二、 调用数据库的两种办法：

A.

    txtsql = "select*from class_info"
    Set mrc = ExecuteSQL(txtsql, msgtext)

    For i = 1 To mrc.RecordCount
        comboClassno.AddItem mrc!Grade
        mrc.MoveNext
    Next i

    mrc.Close

B. 

    'txtsql = "select*from class_info"
    'Set mrc = ExecuteSQL(txtsql, msgtext)

    'While (mrc.EOF = flase)
        'comboClassno.AddItem mrc!Grade        
        'mrc.MoveNext
   ' Wend

    'mrc.Close

三、调试

一）小结：需要改正的地方
1. 学籍管理中查询不能用姓名查询，但是可以去掉姓名查询

2. 课程设置中因为数据库中的调用不对，在所有课程中出现班级，但是需要修改数据库

3. 成绩查询中添加成绩中很多的数据库需要统一到一个表中，因为有联系无法串通，需要重新做数据库


二）小结：经典代码
1. '使enter案件代替确定按钮的方法
Private Sub Form_Load()
cmdOK.Default = True
End Sub

2. 设置参数：
Private Sub txtSID_KeyPress(KeyAscii As Integer)
     Select Case KeyAscii
            Case 8
            Case 48 To 57
            Case Else
            KeyAscii = 0
    End Select
End Sub

3. 设置只能输入数字：
Private Sub txtTel_KeyPress(KeyAscii As Integer)
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
        Beep
    End If
End Sub

总结：

  学生我的第一感觉就是多了几个窗体的百例，慢慢的习惯了调bug调到头疼的感觉，幸亏有师傅的存在让我提早脱离了舒适区，我的学生系统经历的很长时间，但是我想收获也是很多，经历一次收益周五吧，下面分享断点调试的理解：

  断点调试：执行中有错误，然后再指引错误处点红，然后可以按F8执行，然后鼠标放哪哪里会出现实时代码，并且执行中可以跳过当前的代码，正在理解加深中望同僚多多提出解答。