vb课程设计实验报告

VB课程设计实验报告指导老师：某某学生及分工：某某：数据库设计某某：vb设计及代码编写调试某某：实验报告编写2013年6月14日-2-目录一、前言概述......................................3二、需求分析…………………………………………………32.1使用需求…………………………………………………32.2数据需求…………………………………………………42.3功能需求及运行环境……………………………………4三、系统总体功能分析………………………………………43.1.抽象出当前系统的逻辑模型……………………………43.2．系统功能分析……………………………………………53.3系统目标设计………………………………………………53.4开发设计思想………………………………………………5四、系统功能要求设计…………………………………………6五、选课系统详细设计…………………………………………75.1数据库设计…………………………………………………85.2vb界面设计及代码…………………………………………95.2.1登录界面及代码…………………………………………105.2.2注册界面及代码…………………………………………125.2.3选课界面及代码…………………………………………145.2.4查询界面及代码…………………………………………15六、系统设计心得体会………………………………………16七、系统备注…………………………………………………16-3-课题：选课管理系统一、前言概述随着计算机技术的飞速发展，计算机在企业管理中的应用普及，利用计算机实现选课系统势在必行。选课系统是针对在校学生和教师使用，由于学校的教学制度的改革，现在大部分的高等院校开始实行的是学生自主选课模式，传统的教学模式，已经不能适应新型的教学手段，如果任然实行纸上的选课方式，一方面不但浪费大量的人力，物力资源。另一方面也浪费时间以及在认为的统计过程中不可避免出现的差错等情况。对于选课系统而言，它是C/S架构的系统，它能更有效，更快速的实现学生选课的管理过程，而且其管理的机制也更加完善。对于一个学校来说，利用计算机进行选课管理所无法比拟的优点是：检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本低等优点。这些优点极大地提高了高校选课的效率。现代社会是一个高速发展的信息时代，时间就是金钱，为了适应这种需要，学校的管理也在逐步实现现代化，学生选课系统也应该实现现代化。二、需求分析：2.1使用需求学生选课管理工作时高等院校教务管理工作的一项重要的内容，是整个教务管理的核心和基础，学生选课工作是指学校管理员按照一定的教育方针，运用先进的管理手段，组织协调，指挥与指导各方面的人员的活动，以便于搞笑，高质量的完成各项选课任务。选课管理是一项目的性，计划性，适应性，创造性和科学性极强的工作，学生选课的内容对于学校的决策者和管理者来说都至关重要，所以学生选课系统应该能够为用户提供足够充足的信息和快捷的查询手段。一直以来人们使用传统的人工的方式管理文件和档案，这种管理方式存在着以下许多的缺点，如：效率低，保密性差，另外，时间一长，将产生大量的文件和数据。这对于查找，更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机技术的不断成熟，高等教育体制的不断深入，传统的选课管理方法不能适应新的发展的需求，无法-4-很好的完成选课的管理工作。提高管理水平的主要途径是革新管理者的思想，增强对管理活动的科学认识，同时运用先进的信息技术，开发高校综合管理系统。2.2数据需求在本设计中，通过对选课内容的分析，设计数据项，数据结构及数据需求如下：（1）学生信息包括：学生姓名，性别，系别，学号，班级等（2）课程信息包括：课程名，课程代号，学时数，学分数等（3）教师信息包括：教师姓名，教师性别，职称，教师工号，联系电话等。（4）选课信息包括：学生姓名，课程名，选课地点，选课班级。（5）用户信息1（管理员）包括：用户登陆名，密码等。（6）用户信息2（学生使用）包括：用户登录名，密码等。2.3功能需求及主要控件选课管理的功能是：每个学生通过选择“课程表”中所设定的课程，产生选课记录，并在“学生成绩表”中记录选课情况，形成一个只有学号，课程号数据，而成绩为空的空白成绩表。运行环境为vb简体中文版，microsoftaccess2003，选课功能主要的vb控件有ADODC,DATAGRID等三、系统总体功能分析3.1.抽象出当前系统的逻辑模型-5-画出反映当前系统工作的数据流程图。数据流程图是逻辑模型的图形表示，即使不是专业的计算机技术人员也能非常容易理解，它是一种很好的系统构造的表示方法。画数据流程图是应该从已获得的人工处理流程中去掉物理因素，只保留数据、信息处理部分。3.2．系统功能分析系统主要用于学校学生选课信息管理，主要任务是用计算机对学生各种信息进行日常管理，如：登陆，查询、修改、注册。3.3系统目标设计根据本校的实际情况，利用校园网而设计一套针对性和功能都比较强的学生选课信息管理系统，对学生选课信息管理系统进行科学的分类、录入、查询．3.4开发设计思想尽量采用学校现有的软硬件环境及先进的管理系统开发方案，从而达到充分利用资源，提高系统开发的水平和应用效果的目的。系统应该符合学校学生信息管理的规定，满足学校学生日常管理的需要，达到操作过程中的直观、方便、实用、安全等要求。强调多部门合作，学生工作设计面广泛，应该考虑各部门各层次的需求，便于维护。要建立可靠的数据备份。通过对数据流程图的进一步分析,得出学生信息管理系统应该具备以下功能:1）、实现学生基本信息的登记；2）、实现数据的浏览与修改；3）、实现查询符合一定条件的资料；-6-4）、实现学生有关数据的统计分析。四、系统功能要求设计在细致的分析了我校选课系统的工作流程后，可以把学生选课管理系统分成以下几个子系统。（1）学生管理系统：学生管理系统里涉及到学生的学生学号、学生姓名、选课数量。主要实现的功能有查询所有学生的选课信息、查询特定学生的选课信息、新增一名学生的信息以及删除一名学生的信息。a)查询所有学生的选课信息主要是对管理者而言，该功能有利于管理员了解学生选课的大概情况，适时的对选课人数及相应的课程进行调整；b）查询特定学生的选课信息，能够清楚、详细地了解每个学生的选课情况；c）新增一名学生的信息，选课初期需要管理员输入学生信息，对学生的选课结果进行保存、显示；（2）课程管理系统：课程管理系统涉及到课程编号、课程名称以及选课人数。主要实现的功能有查询所有课程的信息、查询特定课程的基本情况，新增一门课程以及删除一门课程。a)查询所有课程的信息有助于管理员及时了解相对应的课程选课人数的情况，在选课人数满了之后，及时作出相应的调整，为学生提供方便；-7-b)查询特定的课程，该功能主要是使用户能够很快地了解到课程的选课人数信息，有助于用户迅速地选课；c）增加一门课程，当选课人数过多等状况出现时，课程不足让学生选择，管理员则需增加课程供学生选择；（3）选课管理系统：选课管理系统主要涉及到课程编号、课程名称、学生学号、学生姓名。主要实现的功能有查询所有选课情况、选课操作、退课操作、根据学生查询其选修的课程以及根据课程查询选修它的学生。a)查询所有选课情况，对所有学生的选课情况和相应的课程能够大致了解；b）选课操作，学生进行选课，将选课信息保存；c)退选操作，当学生发现自己所选的课不是自己感兴趣或由于一系列原因而选错时，用户可以通过退课措施来取消所选的课程；d)根据学生查询其选修的课程，用户可以查看其选修的课程，并据此来决定是否继续选课，或者是否要退课；e)根据课程来查询选修它的学生，可以及时了解每门课程的选课人数，管理者、学生都可以根据此信息来对课程进行相应的调整。五、选课系统详细设计（一）数据库设计-8-ER图ACCESS数据库表及关联关系数据库设计主要有学生信息表，教师表，课程表以及管理员表学生姓名学号专业院系课程号课程名称密码用户名性别教师编号性别职称所属系部姓名任课教师学分选课课程任课教师管理员上课时间上课地点学历-9-如课程表关联图（二）vb界面设计及代码实现学生及管理员的身份注册：登陆界面：实现用户及管理员的登陆。-10-代码如下：PrivateSubCmdLogin_Click()DimUserNameAsStringDimPassWordAsStringDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringconn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\db1.mdbsql=Select*from学生信息表whereUserName=Trim(TxtUserName.Text)PassWord=Trim(TxtPassword.Text)IfUserName=OrPassWord=ThenMsgBox对不起，用户或密码不能为空！请重新输入！！,vbCritical,错误ElseIfUserNameEmptyAndPassWordEmptyThenCnum=Cnum+1-11-StrSQL=select*from学生信息表where学号='&UserName&'and密码='&PassWord&'rs.OpenStrSQL,conn,adOpenKeyset,adLockPessimisticIfrs.EOF=TrueThenMsgBox对不起，无此用户或者密码不正确！请重新输入！！,vbCritical,错误TxtUserName.Text=TxtPassword.Text=TxtUserName.SetFocusrs.CloseIfCnum=3ThenMsgBox对不起，您已经多次失败，无权操作本系统！,vbCritical,无权限UnloadMeExitSubEndIfElseForm2.ShowUnloadMeEndIfEndIfEndSub注册界面-12-注册代码如下：PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringsql=Select*from学生信息表whereIfTrim(Text1.Text)=ThenMsgBox请输入用户名称,vbOKOnly+vbCritical,错误Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=ThenMsgBox请输入用户命令,vbOKOnly+vbCritical,错误Text2.SetFocus-13-ExitSubEndIfIfTrim(Text3.Text)=ThenMsgBox请输入确认密码,vbOKOnly+vbCritical,错误Text3.SetFocusExitSubEndIfsql=Select*from学生信息表conn.OpenProvider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\db1.mdbrs.Opensql,conn,1,3rs.AddNewrs.Fields(学号)=Trim(Text1.Text)rs.Fields(密码)=Trim(Text2.Text)rs.UpdateText1.SetFocusMsgBox用户成功注册,vbOKOnly+vbInformation,提示rs.Updaters.CloseSetrs=NothingEndSub选课界面：实现学生选课，选课中的查询，删除。-14-代码如下：PrivateSubCommand1_Click()StrSQL=select*from学生信息表DataGrid1.RefreshMsgBox选课成功,64,提示EndSubPrivateSubCommand2_Click()T