2022年VB+Access学生信息管理系统 .pdf

《2022年VB+Access学生信息管理系统 .pdf》由会员分享，可在线阅读，更多相关《2022年VB+Access学生信息管理系统 .pdf（34页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2013 年 12 月 29 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 34 页 -目录绪论.1前言.1（一）作业背景.1（二）选题说明.1（三）主要内容.2一、系统分析 .2（一）系统目标.2（二）可行性分析.3（三）管理业务调查.31.组织结构调查 .32.功能流程调查 .43.数据流程调查 .5二、系统设计 .6（一）新系统的功能结构图.6（二）新系统的流程设计图.7（三）代码设计.71.登陆页面 .143.注册页面 .173.主菜单页面 .204.院系功能 .24三、总 结.31名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 34 页 -1 绪论高校学

2、生信息的管理是一项既重要又繁琐的工作。我们小组成员通过调查研究发现，学生学籍信息管理很是普及，这不仅为学员、教员提提供了查询信息的平台，还大大提高了信息的获取速度，有利于对学员信息的管理。为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，我们小组决定：结合普通高校校实际情况，自行研制一个学生信息管理系统。该信息管理系统结合学员、教员的需求，提供查询学员学籍信息等多项功能，对学员的学籍信息实时更新，掌握学员的实际修课情况。前言（一）作业背景随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应

3、用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,结合管理信息系统这门课程的学习，我们掌握了一定的编程技术，为此次作业设计和实施提供了基础。我们组通过了解教员和学员的实际状况和需求，对学员的学习信息的管理常规流程进行了调查，发现还有很多模块可以改进。（二）选题说明由于高校学籍管理信息系统具有极大可使用性，并且对于我们初学者较易完成。并且学生选课系统是一个教

4、育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。现在我国的大部分学校中档案的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 34 页 -2 费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我们作为一个系统工程专业

5、的本科生，我们希望可以在这方面有自己的设计，检验自己的课程学习情况和程序设计能力。同时，我们是有这方面的技术优势的，在大学系统工程教研室教员的谆谆教导下，我们指挥类学员掌握了一定的技术知识，因此我们将利用系统工程专业优势编制出一个实用的程序来帮助学生进行更有效的学籍管理。（三）主要内容本系统主要由 VB6.0 和 access 2003 完成，主要内容有本系统两类用户：系统管理员和学生（教员就为管理员的一种）。三种不同的用户所具有的操作权限以及操作内容均不一样。学员需自行注册，教员由已有的管理员注册。通过此种方法来进行。课程等均有教员（管理员）添加，学员只能注册功能以及查询信息功能。管理员管理

6、（包括添加、修改、删除等）学员的各种信息。归纳起来，功能大约有以下几点：1学生信息的录入。学员信息的录入有管理员执行，只有管理员才能对学员的信息进行修改和补充。学生通过各种途径不择地点、不择时间地自主查看自己的基本档案（不合要求的档案可以由管理员及时清除），但是不能修改自己的档案和文档，没有相应的权限。2.学生信息的查询。学生的学籍信息发在网上可以让学员来查询。使用者可以通过用户名和输入密码，查看自己需要的学生信息。3学生信息的修改。管理员均可的学生的课程信息进行添加和删除，实现了信息的动态管理。此系统具有显而易见的优势：1可以存储学员的课程信息，安全、高效；2只需一到二名管理员即可操作系统，

7、节省大量人力；3 可以迅速查到所需信息。一、系统分析（一）系统目标由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 34 页 -2 首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安

8、全等等。为了解决传统学生信息的管理正面临着的这些问题，我所设计的学生信息管理系统也就应运而生了。（二）可行性分析由于本系统管理的对象单一，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据管理。在技术难度方面，由于有指导教员的指导和相关参考文献，特别是网络资料。因此我那全可以实现本程序。经济可行性分析：随着科学技术的不断发展与创新，计算机的作用日益突出，计算机软件成为人们解决问题的恶一个有效手段，当然，他的作用也越来越重要在当今信息时代，国民经济和国防建设，社会发展，人民生活都离不开软件。软件也无处不在。软件产业也是一个新兴产业，尽管起步晚，但发展迅速。已经成为

9、增长最快的产业是具有高投入/高产出、无污染、低能耗的绿色产业学生成绩管理系统是一个教务处数据库的一个管理系统，对已经使用的类似的系统进行调查、类比，本课题具有的特点：开发工作量小，可以有两个合作开发或一个人对开发，开发周期短，有熟练的开发人员一个月就可以完成系统的开发与预测。技术可行性分析从技术方面来说，VB6.0 是一个企业级的、面向对象的快速应用开发工具，是数据库最优秀的开发工具之一。同时，它是完全支持面向对象的开发，它拥有多种数据库接口，可以非常方便的连接的各种数据源。VB6.0 基于组件的开发增强了面向对象的技术，它提供了一个更有效的封装、管理、重用和扩展企业规则和处理的高层途径。在数

10、据操作方面，选择灵活、易用的access2003 数据源。（三）管理业务调查1.组织结构调查随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量就需要有一个学生信息管理系统来提高学生管理工作的效名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 34 页 -2 率。通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等，从而减少管理方面的工作量。设计内容为管理员或学生登录该系统进行六个模块操作：1）、系统管理：用户管理、修改密码、退出系统2）、院系管理：添加院系、修改院系、查询院系3）、学籍管理：添加学籍、修改学籍、查询学籍4）、班级

11、管理：添加班级、修改班级、查询班级5）、课程管理：添加课程、修改课程、查询课程、设置年级6）、成绩管理：添加成绩、修改成绩、查询成绩2.功能流程调查Access2003 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据

12、库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。系统主要建立了学生基本信息表、用户信息表、课程信息表、班级信息表、成绩信息表、院系信息表、年级课程设置表本系统的数据库实体主要有“学生”、“教师”、“教室”、“课程”等。其中“教师”与“课程”存在“开设”联系，并且一个教师可以开设 N门课程，即“教师”与“课程”之间是一对多的关系。同样“教学楼”与“教室”也存在一对多的关系。一个学生可以学习N门课程，一门课程可以有 M个学生学习，即“学生”与“课程”之间是多对多的关系。同样“课程”与“教室”

13、之间也是多对多的关系。整个数据库可以用一个E-R图表示，如图所示：名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 34 页 -2 图 1 总体 E-R 图3.数据流程调查学号性别学号学分性别年龄教师课程学生选修教学授课n m m n 性别已选课情况密码课程学时职称教师名称教师编号学历健康状况毕业院校成绩名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 34 页 -2 二、系统设计（一）新系统的功能结构图本系统主要包括系统管理、院系管理、学籍管理、班级管理、课程管理和成绩管理 6 个大的模块，各个模块的具体功能如下图所示：学生信息管理系统系 统管 理(S)班级管理学籍管

14、理课程管理成绩管理增加课程学生成绩查修改课程学生成绩修学生成绩录用户管理添加班级学籍查询添加用户删除用户班级查询修改班级添加学籍修改学籍院系管理添加院系修改院系帮助查询院系修改密码名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 34 页 -2（二）新系统的流程设计图（三）代码设计：4.我们接下来仅以介绍院系管理为例，介绍一下我们的一些基础设置。分为添加院系、管理院系、查询院系。而普通用户只有查询院系。添加院系：添加院系代码如下：Option Explicit 招生办学员基础信息审核信息分院编班学员填写基础信息教务处建 立学籍学 员学籍学员变动统计报表教委名师资料总结-精品资料欢迎

15、下载-名师精心整理-第 9 页，共 34 页 -2 Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdCancel_Click()XgClsfrm.Show Unload Me End Sub Private Sub cmdOK_Click()Set conn=New ADODB.Connection Set rs=New ADODB.Recordset conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.P

16、ath&stu.mdb;&_ Persist Security Info=False conn.Open rs.Open select*from clsIno,conn,adOpenKeyset,adLockOptimistic rs.AddNew txtName.SetFocus If txtGender.Text=Then MsgBox 课程名称不能为空！txtGender.SetFocus Exit Sub Else rs.Fields(0).Value=Val(txtID.Text)rs.Fields(1).Value=txtName.Text rs.Fields(2).Value=t

17、xtGender.Text rs.Fields(3).Value=txtAddr.Text rs.Fields(4).Value=Text1.Text rs.Fields(5).Value=Text2.Text rs.Fields(6).Value=Text3.Text rs.Update 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 34 页 -2 MsgBox 课程添加成功 End If rs.Close conn.Close txtID.Text=txtName.Text=txtGender.Text=txtAddr.Text=Text1.Text=Text2.Text

18、=Text3.Text=FrmMainGul.Show End Sub 修改院系：代码如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 34 页 -2 Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Public Sub ReShow()Set conn=New ADODB.Connection Set rs=New ADODB.Recordset conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Sour

19、ce=&App.Path&stu.mdb;&_ Persist Security Info=False conn.Open rs.Open select*from clsIno,conn,adOpenKeyset Set MSHFlexGrid1.DataSource=rs MSHFlexGrid1.Sort=3 rs.Close conn.Close End Sub Private Sub Form_Load()ReShow End Sub Private Sub cmdExit_Click()Unload Me FrmMainGul.Show End Sub Private Sub cmd

20、Del_Click()Set conn=New ADODB.Connection Set rs=New ADODB.Recordset Dim str As String conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.Path&stu.mdb;&_ 名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 34 页 -2 Persist Security Info=False conn.Open rs.Open select*from clsIno where 课程名称=&_ MSHF

21、lexGrid1.TextMatrix(MSHFlexGrid1.Row,2)&,_ conn,adOpenKeyset,adLockOptimistic str=MsgBox(是否真的删除该信息？,vbYesNo,警告)If str=vbYes Then rs.Delete rs.Update End If rs.Close conn.Close ReShow End Sub Private Sub cmdAdd_Click()frmCurAdd.Show End Sub Private Sub cmdModify_Click()Set conn=New ADODB.Connection S

22、et rs=New ADODB.Recordset conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.Path&stu.mdb;&_ Persist Security Info=False conn.Open rs.Open select*from clsIno where 课程名称=&_ MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,2)&,_ 名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 34 页 -2 conn,adOpenKeyset

23、,adLockOptimistic frmModifyCls.txtID.Text=rs.Fields(0)frmModifyCls.txtName.Text=rs.Fields(1)frmModifyCls.txtGender.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 fr

24、mModifyCls.Show End Sub 查询院系查询院系代码Option Explicit Command对象使用演示名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 34 页 -2 Dim conn As ADODB.Connection 定义Connection 对象 Dim rs As ADODB.Recordset 定义 Recordset对象 Dim cmd As ADODB.Command 定义 Command 对象Private Sub Command1_Click()Unload Me FrmMainUser.Show End Sub Private Su

25、b Form_Load()cboSelect.AddItem 课程名称 cboSelect.AddItem 班号 End Sub Private Sub cmdQuery_Click()Set conn=New ADODB.Connection Set rs=New ADODB.Recordset Set cmd=New ADODB.Command conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.Path&stu.mdb;&_ Persist Security Info=False conn.

26、Open cmd.CommandType=adCmdText cmd.ActiveConnection=conn If cboSelect.Text=课程名称 Then cmd.CommandText=select*from clsIno where 课程名称=&txtQuery.Text&Else cmd.CommandText=select*from clsIno where 班号=&txtQuery.Text&名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 34 页 -2 End If Set rs=cmd.Execute Set MSHFlexGrid1.DataSou

27、rce=rs rs.Close conn.Close End Sub 1.登陆页面设置窗体的 startposition属性为 centerscreen。让登陆窗口在屏幕的中央显示。图 4-2 登陆界面“登录”按钮代码：Public Ok As Boolean Public guserName As String Public guserType As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String 名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 34

28、 页 -2 Private Sub cmdOK_Click(Index As Integer)conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&App.Path&stu.mdb sql=Select*from userForm where If Trim(txtUserName.Text)=Then 如果用户名为空 MsgBox 用户名不能为空！,vbOKOnly+vbCritical,错误 txtUserName.SetFocus miCount=miCount+1 累加输入次数 Exit Sub End If If Trim(t

29、xtPassWord.Text)=Then 如果密码为空 MsgBox 密码不能为空！,vbOKOnly+vbCritical,错误 txtPassWord.SetFocus Exit Sub End If If Trim(cmbType.Text)=选择类别 Then 如果密码为空 MsgBox 请选择用户类别！,vbOKOnly+vbCritical,错误 cmbType.SetFocus Exit Sub End If sql=sql+userName=&txtUserName.Text&sql=sql+AND Pwd=&txtPassWord.Text&sql=sql+AND Type

30、=&cmbType.Text&rs.Open sql,conn,1,1 If rs.RecordCount=1 Then 找到记录名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 34 页 -2 PName=rs(userName)PWord=rs(Pwd)pType=rs(Type)Unload Me If pType=管理员 Then FrmMainGul.Show Else FrmMainUser.Show End If Else MsgBox 用户名或密码不对！,vbOKOnly+vbInformation,错误 Unload Me End If guserName=Tr

31、im(txtPassWord.Text)guserType=Trim(txtPassWord.Text)rs.Close Set rs=Nothing conn.Close Set conn=Nothing miCount=miCount+1 If miCount=3 Then Me.Hide End If Exit Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 34 页 -2 End Sub Private Sub CmdZc_Click(Index As Integer)FrmZcUser.Show Unload Me End Sub Private Sub co

32、mExit_Click()Ok=False Me.Hide End Sub 3.注册页面我们分为用户注册页面与管理员注册页面；用户注册页面打开系统即可注册，而管理员注册，我们设置为只有现有的管理员才能添加（注册）管理员图 4-3 用户注册界面用户注册代码如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 34 页 -2 Private Sub cmbType_Change()cmbType.AddItem 普通用户 cmbType.AddItem 管理员 End Sub Private Sub CmdHh_Click(Index As Integer)frmlogin.Sho

33、w Unload Me End Sub Private Sub CmdRt_Click(Index As Integer)Text1.Text=Text2.Text=Text3.Text=cmbType.Text=End Sub Private Sub CmdTj_Click(Index As Integer)Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim str As String Dim strI As String conn.Open Provider=Microso

34、ft.Jet.OLEDB.4.0;Data Source=&App.Path&stu.mdb sql=Select*from userForm where If Trim(Text1.Text)=Then 如果用户名为空 MsgBox 请输入真实姓名,vbOKOnly+vbCritical,错误 Text1.SetFocus Exit Sub End If If Trim(Text2.Text)=Then 如果密码为空名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 34 页 -2 MsgBox 请输入用户名,vbOKOnly+vbCritical,错误 Text2.SetFoc

35、us Exit Sub End If If Text2.Text Text3.Text Then MsgBox 新密码与确认的密码不相同,vbOKOnly+vbCritical,错误 Text3.SetFocus Exit Sub End If If cmbType.Text=选择类别 Then MsgBox 请选择用户类别,vbOKOnly+vbCritical,错误 Combo1.SetFocus Exit Sub End If sql=sql+pwd=&Text1.Text&rs.Open sql,conn,1,3 If rs.RecordCount 0 Then MsgBox 用户名已

36、存在 +重新输入用户名,vbOKOnly+vbInformation,提示 Text2.SetFocus Exit Sub Else strI=cmbType.Text If strI=管理员 Then str=MsgBox(您的权限有限，暂不能注册成为管理员？,vbYesNo,提示)If str=vbYes Then Unload Me 名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 34 页 -2 frmlogin.Show Else Exit Sub End If End If If strI=普通用户 Then rs.AddNew rs(userName)=Text1.

37、Text rs(pwd)=Text2.Text rs(Type)=cmbType.Text rs.Update MsgBox 用户成功添加,vbYesNo,提示 End If End If Unload Me frmlogin.Show rs.Close Set rs=Nothing conn.Close Set conn=Nothing End Sub 3.主菜单页面我们也分为用户界面和管理员界面：用户界面只能修改自己信息与查询其他的各种信息，但不能做任何修改，管理可以无限制。名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 34 页 -2 图 4-4 主菜单管理员界面的代码如

38、下：Dim Ok As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Private Sub AddCls_Click()frmClsAdd.Show Unload Me End Sub Private Sub Addcour_Click()frmCurAdd.Show 名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 34 页 -2 Unload Me End Sub Private Sub AddGrd_Click()frmGrdAdd.Show

39、Unload Me End Sub Private Sub Addstu_Click()Unload Me Addstufrm.Show End Sub Private Sub clgAdd_Click()Unload Me AddClg.Show End Sub Private Sub CxClg_Click()CxClgfrm.Show Unload Me End Sub Private Sub End_Click()End End Sub Private Sub Form_Load()StaBar.Panels.Add(1)StaBar.Panels.Item(1)=3000 StaBa

40、r.Panels.Add(2)StaBar.Panels.Item(1).Style=sbrText StaBar.Panels.Item(2).Style=sbrDate StaBar.Panels.Item(3).Style=sbrTime StaBar.Panels.Item(1).Text=guserName&权限：管理员 名师资料总结-精品资料欢迎下载-名师精心整理-第 24 页，共 34 页 -2 End Sub Private Sub reGrade_Click()XgGrdfrm.Show Unload Me End Sub Private Sub sjCls_Click()X

41、gClsfrm.Show Unload Me End Sub Private Sub Sjstu_Click()XgStuFrm.Show Unload Me End Sub Private Sub userExit_Click()Ok=False Unload Me frmlogin.Show End Sub Private Sub userLogining_Click()FrmZc.Show Unload Me End Sub Private Sub XgClg_Click()XgClgfrm.Show Unload Me End Sub Private Sub XgCour_Click(

42、)XgCurfrm.Show Unload Me 名师资料总结-精品资料欢迎下载-名师精心整理-第 25 页，共 34 页 -2 End Sub Private Sub XgPwd_Click()frmPassword.Show Unload Me End Sub Private Sub Xgstu_Click()XgStuFrm.Show Unload Me End Sub 4.院系功能我们接下来仅以介绍院系管理为例，介绍一下我们的一些基础设置。分为添加院系、管理院系、查询院系。而普通用户只有查询院系。添加院系：添加院系代码如下：Option Explicit 名师资料总结-精品资料欢迎下载

43、-名师精心整理-第 26 页，共 34 页 -2 Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdCancel_Click()XgClsfrm.Show Unload Me End Sub Private Sub cmdOK_Click()Set conn=New ADODB.Connection Set rs=New ADODB.Recordset conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.Pa

44、th&stu.mdb;&_ Persist Security Info=False conn.Open rs.Open select*from clsIno,conn,adOpenKeyset,adLockOptimistic rs.AddNew txtName.SetFocus If txtGender.Text=Then MsgBox 课程名称不能为空！txtGender.SetFocus Exit Sub Else rs.Fields(0).Value=Val(txtID.Text)rs.Fields(1).Value=txtName.Text rs.Fields(2).Value=tx

45、tGender.Text rs.Fields(3).Value=txtAddr.Text rs.Fields(4).Value=Text1.Text rs.Fields(5).Value=Text2.Text rs.Fields(6).Value=Text3.Text rs.Update 名师资料总结-精品资料欢迎下载-名师精心整理-第 27 页，共 34 页 -2 MsgBox 课程添加成功 End If rs.Close conn.Close txtID.Text=txtName.Text=txtGender.Text=txtAddr.Text=Text1.Text=Text2.Text=

46、Text3.Text=FrmMainGul.Show End Sub 修改院系：代码如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 28 页，共 34 页 -2 Option Explicit Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Public Sub ReShow()Set conn=New ADODB.Connection Set rs=New ADODB.Recordset conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Sourc

47、e=&App.Path&stu.mdb;&_ Persist Security Info=False conn.Open rs.Open select*from clsIno,conn,adOpenKeyset Set MSHFlexGrid1.DataSource=rs MSHFlexGrid1.Sort=3 rs.Close conn.Close End Sub Private Sub Form_Load()ReShow End Sub Private Sub cmdExit_Click()Unload Me FrmMainGul.Show End Sub Private Sub cmdD

48、el_Click()Set conn=New ADODB.Connection Set rs=New ADODB.Recordset Dim str As String conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.Path&stu.mdb;&_ 名师资料总结-精品资料欢迎下载-名师精心整理-第 29 页，共 34 页 -2 Persist Security Info=False conn.Open rs.Open select*from clsIno where 课程名称=&_ MSHFl

49、exGrid1.TextMatrix(MSHFlexGrid1.Row,2)&,_ conn,adOpenKeyset,adLockOptimistic str=MsgBox(是否真的删除该信息？,vbYesNo,警告)If str=vbYes Then rs.Delete rs.Update End If rs.Close conn.Close ReShow End Sub Private Sub cmdAdd_Click()frmCurAdd.Show End Sub Private Sub cmdModify_Click()Set conn=New ADODB.Connection Se

50、t rs=New ADODB.Recordset conn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;&_ Data Source=&App.Path&stu.mdb;&_ Persist Security Info=False conn.Open rs.Open select*from clsIno where 课程名称=&_ MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,2)&,_ 名师资料总结-精品资料欢迎下载-名师精心整理-第 30 页，共 34 页 -2 conn,adOpenKeyset,