学生管理系统之Bug（1）

• 前面我们看到了学生管理系统的整体框架及其表之间的联系，下面我们来看一下其中出现的错误：

BUG一：组合框不可输入

表与表之间都是相互联系的，它们都是通过一个或几个字段进行连接的，因此这些用来连接的字段不能随便进行更改。（改后表与表间就联系不起来了）

下面我们以frmAddsinfo中的班号为例：班号应先判定是否有班号，不可直接输入,因为班号是由班级信息表中的班号确定的，不能随便更改。

源代码：

Private Sub Form_Load()

    Dim mrc As ADODB.Recordset

    Dim txtSQL As String

    Dim MsgText As String

    Dim i As Integer

   

    comboSex.AddItem "男"

    comboSex.AddItem "女"

    txtSQL = "select * from class_Info "

    Set mrc = ExecuteSQL(txtSQL, MsgText)

   

    For i = 1 To mrc.RecordCount

        comboClassno.AddItem mrc.Fields(0)

        mrc.MoveNext

    Next i

    mrc.Close

End Sub

 

改后代码：

Private Sub cboClassNum_DropDown()

    Dim mrs As ADODB.Recordset

    Dim strSQL As String

    Dim MsgText As String

    Dim i As Integer

   

    cboClassNum.Clear

    strSQL = "select * from class_Info"

    Set mrs = ExecuteSQL(strSQL, MsgText)

    If mrs.EOF Then

        MsgBox "请先添加班号！", vbExclamation + vbOKOnly, "提示"

        frmAddsinfo.Hide

        frmAddClassinfo.Show

         Exit Sub

    Else

        For i = 1 To mrs.RecordCount

            cboClassNum.AddItem mrs.Fields(0)

            mrs.MoveNext

        Next

        mrs.Close

    End If

End Sub