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, adLockOptimistic
rs.AddNew
rs.Fields(0).Value = Text1.Text
rs.Fields(1).Value = Text2.Text
rs.Fields(2).Value = Text3.Text
rs.Update
MsgBox ("增加成功")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
图4-14普通用户学生学籍管理窗口
1.普通用户学生学籍管理界面说明
普通用户学生学籍管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理”的查询。普通用户根据需要对所需的信息进行查询。
2.普通用户学生学籍管理界面代码
（1）普通用户学生成绩查询窗口弹出代码
Private Sub cjcx_Click()
普通用户学生成绩查询窗口.Show
End Sub
（2）普通用户学生学籍窗口“返回”代码
Private Sub Command1_Click()
普通用户学生学籍窗口.Hide
登录界面.Show
End Sub
（3）普通用户学生档案查询窗口弹出代码
Private Sub dacx_Click(Index As Integer)
普通用户学生档案查询窗口.Show
End Sub
（4）普通用户学生信息查询窗口弹出代码
Private Sub xxcx_Click(Index As Integer)
普通用户学生信息查询窗口.Show
End Sub
图4-15普通用户学生信息查询窗口
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
MsgBox ("查询成功")
Adodc1.Refresh
End If
End Sub
Private Sub Command2_Click()
普通用户学生信息查询窗口.Hide
End Sub
图4-16普通用户学生成绩查询窗口
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.OLE