cxl.txt

学生管理系统虽然不是很完善

Data1.Recordset.Bookmark = Data1.Recordset.LastModified

Dim Str As String
MsgBox "请输入查询条件", , "信息提示"
Str = Text2.Text
If Str = "" Then
MsgBox "请输入查询条件，如学生编号=2", , "信息提示"
Exit Sub
End If
Data1.Recordset.FindFirst Str
If Data1.Recordset.NoMatch Then
MsgBox "没有符合条件的记录", , "信息提示"