学生信息管理系统论文

1、学生信息管理系统论文目 录内容摘要：关键词：1、 开发方法的选择11相关技术与开发工具介绍111 Windows下的Visual Basic 编程环境介绍112 系统常用的名词113开发工具Visual Basic的使用12 怎样开发一个学生信息管理系统的查询模块121查询模块的设计分析122编程环境的选择123关系型数据库的实现124 ADO的引用13 使用Access2003 实现关系型数据库131. 数据库的概念132 . 新建一个数据库133 . 修改已建的数据库134 . 实现数据库之间的联系14

2、0;硬件开发环境2、 可行性分析3、 系统总体规划3.1 系统功能3.2学生信息的设置与浏览4、 系统详细设计4.1 系统子模块功能概括4.2 用户界面的实现4.2.1登录界面4.2.2 主界面4.2.3 系统管理界面4.2.4 学生学籍管理界面4.2.5 班级管理界面4.2.6 成绩管理界面4.2.7 专业课程管理界面4.2.8 宿舍管理界面4.2.9 帮助界面4.3 数据库的实现4.3.1 学生基本信息数据库(xsXJ)4.3.2 班级数据库(xsBJ

3、)4.3.3 成绩数据库(xsScore)4.3.4 专业数据库(xsZY)4.3.5 课程数据库(xsKC)4.3.6 宿舍数据库(xsSS)4.3.7 用户数据库(xsS)4.4 系统的特点4.5 目前存在的问题及改进意见参考文献5、谢辞内容摘要： 学生信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前台应用程序的开发两个方面。对于前者要求建立数据的一致性和完整性强、数据安全性好的数据库；而对于后者则要求应用程序功能完备,易使用等特点。    经过分析,我

4、们使用Microsoft公司的 Visual Basic开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；

5、系统实现部分说明了几个主要模块的算法,本系统界面友好，操作简单，比较实用。关键词：学生信息、管理、分析、设计、实现、ADO。1、 开发方法的选择本章主要介绍了在程序、系统开发过程中所用到的软件和硬件环境，以及各类工具在windows2000环境下的安装与调试。11相关技术与开发工具介绍本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境 Visual Basic6.0 作为主要开发工具，使用Microsoft Office Access 2003 作为关系数据库，并为VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，访问数据库，对数据库

6、的更新，较好地实现了预定的需求功能。111 Windows下的Visual Basic 编程环境介绍1 、面对对象的编程面向对象的设计方法 (OOP, Objected Programming) 从应用领域内的问题着手，以直观自然的方式描述客观世界的实体。Visual Basic 作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由 Visual Basic 自动生成对象的程序代码并封装起来。Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性

7、和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性、可扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。2 、实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic 也提供了强大的创建菜单功能是程序更加标准。本系统使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单，您也可以使用Visual Basic

8、的Application Wizard 来操作。3、 实现工具栏CoolBar控件与Office2000 中看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你也可以向用户提供更好的灵活性和易用性。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。本系统就用了Cool工具中的Statubar控件，在系统这一界面中，添加了状态栏，在第一个栏中，在样式这一栏中选择了文本，在

9、第二个栏中，选择了系统日期，第三个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。112 系统常用的名词 Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：1、视窗（Form）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。2、对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (LabelBox)，文本框 (TextBox)，命令按扭 (Com

10、mand Button)，网格 (Data Grid)，ADO控件 (Adodb)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法” ，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序的开发时间，提高程序设计者的工作效率。3、属性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。4、事

11、件 (Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。5、方法 (Method)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。6、过程 (Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发

12、的程序段。7、模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、数据查询、数据更新和数据打印。113开发工具Visual Basic的使用使用Visual Basic 的菜单编辑器即可建立菜单或者修改已经存在的菜单。由于大家对菜单等的使用已驾轻就熟，现着重对主要控件的使用作个介绍：首先，选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”，然后，在工具箱中增加该控件，即可实现控件的添加。12 怎样开发一个学生信息管理系统的查询

13、模块121查询模块的设计分析根据实际情况，我们使用原型法(Rapid Prototyping) 即以少量代价快速地构造一个可执行的软件模型。使用户可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。122编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的

14、运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。123关系型数据库的实现Microsoft Office Access 2003 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，

15、Access作为关系数据库开发具备了许多优点，可以在一个数据包同时拥有桌面数据库的便利和关系数据库的强大功能。124 ADO的引用微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。ADO微软公司的ADO (ActiveX Data Objects) 是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLE DB的一个中间层。允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而

16、只用关心到数据库的连接。访问数据库的时候，关于SQL的知识不是必要的，但是特定数据库支持的SQL命令仍可以通过ADO中的命令对象来执行。13 使用Access2003 实现关系型数据库131. 数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息。简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系型数据库（flat-file）和关系型数据库（relational）。关系型数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，如记录等。132 . 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建

17、一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集被子标识的字段到表中；（3）标识主关键字字段；（4）规范数据；（5）标识指定字段的信息；133 . 修改已建的数据库数据库的修改分为添加、编辑和删除记录。这三种操作均可由Visual Basic创建的程序来完成。134 . 实现数据库之间的联系数据库之间的关系是指两个库之间共享一个共同的关键字值。一个链接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于

18、描述库表示什么以及在数据库中如何与其它的库建立关系。14 硬件开发环境所用的机器硬件配置是： 奔腾3处理器，主频400HZ;128M内存，10G硬盘。2、 可行性分析通过调查分析，建立新的学生信息管理信息系统有其充分的必要性和可能性。可以建立该信息系统的可能性具体包含了它具有经济可行性、技术可行性和社会可行性，新系统能达到以最小的开发成本取得最佳的经济效益，开发中所需人员、硬软件支持以及其它费用进行估算情况均满意，技术条件也能保证顺利完成开发工作。学生信息管理系统所采用的语言是Visual Basic，用Microsoft Office Access 2003数据库完成。该系统总体有三部分组成

19、，包括学生信息管理、系统管理及帮助。通过本系统，把需要查询学生信息的各个环节进行有效地计划、组织和控制。通过处理信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。本系统主要信息流程为：学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中，最后进行打印。采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它的信息，使信息快速高效运行。3、 系统总体规划3.1 系统功能本系统主要功能有：1

20、.      学生基本信息的添加2.      学生基本信息的查询3.      班级管理信息的查询4.      学生课程信息的添加与修改5.      学生课程信息的查询6.      学生成绩信息的添加与修改7.      学生成绩信息的查询与

21、浏览3.2学生信息的设置与浏览4、 系统详细设计4.1 系统子模块功能概括该学生信息管理系统包括系统管理模块、学生信息管理模块。其中学生信息管理模块又包括学生学籍管理模块、班级管理模块、成绩管理模块、专业课程管理模块、宿舍管理模块。本系统具有如下功能：系统管理：包括添加用户，修改密码，退出；学生学籍管理：包括信息添加，信息浏览，信息查询；班级管理：包括班级浏览，添加班级，班级查询；成绩管理：包括成绩添加，成绩浏览，成绩查询；专业课程管理：包括基本课程设置，班级课程设置；打印报表： 包括学生学籍信息报表，学生成绩信息报表；帮助：包括关于系统，帮助文件；退出：退出整个系统。4.2

22、0;用户界面的实现4.2.1登录界面首先，系统的界面是至关重要的。它是与用户沟通的桥梁，用户工作时要时时面对它，所以界面一定要简洁、直观，操作简单。本系统界面的登录口令根据选择的相应用户和对应的口令进入系统，进行相应的操作。若密码错误，则弹出“输入密码不正确，请重新输入！”对话框。4.2.2 主界面密码无误，正确登录后会看到主界面。4.2.3 系统管理界面如果要添加新的用户名，输入用户名和密码（两次一样）输入后，点击确定就注册成功了，从此你就拥有了自己的帐户，此记录已经存入数据库，以后直接输入就可以登陆了！学生信息管理部分包括学生学籍管理、班级管理、课程管理、成绩管理。而每一部分都包括对该部分

23、信息的添加、浏览、查询、修改、删除。其实现过程是相似的。我们以学生学籍管理为例，介绍其实现过程。4.2.4 学生学籍管理界面在学生信息管理的添加界面中，我们先通过变量传递得到输入的学号，然后进行判断。首先程序先对输入的学号进行判断，若已存在，则给出提示信息，若不存在，则显示所要添加的内容。输入学生信息后，我们将信息加入到数据库中，可以使用下面程序完成：Private Sub cmdADD_Click()         If Trim(txtUser0(0).Text = "" Or

24、txtUser1(1).Text = "" Or txtUser2(2).Text = "") Then  MsgBox "请输入完整的信息！", vbOKOnly + vbQuestion, "提示"   txtUser0(0).SetFocusExit SubEnd IfIf DataCombo4.Text = "" Or DataCombo5.Text = "" Then MsgBox "请选择学生专业和班级！"

25、;, vbOKOnly + vbQuestion, "提示": Exit SubIf DataCombo1.Text = "" Then MsgBox "请选择学生的政治面貌!", vbOKOnly + vbQuestion, "提示": txtMianmao.SetFocus: Exit SubIf Not (Optm Or Optw) Then MsgBox "请选择学生的性别！", vbOKOnly + vbQuestion, "提示": Exit Subinputxs

26、_Info                End Sub另外，对于记录查找,可以使用下面程序来完成：Private Sub cmdXJfind_Click()               '查询按钮的代码实现If Opt1.Value And Trim(Text1.Text = "

27、") Then MsgBox "请输入学生学号！", vbOKOnly + vbInformation, "提示": Text1.SetFocus: Exit SubIf Opt2.Value And Trim(Text2.Text = "") Then MsgBox "请输入学生姓名！", vbOKOnly + vbInformation, "提示": Text2.SetFocus: Exit SubIf Check1.Value And DataCombo7.Text = &quo

28、t;" Then MsgBox "请选择班级！", vbOKOnly + vbInformation, "提示": DataCombo7.SetFocus: Exit SubIf Opt1.Value = False And Opt2.Value = False And Check1.Value = False Then MsgBox "请选择查询条件！", vbOKOnly + vbInformation, "提示"xsXJfind_infoEnd SubSub xsXJfind_info()Dim t

29、xtSQL As StringIf Opt1.Value ThenIf Check1.Value Then txtSQL = "select * from xsXJ Where 学号='" & Trim(Text1.Text) & "'" & "and 班级='" & Trim(DataCombo7.Text) & "'"ElsetxtSQL = "select * from xsXJ Where 学号='"

30、; & Trim(Text1.Text) & "'"End IfElseIf Check1.Value Then     '按姓名模糊查询txtSQL = "select * from xsXJ Where 姓名 like'" & "%" & Trim(Text2.Text) & "%" & "'" & " and 班级='" & T

31、rim(DataCombo7.Text) & "'"ElsetxtSQL = "select * from xsXJ Where 姓名 like'" & "%" & Trim(Text2.Text) & "%" & "'"End IfEnd If'Set rs = New ADODB.Recordsetrs.Closers.Open txtSQL, conn, 1, 1If rs.EOF = False Thenrs.Mov

32、eFirstSet DataGrid2.DataSource = rsDataGrid2.RefreshSet Text8.DataSource = rsSet Text9.DataSource = rsSet Text10.DataSource = rsSet Text11.DataSource = rsSet Text12.DataSource = rsSet DataCombo8.DataSource = rsSet DataCombo9.DataSource = rsSet DataCombo10.DataSource = rsSet DataCombo11.DataSource =

33、rsSet DataCombo12.DataSource = rsElseMsgBox "没有找到符合条件的记录！请重新输入查询条件！", vbOKOnly + vbInformation, "提示"End IfEnd Sub对于记录删除，可以使用下面程序：Private Sub Command12_Click()   i = MsgBox("是否真的删除该学生的学籍！", vbYesNo + vbInformation, "提示")On Error Resume NextIf i =

34、 vbYes Then rsXJ.Delete DoEvents rsXJ.MoveFirst DataGrid3.RefreshEnd IfEnd Sub4.2.5 班级管理界面班级管理模块有添加班级信息、修改查询班级信息、注销班级三项功能，其中班级查询修改界面中有按班级名称和按辅导员查询的功能。1.    添加班级添加班级中可添加班级名称，选择班级所属院系、辅导员，班级上自习所在的教室和班级班级人数。其中，教室编号必须是唯一的且，以确保班级的唯一性。检查输入无误后点击添加按钮，弹出对话框，按确定即可将数据添加到数据库，网

35、格中的指针指到新添加的数据处。2.班级查询与班级修改点击要查询或输入的单选按钮进行条件选择，点击“查询”即可。要修改值接网格内选择，然后在文本框内修改确认。 3.注销班级    点击“上一条”或者“下一条”进行选择将要注销的班级，然后点击“注销”命令按钮即可。代码如下：    Private Sub Command5_Click() '注销班级i = MsgBox("是否确认要删除该班级信息！", vbYesNo + vbInformation, "提示")On Er

36、ror Resume Next If i = vbYes Then '如果选择为是     rsBJ.Delete     rsBJ.Update     DataGrid3.Refresh End If End Sub班级模块首先定义局部变量，其代码如下：Private conn As ADODB.Connection    '定义通用变量Private rsZY As ADODB.Recordse

37、tPrivate rsBJ As ADODB.RecordsetPrivate rs As ADODB.RecordsetPrivate rsKC As ADODB.RecordsetPrivate rsFDY As ADODB.RecordsetPrivate rsYX As ADODB.Recordset输入添加信息后，“添加”按钮代码如下：Private Sub cmdADD_Click()If Trim(Text1.Text = "") Or Trim(DataCombo4.Text = "") Or Trim(DataCombo1.Text =

38、 "") Or Trim(Text4.Text = "") ThenMsgBox "请输入完整的班级信息！", vbOKOnly + vbQuestion, "提示": If Text1.Text = "" Then Text1.SetFocus Else If DataCombo1.Text = "" Then DataCombo1.SetFocus Else If DataCombo4.Text = "" Then DataCombo4.SetFocu

39、s Else If Text4.Text = "" Then Text4.SetFocus:Exit SubElseaddClassInfo '添加班级End IfEnd SubSub addClassInfo()Dim txtSQL As String      '定义查询字符串变量txtSQL = "select *from xsBJ where 班级名称='" & Trim(Text4.Text) & "'"  '

40、在班级表中查找是否有与输入相对应的数据Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.Open txtSQL, conn, 2, 3 ' 打开方式 2为可读写,当前数据记录可自由移动。3为乐观锁定 ，直到用Update方法提交更新记录时才锁定记录If rs.EOF = False Then  MsgBox "名为：" & Text4.Text & "  的班级已经分配，请检查后重新输入！", vbOKOnly + vbInformati

41、on, "提示"              '不可输入班级名称重复的项  Text4.Text = ""  Text4.SetFocusElse  Set rs = New ADODB.Recordset        '打开学生表  rs.CursorLocation = adUseClient

42、60; rs.Open "xsScore", conn, 2, 3rsBJ.AddNew   '添加新信息 rsBJ.Fields(0) = Trim(Text1.Text) rsBJ.Fields(1) = Trim(DataCombo1.Text) rsBJ.Fields(2) = Trim(DataCombo4.Text) rsBJ.Fields(3) = Trim(Text4.Text) rsBJ.Fields(4) = Trim(Text5.Text)  rsBJ.U

43、pdate   '更新到数据库 DataGrid1.Refresh DataGrid2.Refresh DataGrid3.Refresh rsBJ.MoveLast MsgBox "班级添加成功！", vbOKOnly + vbInformation, "提示" Text1.Text = "": DataCombo4.Text = "": Text4.Text = "": Text5.Text = &quo

44、t;": Text1.SetFocusEnd IfEnd Sub4.2.6 成绩管理界面成绩管理界面打印学生成绩。其中包括成绩添加、成绩查询修改、成绩打印和注销学生成绩功能。其中成绩添加、成绩修改查询和注销学生成绩与上面所述的班级管理非常类似，这里不再重复。值得注意的是，在添加学生成绩中。可以添加一个学生的多门课程成绩，此时，学号可以重复输入，其他情况下严禁输入相同的的学号。成绩模块首先定义局部变量，其代码如下：Private conn As ADODB.Connection '模块公共链接Private rsScore As ADODB.Recordset 

45、9;模块共用记录集Private rsZY As ADODB.RecordsetPrivate rsKC As ADODB.RecordsetPrivate rs As ADODB.RecordsetPrivate rsBJ As ADODB.RecordsetPrivate rsXJ As ADODB.Recordset 在打印成绩界面的“导出Excell”按钮其代码如下：Private Sub Command8_Click()             '

46、导出Excellt = MsgBox("即将在 D 盘上导出Excel表！", vbYesNo + vbInformation, "提示")If t = vbYes ThenIf Dir("D:Excel", vbDirectory) = "" Then   '判断文件夹是否为空，若为空，则新建Excel文件夹MkDir ("D:Excel")End IfIf Dir("D:Excel Excel.xls") <> "&quo

47、t; Then   '判断该文件是否存在，若存在，则删除该文件Kill ("D:Excel(Excel.xls")End IfDim i As IntegerDim j As IntegerDim xlExcel As New Excel.Application    Dim xlBook As New Excel.WorkbookDim xlSheet As New Excel.WorksheetSet xlBook = xlExcel.Workbooks.AddSet xlSheet = xlExcel.Work

48、sheets.AddxlSheet.Cells.Columns(7).ColumnWidth = 20 '定义单元格宽度xlSheet.Cells(1, 1) = "学号"  '单元格赋值xlSheet.Cells(1, 2) = "姓名"xlSheet.Cells(1, 3) = "专业"xlSheet.Cells(1, 4) = "课程"xlSheet.Cells(1, 5) = "成绩"xlSheet.Cells(1, 6) = "班级"xlS

49、heet.Cells(1, 7) = "自动编号"For i = 2 To rs.RecordCount + 1For j = 1 To rs.Fields.CountxlSheet.Cells(i, j) = rs.Fields.Item(j - 1).ValueNext jrs.MoveNextNext iMsgBox "导出成功！", vbOKOnly + vbInformation, "提示":ElseExit SubEnd IfEnd Sub 4.2.7 专业课程管理界面专业课程管理模块中的专业设置界面主要包括专业

50、添加,修改,专业删除功能。其中专业添加、修改、查询与上面所述的班级管理、学生学籍管理的添加、浏览、查询非常类似.1.      专业设置此模块主要功能是对学校新增的专业或已有的专业进行修改,删除.该模块有三个命令按钮,分别为:“添加”,“修改”,“删除”,所有程序设计只围绕着这三个命令按钮.其“添加”事件的代码主要完成对新添专业的添加. 我们先通过变量传递得到输入的专业编号，然后进行判断。若已存在，则给出提示信息，若不存在，则显示所要添加的内容。输入学生信息后，我们将信息加入到数据库中.其事件代码如下:Private Sub cmdZYadd_

51、Click()      '添加If Trim(txtZYname.Text) = "" Or Trim(DataCombo1.Text) = "" Then MsgBox "请输入完整信息!", vbOKOnly + vbQuestion, "提示": Exit SubDim txtSQL As StringtxtSQL = "select *from xsZY where 专业名称='" & Trim(txtZYnam

52、e.Text) & "'"Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.Open txtSQL, conn, 1, 1If Not rs.EOF ThenMsgBox "数据库中已经存在该专业,请修改!", vbOKOnly + vbQuestion, "提示"txtZYname.Text = ""txtZYname.SetFocusElsersZY.AddNew '数据库中如果没有该记录,则添加该记录rsZY.F

53、ields(0) = Trim(txtZYbh.Text)rsZY.Fields(1) = Trim(txtZYname.Text)rsZY.Fields(2) = Trim(DataCombo1.Text)rsZY.UpdateDataGrid1.RefreshMsgBox "信息添加成功!", vbOKOnly + vbInformation, "提示"txtZYname.Text = "": DataCombo1.Text = "": txtZYbh.Text = ""End IfEnd

54、Sub其“修改”事件的代码主要用来对新增的专业和已有的专业进行修改.其事件代码如下:Private Sub cmdZYcha_Click()  '修改If txtZYinfo.Text = "" And txtZYyuaninfo.Text = " " ThenMsgBox "对不起，表中记录为空，请先增加记录！", vbOKOnly + vbInformation, "提示信息 "cmdZYcha.Enabled = FalseElseIf cmdZYcha.Caption = "修改

55、" Then          '开始修改记录txtZYbhinfo.Locked = False            '恢复各控件的可用性txtZYyuaninfo.Locked = FalsetxtZYinfo.Locked = FalsecmdZYcha.Caption = "确定"     &

56、#160; '当用户单击“新增”按钮后，其caption的属性改为确定，用来询问用户是否真的增加记录On Error Resume Nextanswer = MsgBox("是否修改该条记录？", vbYesNo + vbInformation, "提示信息")If answer = vbYes ThenrsZY.Update                 '更新新生入学信Dat

57、aGrid1.RefreshrsZY.Fields(0) = Trim(txtZYbhinfo.Text) '修改数据记录rsZY.Fields(1) = Trim(txtZYinfo.Text)rsZY.Fields(2) = Trim(txtZYyuaninfo.Text)txtZYbhinfo.Locked = False       '当用户开始增加记录时，恢复各个按钮的属性txtZYinfo.Locked = FalsetxtZYyuaninfo.Locked = FalseElseMsgBox "

58、您没有修改本条记录！", vbInformation, "修改信息提示 "    ' 如果用户没有对本记录做任何修改，系统将对用户"进行提示操作rsZY.CancelUpdatecmdZYcha.Caption = "修改"End IfElseMsgBox "真的要修改本记录吗？", vbInformation, "修改记录提示"    '再次提示用户是否真的修改该记录cmdZYcha.Caption = "修

59、改"   '恢复“修改记录”的caption的属性End IfExit SubEnd IfEnd Sub其删除事件的代码主要完成对新增的专业和已有的专业进行删除.其事件代码如下:Private Sub cmdZYdel_Click()  '删除On Error Resume Nexti = MsgBox("确认要删除专业吗?", vbYesNo + vbInformation, "提示")If i = vbYes Then   rsZY.Delete   rs

60、ZY.MoveFirstEnd IfEnd Sub2.      课程设计此模块的主要功能是对新增的课程完成输入,对已有的课程进行修改和删除.该模块有三个命令按钮,分别为:“添加”,“修改”,“删除”,该模块需在完成的程序设计只有这三个命令按钮. 其添加事件的代码主要完成对新增课程的添加,其事件代码如下:Private Sub Command1_Click()         '添加If Trim(Text2.Text) = "" The

61、n MsgBox "请输入完整的课程名称!", vbOKOnly + vbInformation, "提示": Exit Sub   Dim txtSQL As String   txtSQL = "select *from xsKC where 课程名称='" & Trim(Text2.Text) & "'"   Set rs = New ADODB.Recordset   rs.CursorLocat

62、ion = adUseClient   rs.Open txtSQL, conn, 1, 1   If Not rs.EOF Then      MsgBox "数据库中已经存在该课程!", vbOKOnly + vbInformation, "提示"      Text2.Text = ""      Text2.SetFocus &#

63、160; Else      rsKC.AddNew               '添加新记录并添加新数据      rsKC.Fields(0) = Trim(Text2.Text)      rsKC.Fields(1) = txtzyopt1.Text   

64、0;  rsKC.Update      DataGrid2.Refresh      MsgBox "课程已经添加成功!", vbOKOnly + vbInformation, "提示"      Text2.Text = ""      txtzyopt1.Text = ""  

65、60;   Text2.SetFocus   End IfEnd Sub其修改事件代码主要完成对新增的课程和已有的课程进行修改,其事件代码如下:Private Sub Command3_Click()If Text4.Text = "" And txtZYopt2.Text = " " Then    MsgBox "对不起，表中记录为空，请先增加记录！", vbOKOnly + vbInformation, "提示信息 "  

66、;  cmdZYcha.Enabled = FalseElse   If Command3.Caption = "修改" Then        '开始修改记录      Text4.Locked = False           '恢复各控件的可用性     

67、 txtZYopt2.Locked = False      'txtZYinfo.Locked = False Command3.Caption = "确定"       '当用户单击“新增”按钮后，其caption的属性改为确定，用来询问用户是否真的增加记录 On Error Resume Next answer = MsgBox("是否修改该条记录？", vbYesNo + vbInformat

68、ion, "提示信息")If answer = vbYes Then   rsKC.Update     '更新新生入学信   DataGrid2.Refresh   rsKC.Fields(0) = Trim(Text4.Text) '修改数据记录   rsKC.Fields(1) = Trim(txtZYopt2.Text)   'rsKC.Fields(2) = Trim(txtZYyuaninfo.Tex

69、t)         Text4.Locked = False       '当用户开始增加记录时，恢复各个按钮的属性 txtZYopt2.Locked = False 'txtZYyuaninfo.Locked = False Else MsgBox "您没有修改本条记录！", vbInformation, "修改信息提示 "   

70、;  ' 如果用户没有对本记录做任何修改，系统将对用户"进行提示操作 rsKC.CancelUpdate Command3.Caption = "修改" End IfElse  MsgBox "真的要修改本记录吗？", vbInformation, "修改记录提示"    '再次提示用户是否真的修改该记录 Command3.Caption = "修改"    '恢

71、复“修改记录”的caption的属性End IfExit SubEnd IfEnd Sub其删除事件的代码主要完成对新增的课程或已有的课程进行删除,其事件代码如下:Private Sub Command2_Click()     '删除On Error Resume Nexti = MsgBox("是否删除该课程!", vbYesNo + vbInformation, "提示")If i = vbYes Then   rsKC.Delete   rsKC.MoveFi

72、rstEnd IfEnd Sub2.查询与修改模块的主要功能是对已存在的专业或课程进行修改.该模块有四个命令按钮,分别为”查询”,”全部”,”修改”,”修改”,该模块所有功能都围绕着这四个命令按钮. 其中“查询”事件代码主要用来显示数据库中已存在且符合一定条件的专业和课程,其事件代码如下:Private Sub Command5_Click()       '查询If Opt1.Value And Trim(txtFindZY.Text) = "" Then MsgBox "请输入专业名称！", vbOKOnly + vbInformation, "提示": Exit SubIf Opt2.Value And Trim(txtFindKC.Text) = "" Then MsgBox "