可视化编程技术课程设计（论文）-学生学籍管理系统.doc

辽 宁 工 业 大 学 可视化编程技术 课程设计（论文）题目： 学生学籍管理系统 院（系）： 软件学院 专业班级： 楼宇智能化工程技术082班 学 号： 学生姓名： 指导教师： 王凤英 教师职称： 助 教 起止时间： 2009.11.23至2009.12.06 课程设计（论文）任务及评语院（系）：软件学院 教研室：软件教研窒学 号学生姓名 专业班级楼宇智能化工程技术082班课程设计（论文）题目学生学籍管理系统课程设计（论文）任务课程设计任务及要求：1、掌握VB程序设计语言的基础知识。2、设计所选择的题目，对具体功能进行详细的分析，根据系统的要求在VB中设计窗体界面，使其合理化。3、了解VB与数据库的连接方法。4、编写代码，实现系统的功能。5、通过调试程序，加深对VB编程的基本技巧及方法的理解。课程设计过程中，要严格遵守实践环节的时间安排，听从指导教师的指导。正确地完成上述内容，记录实习日记，规范完整地撰写出课程设计论文。指导教师评语及成绩成绩： 指导教师签字： 2009 年 12 月 9 日辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）目 录第1章 课程设计目的与要求11.1 课程设计目的11.2 课程设计的实验环境11.3 课程设计的预备知识11.4 课程设计要求1第2章 课程设计内容22.1 系统功能设计22.2 系统详细设计32.3 系统运行与测试11第3章 课程设计总结12参考文献13第1章 课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完可视化编程技术课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。软件：Microsoft Visual Basic 6.0 Microsoft Access 20031.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第2章 课程设计内容2.1系统功能设计2.1.1 系统功能分析 学生学藉管理系统是典型的学藉管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统主要完成对学生情况和学生成绩的管理，包括数据库中表的添加、删除等。系统还可以完成对各类信息的浏览、添加、删除等功能。系统的核心是数据库中各个表联系，每一个表的修改都将联动的影响其它的表，当完成对数据的操作时系统会自动地完成数据库的修改。查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，并具备报表打印功能。2.1.2系统功能模块设计 本系统为学籍管理系统。它分为用户管理、班级管理、招生人员管理和学籍管理四个部分，更加方便进行管理。 用户管理：分为修改用户密码、添加用户、编辑用户和删除用户四个部分。 班级管理：分为添加班级信息、查找班级信息和删除班级信息三个部分。 招生人员管理：分为添加招生人员和删除招生人员两个部分。 学籍管理：分为录入学籍信息、修改学籍信息、查询学籍信息、删除学籍信息和浏览学籍信息五个部分。学籍管理系统用户管理班级管理招生人员管理学籍管理添加用户编辑用户删除用户添加班级信息删除班级信息添加招生人员删除招生人员录入学籍信息修改学籍信息查询学籍信息删除学籍信息浏览学籍信息修改用户密码查找班级信息图2.1系统功能模块图2.2系统详细设计2.2.1 学生修改密码模块设计1.界面设计修改密码：这里是数据员修改自己密码的地方。点击“修改密码”得如下图：输入原密码、新密码和确认新密码。点击“递交”即可修改，系统会提示修改成功。如果不想修改。点击“取消”结束本窗体。在窗体上添加一个框架控件Frame1和两个命令按钮Command1/Command2,选定Frame1，在其中添加Label1Label3,Text1Text3。设置对象属性如下表： 对象 属性 属性值 Label1 Caption 原密码 Label2Caption 新密码 Label3Caption 确认新密码 Command1Caption 递交 Command2Caption 取消窗体设计如下图所示： 图2.2修改密码模块2.代码设计 此代码为修改用户密码所用的代码。更加安全的管理个人信息等重要的信息。此代码包括输入原密码，然后输入新密码再确认新密码，按递交即可。 Dim cn As New ConnectionDim rst As New RecordsetPrivate Sub Form_Load() If cn.State adStateClosed Then 判断连接数据库的情况 cn.Close End Ifcn.ConnectionString = provider=microsoft.jet.oledb.4.0;data source= & App.Path & 鹿山学籍管理.mdbcn.OpenEnd SubPrivate Sub Cmdok_Click() 确定按钮 If rst.State adStateClosed Then 判断连接数据库的情况 rst.Close End Ifrst.Open select * from 学生信息 where 学生姓名= & Form1.NOWusername & and 学生学号= & Form1.NOWuserXueHao & , cn, adOpenKeyset, adLockOptimisticIf text1 = rst(学生密码) Then 输入的原密码正确。 If Text2 = Text3 Then 新密码两次输入一致 rst(学生密码) = Trim(Text2) 同意修改密码 rst.Update If Err.Number = 0 Then MsgBox 已成功修改 & Form1.NOWusername & 用户信息, vbInformation, 成功 text1 = Text2 = Text3 = End If Else MsgBox 两次输入的密码不符, vbCritical, 错误 两次密码不一样时。提醒 End IfElse MsgBox 原密码错误, vbCritical, 错误 原密码输入错误，不同意修改 text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click() 关闭按钮 Unload MeEnd Sub2.2.2 查找班级模块设计1.界面设计查找班级：点击“档案查询查找班级”并安一定条件查询后得到如下图3的窗体：这里提供了按学院、系别、班级查找的方法。选中要修改的学生。点击“修改学生”按钮或者双击网格控件，就到了学生信息编辑的窗体和前面的“修改学生信息”窗体一样。修改方法上面已经提到过，这里就不在说了。这里同样也可以删除学生，选中要删除的学生，点击“删除按钮”即可删除该学生。在窗体上添加一个框架控件Frame1和五个命令按钮Command1Command5,选定Frame1，在其中添加Label1Labe3,Text1Text3。 设置对象属性如下表： 对象 属性 属性值Frame1Caption 查找目标Label1Caption 学院Label2 Caption 系别Label3Caption 班级Command1Caption 查找Command2Caption 清空Command3Caption 删除学生Command4Caption 修改信息Command5Caption 刷新 窗体设计如下图所示：图2.3查找班级模块2代码设计 此代码为查找班级用的代码，让你更加方便去查找你所需要的信息。你可以通过输入学院、系别等进行班级查询。Dim cn As New ConnectionDim rst As New RecordsetPublic NOstudentNumb2 As String 记录学生学号，以后修改学生信息时用到Private Sub CmdFind_Click() 查询按钮Dim sqlstr As String 定义一个记录变量，用来记录搜索的目标 If cn.State adStateClosed Then cn.Close End Ifcn.ConnectionString = provider=microsoft.jet.oledb.4.0;data source= & App.Path & 鹿山学籍管理.mdbcn.Open sqlstr = select * from 学生信息 where 分三种情况，一种是“广西工学院”、一种是“鹿山学院” If ComXueYuan.Text = 广西工学院 Then 还有一种是“全部查找” sqlstr = sqlstr & 学生学院=广西工学院 ElseIf ComXueYuan.Text = 鹿山学院 Then sqlstr = sqlstr & 学生学院=鹿山学院 ElseIf ComXueYuan.Text = 全部 Then sqlstr = sqlstr & 学生学院 like % 用模糊查找，找出所有。 Else MsgBox 所在学院输入错误！, vbCritical, 提示 Exit Sub End If If TextXiBie Then sqlstr = sqlstr & and 学生系别= & TextXiBie & If TextClass Then sqlstr = sqlstr & and 班级= & TextClass & rst.Open sqlstr, cn, adOpenKeyset, adLockOptimistic Set MSHFFind.DataSource = rst LabJiLuShu.Caption = 共有 & rst.RecordCount & 条符合条件End SubPrivate Sub CmdQingKong_Click()TextXiBie = TextClass = End SubPrivate Sub CmdShuaXin_Click()If cn.State adStateClosed Then 判断连接是否为空。因为如果为空，则刷新时就会出错。Set MSHFFind.DataSource = rstEnd IfEnd SubPrivate Sub CmdXiuGai_Click()If NOstudentNumb2 = ThenMsgBox 请选择要修改的学生！, vbCritical, 提示ElseMDIForm1.NOuserForm = Form2ClassFindForm2XiuGai.ShowEnd IfEnd SubPrivate Sub CommDelStudent_Click()If NOstudentNumb2 = Then 记录下的管理员ID,如果为空则说明没有选中.就不能修改.MsgBox 请选择要删除的学生, vbCritical, 错误ElseIf MsgBox(确定要删除此学生吗?, vbYesNo, 删除学生) = vbYes Then If cn.State adStateClosed Then 判断连接数据库的情况 cn.Close End Ifcn.ConnectionString = provider=microsoft.jet.oledb.4.0;data source= & App.Path & 鹿山学籍管理.mdbcn.Open If rst.State adStateClosed Then 判断连接数据库的情况 rst.Close End Ifrst.Open select * from 学生信息 where 学生学号= & NOstudentNumb2 & , cn, adOpenKeyset, adLockOptimistic If rst.EOF = True And rst.BOF = True Then 判断用户是否全部被删除 MsgBox 学生已被删除，不能再进行此操作！, vbCritical, 错误 Exit Sub End Ifrst.Delete CmdFind_Click Else Exit Sub 如果选择不删,则不删除 End IfEnd IfEnd SubPrivate Sub MSHFFind_Click()If MSHFFind.Cols 3 Then Exit Sub 刚进入窗体时，网格控件中无信息，如果继续执行下面的信息，就会出错。Dim MSHFHang As IntegerDim MSHFLie As IntegerMSHFLie = MSHFFind.ColMSHFHang = MSHFFind.RowMSHFFind.Col = 3NOstudentNumb2 = MSHFFind.Text CmdShuaXin_Click MSHFFind.Row = MSHFHang 再次跳转到使用者最初所点击的行和列，使保持在原来的地方 MSHFFind.Col = MSHFLie MSHFFind.CellBackColor = &HFF0000 MSHFFind.CellForeColor = &HFFFFFFEnd SubPrivate Sub MSHFFind_DblClick()MSHFFind_ClickCmdXiuGai_ClickEnd Sub2.2.3 数据库访问技术学生学籍管理系统课设中VB提供的数据库访问方法主要有：使用可视化数据管理器管理数据库、用Data、ADO数据控件访问数据库、通过ODBC方式访问远程数据库以及采用对象变量访问数据库等。从VB6.0开始使用ADO(active dataobjects)进行数据访问。系统对数据集成的要求越来越高,这些数据可能分布在不同的地方,并且使用不同的格式,例如关系型数据库和操作系统中的文件、电子表格、电子邮件、多媒体数据以及目录服务信息。Microsoft公司推出的一致数据访问技术则较好地解决了这些问题,它使得应用通过一致的接口来访问各种各样的数据,而不管数据驻留在何处,也不需要进行数据转移或复制、转换,在实现分布式同时也带来了高效率。UDA技术包括OLE DB和ADO两层标准接口,OLE DB是系统级的A D O模型可以看作是R D O模型的精华版。它比R D O和D A O模型更简单。模型中只有3个关键对象:Connection(数据库连接);Command(数据连接执行查询);Recordset(Command查询记录集合)。2.3 系统运行与测试1修改密码模块输入原密码，再输入要修改的新密码，然后再次确认新密码，按递交按钮，此时将会显示修改密码成功。 如图所示： 图2.4修改密码模块运行测试2查找班级信息模块输入查找字段、查找值等相关信息，点击查询按钮，所查资料将会显示在查找班级管理模块下方的统计表中。如图所示：图2.5查找班级模块运行测试白盒测试：白盒测试也称结构测试或逻辑驱动测试，它是按照程序内部的结构测试程序，通过测试来检测产品内部动作是否按照设计规格说明书的规定正常进行，检验程序中的每条通路是否都能按预定要求正确工作。这一方法是把测试对象看作一个打开的盒子，测试人员依据程序内部逻辑结构相关信息，设计或选择测试用例，对程序所有逻辑路径进行测试，通过在不同点检查程序的状态，确定实际的状态是否与预期的状态一致。第3章 课程设计总结经过了整整两周的忙碌的上机实验，查找资料与多次修改终于课程设计即将结束了。 可给我带来的收获却远远超出了我们的预想。本次学籍管理的课程设计，提高了我们各方面的能力操作实践面面俱到。通过这种学习和能力的培养，以加强自我发现问题分析问题解决问题的能力，认真主动完成课设的要求。每个作品都反映了我们应用课程的某部分知识解决某个问题的结果，而我们并不是一切顺利的，在研究中遇到了各种各样的问题，是我们自己都无法想象的。在这次的设