VB 学生选课系统

大型数据库系统开发实验课程论文 题 目： 学生选课系统的设计 姓 名： 学 号： 院 系： 专 业： 二一一 年 六 月 五日一 背景分析随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。学校作为一种信息资源的集散地，学生和课程繁多，包含很多的信息数据的管理。学生选课是一个学校不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生选课系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，由于信息比较多，选课信息的管理工作混乱而又复杂；一般选课情况是记录在文件上，课程的数目和代号也记录在文件中，时间长了，如再要进行查询，造成查询费时、费力。这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。作为计算机应用的一部分,使用计算机对学生选课信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是科学化、正规化管理,与世界接轨的重要条件。基于这些问题，有必要建立一个学生选课系统，使选课管理工作规范化，系统化，程序化，避免选课管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改选课情况。二 需求分析目前计算机管理在日常生活中的地位变得越来越重要。它能够代替人做各种重复、繁琐的劳动，并且拥有操作简单、可信度好、不易出错等优点，大大减少了不必要的人力消耗，提高个人的工作效率。学生信息查询是每个学校必须面临的问题，所以，如何开发一个应用简单、界面友好、容易操作、数据安全性好的管理系统就成为非常重要的技术问题。本系统是为了管理好学生选课信息而设计的，系统开发的总体任务是实现学生选课信息的系统化、规范化和程序化，建立学生选课系统对于减轻管理人员的劳动强度、提高工作质量和效率、可以快捷、方便的对相关信息进行查询、提高了信息资源的利用率和管理水平。三 总体设计31 系统功能模块划分及说明学生选课系统需要实现的功能主要有：(1)用户登陆：分为以管理员身份登陆和以学生身份登陆，用户登陆后，可进行相关操作。若用户不存在，可进行新用户注册，然后再登陆。(2)学生选课，需以学生身份登陆后，学生可对课程号、课程名称、任课老师、学分、课程性质等信息进行查询，同时也可进行选课、退选等操作。(3)选课情况查询，学生可输入自己学号查询自己所选课程情况。(4)审核，需以管理员身份登陆后，管理员可查看学生的选课相关情况，对选课情况进行审核。其主要系统功能模块图，如图3.1所示。学生选课系统用户登录学生选课情况查询审 核图3.1 学生选课系统功能图32 数据库系统设计 数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Microsoft Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Microsoft Access作为后台数据库。使用Microsoft Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接就可以，这样，为程序的平滑扩展提供了非常有力的条件。用户的需求具体体现在各种信息的提供、保存、修改、查询等方面，经调查和分析，针对一般学生选课系统的需求和对系统流程图的分析，设计成如下的逻辑结构。(1) 学生信息表：Student表，用来提供学生的基本信息及选课情况。表3-1 学生信息表字段名字段字段类型数据长度学号sno文本10姓名sname文本10性别ssex文本2专业sdept文本20课程1cname文本20课程2cname文本20课程3cname文本20(2) 课程信息表：Course表，用来提供课程的基本信息。表3-1 课程信息表字段名字段字段类型数据长度课程号cno文本10课程名cname文本20任课老师ctname文本10学分grade文本2课程性质xingzhi文本2具体数据表如下图3.2，图3.3图3.2 Student表图3.3 Course表四 详细设计41 系统登录界面系统登录界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在Student表中，本系统根据不同的用户而设置了不同的权限，分为管理员登陆和学生登陆。登陆界面如图4.1，图4.2。 图4.1 管理员登录界面图 图4.2 学生登录界面如有需要，新用户也可注册后再登陆。代码如下：Private Sub Command1_Click()NAME1$ = Text1.TextNAME2$ = Text2.TextData1.RecordSource = SELECT * FROM Student WHERE 姓名= & & NAME1$ & AND 学号= & & NAME2$ & Data1.RefreshIf Data1.Recordset.EOF = True ThenMsgBox 用户名或密码错误！, 64, 提示Text1.Text = Text2.Text = Text1.SetFocusElseForm4.Data1.RecordSource = SELECT * FROM Student WHERE 姓名= & & NAME1$ & Form4.Data1.RefreshForm4.ShowUnload MeEnd IfIf 管理员_Click = ture ThenForm4.Command4.Enabled = TrueForm4.Command2.Enabled = FlaseForm4.Command3.Enabled = FlaseEnd IfEnd SubPrivate Sub Command2_Click()Form1.ShowUnload MeEnd Sub42 学生登陆以学生身份登陆后的主窗体界面如图4.3。图4.3 系统主界面登陆后，点击“学生选课”后，显示其窗口，如图4.4。学生可进行选课操作。图4.4 “学生选课”窗口代码如下：Private Sub Command1_Click()If Option1 And Option2 = False And Option3 = False ThenText6.Text = Trim(Text1.Text)Data2.Recordset.EditData2.RefreshMsgBox 请输入第二个要选择的课程, 64, 提示End IfIf Option1 = False And Option2 And Option3 = False ThenText7.Text = Trim(Text1.Text)If Text7.Text = Text6.Text ThenMsgBox 此课程已选！, 64, 提示ElseData2.Recordset.EditData2.RefreshMsgBox 请输入第三个要选择的课程, 64, 提示End IfEnd IfIf Option1 = False And Option2 = False And Option3 ThenText8.Text = Trim(Text1.Text)If Text8.Text = Text7.Text Or Text8.Text = Text6.Text ThenMsgBox 此课程已选！, 64, 提示ElseData2.Recordset.EditData2.RefreshMsgBox 选课成功, 64, 提示End IfEnd IfEnd SubPrivate Sub Command2_Click()If Option1 And Option2 = False And Option3 = False ThenText6.Text = Data2.Recordset.EditData2.RefreshMsgBox 退选成功！, 64, 提示End IfIf Option1 = False And Option2 And Option3 = False ThenText7.Text = Data2.Recordset.EditData2.RefreshMsgBox 退选成功！, 64, 提示End IfIf Option1 = False And Option2 = False And Option3 ThenText8.Text = Data2.Recordset.EditData2.RefreshMsgBox 退选成功！, 64, 提示End IfEnd SubPrivate Sub Command3_Click()NAME1$ = Form3.Text1.TextIf 学生_Click = True ThenForm4.Data1.RecordSource = SELECT * FROM Student WHERE 姓名= & & NAME1$ & Form4.Data1.RefreshEnd IfIf 管理员_Click = Flase ThenForm4.Command4.Enabled = FlaseForm4.Command2.Enabled = TrueForm4.Command3.Enabled = TrueElseForm4.Command4.Enabled = TrueForm4.Command2.Enabled = FlaseForm4.Command3.Enabled = FlaseEnd IfForm4.ShowUnload MeEnd Sub登陆后，点击“已选课程信息”后，显示其窗口，如图4.5。学生可对自己选课情况进行查询。图4.5 “已选课程信息”窗口代码如下：Private Sub Command1_Click()NAME1$ = Text1.TextData1.RecordSource = SELECT * FROM Student WHERE 学号= & & NAME1$ & Data1.RefreshEnd Sub43 管理员登陆以管理员身份登陆后的主窗体界面如图4.6。图4.6 系统主窗体登陆后，点击“审核”后，显示其窗口，如图4.7。管理员可进行选课的审核操作。图4.7 “审核”窗口五 总结经过几天的努力，学生管理