VB+Acess学生信息管理系统方案

1、2013 年 12月 29绪论 1前言 1（一）作业背景 1（二）选题说明 1（三）主要内容 2一、系统分析 2（一）系统目标 2（二）可行性分析 3（三）管理业务调查 31. 组织结构调查 32. 功能流程调查 43. 数据流程调查 5二、系统设计 6（一）新系统的功能结构图 6（二）新系统的流程设计图 7（三）代码设计 71. 登陆页面 143.注册页面 173. 主菜单页面 204. 院系功能 24三、总结 31绪论高校学生信息的管理是一项既重要又繁琐的工作。我们小组成员通过调查研究 发现，学生学籍信息管理很是普及，这不仅为学员、教员提提供了查询信息的平台， 还大大提高了信息的获取速度，

2、 有利于对学员信息的管理。为更好的做好这项工作， 提过工作效率，更好的为学校的发展和一线教学服务，我们小组决定：结合普通高 校校实际情况，自行研制一个学生信息管理系统。该信息管理系统结合学员、教员 的需求，提供查询学员学籍信息等多项功能，对学员的学籍信息实时更新，掌握学 员的实际修课情况。、尸、 亠前言（一）作业背景随着科学技术的不断提高 , 计算机科学日渐成熟 ,其强大的功能已为人们深刻认 识, 它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分 , 使用计算机对学生档案信息进行管理 , 具有着手工管 理所无法比拟的优点 . 例如: 检索迅速、查找方便、可靠性高、存储

3、量大、保密性好、 寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率 , 也是学校的科学 化、正规化管理 , 与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情 , 结合管理信息系统这门课程 的学习，我们掌握了一定的编程技术，为此次作业设计和实施提供了基础。我们组 通过了解教员和学员的实际状况和需求，对学员的学习信息的管理常规流程进行了 调查，发现还有很多模块可以改进。（二）选题说明由于高校学籍管理信息系统具有极大可使用性， 并且对于我们初学者较易完成。 并且学生选课系统是一个教育单位不可缺少的部分 , 它的内容对于学校的决策者和 管理者来说都至关重要 , 所以学生档案

4、管理系统应该能够为用户提供充足的信息和 快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方 式存在着许多缺点 ,如:效率低、保密性差,另外时间一长 ,将产生大量的文件和数据 这对于查找、更新和维护都带来了不少的困难。现在我国的大部分学校中档案的管 理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪 费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息 管理所取代。我们作为一个系统工程专业的本科生，我们希望可以在这方面有自己 的设计，检验自己的课程学习情况和程序设计能力。同时，我们是有这方面的技术 优势的，在大学系统工程教研室教员的

5、谆谆教导下，我们指挥类学员掌握了一定的 技术知识，因此我们将利用系统工程专业优势编制出一个实用的程序来帮助学生进 行更有效的学籍管理。（三）主要内容本系统主要由VB6.0和access 2003完成，主要内容有本系统两类用户：系统 管理员和学生 （教员就为管理员的一种） 。三种不同的用户所具有的操作权限以及操 作内容均不一样。学员需自行注册，教员由已有的管理员注册。通过此种方法来进 行。课程等均有教员（管理员）添加，学员只能注册功能以及查询信息功能。 管理员管理（包括添加、修改、删除等）学员的各种信息。归纳起来，功能大约有以下几点： 1学生信息的录入。学员信息的录入有管理 员执行，只有管理员才

6、能对学员的信息进行修改和补充。学生通过各种途径不择地 点、不择时间地自主查看自己的基本档案 （不合要求的档案可以由管理员及时清除） ， 但是不能修改自己的档案和文档，没有相应的权限。 2. 学生信息的查询。学生的学 籍信息发在网上可以让学员来查询。使用者可以通过用户名和输入密码，查看自己 需要的学生信息。 3学生信息的修改。管理员均可的学生的课程信息进行添加和删 除，实现了信息的动态管理。此系统具有显而易见的优势：1可以存储学员的课程信息，安全、高效； 2只需一到二名管理员即可操作系统，节省大量人力； 3 可 以迅速查到所需信息。一、系统分析（一）系统目标由于现今的学生信息管理非常繁琐，行政人

7、员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低 廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原 因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全等等。为了解决传统学生信息的管理正面临着的这些问题，我所设计的 学生信息管理系统也就应运而生了。（二）可行性分析由于本系统管理的对象单一，且每个数据内容具有较强的关联性，涉及的

8、计算 过程不是很复杂。因此，比较适合于采用数据管理。在技术难度方面，由于有指导 教员的指导和相关参考文献，特别是网络资料。因此我那全可以实现本程序。经济可行性分析：随着科学技术的不断发展与创新， 计算机的作用日益突出，计算机软件成为人 们解决问题的恶一个有效手段，当然，他的作用也越来越重要在当今信息时代，国 民经济和国防建设，社会发展，人民生活都离不开软件。软件也无处不在。软件产业也是一个新兴产业，尽管起步晚，但发展迅速。已经成为增长最快的 产业是具有高投入/高产出、无污染、低能耗的绿色产业学生成绩管理系统是一个教 务处数据库的一个管理系统，对已经使用的类似的系统进行调查、类比，本课题具 有的

9、特点：开发工作量小，可以有两个合作开发或一个人对开发，开发周期短，有 熟练的开发人员一个月就可以完成系统的开发与预测。技术可行性分析从技术方面来说，VB6.0是一个企业级的、面向对象的快速应用开发工具，是数 据库最优秀的开发工具之一。同时，它是完全支持面向对象的开发，它拥有多种数 据库接口，可以非常方便的连接的各种数据源。VB6.0基于组件的开发增强了面向对象的技术，它提供了一个更有效的封装、管理、重用和扩展企业规则和处理的高层途径。在数据操作方面，选择灵活、易用的 access2003 数据源。（三）管理业务调查1.组织结构调查随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也

10、成倍 增长。面对庞大的信息量就需要有一个学生信息管理系统来提高学生管理工作的效 率。通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等， 从而减少管理方面的工作量。设计内容为管理员或学生登录该系统进行六个模块操作：1）、系统管理：用户管理、修改密码、退出系统2）、院系管理：添加院系、修改院系、查询院系3）、学籍管理：添加学籍、修改学籍、查询学籍4）、班级管理：添加班级、修改班级、查询班级5）、课程管理：添加课程、修改课程、查询课程、设置年级6）、成绩管理：添加成绩、修改成绩、查询成绩2. 功能流程调查Access2003 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存

11、储 和检索。 Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示 图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外Access允 许创建自定义报表用于打印或输出数据库中的信息。 Access 也提供了数据存储库， 可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享 数据库。 Access 是一种关系数据库工具， 关系数据库是已开发的最通用的数据库之 一。如上所述， Access 作为关系数据库开发具备了许多优点，可以在一个数据包中 同时拥有桌面数据库的便利和关系数据库的强大功能。系统主要建立了学生基本信息表、用户信息表、课程信息表、

12、班级信息表、成 绩信息表、院系信息表、年级课程设置表本系统的数据库实体主要有“学生” 、“教 师”、“教室”、“课程”等。其中“教师”与“课程”存在“开设”联系，并且一个 教师可以开设N门课程，即“教师”与“课程”之间是一对多的关系。同样“教学 楼”与“教室”也存在一对多的关系。一个学生可以学习N门课程，一门课程可以有M个学生学习，即“学生”与“课程”之间是多对多的关系。同样“课程”与“教 室”之间也是多对多的关系。整个数据库可以用一个E-R图表示，如图所示：成绩性别学号性别学号学时n学生选修学分密码已选课情况教学n毕业院校教师教师名称教师编号年龄学历职称健康状况性别课程图1总体E-R图课程m

13、m授课3.数据流程调查系统设计（一） 新系统的功能结构图本系统主要包括系统管理、院系管理、学籍管理、班级管理、课程管理和成绩管 理6个大的模块，各个模块的具体功能如下图所示：（二） 新系统的流程设计图（三）代码设计4.我们接下来仅以介绍院系管理为例，介绍一下我们的一些基础设置。分为添加院系、 管理院系、查询院系。而普通用户只有查询院系。添加院系:添加院系代码如下:Option ExplicitDim conn As ADODB.Co nn ectionDim rs As ADODB.RecordsetPrivate Sub cmdCancel_Click()XgClsfrm.ShowUnloa

14、d MeEnd SubPrivate Sub cmdOK_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False"conn.Openrs.O

15、pen "select * from clsIno", conn, adOpenKeyset, adLockOptimistic rs.AddNewtxtName.SetFocusIf txtGender.Text = "" ThenMsgBox " 课程名称不能为空！ "txtGender.SetFocusExit SubElsers.Fields(0).Value = Val(txtID.Text)rs.Fields(1).Value = txtName.Textrs.Fields(2).Value = txtGender.Tex

16、trs.Fields(3).Value = txtAddr.Textrs.Fields(4).Value = Text1.Textrs.Fields(5).Value = Text2.Textrs.Fields(6).Value = Text3.Textrs.UpdateMsgBox " 课程添加成功 "End Ifrs.Close conn. Close txtID.Text ="" txtName.Text ="" txtGe nder.Text ="" txtAddr.Text ="" T

17、extl.Text ="" Text2.Text ="" Text3.Text ="" FrmMai nGul.ShowEnd Sub修改院系：代码如下:Optio n ExplicitDim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic Sub ReShow()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microso

18、ft.Jet.OLEDB.4.0;"& _"Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False"conn.Openrs.Open "select * from clsIno", conn, adOpenKeysetSet MSHFlexGrid1.DataSource = rsMSHFlexGrid1.Sort = 3rs.Close conn.CloseEnd SubPrivate

19、Sub Form_Load()ReShowEnd SubPrivate Sub cmdExit_Click()Unload MeFrmMainGul.ShowEnd SubPrivate Sub cmdDel_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetDim str As String conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & App

20、.Path & "stu.mdb;" & _ "Persist Security Info=False"conn.Openrs.Open "select * from clsIno where课程名称 ='" & _MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockOptimisticstr = MsgBox(" 是否真的删除该信息？ ",

21、 vbYesNo, " 警告 ")If str = vbYes Thenrs.Deleters.UpdateEnd Ifrs.Closeconn.CloseReShowEnd SubPrivate Sub cmdAdd_Click()frmCurAdd.ShowEnd SubPrivate Sub cmdModify_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;&

22、quot; & _"Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False"conn.Openrs.Open "select * from clsIno where课程名称 ='" & _MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockO

23、ptimisticfrmModifyCls.txtID.Text = rs.Fields(O) frmModifyCls.txtName.Text = rs.Fields(l) frmModifyCls.txtGe nder.Text = rs.Fields(2) frmModifyCls.txtAddr.Text = rs.Fields(3) frmModifyCls.Text1.Text = rs.Fields(4) frmModifyCls.Text2.Text = rs.Fields(5) frmModifyCls.Text3.Text = rs.Fields(6) rs.Close

24、conn. Close frmModifyCls.ShowEnd Sub查询院系口直询字院信息查询结果誉询查砖段I3查询条件|査闾返回查询院系代码Opti on Explicit'Command对象使用演示定义Dim conn As ADODB.Co nn ectionConnection 对象定义 Recordset定义Comman对象Dim rs As ADODB.Recordset 对象Dim cmd As ADODB.CommandPrivate Sub Command1_Click()Unload MeFrmMainUser.ShowEnd SubPrivate Sub Fo

25、rm_Load()cboSelect.AddItem "课程名称 "cboSelect.AddItem " 班号 "End SubPrivate Sub cmdQuery_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cmd = New ADODB.Command conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "DataSource="

26、; & App.Path & "stu.mdb;"& _"Persist Security Info=False"conn.Open cmd.CommandType = adCmdText cmd.ActiveConnection = connIf cboSelect.Text = "课程名称 " Thencmd.CommandText = "select * from clsIno where课程名称='" & txtQuery.Text & "'

27、"Elsecmd.CommandText= "select * from clsIno where 班号='" & txtQuery.Text & "'"End IfSet rs = cmd.ExecuteSet MSHFIexGridl.DataSource = rsrs.Closeconn. CloseEnd Sub1.登陆页面设置窗体的startposition 属性为centerscreen。让登陆窗口在屏幕的中央显示。图4-2登陆界面“登录”按钮代码：Public Ok As Boolea nPubli

28、c guserName As Stri ngPublic guserType As StringDim conn As New ADODB.Co nn ectionDim rs As New ADODB.RecordsetDim sql As StringPrivate Sub cmdOK_Click( In dex As In teger) conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "stu.mdb"sql = "Select

29、* from userForm where "If Trim(txtUserName.Text) = "" Then ' 如果用户名为空MsgBox " 用户名不能为空！ ", vbOKOnly + vbCritical, "错误 "txtUserName.SetFocusmiCount = miCount + 1' 累加输入次数Exit SubEnd IfIf Trim(txtPassWord.Text) = "" Then '如果密码为空MsgBox " 密码不能为空

30、！ ", vbOKOnly + vbCritical, "错误 "txtPassWord.SetFocusExit SubEnd IfIf Trim(cmbType.Text) = "选择类别 " Then ' 如果密码为空MsgBox " 请选择用户类别！ ", vbOKOnly + vbCritical, "错误 "cmbType.SetFocusExit SubEnd Ifsql = sql + "userName='" & txtUserName.Tex

31、t & "'"sql = sql + " AND Pwd='" & txtPassWord.Text & "'"sql = sql + " AND Type='" & cmbType.Text & "'"rs.Open sql, conn, 1, 1If rs.RecordCount = 1 Then ' 找到记录PName = rs("userName")PWord = rs("

32、;Pwd")pType = rs("Type")Unload MeIf pType = " 管理员 " ThenFrmMainGul.ShowElseFrmMainUser.ShowEnd IfElseMsgBox " 用户名或密码不对！ ", vbOKOnly + vbInformation, "错误 "Unload MeEnd IfguserName = Trim(txtPassWord.Text)guserType = Trim(txtPassWord.Text)rs.CloseSet rs = N

33、othingconn.CloseSet conn = NothingmiCount = miCount + 1If miCount = 3 ThenMe.HideEnd IfExit SubEnd SubPrivate Sub CmdZc_Click(Index As Integer)FrmZcUser.ShowUn load MeEnd SubPrivate Sub comExit_Click()Ok = FalseMe.HideEnd Sub3.注册页面而管理我们分为用户注册页面与管理员注册页面；用户注册页面打开系统即可注册, 员注册，我们设置为只有现有的管理员才能添加(注册)管理员图4-

34、3用户注册界面用户注册代码如下：Private Sub cmbType_Cha nge() cmbType.Addltem "普通用户"cmbType.AddItem " 管理员 "End SubPrivate Sub CmdHh_Click(Index As Integer) frmlogin.ShowUnload MeEnd SubPrivate Sub CmdRt_Click(Index As Integer)Text1.Text = ""Text2.Text = ""Text3.Text = "&

35、quot;cmbType.Text = ""End SubPrivate Sub CmdTj_Click(Index As Integer)Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim str As StringDim strI As Stringconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "stu.mdb"

36、;sql = "Select * from userForm where "If Trim(Text1.Text) = "" Then '如果用户名为空MsgBox " 请输入真实姓名 ", vbOKOnly + vbCritical, "错误 "Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = "" Then '如果密码为空MsgBox " 请输入用户名 ", vbOKOnly + vbCritical, &

37、quot;错误 "Text2.SetFocusExit SubEnd IfIf Text2.Text <> Text3.Text ThenMsgBox " 新密码与确认的密码不相同 ", vbOKOnly + vbCritical, "错误 "Text3.SetFocusExit SubEnd IfIf cmbType.Text = "选择类别 " ThenMsgBox " 请选择用户类别 ", vbOKOnly + vbCritical, "错误 "Combo1.SetF

38、ocusExit SubEnd Ifsql = sql + "pwd='" & Text1.Text & "'"rs.Open sql, conn, 1, 3If rs.RecordCount <> 0 ThenMsgBox " 用户名已存在 " + " 重新输入用户名 ", vbOKOnly + vbInformation, "提示"Text2.SetFocusExit SubElsestrI = cmbType.TextIf strI = &quo

39、t;管理员 " Thenstr = MsgBox（"您的权限有限，暂不能注册成为管理员？ ", vbYesNo, " 提示"）If str = vbYes ThenUnload Mefrmlogin.ShowElseExit SubEnd IfEnd IfIf strI = "普通用户 " Thenrs.AddNewrs("userName") = Text1.Text rs("pwd") = Text2.Text rs("Type") = cmbType.Text

40、rs.UpdateMsgBox "用户成功添加 ", vbYesNo, " 提示 "End IfEnd IfUnload Me frmlogin.Show rs.Close Set rs = Nothing conn.Close Set conn = NothingEnd Sub3. 主菜单页面我们也分为用户界面和管理员界面： 用户界面只能修改自己信息与查询其他的各种信 息，但不能做任何修改，管理可以无限制。图4-4主菜单管理员界面的代码如下:Dim Ok As Stri ngDim conn As New ADODB.Co nn ectionDim r

41、s As New ADODB.RecordsetDim sql As StringPrivate Sub AddCls_Click() frmCIsAdd.ShowUn load MeEnd SubPrivate Sub Addcour_Click() frmCurAdd.ShowUn load MeEnd SubPrivate Sub AddGrd_Click() frmGrdAdd.ShowUnload MeEnd SubPrivate Sub Addstu_Click()Unload MeAddstufrm.ShowEnd SubPrivate Sub clgAdd_Click()Unl

42、oad MeAddClg.ShowEnd SubPrivate Sub CxClg_Click()CxClgfrm.ShowUnload MeEnd SubPrivate Sub End_Click()EndEnd SubPrivate Sub Form_Load()StaBar.Panels.Add (1)StaBar.Panels.Item(1) = 3000StaBar.Panels.Add (2)StaBar.Panels.Item(1).Style = sbrTextStaBar.Panels.Item(2).Style = sbrDateStaBar.Panels.Item(3).

43、Style = sbrTime权限：管理员 "StaBar.Panels.Item(1).Text = guserName & " End SubPrivate Sub reGrade_Click()XgGrdfrm.ShowUnload MeEnd SubPrivate Sub sjCls_Click()XgClsfrm.ShowUnload MeEnd SubPrivate Sub Sjstu_Click()XgStuFrm.ShowUnload MeEnd SubPrivate Sub userExit_Click()Ok = FalseUnload Mefr

44、mlogin.ShowEnd SubPrivate Sub userLogining_Click()FrmZc.ShowUnload MeEnd SubPrivate Sub XgClg_Click()XgClgfrm.ShowUnload MeEnd SubPrivate Sub XgCour_Click()XgCurfrm.ShowUnload MeEnd SubPrivate Sub XgPwd_Click() frmPassword.ShowUn load MeEnd SubPrivate Sub Xgstu_Click()XgStuFrm.ShowUn load MeEnd Sub4

45、.院系功能我们接下来仅以介绍院系管理为例，介绍一下我们的一些基础设置。分为添加院系、 管理院系、查询院系。而普通用户只有查询院系。添加院系：添加院系代码如下:Option ExplicitDim conn As ADODB.Co nn ectionDim rs As ADODB.RecordsetPrivate Sub cmdCancel_Click()XgClsfrm.ShowUnload MeEnd SubPrivate Sub cmdOK_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset conn.Con

46、nectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False"conn.Openrs.Open "select * from clsIno", conn, adOpenKeyset, adLockOptimistic rs.AddNewtxtName.SetFocusIf t

47、xtGender.Text = "" ThenMsgBox " 课程名称不能为空！ "txtGender.SetFocusExit SubElsers.Fields(0).Value = Val(txtID.Text)rs.Fields(1).Value = txtName.Textrs.Fields(2).Value = txtGender.Textrs.Fields(3).Value = txtAddr.Textrs.Fields(4).Value = Text1.Textrs.Fields(5).Value = Text2.Textrs.Field

48、s(6).Value = Text3.Textrs.UpdateMsgBox " 课程添加成功 "End Ifrs.Close conn. Close txtID.Text ="" txtName.Text ="" txtGe nder.Text ="" txtAddr.Text ="" Textl.Text ="" Text2.Text ="" Text3.Text ="" FrmMai nGul.ShowEnd Sub修改院系：代码

49、如下:Optio n ExplicitDim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic Sub ReShow()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"& _"Data Source=" & App.Path & "stu.mdb;" & _

50、 "Persist Security Info=False"conn.Openrs.Open "select * from clsIno", conn, adOpenKeysetSet MSHFlexGrid1.DataSource = rsMSHFlexGrid1.Sort = 3rs.Close conn.CloseEnd SubPrivate Sub Form_Load()ReShowEnd SubPrivate Sub cmdExit_Click()Unload MeFrmMainGul.ShowEnd SubPrivate Sub cmdDel

51、_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetDim str As String conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _ "Persist Security Info=False"conn.Openrs.Open "s

52、elect * from clsIno where课程名称 ='" & _MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockOptimisticstr = MsgBox(" 是否真的删除该信息？ ", vbYesNo, " 警告 ")If str = vbYes Thenrs.Deleters.UpdateEnd Ifrs.Closeconn.CloseReShowEnd SubPri

53、vate Sub cmdAdd_Click()frmCurAdd.ShowEnd SubPrivate Sub cmdModify_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & App.Path & "stu.mdb;" & _ "Persist Se

54、curity Info=False"conn.Openrs.Open "select * from clsIno where课程名称 ='" & _MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) & "'", _ conn, adOpenKeyset, adLockOptimisticfrmModifyCls.txtID.Text = rs.Fields(O) frmModifyCls.txtName.Text = rs.Fields(l) frmModifyCls.txtGe nder.Text = rs.Fields(2) frmModifyCls.txtAddr.Text = rs.Fields(3) frmModifyCls.Text1.Text = rs.Fields(4) frmModifyCls.Text2.Text = rs.Fields(5) frmModifyCls.Text3.Text = rs.Fields(6) rs.Close conn. Close frmModifyCls.ShowEnd Sub查询院系口直询字院信息查询结果誉询查砖段I3查询条件|査闾返回查询院系代码Opt