DB.4.0;Data Source=E:\zlf\db1.mdb;Persist Security Info=False"
db.Open
sql = "select * from 学生成绩表1"
rs.Open sql, db, adOpenStatic, adLockReadOnly
sql1 = "select * from 学生成绩表1 where 姓名='" & kl & "'"
rs1.Open sql1, db, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "表内无记录" '如果为空，弹出对话框
Else
rs.MoveFirst '如果不为空，定位到选定的记录
Text1.Text = rs1.Fields(0).Value
Text2.Text = rs1.Fields(1).Value '显示相应字段的内容
Text3.Text = rs1.Fields(2).Value
Text4.Text = rs1.Fields(3).Value
Text5.Text = rs1.Fields(4).Value
Text6.Text = rs1.Fields(5).Value
Text7.Text = rs1.Fields(6).Value
Text8.Text = rs1.Fields(7).Value
Text9.Text = rs1.Fields(8).Value
Text10.Text = rs1.Fields(9).Value
MsgBox ("查询成功")
End If
End Sub
Private Sub Command2_Click()
普通用户学生成绩查询窗口.Hide
End Sub
图4-17通用户学生档案查询窗口
1.普通用户学生档案查询界面说明
普通用户根据需要选择所要查询的对象，单击“确定”按钮查询成功。
2.普通用户学生档案查询界面代码
Private Sub Command1_Click()
Dim kl As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim rs1 As New ADODB.Recordset
Dim sql1 As String
kl = Combo1.Text
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\zlf\db1.mdb;Persist Security Info=False"
db.Open
sql = "select * from 学生档案表"
rs.Open sql, db, adOpenStatic, adLockReadOnly
sql1 = "select * from 学生档案表 where 姓名='" & kl & "'"
rs1.Open sql1, db, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "表内无记录" '如果为空，弹出对话框
Else
rs.MoveFirst '如果不为空，定位到选定的记录
Text1.Text = rs1.Fields(0).Value
Text2.Text = rs1.Fields(1).Value '显示相应字段的内容
Text3.Text = rs1.Fields(2).Value
Text4.Text = rs1.Fields(3).Value
Text5.Text = rs1.Fields(4).Value
Text6.Text = rs1.Fields(5).Value
Text7.Text = rs1.Fields(6).Value
Text8.Text = rs1.Fields(7).Value
Text9.Text = rs1.Fields(8).Value
Text10.Text = rs1.Fields(9).Value
Text11.Text = rs1.Fields(10).Value
Text12.Text = rs1.Fields(11).Value
Text13.Text = rs1.Fields(12).Value
MsgBox ("查询成功")
Adodc1.Refresh
End If
End Sub
Private Sub Command2_Click()
普通用户学生档案查询窗口.Hide
End Sub
