毕业论文-学生信息管理系统.doc

26毕业综合实践课题名称： 学生信息管理系统 届 别： 2008届 系 别： 信息与控制学院 专 业： 计算机信息管理 班 级： S611205 学生姓名： 钱月鹏 学 号： 19号 指导教师： 林方聪 2008年 5月 26 日 目 录【摘要】4【关键字】：4引言51VB语言的介绍51.1VB程序的两大基本特点51.2VB系统中常用的名词52.使用ACCESS2000 创建数据库62.1数据库的概念:62.2新建一个数据库62.3修改已建的数据库63.系统概述63.1系统的需求73.2系统的可行性分析73.3系统功能：7系统管理模块7班级管理模块7课程管理模块8档案管理模块83.4系统流程图84.系统具体实现94.1各功能的实现:9用户管理9课程管理：课程设置、课程查询10班级管理：班级设置、班级查询16学生档案管理：档案设置与档案查询214.2数据表的设计27结束语29致 谢29学生信息管理系统【摘要】随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率的把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。作为一个教育事业单位（学校），也随着社会的发展，不断的扩大，学生数量急剧增加，关于学生的各种信息也成倍增长。面对如此庞大的信息需要一个系统来管理，以便提高管理工作的速度。通过这样的系统可以做到信息的查询、修改、增加、删除等，从而减少管理方面的工作量。本系统的设计也主要用于学校的学生信息管理，主要用计算机对学生各种信息进行日常管理（查询、增加、删除），为了实现以上功能设计了学生信息管理系统。结合自己的实际情况，使用了自己学过的Microsoft公司所提供的Visual Basic开发工具数据库(Microsoft Office Access 2000)。利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象。【关键字】： 管理信息系统引言随着计算机的广泛使用，计算机管理信息系统的建立及成熟，也适应了社会经济发展的要求，是信息管理现代化的一次进步。今天我们能运用计算机进行学生信息管理的初步现开发和使用，大大的提高了管理的效率。同时在当今教育事业单位的逐步扩大，学生信息的成倍增长，在如此条件下，开发和建立一个信息管理系统的必要性。1VB语言的介绍VB是一种可视化的，面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发WINDOWS环境下的就用程序。它简单易学，效率高，且功能强大，可以与其它专业的开发工具相媲美，而且程序开发人员不必具有C语言或以上的编程基础。在VB环境下，利用事件驱动的编程机制、易用的可视化设计工具，使用内部的就用程序接口，及动态链接数据库、动态数据交换、等技术，可以高效、快速的开发出功能强大、界面丰富的系统。1.1VB程序的两大基本特点(1) 可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际效果，必须在编译后运行后才能看到。如果对界面的效果不满意，还要回到程序中修改。一次、二次还好，如果是多次呢，这样就大大的影响了开发的效率。而VB提供了可视化的设计工具，开发人员不必为界面的设计而花大量的时间。只需要按用户自己的意思进行布局，再利用VB所提供的工具，在屏幕上构造出各种的图形，并对这些图形进行属性设置。VB自动产生界面设计代码，程序设计人员只需要编写部分代码，可以大大的提高程序设计的效率(2) 事件驱动编程:在设计就用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与就用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段就用程序。1.2VB系统中常用的名词VB系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词，其含义如下：(1) 视窗（FORM）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是WINDOWS系统的标准视窗。(2) 对象（OBJECT）对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框（LABEL BOX）、文本框（TEXT）、命令按扭（COMMAND BUTTON）等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象(3) 属性属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而且有效地使用系统提供的对象。2.使用ACCESS2000 创建数据库2.1数据库的概念:数据库是一种存储数据并对数据进行操作的工具.数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库和关系数据库。关系数据库中包含了多个数据表的信息。2.2新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 标识需要的数据； 收集被子标识的字段到表中；标识主关键字字段；规范数据；标识指定字段的信息；2.3修改已建的数据库 数据库的修改分为；添加、编辑和删除记录。3.系统概述本系统(学生信息管理系统)是一个较普遍一个管理系统,本系统主要包括如下几个功能:学生档案管、理课程管理、班级管理等功能. 3.1系统的需求随着计算机的广泛使用，计算机管理信息系统的建立及成熟，也适应了社会经济发展的要求，是信息管理现代化的一次进步。今天我们能运用计算机进行学生信息管理的初步现开发和使用，大大的提高了管理的效率。同时在当今教育事业单位的逐步扩大，学生信息的成倍增长，在如此条件下，开发和建立一个信息管理系统的必要性。3.2系统的可行性分析在当今教育事业单位的逐步扩大，学生信息的成倍增长，而且每个信息的数据都在不断地变化着，如果采用以前那种人工的方式进行操作，那么，可以想象一天的工作是多大。在如此的情况下，采用电子的方式进行操作让数据的查询变得简单化，让每个人都可以随时了解到信息。本系统所采用的语言是Visual Basic，用Microsoft Access 2000数据库完成。该系统总体有四部分组成，包括学生档案管理、课程管理、班级管理等。通过本系统，把本校内部查询学生信息进行有效地计划、组织和控制。本系统中使用到的数据表主要有班级表、课程表、学生档案、用户资料这四个表组成了名为信息的数据库（如图）。 3.3系统功能：系统管理模块该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、重新登录、退出系统等等。班级管理模块该模块的功能是实现对全校班级的管理工作，包括：班级添加与删除、班级查询两个模块。 课程管理模块该模块对课程进行设置，该模块包括课程添加与删除、课程查询设置两个模块。档案管理模块该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加与删除、档案查询功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。3.4系统流程图学生信息管理系统用户登录学生档案管理课程管理班级管理系统管理档案添加 删除退出系统重先登录用户管理档案的查询课程的查询课程添加 删除班级查询班级添加 删除修改密码添加用户4.系统具体实现4.1各功能的实现:用户管理 运行程序后，进入系统设置里的用户管理，用户管理模块里的功能是增加用户与更改用户的密码。课程管理：课程设置、课程查询运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可以把专业、年级、课程名称、教材、任课老师、课程性质等信息输入，以便使用。其代码如下：Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetPrivate Sub Command1_Click()Dim ZhuanYe, NianJi, KeCheng, JiaoCai, RenKLS, KeChengXZ, KaoShiXZ As StringZhuanYe = Text1.TextNianJi = Text2.TextKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(ZhuanYe) = Or Trim(NianJi) = Or Trim(KeCheng) = Or Trim(JiaoCai) = Or Trim(RenKLS) = Or Trim(KeChengXZ) = Or Trim(KaoShiXZ) = Then MsgBox 基本课程设置资料不能为空,请填写完整！ Combo1.Text = Combo2.Text = Exit SubEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;myRs.Open select * from 课程表 where 专业= & Trim(Text1.Text) & and 年级= & Trim(Text2.Text) & and 课程名称= & Trim(Text4.Text) & , myConIf myRs.EOF = False Then MsgBox 该课程已经存在，请重新输入！ myRs.Close myCon.Close Text1.SetFocus Exit SubEnd IfmyRs.ClosemyRs.Open 课程表, myCon, 3, 2myRs.AddNew myRs.Fields(专业) = Text1.Text myRs.Fields(年级) = Text2.Text myRs.Fields(课程名称) = Text4.Text myRs.Fields(教材) = Text5.Text myRs.Fields(任课老师) = Text6.Text myRs.Fields(课程性质) = Combo1.Text myRs.Fields(考试性质) = Combo2.Text myRs.UpdatemyRs.ClosemyCon.CloseMsgBox 添加成功!Adodc1.RecordSource = select * from 课程表 order by 专业Frm_SheZGrean.Adodc1.RefreshFrm_SheZGrean.DataGrid1.RefreshText1.Text = Text2.Text = Text4.Text = Text5.Text = Text6.Text = Combo1.Text = Combo2.Text = End SubPrivate Sub Command2_Click()Dim ZhuanYe, NianJi, KeCheng, JiaoCai, RenKLS, KeChengXZ, KaoShiXZ As StringDim n As IntegerZhuanYe = Text1.TextNianJi = Text2.TextKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(ZhuanYe) = Or Trim(NianJi) = Or Trim(KeCheng) = Or Trim(JiaoCai) = Or Trim(RenKLS) = Or Trim(KeChengXZ) = Or Trim(KaoShiXZ) = Then MsgBox 请填写要删除的资料！ Combo1.Text = Combo2.Text = Exit SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;myRs.Open select * from 课程表 where 专业= & Text1.Text & , myCon, 3, 2n = MsgBox(您确定要删除吗？, vbYesNo, 提示)If n = 6 ThenMsgBox (删除成功!)myRs.DeletemyRs.ClosemyCon.CloseEnd IfAdodc1.RecordSource = select * from 课程表 order by 专业Frm_SheZGrean.Adodc1.RefreshFrm_SheZGrean.DataGrid1.RefreshText1.Text = Text2.Text = Text4.Text = Text5.Text = Text6.Text = Combo1.Text = Combo2.Text = End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub DataGrid1_Click()Frm_SheZGrean.Adodc1.RecordSource = select * from 课程表 where 专业 = & Trim(DataGrid1.Row) & Text1.Text = Frm_SheZGrean.Adodc1.Recordset.Fields(专业)Text2.Text = Frm_SheZGrean.Adodc1.Recordset.Fields(年级)Text4.Text = Frm_SheZGrean.Adodc1.Recordset.Fields(课程名称)Text5.Text = Frm_SheZGrean.Adodc1.Recordset.Fields(教材)Text6.Text = Frm_SheZGrean.Adodc1.Recordset.Fields(任课老师)Combo1.Text = Frm_SheZGrean.Adodc1.Recordset.Fields(课程性质)Combo2.Text = Frm_SheZGrean.Adodc1.Recordset.Fields(考试性质)Command2.Enabled = TrueEnd SubPrivate Sub Form_Load()Combo1.AddItem (必修)Combo1.AddItem (选修)Combo1.AddItem (自开)Combo2.AddItem (考试)Combo2.AddItem (查考)Text1.Text = Text2.Text = Text4.Text = Text5.Text = Text6.Text = Combo1.Text = Combo2.Text = End Sub当输入查询类别、运算符和条件后可以查找到所需要的课程设置。代码如下：Dim sqlstr As StringPrivate Sub Command1_Click()Dim a As StringDim KCCX1 As StringDim KCCX2 As Stringa = Trim(Combo2)Select Case a Case = KCCX1 = & Combo1.Text & & Combo2.Text & & Trim(Text1) & Case like KCCX1 = Instr(1, & Combo1.Text & , & Trim(Text1.Text) & )0 End Selecta = Trim(Combo4)Select Case a Case = KCCX2 = & Combo3.Text & & Combo4.Text & & Trim(Text2) & Case like KCCX2 = Instr(1, & Combo3.Text & , & Trim(Text2.Text) & )0 End SelectIf Option1.Value = True Then If KCCX1 = Then strTiaoJian = select * from 课程表 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 课程表 where & KCCX1 Else strTiaoJian = select * from 课程表 where & KCCX1 & and & KCCX2 End IfElseIf Option2.Value = True Then If KCCX1 = Then strTiaoJian = select * from 课程表 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 课程表 where & KCCX1 Else strTiaoJian = select * from 课程表 where & KCCX1 & or & KCCX2 End IfElse If KCCX1 = Then strTiaoJian = select * from 课程表 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 课程表 where & KCCX1 End IfEnd If If (KCCX1 & KCCX2) = Then MsgBox 请输入查询条件！, vbOKOnly, 警告Exit SubElse Unload Me Frm_UpdateGrean.Show 1End IfstrTiaoJian = select 专业,年级,课程名称,教材,任课老师,课程性质,考试性质 from 课程表 where & sqlstrUnload MeFrm_UpdateGrean.Show 1End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim i, j As IntegerAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;Persist Security Info=FalseCombo1.AddItem (专业)Combo1.AddItem (年级)Combo1.AddItem (课程名称)Combo1.AddItem (教材)Combo1.AddItem (任课老师)Combo1.AddItem (课程性质)Combo1.AddItem (考试性质)Combo2.AddItem (=)Combo3.AddItem (专业)Combo3.AddItem (年级)Combo3.AddItem (课程名称)Combo3.AddItem (教材)Combo3.AddItem (任课老师)Combo3.AddItem (课程性质)Combo3.AddItem (考试性质)Combo4.AddItem (=)Combo1.Text = Combo2.Text = Text1.Text = Combo3.Text = Combo4.Text = Text2.Text = End Sub班级管理：班级设置、班级查询运行程序后，进入班级管理模块，班级管理模块的班级增加，在这模块中可以把专业、年级、人数、班主任、备注等信息输入，以便使用。Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetPrivate Sub Command1_Click()Dim NianJi, ZhuanYe, RenShu, FuDaoYuan, BeiZu As StringNianJi = Text1.TextZhuanYe = Text2.TextRenShu = Text3.TextFuDaoYuan = Text4.TextBeiZu = Text5.TextCommand1.Enabled = TrueIf Trim(NianJi) = Or Trim(ZhuanYe) = Or Trim(RenShu) = Or Trim(FuDaoYuan) = Then MsgBox 资料不能为空,请填写完！ Exit SubEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;myRs.Open select * from 班级表 where 年级= & Trim(Text1.Text) & and 专业= & Trim(Text2.Text) & , myConIf myRs.EOF = False Then MsgBox 该班级已经存在，请重新输入！ myRs.Close myCon.Close Text1.SetFocus Exit SubEnd IfmyRs.ClosemyRs.Open 班级表, myCon, 3, 2myRs.AddNew myRs.Fields(年级) = Text1.Text myRs.Fields(专业) = Text2.Text myRs.Fields(人数) = Text3.Text myRs.Fields(辅导员) = Text4.Text If Text5.Text = Then myRs.Fields(备注) = Else myRs.Fields(备注) = Text5.Text End IfmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox 添加成功!Adodc1.RecordSource = select * from 班级表 order by 年级Frm_AddClass.Adodc1.RefreshFrm_AddClass.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub Command2_Click()Dim NianJi, xi, RenShu, FuDaoYuan, BeiZu As StringNianJi = Text1.TextZhuanYe = Text2.TextRenShu = Text3.TextFuDaoYuan = Text4.TextBeiZu = Text5.TextIf Trim(NianJi) = Or Trim(ZhuanYe) = Or Trim(RenShu) = Or Trim(FuDaoYuan) = Then MsgBox 请填写要删除资料！ Exit SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;Dim n As IntegermyRs.Open select * from 班级表 where 年级= & Trim(Text1.Text) & , myCon, 3, 2n = MsgBox(您确定要删除吗？, vbYesNo)If n = 6 ThenMsgBox (删除成功!)myRs.DeletemyRs.ClosemyCon.CloseEnd IfAdodc1.RecordSource = select * from 班级表 order by 年级Frm_AddClass.Adodc1.RefreshFrm_AddClass.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub DataGrid1_Click()Frm_AddClass.Adodc1.RecordSource = select * from 班级表 where 年级 = & Trim(DataGrid1.Row) & Text1.Text = Frm_AddClass.Adodc1.Recordset.Fields(年级)Text2.Text = Frm_AddClass.Adodc1.Recordset.Fields(专业)Text3.Text = Frm_AddClass.Adodc1.Recordset.Fields(人数)Text4.Text = Frm_AddClass.Adodc1.Recordset.Fields(辅导员)Text5.Text = Frm_AddClass.Adodc1.Recordset.Fields(备注)Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Frm_AddClass.Adodc1.RefreshFrm_AddClass.DataGrid1.RefreshEnd SubPrivate Sub Text1_Change()Command1.Enabled = TrueEnd Sub当输入查询类别、运算符和条件后可以查找到所需要的班级设置。Private Sub Command1_Click()Dim a As StringDim BJCX1 As StringDim BJCX2 As Stringa = Trim(Combo2)Select Case a Case = BJCX1 = & Combo1.Text & & Combo2.Text & & Trim(Text1) & Case like BJCX1 = Instr(1, & Combo1.Text & , & Trim(Text1.Text) & )0 End Select a = Trim(Combo4)Select Case a Case = BJCX2 = & Combo3.Text & & Combo4.Text & & Trim(Text2) & Case like BJCX2 = Instr(1, & Combo3.Text & , & Trim(Text2.Text) & )0 End Select If Option1.Value = True Then If BJCX1 = Then strTiaoJian = select * from 班级表 where & BJCX2 ElseIf BJCX2 = Then strTiaoJian = select * from 班级表 where & BJCX1 Else strTiaoJian = select * from 班级表 where & BJCX1 & and & BJCX2 End IfElseIf Option2.Value = True Then If BJCX1 = Then strTiaoJian = select * from 班级表 where & BJCX2 ElseIf BJCX2 = Then strTiaoJian = select * from 班级表 where & BJCX1 Else strTiaoJian = select * from 班级表 where & BJCX1 & or & BJCX2 End IfElse If BJCX1 = Then strTiaoJian = select * from 班级表 where & BJCX2 ElseIf BJCX2 = Then strTiaoJian = select * from 班级表 where & BJCX1 End IfEnd IfIf (BJCX1 & BJCX2) = Then MsgBox 请输入查询条件！, vbOKOnly, 警告Exit SubElse Unload Me Frm_UpdateClass.Show 1End IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;Persist Security Info=FalseCombo1.AddItem (年级)Combo1.AddItem (专业)Combo1.AddItem (人数)Combo1.AddItem (辅导员)Combo2.AddItem (=)Combo3.AddItem (年级)Combo3.AddItem (专业)Combo3.AddItem (人数)Combo3.AddItem (辅导员)Combo4.AddItem (=)Combo1.Text = Combo2.Text = Text1.Text = Combo3.Text = Combo4.Text = Text2.Text = End Sub学生档案管理：档案设置与档案查询运行程序后，进入档案管理模块，档案管理模块的学生档案增加，在这模块中可以把学号、姓名、年级、性别、专业、政治面貌、民族、籍贯、家庭地址、备注等信息输入，以便使用。代码如下：Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetPrivate Sub Command1_Click()Dim XueHao, XingMing, NianJi, ZhuanY, XingBie, MZ, JG, ZZMM, JTDZ, YZBM, LXDH, BZ As StringXueHao = Text1.TextXingMing = Text2.TextNianJi = Text3.TextZhuanY = Text4.TextXingBie = Combo2.TextMZ = Text7.TextJG = Text8.TextZZMM = Combo1.TextJTDZ = Text9.TextYZBM = Text10.TextLXDH = Text11.TextBZ = Text12.TextIf Trim(XueHao) = Or Trim(XingMing) = Or Trim(NianJi) = Or Trim(ZhuanY) = Or Trim(XingBie) = Or Trim(MZ) = Or Trim(JG) = Or Trim(ZZMM) = Or Trim(JTDZ) = Or Trim(YZBM) = Or Trim(LXDH) = Then MsgBox 学生档案资料不能为空,请填写！ Exit SubEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;myRs.Open select * from 学生档案 where 学号= & Trim(Text1.Text) & and 姓名= & Trim(Text2.Text) & , myConIf myRs.EOF = False Then MsgBox 该学生档案已经存在，请重新输入！ myRs.Close myCon.Close Text1.SetFocus Exit SubEnd IfmyRs.ClosemyRs.Open 学生档案, myCon, 3, 2myRs.AddNew myRs.Fields(学号) = Text1.Text myRs.Fields(姓名) = Text2.Text myRs.Fields(年级) = Text3.Text myRs.Fields(专业) = Text4.Text myRs.Fields(性别) = Combo2.Text myRs.Fields(民族) = Text7.Text myRs.Fields(籍贯) = Text8.Text myRs.Fields(政治面貌) = Combo1.Text myRs.Fields(家庭地址) = Text9.Text myRs.Fields(邮政编码) = Text10.Text myRs.Fields(联系电话) = Text11.Text If Text12.Text = Then myRs.Fields(备注) = Else myRs.Fields(备注) = Text12.Text End If myRs.UpdatemyRs.ClosemyCon.CloseMsgBox 添加成功!Adodc1.RecordSource = select * from 学生档案 order by 学号 Frm_AddDangA.Adodc1.RefreshFrm_AddDangA.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Combo2.Text = Text7.Text = Text8.Text = Combo1.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = End SubPrivate Sub Command2_Click()Dim XueHao, XingMing, NianJi, ZhuanY, XingBie, MZ, JG, ZZMM, JTDZ, YZBM, LXDH, BZ As StringDim n As IntegerXueHao = Text1.TextXingMing = Text2.TextNianJi = Text3.TextZhuanY = Text4.TextXingBie = Combo2.TextMZ = Text7.TextJG = Text8.TextZZMM = Combo1.TextJTDZ = Text9.TextYZBM = Text10.TextLXDH = Text11.TextBZ = Text12.TextIf Trim(XueHao) = Or Trim(XingMing) = Or Trim(NianJi) = Or Trim(XingBie) = Or Trim(MZ) = Or Trim(JG) = Or Trim(ZZMM) = Or Trim(JTDZ) = Or Trim(YZBM) = Or Trim(LXDH) = Then MsgBox 请填写要删除的资料！ Exit SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;myRs.Open select * from 学生档案 where 学号= & Text1.Text & , myCon, 3, 2n = MsgBox(您确定要删除吗？, vbYesNo, 提示)If n = 6 ThenMsgBox (删除成功!)myRs.DeletemyRs.ClosemyCon.CloseEnd IfAdodc1.RecordSource = select * from 学生档案 order by 学号Frm_AddDangA.Adodc1.RefreshFrm_AddDangA.