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

<wbr></wbr>

对于信息查询部分，这部分功能相对来说比较简单，主要包括查询学籍，查询成绩两大部分。主要就用到了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

<wbr><span style="font-size:24px"></span></wbr>