学生管理系统信息查询部分主要功能总结

        

       对于信息查询部分，这部分功能相对来说比较简单，主要包括查询学籍，查询成绩两大部分。主要就用到了MSFlexGrid控件。

       对于这一块的功能，我感觉dd（4）这个布尔型变量数组用的比较好。这一变量只要用作标记作用。选择一种方式查询，选择哪一种，还是选择多种方式查询信息，通过dd（）的标记，都能很好的记录作用。

        原先一直都感觉布尔型变量挺简单的，真的没想到，它还能在学生管理这样的系统中起到很大作用。

If Trim(txtName.Text) = "" Then
            MsgBox "姓名不能为空", vbOKOnly + vbExclamation, "警告"
            txtName.SetFocus
            Exit Sub
        Else
            dd(1) = True
           
            If dd(0) Then
            '从result_Info表中找出满足student_ID=txtSID和student_Name=txtName的记录
                txtSQL = txtSQL & " and student_Name ='" & txtName.Text & "'"
            Else
            '从result_Info表中找出满student_Name=txtname的记录
                txtSQL = txtSQL & "student_Name='" & txtName.Text & "'"
            End If
        End If

 

       提起布尔型变量，当转换其他的数值类型为boolean值时，0会转成False，而其他的指责变成True。当转换boolean值为其他的数据类型时，False成为0，而True成为-1.

      对于MSFlexGrid控件的TextMatrix属性的性质。

MSHFlexGrid.textMatrix( i ,j )=string

表示的是设置MSHFlexGrid第i行，第j列的文本内容（注意标题算第一行）

str=MSHFlexGrid.textMatrix（2，3）

表示取得MSHFlexGrid的第二行，第三列的文本内容

 

        txtSQL = txtSQL & "order by student_ID"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        With myflexgrid
            .Rows = 2
            .CellAlignment = 4
            .TextMatrix(1, 0) = "考试编号"
            .TextMatrix(1, 1) = "学号"
            .TextMatrix(1, 2) = "姓名"
            .TextMatrix(1, 3) = "班号"
            .TextMatrix(1, 4) = "课程名称"
            .TextMatrix(1, 5) = "分数"
            Do While Not mrc.EOF
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
                .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
                .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
                .TextMatrix(.Rows - 1, 3) = mrc.Fields(3)
                .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
                .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
                mrc.MoveNext
            Loop
        End With