数据库原理与应用课程设计学生选课管理系统.doc

教学单位 学生学号 编 号 数据库原理与应用课程设计题 目 学生选课管理系统 班 级 学生姓名 专业名称 指导教师 2011年12 月 27日学生选课管理系统【摘 要】随着我国经济的迅速发展，教育机构的管理水平也在不断的提高，在学校内部利用计算机进行管理已成为一种必然。目前计算机的迅猛发展突破了时间、空间的局限性，给学校管理带来了极大的方便。为了适应社会的发展，提高学校的管理效率，学校必须改变以前的传统管理方式，利用计算机管理软件逐步淘汰落后的手工管理方式。本课程设计学生选课管理系统就是为一个学校选课系统而开发的管理软件，可以利用计算机方便的实现学生信息、课程信息、选课等诸多环节的管理。【关键词】学生选课管理系统；学生管理；课程管理；选课管理Student And Course Management SystemAbstract: With the rapid development of China's science and technology, the application of computer software is also rapidly expanding. Nowadays the computer software has already used in schools. The rapid development of Internet breaks through the limitation of time and space, and this case brings more conveniences to schools. In order to meet the social development and improve the operational efficiency of schools, some schools must change the traditional mode of operation and gradually phase out human operation. The student and course management system designed by me is a small and medium-sized system ,it can realize the computer management about students information ,courses information ,choosing course and other links conveniently.Key words: Student And Course Management System; Student management; Course management; Choosing course.目录第一章 绪 论11.1 项目背景及意义11.2 设计目标11.3开发及运行环境11.4 技术背景2第二章 系统分析32.1 需求分析32.2可行性分析32.3 非功能性能需求42.3.1 性能需求42.3.2 数据安全性4第三章 系统总体设计53.1系统界面设计53.1.1学生信息53.1.2课程信息53.1.3学生选课53.1.4系统登录53.2数据设计63.2.1 E-R图设计部分63.2.2 数据库设计8第四章 详细设计114.1 数据库的连接114.1.1 连接数据ODBC114.2功能的实现134.2.1 系统登陆134.2.2 学生选课系统界面144.2.3 学生信息管理界面154.2.4 课程信息管理界面184.2.5学生选课界面204.2.6选课操作214.2.7查询选课操作22结束语25参考文献26第一章 绪 论1.1 项目背景及意义随着经济的发展，学校规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的成绩信息，我们要如何提高学生管理工作的效率？我们认为最好的办法是利用计算机，架构自己的管理系统，使其为你所用，实现各种管理目标。通过这样的系统可以做到学生信息的规范管理，实现快速查询、修改、增加、删除等功能，从而减少管理方面的工作量。正是基于对计算机的这种认识，针对大学校园选修课这一特点提出了的管理解决方案学生选课管理系统。 1.2 设计目标本系统是针对学校学生信息管理及选课所进行设计的，主要实现如下目标：1.系统采用人机对话方式，界面美观友好、信息查询灵活、方便、快捷、准确、数据存储安全可靠。2.强大的学生信息管理功能。3.强大的课程信息管理功能。4.可实现查询、修改、添加及删除等。5.管理员可以设置登录的权限。6.系统运行稳定、安全可靠。1.3开发及运行环境软件平台：1.操作系统：Windows XP/ Windows 7。2.数据库：Microsoft SQL Server 2000。3.VB:Microsoft Visual Basic 6.01.4 技术背景SQL(Structured Query Language，结构查询语言)是一个功能强大的数据库语言。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据。使用SQL的常见关系数据库管理系统有：Oracle、 Sybase、 Microsoft SQL Server、 Access等。虽然绝大多数的数据库系统使用SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的SQL命令，比如"Select"、 "Insert"、 "Update"、 "Delete"、 "Create"和 "Drop"常常被用于完成绝大多数数据库的操作。SQL功能强大，但是概括起来，它可以分成以下几组：DML（Data Manipulation Language，数据操作语言）：用于检索或者修改数据；DDL（Data Definition Language，数据定义语言）： 用于定义数据的结构，比如 创建、修改或者删除数据库对象DCL(Data Control Language，数据控制语言）：用于定义数据库用户的权限第二章 系统分析2.1 需求分析通过调查，要求系统需要具有以下功能：1.由于操作人员的计算机知识普遍较差，要求有良好的人机界面。2.由于该系统的使用对象多，要求有较好的权限管理。3.基础信息管理与查询（包括学生信息、课程信息、学生选课信息）。4.通过计算机，能够直接“透视”学生选课情况。5.完善的学生信息、课程信息进行管理。6.当外界环境（停电、网络病毒）干扰本系统时，系统可以自动保护原始数据的安全。7.数据计算自动完成，尽量减少人工干预。8.系统退出。2.2可行性分析SQL(Structured Query Language，结构查询语言)是一个功能强大的数据库语言。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据。使用SQL的常见关系数据库管理系统有：Oracle、Sybase、Microsoft SQL Server、Access等。虽然绝大多数的数据库系统使用SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的SQL命令，比如"Select"、"Insert"、"Update"、"Delete"、"Create"和"Drop"常常被用于完成绝大多数数据库的操作。功能性需求主要描述的是用户在系统中所需要的功能，了解用户要用系统做什么，做设计是的数据流向及数据描述。以本系统来说最主要的是：通过计算机系统对学生进行全面的管理，满足了学校的现代化管理的要求。1.经济性学校学生信息的系统化管理，简化了管理人员的日常工作，提高了工作效率，避免了人工管理过程中数据易错所带来的一系列的连锁反映。2.技术性实际在授权情况下，各个级别管理员很容易通过计算机对其操作范围内的系统内容信息进行操作管理，完全满足日常管理的要求。2.3 非功能性能需求2.3.1 性能需求系统对数据的类型要求比较严格。2.3.2 数据安全性在本系统中通过使用密码控制功能对用户登录权限加以限制。第三章 系统总体设计3.1系统界面设计学生选课管理系统是一个典型的VB开发应用程序，由学生信息、课程信息、学生选课等部分组成，总体介绍如下：3.1.1学生信息该部分主要实现四个功能：查询学生信息，添加学生信息，修改学生信息，删除学生信息。3.1.2课程信息该部分主要实现四个功能：查询课程信息，添加课程信息，修改课程信息，删除课程信息。3.1.3学生选课该部分主要实现两大部分功能：学生选课操作，所选课程查询及删除。3.1.4系统登录该部分主要实现以下登陆限制功能及退出系统。系统详细结构图如下所示：学生选课管理系统学生信息课程信息学生选课查询学生信息修改学生信息添加学生信息删除学生信息查询课程信息修改课程信息添加课程信息删除课程信息选课操作查询及删除所选课程3.2数据设计3.2.1 E-R图设计部分1什么是E-R图E-R图的英文全称是Entity Relationship Approach，中文意思是：实体联系表示法，简称E-R图。它提供了表示实体、属性和联系的方法，用来描述现实世界的概念模型，从本质上反映了一个学校的信息组织情况，是程序开发人员设计数据库时的一个中间步骤。2E-R图的构成E-R图的构成要素包括实体、属性和联系，各要素的含义及其表示方法如下。l 实体：实体是客观世界存在的事物。它可以是具体事物也可以是抽象概念。在E-R图中用矩形表示，矩形框内写明实体名称。l 属性：属性是实体或联系所具有的性质，通常一个实体用若干属性来刻画。在E-R图中用椭圆表示，并用与相应的实体连接起来。3学生选课管理系统的E-R图学生选课管理系统主要实现从学生、课程到选课的一体化管理，涉及学生信息、课程信息、学生选课三个实体。下面简单介绍几个关键的实体和系统的综合E-R图。l 学生实体属性图学生实体包括：学号、姓名、性别和所在系属性，如图1所示。学生学号性别姓名所在系图1 学生选课管理系统学生实体属性E-R分图l 课程实体属性图课程实体包括：课程号、课程名、学分和学期属性。如图2所示。课程学期学分课程名课程号图2 学生选课管理系统课程实体属性E-R分图l 选课实体属性图选课实体包括：学号、姓名和课程名属性。如图3所示。选课课程名学号姓名图3 学生选课管理系统选课实体属性E-R分图l 学生选课管理系统实体关系E-R图学生选课管理系统各个实体之间的关系如图4所示。学生课程选课图4 视图关系E-R图3.2.2 数据库设计以下是学生选课管理系统的表设计：学生表（Student） 课程表（Course） 选课表（Choose） 第四章 详细设计4.1 数据库的连接4.1.1 连接数据ODBC 在控制面板内找到“管理工具”，点击打开，找到“数据源（ODBC），打开数据源，窗口如图1所示：图1 ODBC数据源管理器选择“系统DNS”，打开窗口后，点击“添加”，选择“SQL Server”，点击“完成”。数据源名称命为“学生选课管理系统”，选择本机的服务器，点击“下一步”，选择一种登录方式，点击“下一步”，更改默认的数据库为“学生信息系统”，点击“下一步”，选择“完成”。点击“测试数据源”，显示连接成功，如图2所示。点击“确定”，添加成功，如图3所示。图2 数据源测试图3 数据源添加成功4.2功能的实现4.2.1 系统登陆这是一个登陆界面，图1所示，包含两个按钮。需要输入用户名和密码，只有输入了正确的用户名和密码才能进入系统，输错则提示错误，三次登录失败，将会在提示下自动退出系统。输入正确的用户名和密码，敲回车键或点击“登录”按钮就可以进入系统了。点击“注销”按钮，会出现提示信息“确定退出管理系统？”点击“是”退出系统，点击“否”则留在当前界面。1.界面设计如下：图1 登陆界面2.代码如下所示：Private Sub Command7_Click()If Text1 = "" And Text2 = "" Then LoginSucceeded = True Form2.Show Text1.Text = "" Text2.Text = "" Else MsgBox "请输入正确的用户名和密码！"End If Text1.Text = "" Text2.Text = "" cnt = cnt + 1If cnt = 3 Then MsgBox "三次登录失败，请明天再试吧！" Unload MeEnd IfEnd SubPrivate Sub Command2_Click()If MsgBox("确定退出管理系统？", _ vbQuestion + vbYesNo + vbDefaultButton2, "警告！") = vbYes ThenEndEnd IfEnd SubPrivate Sub Form_load()cnt = 0 Text1.Text = "" Text2.Text = "" Text2.PasswordChar = "*"End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCommand7_ClickEnd IfEnd Sub4.2.2 学生选课系统界面输入了正确的用户名和密码，成功登陆之后，显示如下界面，如图2 所示。此界面包含四个按钮，点击“学生信息”按钮，进入到“学生信息管理”界面，点击“课程信息”，进入到“课程信息管理”界面，点击“学生选课”进入到“学生选课管理”界面，点击“退出”，则返回到登陆界面。图2 学生选课管理系统界面4.2.3 学生信息管理界面点击“学生选课管理系统”界面中的“学生信息”按钮可以进入到“学生信息管理”界面。此界面（如图3所示）包含十个按钮，通过添加一个ADO控件连接到数据源，可以实现学生信息的查询、修改、添加和删除等操作，通过点击“第一条”等的按钮，实现信息的翻页功能，“清空”按钮可以清空文本框中的内容，“退出”可以返回到“学生选课管理系统”界面。1.界面如下所示：图3 学生信息管理界面2.代码如下：Private Sub Command2_Click()Adodcstudent.Recordset.MoveFirstEnd SubPrivate Sub Command3_Click()Adodcstudent.Recordset.MovePreviousIf Adodcstudent.Recordset.BOF = True ThenAdodcstudent.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command7_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodcstudent.Recordset.MoveNextIf Adodcstudent.Recordset.EOF = True ThenAdodcstudent.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command5_Click()Adodcstudent.Recordset.MoveLastEnd SubPrivate Sub Command8_Click()loginsucceed = TrueEnd SubPrivate Sub CmdAdd_Click()Adodcstudent.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdUpdate.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()Dim res As Integerres = MsgBox("确定要删除此行记录吗?", vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes ThenAdodcstudent.Recordset.DeleteAdodcstudent.Recordset.MoveNext End IfEnd SubPrivate Sub CmdUpdate_Click()Adodcstudent.Recordset.Fields("sno") = Trim(Text1.Text)Adodcstudent.Recordset.Fields("sname") = Trim(Text2.Text)Adodcstudent.Recordset.Fields("ssex") = Trim(Text3.Text)Adodcstudent.Recordset.Fields("sdept") = Trim(Text4.Text)Adodcstudent.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueEnd SubPrivate Sub Command1_Click()If Len(Text1.Text) > 0 Then Adodcstudent.CommandType = adCmdText Adodcstudent.RecordSource = "select sno,sname,ssex,sdept from student where sno='" & Trim(Text1.Text) & "'" Adodcstudent.RefreshElse MsgBox ("请输入要查找的学号")End IfEnd SubPrivate Sub Command6_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""End Sub4.2.4 课程信息管理界面点击“学生选课管理系统”界面的“课程信息”按钮，可以进入到“课程信息管理”界面。此界面（如图4所示）也包含了十个按钮，通过添加一个ADO控件连接到数据源，可以实现课程信息的查询、修改、添加、删除等操作，通过点击“第一条”等的按钮，实现课程信息的翻页功能，“清空”按钮可以清空文本框中的内容不，“退出”可以返回到“学生选课管理系统”界面。1.界面如下所示：图4 课程信息管理界面2.代码如下：Private Sub Command9_Click()Adodccourse.Recordset.MoveFirstEnd SubPrivate Sub Command8_Click()Adodccourse.Recordset.MovePreviousIf Adodccourse.Recordset.BOF = True ThenAdodccourse.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command12_Click()Unload MeEnd SubPrivate Sub Command6_Click()Adodccourse.Recordset.MoveNextIf Adodccourse.Recordset.EOF = True ThenAdodccourse.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command7_Click()Adodccourse.Recordset.MoveLastEnd SubPrivate Sub CmdAdd_Click()Adodccourse.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdUpdate.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()Dim res As Integerres = MsgBox("确定要删除此行记录吗?", vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes ThenAdodccourse.Recordset.DeleteAdodccourse.Recordset.MoveNextEnd IfEnd SubPrivate Sub CmdUpdate_Click()Adodccourse.Recordset.Fields("cno") = Trim(Text1.Text)Adodccourse.Recordset.Fields("cname") = Trim(Text2.Text)Adodccourse.Recordset.Fields("credit") = Trim(Text3.Text)Adodccourse.Recordset.Fields("semster") = Trim(Text4.Text)Adodccourse.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueEnd SubPrivate Sub Command11_Click()If Len(Text1.Text) > 0 Then Adodccourse.CommandType = adCmdText Adodccourse.RecordSource = "select cno,cname,credit,semster from course where cno='" & Trim(Text1.Text) & "'" Adodccourse.RefreshElse MsgBox ("请输入要查找的课程号！")End IfEnd SubPrivate Sub Command10_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""End Sub4.2.5学生选课界面点击“学生选课管理系统”界面的“学生选课”按钮，可以进入“学生选课管理”的界面，如图5所示。此界面暴汗三个按钮，点击“选课”按钮可以进入学生选课的界面，点击“查询”按钮可以查询及删除学生的选课记录，“退出”按钮可以返回到“学生选课管理系统”的界面。图5 学生选课管理界面4.2.6选课操作点击“学生选课管理”界面的“选课”按钮可以进入到“选课操作”的界面（如图6所示），此界面包含两个按钮，在文本框中输入学生的学号和姓名，以及参照“所有可选课程信息”在“所选课程”文本框中输入要选择的课程的名称，通过添加一个ADO控件连接到数据源，可以点击“选课”按钮选课，选课成功会出现提示信息“选课成功！”。此界面可以实现学生选课的操作，通过添加“AdodcGrid”控件，“所有可选课程信息”中会显示所有可选课程的信息。点击“退出”按钮可以返回到“学生选课管理”界面。1.界面如下所示：图6 选课操作界面2.代码如下：Private Sub Command1_Click()Adodcchoose.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_load()Dim strselect As Stringstrselect = " select * from course"Adodccourse.CommandType = adCmdTextAdodccourse.RecordSource = strselectAdodccourse.RefreshSet dtgcond.DataSource = AdodccourseCall initgrid Text1.Text = "" Text2.Text = "" Text3.Text = ""End SubPrivate Sub initgrid()With dtgcond.Columns(0).Caption = "课程号".Columns(1).Caption = "课程名".Columns(2).Caption = "学分".Columns(3).Caption = "学期".Columns(0).Width = 1300.Columns(1).Width = 2000.Columns(2).Width = 1300.Columns(3).Width = 1300End WithEnd Sub4.2.7查询选课操作点击“学生选课管理”界面的“查询”按钮，可以进入到“查询所选课程”的界面（如图7所示）。此界面包含三个按钮：查询、删除、退出。在使用“查询”按钮之前，“删除“按钮不可用，也就是说，只有查询了以后才可以删除所查询的记录。通过添加一个ADO控件就可以实现”查询“和”删除“的功能。点击”退出“按钮可以返回到”学生选课管理“界面。1.界面如下所示：图7 查询所选课程界面2.代码如下：Private Sub Command1_Click()If Len(Text1.Text) > 0 Then Adodcchoose.CommandType = adCmdText Adodcchoose.RecordSource = "select sno,sname,cname from choose where sno='" & Trim(Text1.Text) & "'" Adodcchoose.Refresh Command3.Enabled = True Else MsgBox ("请输入要查找的学号") End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Dim res As Integerres = MsgBox("确定要删除此行记录吗?", vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes ThenAdodcchoose.Recordset.DeleteAdodcchoose.Recordset.MoveNextEnd IfEnd SubPrivate Sub Form_load()Command3.Enabled = FalseDim strselect As Stringstrselect = " select * from choose"Adodcchoose.CommandType = adCmdTextAdodcchoose.RecordSource = strselectAdodcchoose.RefreshText1.Text = "" Text2.Text = "" Text3.Text = ""End Sub结束语本管理系统通过对信息的采集、存储、加工、维护和使用等,并随着管理科学和技术科学的发展而形成的。学生选课管理系统能为用户提供充足的信息，对学生来说可以轻松使用。通过这段时间的具体应用和不断完善，显示出良好的效果。整个管理系统提高了工作效率，也对学生工作管理的科学化、正规化起到了重要的作用。这是我第一次做一个系统出来，同时完成了一篇课程设计的论文。从刚开始的一片茫然，一步一步地摸索、修改，到现在终于做出了一个成品，虽然过程很辛苦，但现在回想起来也很充实。可能我做的还不够好，有很多的不足，比如功能不是很强大，系统不够完善，但我还是有一种小小的成就感。在这份课程设计即将完成之际，我的心情特别激动，无法平静。虽然对VB掌握的不够彻底，对相关知识了解的也不是很多，但从开始做系统到论文的顺利完成，有很多老师、朋友都给了我很大的帮助和鼓励，使我增强了信心，最终坚持了下来。在此我要感谢樊景博老师，王威老师和鱼先锋老师，感谢他们对我的指导以及帮助，也感谢所有帮助过我、鼓励过我的朋友们，衷心地对你们说声谢谢！参考文献1 何玉洁.数据库原理与应用，北京：机械工业出版社，20062 陈志泊、李冬梅 数据库原理及应用教程M. 北京：人民邮电出版社 2000.23 萨师煊、王珊数据库系统概论M北京高等教育出版社200024.童爱红、侯太平编著Visual Basic数据库编程.北京：清华大学出版社.北京交通大学出版社.2004.6课程设计独创性声明： 学生签名： 指导教师评语：课程设计成绩： 指导教师签名： 教研室意见： 教研室主任签名：