学生学籍管理信息系统毕业论文.pdf

《学生学籍管理信息系统毕业论文.pdf》由会员分享，可在线阅读，更多相关《学生学籍管理信息系统毕业论文.pdf（43页珍藏版）》请在三一文库上搜索。

1、1 / 43 目录 第一章绪论 1 1.1 管理信息系统的概要1b5E2RGbCAP 1.2 系统的开发意义1p1EanqFDPw 1.3 本人所做的工作2DXDiTa9E3d 1.4 本文的组织结构 2RTCrpUDGiT 第二章学生学籍管理信息系统分析45PCzVD7HxA 2.1 系统的需求分析4jLBHrnAILg 2.2 系统分析的简况4xHAQX74J0X 2.3 系统初步调查 5LDAYtRyKfE 2.4 系统的可行性研究6Zzz6ZB2Ltk 2.5 现行系统的详细调查7dvzfvkwMI1 2.6 新系统逻辑方案7rqyn14ZNXI 2.7 学生学籍管理信息系统业务流程图

2、8EmxvxOtOco 2.8 学生学籍管理信息系统数据流程图。8SixE2yXPq5 第三章学生学籍管理信息系统设计126ewMyirQFL 3.1 系统的总体设计12kavU42VRUs 3.1.1 系统功能结构的划分12y6v3ALoS89 3.1.2 确定计算机的处理流程13M2ub6vSTnP 3.2 系统的详细设计140YujCfmUCw 321 关系型数据模型 14eUts8ZQVRd 322 数据库的逻辑设计14sQsAEJkW5T 第四章系统实现 18GMsIasNXkA 4.1 界面、代码设计与实现18TIrRGchYzg 42 数据源 . 本系统操作简单，易于理解，只需通

3、过简单培训，上手较快，学校学 籍管理处的教职员以及相关教师均能进行操作，营运环境要求低。wt6qbkCyDE (2. 面对于系统设计还应该以“标准性、安全性、高效性、保密性、可维 校长兼党委书记 副校长二校长助理副校长一党委副书记 教 务 科 宿 管 学 生 科 保 卫 科 生 产 实 习 科 总 务 科 人 事 科 团 委 办 招 生 就 业 科 鉴 定 科 财 务 科 党 政 办 7 / 43 护性”为标准，在着眼于当前实用的基础上，为将来系统的扩展，升级留有余 地。软件的开发应能在较长时间内满足学校的发展需要。 Kp5zH46zRk 标准性：系统编写与运行必须符合标准，既可以保证系统运行

4、又可以在此 标准上每一项功能运行。 可靠性：由于学籍信息的重要性，系统必须稳定可靠，从而避免或减少数 据损失。 安全性：通过系统权限控制使用者，从而确保使用者无法操作与其无关的 数据。 高效性：由于学校学生信息每次处理信息量较大，系统对信息处理能力响 应能力都应是快捷有效的。 可维护性：采用结构化模块设计，便于开发与维护，也有利于情况随时进 行 2.5 现行系统的详细调查 经过调查学校的学籍管理业务流程主要分为三大部分：建立学生基本信 息、学生综合素质评估、学生学籍档案。 1. 建立学生基本信息：学生符合入学条件的，学校批准后由专人向学生发 放入学通知书。对新生注册，并建立相关的学生个人信息.

5、 从新生的入学录取，新生的注册. 根据学生学号可对应的查找到该生的成绩单，由学生管理处人员审阅 并维护，最后保存。普通用户可查询。jW1viftGw9 (3. 根据学生学号对应查找，该生在校的情况. 系统功能结构的划分。 (2. 确定系统的计算机处理流程。 1. 系统详细的设计 (1. 系统数据模型设计。 (2. 数据库的逻辑设计。 3.1 系统的总体设计 系统的总体设计是指在系统调查与分析的基础上，对整个系统在结构上的 划分，硬软件环境的配置和确定子系统与模块的处理流程。09T7t6eTno 3.1.1系统功能结构的划分 总体设计中最核心的问题是系统总体功能结构的确定和子系统与模块的划 分，

6、结构化。 学生学籍管理信息系统功能结构图. 尽量采用学校现有的软硬件环境，及先进的管理系统开发方案，从而 达到充分利用学校现有资源，提高系统开发水平和应用的目的。 UTREx49Xj9 (2. 系统应符合学校学籍管理的规定，满足学校日常学籍管理工作的需 求，并达到操作过程中的直观、方便、实用、安全等要求。8PQN3NDYyP (3. 系统采用 C/S体系结构， Client(客户端负责提供表达逻辑、显示用户 界面信息、访问数据库服务器；Server(服务器 则用于提供数据服务。系统分析 等前期工作应尽量详细完善，以便学校以后体系结构的改变，对于一些安全性 要求不高的信息可以方便地采用Browe

7、r/server的方式进行访问。 mLPVzx7ZNw (4. 系统采用模块化程序设计方法，即便于系统功能的各种组合和修改、 又便于未参与开发的设计维护人员补充、维护。 AHP35hB02d (5. 系统应具备数据库维护功能，及时根据用户需求进行数据添加、删 除、修改、统计等操作。 3.2 系统的详细设计 321 关系型数据模型 学生信息表 NOTNULL 列名数据类型及长度可否为空主键 专业文本型 主界面 .Hide 隐藏主界面 登录界面 .Show 显示登录界面 End Sub 19 / 43 图 4-2 登录窗口 1. 登录窗口界面说明 此登录界面分为“管理员”和“普通用户”登录。“管理

8、员”需输入用户 名和密码登录“信息管理”窗口；而普通用户则直接单击“登录”按钮进入 “普通用户学生学籍窗口”。 ViLRaIt6sk 2. 登录窗口界面代码 Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String db.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0。 DataSource=E:zlfdb1.mdb 。Persist Security Info=False“ 9eK0GsX7H1 db.Open sql = “select

9、* from 用户管理表 “ rs.Open sql, db, adOpenStatic, adLockReadOnly While rs.EOF = False If rs.Fields(0.Value = Text1.Text Then If rs.Fields(1.Value = Text2.Text Then 登录界面 .Hide 学生学籍信息管理窗口 .Show Else MsgBox (“密码错误 ,请重新输入！ “ End If End If rs.MoveNext Wend 20 / 43 End Sub Private Sub Command2_Click( 登录界面 .Hi

10、de 主界面 .Show End Sub 普通用户学生学籍窗口 .Show 登录界面 .Hide End Sub Private Sub Command4_Click( 登录界面 .Hide 主界面 .Show End Sub 图 4-3 信息管理窗口 1. 信息管理界面说明 信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管 理、用户管理”，下设相应的子菜单。管理员可根据需要进行内容的查询、添 加、删除等。naK8ccr8VI 2. 信息管理界面代码 查询学生信息窗口 .Show End Sub 添加学生信息窗口 .Show End Sub 21 / 43 修改学生信息窗口 .

11、Show End Sub 查询学生成绩窗口 .Show End Sub 添加学生成绩窗口 .Show End Sub 修改学生成绩窗口 .Show End Sub 用户档案查询窗口 .Show End Sub 用户注册查询窗口 .Show End Sub 用户修改窗口 .Show End Sub 用户添加窗口 .Show End Sub 学生学籍信息管理窗口 .Hide 登录界面 .Show End Sub 22 / 43 图 4-4 查询学生信息窗口 1. 查询学生信息界面说明 用户选择所要查询的对象，单击“确定”按钮，得出相应信息。 2. 查询学生信息界面代码 Private Sub Co

12、mmand1_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:zlfdb1.mdb。Persist Security Info=False“ B6JgIVV9ao db

13、.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 Text

14、2.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 23 / 43 Text7.Text = rs1.Fields(6.Value Text8.Text = rs1.Fields(7.Value Text9.Text = rs1.Fields(8.Value Text10.Text = rs1.Fields(9.Val

15、ue MsgBox (“查询成功 “ Adodc1.Refresh End If End Sub Private Sub Command2_Click( 查询学生信息窗口 .Hide 学生学籍信息管理窗口 .Show End Sub 图 4-5 添加学生信息窗口 1. 添加学生信息界面说明 管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加 成功。 2. 添加学生信息界面代码 Private Sub Command1_Click( Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql, rt As

16、 String Dim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As StringP2IpeFpap5 db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“ 3YIxKpScDM db.Open sql = “select * from 学生信息表 “ rs.Open sql, db, adOpenStatic, adLockOptimistic rs.AddNew 2

17、4 / 43 rs.Fields(0.Value = Text1.Text rs.Fields(1.Value = Text2.Text rs.Fields(2.Value = Text3.Text rs.Fields(3.Value = Text4.Text rs.Fields(4.Value = Text5.Text rs.Fields(5.Value = Text6.Text rs.Fields(6.Value = Text7.Text rs.Fields(7.Value = Text8.Text rs.Fields(8.Value = Text9.Text rs.Fields(9.Va

18、lue = Text10.Text rs.Fields(10.Value = Text11.Text rs.Update MsgBox (“增加成功 “ Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ Text5.Text = “ Text6.Text = “ Text7.Text = “ Text8.Text = “ Text9.Text = “ Text10.Text = “ Text11.Text = “ End Sub Private Sub Command2_Click( Unload Me End Sub 图

19、4-6 修改学生信息窗口 25 / 43 1. 修改学生信息界面说明 管理员可根据需要对学生信息进行修改 Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim gg As New ADODB.Recordset Dim sql, rt As String Dim z, a As String Dim zy, bj, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As StringuQHOMTQe79 db.ConnectionString = “Provider=Microsof

20、t.Jet.OLEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“ IMGWiDkflP db.Open sql = “select * from 学生信息表 “ rs.Open sql, db, adOpenStatic, adLockOptimistic a = “update 学生信息表 set 专业= “ & Text1.Text & “, 班级= “ & Text2.Text & “,学号= “ & Text3.Text & “, 姓名= “ & Text4.Text & “, 性别 =“ & Text5.Tex

21、t & “, 出生年月 = “ & Text6.Text & “, 家庭住址 = “ & Text7.Text & “, 联系电话 =“ & Text8.Text & “,政治面貌 = “ & Text9.Text & “, 备注= “ & Text10.Text & “ where 姓名= “ & z & “WHF4OmOgAw gg.Open a, db, adOpenStatic, adLockOptimistic MsgBox (“ 修改成功 “ End Sub Private Sub Command2_Click( Unload Me End Sub 图 4-7 成绩查询窗口 26

22、/ 43 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.O

23、LEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“ aDFdk6hhPd db.Open sql = “select * from 学生成绩表 1“ rs.Open sql, db, adOpenStatic, adLockReadOnly sql1 = “select * from 学生成绩表 1 where 学号=“ & kl & “ ozElQQLi4T rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.RecordCount = 0 Then MsgBox

24、 “表内无记录 “ 如果为空，弹出对话框 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 =

25、 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( Unload Me End Sub 27 / 43 图 4-8 添加学生成绩窗口 1. 添加学生成绩界面说明 管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加 成功。 2. 添加学生成绩界面代码 Private Sub Command1_Click( Dim db

26、As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql, rt As String Dim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxflgc, bgrj, bz As StringCvDtmAfjiA db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“ QrDCRkJkxh db.Open sql

27、= “select * from 学生成绩表 1“ 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.Fields(3.Value = Text4.Text rs.Fields(4.Value = Text5.Text rs.Fields(5.Value = Text6.Text rs.Fields(6.Value = Text7.Text

28、 rs.Fields(7.Value = Text8.Text rs.Fields(8.Value = Text9.Text rs.Fields(9.Value = Text10.Text rs.Update MsgBox (“增加成功 “ 28 / 43 Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ Text5.Text = “ Text6.Text = “ Text7.Text = “ Text8.Text = “ Text9.Text = “ Text10.Text = “ Text11.Text = “ End

29、Sub Private Sub Command2_Click( Unload Me End Sub 图 4-9 修改学生成绩窗口 1. 修改学生成绩界面说明 管理员可根据需要对学生信息进行修改 Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim gg As New ADODB.Recordset Dim sql, rt As String Dim z, a As String Dim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxfgc, bgrj, bz A

30、s StringijCSTNGm0E db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0。Data 29 / 43 Source=E:zlfdb1.mdb。Persist Security Info=False“ vfB1pxanfk db.Open sql = “select * from 学生成绩表 1“ rs.Open sql, db, adOpenStatic, adLockOptimistic a = “update 学生成绩表 1 set 专业= “ & Text1.Text & “, 班级= “ & Text2.Text

31、 & “, 学号= “ & Text3.Text & “, 姓名= “ & Text4.Text & “, 计算机网络 =“ & Text5.Text & “,计算机组成原理 = “ & Text6.Text & “, 计算机应用与提高 = “ & Text7.Text & “,管理信息系统 =“ & Text8.Text & “, 信息法律规程 = “ & Text9.Text & “, 办公软件 = “ & Text10.Text & “, 备注= “ & Text10.Text & “ where 姓名= “ & z & “ JbA9VhEou1 gg.Open a, db, adOpe

32、nStatic, adLockOptimistic MsgBox (“ 修改成功 “ DataGrid1.Refresh End Sub Private Sub Command2_Click( Unload Me End Sub 图 4-10 档案查询窗口 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

33、 String Dim rs1 As New ADODB.Recordset Dim sql1 As String kl = Combo1.Text 30 / 43 db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“X7Ahr18pJI db.Open sql = “select * from 学生档案表 “ rs.Open sql, db, adOpenStatic, adLockReadOnly sql1 = “select

34、 * 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 显示相应字段的内容 b3zqXLCqXo Text3.Text = rs1.Fields(2.Value Text4.Text = r

35、s1.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.Fie

36、lds(12.Value MsgBox (“查询成功 “ Adodc1.Refresh End If End Sub Private Sub Command2_Click( Unload Me End Sub 31 / 43 图 4-11 注册查询窗口 1. 注册查询界面说明 管理员根据需要选择所要查询的对象，单击“查询”得到该对象的注册信 息。 2. 注册查询界面代码 Private Sub Command1_Click( Dim kl As String Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql

37、 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:zlfdb1.mdb。Persist Security Info=False“pZyytu5rc5 db.Open sql = “select * from 学生注册表 “ rs.Open sql, db, adOpenStatic, adLockReadOnly sql1 = “select * fr

38、om 学生注册表 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 32 / 43 Text4.Text = rs1.Field

39、s(3.Value Text5.Text = rs1.Fields(4.Value Text6.Text = rs1.Fields(5.Value Text7.Text = rs1.Fields(6.Value MsgBox (“查询成功 “ Adodc1.Refresh End If End Sub Private Sub Command2_Click( Unload Me End Sub 图 4-12 用户修改窗口 1. 用户修改界面说明 管理员根据需要修改用户权限信息。单击“修改”即可成功。 2. 用户修改界面代码 Private Sub Command1_Click( Dim db A

40、s New ADODB.Connection Dim rs As New ADODB.Recordset Dim gg As New ADODB.Recordset Dim sql, rt As String Dim z, a As String Dim yhm, mm, bz As String db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“DVyGZezsrM db.Open sql = “select * from 用

41、户管理表 “ rs.Open sql, db, adOpenStatic, adLockOptimistic 33 / 43 a = “update 用户管理表 set 用户名 = “ & Text2.Text & “, 密码= “ & Text3.Text & “, 备注= “ & Text1.Text & “ where 用户名 = “ & z & “RQxPvY3tFs MsgBox (“ 修改成功 “ End Sub Private Sub Command2_Click( Unload Me End Sub 图 4-13 用户添加窗口 1. 用户添加界面说明 管理员根据需要添加用户信息

42、。单击“添加”按钮即可添加成功。 2. 用户添加界面代码 Private Sub Command1_Click( Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql, rt As String Dim yhm, mm, bz As String db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“ 5MxX1IxuU9 db.Open sql =

43、 “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 = “ 34 / 43 Text2.Text = “ Text3.Text = “ End Sub Private Sub Command2_Click( Unload Me

44、End Sub 图 4-14 普通用户学生学籍管理窗口 1. 普通用户学生学籍管理界面说明 普通用户学生学籍管理包括“学生学籍信息管理、学生学籍成绩管理、学 生学籍档案管理”的查询。普通用户根据需要对所需的信息进行查询。jIw5xs0v9P 2. 普通用户学生学籍管理界面代码 普通用户学生成绩查询窗口.Show End Sub 普通用户学生学籍窗口 .Hide 登录界面 .Show End Sub 普通用户学生档案查询窗口.Show End Sub 35 / 43 普通用户学生信息查询窗口.Show End Sub 图 4-15 普通用户学生信息查询窗口 1. 普通用户学生信息查询界面说明 普

45、通用户根据需要选择所要查询的对象，单击“确定”按钮查询成功。 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

46、 Source=E:zlfdb1.mdb。Persist Security Info=False“xEve2buwnw 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

47、.MoveFirst 如果不为空，定位到选定的记录 Text1.Text = rs1.Fields(0.Value 36 / 43 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

48、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 Di

49、m 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 37 / 43 db.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0。Data Source=E:zlfdb1.mdb。Persist Security Info=False“KAvmyVYxCd db.Open sql = “select * from 学生成绩表 1“ rs.Open sql, db, adOpenStatic, adLockReadOnly sql1 = “select * from 学生成绩表 1 where 姓名=“ & kl &