【学生系统】——查询窗体和修改窗体

       学生信息系统的三大窗体就剩下查询窗体和修改窗体了，这两个窗体中没有太多要注意的，除了一般的判断是否为空、是否为数字、是否重复等这些问题以外，修改窗体另外还有一个要注意的问题，这些问题不注意的话，运行时一不小心就会报错。而查询窗体主要是理解代码，其中有一点很难理解，那就是定义的逻辑变量dd(4)。下面来解释一下：

       查询窗体中有三种查询方式，分别是按学号、课程、姓名查询，但是用户在查询时却会出现4种情况，那就是单一方式查询、两种方式同时查询、三种方式同时查询和没有选择查询方式，dd(4)正是代表了这四种情况，下面结合代码理解一下：

Private Sub cmdinquire_Click()
Dim txtsql As String
Dim msgtext As String
Dim dd(4) As Boolean'代表四种查询情况
Dim mrc As ADODB.Recordset
'不同的查询方式查询的表是一样的，只不过不同的方式入手的地方不一样
txtsql = "select * from result_info where "'入手的地方就是where后面的内容
If Check1(0).Value Then'按学号查询
If Trim(txtsid.Text) = "" Then
smeg = "学号不能为空"
MsgBox smeg, vbOKOnly + vbExclamation, "警告"
txtsid.SetFocus
Exit Sub
Else
If Not IsNumeric(Trim(txtsid.Text)) Then
MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
Exit Sub
txtsid.SetFocus
End If
dd(0) = True'dd(0)=Ture代表的是按学号查询
txtsql = txtsql & "student_id= '" & Trim(txtsid.Text) & "'"
End If
End If

If Check1(1).Value Then '按姓名查询
If Trim(txtname.Text) = "" Then
smeg = "姓名不能为空"
MsgBox smeg, vbOKOnly + vbExclamation, "警告"
txtname.SetFocus
Exit Sub
Else
dd(1) = True 'dd(1)=Ture代表的是按姓名查询
If dd(0) Then '如果同时按学号和姓名查询
txtsql = txtsql & "and student_name= '" & txtname.Text & "'"
Else
txtsql = txtsql & "student_name= '" & txtname.Text & "'"
End If
End If
End If
</pre><p></p><p><span style="font-size:18px"></span></p><pre name="code" class="html">If Check1(2).Value Then '按课程查询
If Trim(txtcourse.Text) = "" Then
smeg = "课程不能为空"
MsgBox smeg, vbOKOnly + vbExclamation, "警告"
txtcourse.SetFocus
Exit Sub
Else
dd(2) = True'dd(2)=Ture代表的是按课程查询
If dd(0) Or dd(1) Then'如果同时按课程和学号或者同时按课程和姓名查询
txtsql = txtsql & "and course_name= '" & txtcourse.Text & "'"
Else
txtsql = txtsql & "course_name= '" & txtcourse.Text & "'"
End If
End If
End If

If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then '没有选择查询方式
MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If

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
mrc.Close
End Sub

       其实出现这个问题的原因是有一个很重要的内容没有理解，那就是查询窗体是怎么实现查询功能的？查询时的Select语句有两种不同的情况，一种是：

txtsql = txtsql & "and student_name= '" & txtname.Text & "'"

另一种是：

txtsql = txtsql & "student_name= '" & txtname.Text & "'"

这两句代码其实就差一个“and”，“and”在这里是连接两个字符串，加“and”的一句代码运行的结果是同时按学号和姓名查询，相当于：

txtsql = txtsql & "student_id and student_name= '" & txtname.Text & "'"

不同的查询方式其实是查询的同一张表，只不过是入手点不同，也就是说txtsql = "select * from result_info where " 一句where后面的内容不同，where后面的内容正是查询的入手点。

修改窗体中要注意的问题是删除最后一条记录后会报错，因为原代码中删除最后一条记录后指针不消失，还是指向下一条，结果就会出错，这样的话就需要借用错误语句，也就是说On Error GoTo 语句：

Private Sub deletecommand_Click()

Dim msgtext As String

mybookmark = mrc.Bookmark '对编辑行做标记

str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

mrc.Delete

comboexamtype.Text = ""

comboclassno.Text = ""

combosid.Text = ""

combocourse.Text = ""

txtname.Text = ""

txtresult.Text = ""

On Error GoTo CheckDataErr

mrc.MoveFirst

Call viewdata

mybookmark = mrc.Bookmark'使指针指向原来标记的记录行

mcclean = True

CheckDataErr:

If Err = 3021 Then

MsgBox "已删除所有记录！", vbOKOnly + vbExclamation, "警告"

comboexamtype.Text = ""

comboclassno.Text = ""

combosid.Text = ""

combocourse.Text = ""

txtname.Text = ""

txtresult.Text = ""

frmmodifyresult.Hide

End If

End Sub

这样的话，报错问题就会解除了。

       学生信息管理系统总结还在进行中。

       更新：对代码格式进行修改。原来的代码格式就像后半段的代码，每句的代码都是一行，那是因为我添加代码之后又让代码整体缩进了一下。这样改完之后，两种样式做一下对比，有一个错误的记录。