评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

学生学籍管理信息系统毕业论文(一)毕业(6)

2013-07-02 01:11 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
 
4．2数据源（Access）
表4-1 学生信息表
专业 班级 学号 姓名 性别 籍贯 出生年月 家庭住址 联系电话 政治面貌 备注 
计算机 0422 01 刘玲 女 四川江油 86-3-15 四川江油太白路42