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

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

2013-07-02 01:11 p;Dim yhm, mm, bz As String
 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.普通用户学生成绩查询界面说明
 普通用户根据需要选择所要查询的对象，单击“确定”按钮查询成功。 （科教范文网 fw.nseac.com编辑发布）
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