首页 VB学生信息管理系统课程设计报告

VB学生信息管理系统课程设计报告

举报
开通vip

VB学生信息管理系统课程设计报告VB学生信息管理系统课程设计报告VB学生信息管理系统课程设计报告PAGE/NUMPAGESVB学生信息管理系统课程设计报告专业实践课程设计报告班级:08计科一班姓名:***学号:*************学生信息管理系统1.需求分析:随着学校的规模不断扩大,学生人数急剧增加,有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理,科学统计和快速查询,修改,增加,删除等,从而减少管理方面的工作量。实现学生信息关系的系统化,规范化,自动...

VB学生信息管理系统课程设计报告
VB学生信息管理系统课程设计报告VB学生信息管理系统课程设计报告PAGE/NUMPAGESVB学生信息管理系统课程设计报告专业实践课程设计报告班级:08计科一班姓名:***学号:*************学生信息管理系统1.需求分析:随着学校的规模不断扩大,学生人数急剧增加,有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 管理,科学统计和快速查询,修改,增加,删除等,从而减少管理方面的工作量。实现学生信息关系的系统化,规范化,自动化,用计算机对学生各种信息进行日常管理。本系统主要包括学生信息查询和信息添加等功能,来初步实现学生信息的计算机化管理,更多相关功能有待以后慢慢完善。2.系统功能:本学生信息管理系统采用的语言是VisualBasic,用SQLSever2000数据库完成,有以下功能:(1)有较好的权限管理;(2)原始数据修改简单方便,支持多条件修改;(3)方便的数据查询,支持多条件查询.2.1采用VisualBasic有以下特点:2.1.1可视化编程VisualBasic提供了可视化设计工具,把Windows界面设计的复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局,用系统提供的工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的属性。VisualBasic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的那部分代码,从而可以大大提高程序设计的效率。2.1.2结构化程序设计语言VisualBasic是在BASIC语言的基础上发展起来的,具有高级程序设计语言的语句结构,接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的调试器和编译器。2.1.3事件驱动编程机制VisualBasic通过事件来执行对象的操作。一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应。在用VisualBasic设计大型应用软件时,不必建立具有明显开始和结束的程序,而是编写若干个微小的子程序,即过程。这些过程分别面向不同的对象,由用户操作引发某个事件来驱动完成某种特定的功能,或者由事件驱动程序调用通用过程来执行指定的操作,这样可以方便编程人员,提高效率。2.1.4访问数据库VisualBasic具有强大的数据库管理功能,利用数据控件和数据库管理窗口,并提供了强大的数据存储和检索功能。VisualBasic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的方式使用并操作后台大型网络数据库,如SQLServer,Oracle等。3.模块组成即系统结构图:登录、查询、添加、修改、删除。退出成绩修改信息添加SQL查询信息查询信息添加成绩添加成绩修改成绩删除注销用户退出系统菜单窗口进入登录4.程序设计4.1主界面及登录界面的设计:代码:PrivateSubcmdok_Click()Iftxtname.Text=""Andtxtpassword.Text=""Then菜单窗口.Showtxtpassword.Text=""Me.HideElseMsgBox"用户名或密码不正确",vbOKOnly+vbCritical,"登录信息"EndIfEndSubPrivateSubcmdquit_Click()Me.Hide进入.ShowEndSub4.2菜单窗口设计代码:PrivateSubclass_Click(IndexAsInteger)Me.Hide信息查询.ShowEndSubPrivateSube_Click()Me.HideSQL查询.ShowEndSubPrivateSubg_Click()EndEndSubPrivateSubh_Click()Me.Hide登录.ShowEndSubPrivateSubk_Click()Me.Hide成绩添加.ShowEndSubPrivateSubl_Click()Me.Hide信息添加.ShowEndSub4.3信息查询窗口设计代码:PrivateSubCommand1_Click()Me.Hide菜单窗口.ShowEndSubPrivateSubCommand2_Click()Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand3_Click()IfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MovePreviousEndIfIfAdodc1.Recordset.BOF=TrueThenAdodc1.Recordset.MoveFirstMsgBox"当前记录是第一条记录,无上一条记录!",vbOKOnly+vbCritical,"警告"ExitSubEndIfEndSubPrivateSubCommand4_Click()IfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MoveNextEndIfIfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastMsgBox"当前记录是最后一条记录,无下一条记录!",vbOKOnly+vbCritical,"警告"ExitSubEndIfEndSubPrivateSubCommand5_Click()Adodc1.Recordset.MoveLastEndSub4.4SQL查询窗口设计代码:PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入SQL语句",vbOKOnly+vbCritical,"警告"ElseAdodc1.RecordSource=Text1.TextAdodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfEndSubPrivateSubCommand2_Click()Me.HideText1.Text=""菜单窗口.ShowEndSubPrivateSubCommand3_Click()Text1.Text=""EndSub4.5信息添加窗口设计代码:PrivateSubCommand1_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgtextAsStringIfNotTesttxt(Text1.Text)ThenMsgBox"请输入学号!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text2.Text)ThenMsgBox"请输入姓名!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text3.Text)ThenMsgBox"请输入性别!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text4.Text)ThenMsgBox"请输入年龄!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text5.Text)ThenMsgBox"请输入系别!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text6.Text)ThenMsgBox"请输入专业!",vbOKOnly+vbExclamation,"警告"ExitSubEndIftxtSQL="select*froms"Setmrc=ExecuteSQL(txtSQL,Msgtext)'数据库连接While(mrc.EOF=False)'检查是否库中已有记录IfTrim(mrc.Fields(0))=Val(Trim(Text1.Text))ThenMsgBox"该记录已经存在,请重新输入!",vbOKOnly+vbExclamation,"警告"Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""ExitSubElsemrc.MoveNextEndIfWendmrc.AddNew'增加新纪录!mrc.Fields(0)=Text1.Textmrc.Fields(1)=Text2.Textmrc.Fields(2)=Text3.Textmrc.Fields(3)=Text4.Textmrc.Fields(4)=Text5.Textmrc.Fields(5)=Text6.Textmrc.Updatemrc.CloseMsgBox"添加信息成功!",vbOKOnly+vbExclamation,"提示"菜单窗口.ShowEndSubPrivateSubCommand2_Click()Me.Hide菜单窗口.ShowEndSub4.6成绩添加窗口设计代码:PrivateSubCommand1_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgtextAsStringIfNotTesttxt(Text1.Text)ThenMsgBox"请输入学号!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text2.Text)ThenMsgBox"请输入课程!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text3.Text)ThenMsgBox"请输入学分!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfNotTesttxt(Text4.Text)ThenMsgBox"请输入成绩!",vbOKOnly+vbExclamation,"警告"ExitSubEndIftxtSQL="select*fromsc"Setmrc=ExecuteSQL(txtSQL,Msgtext)'数据库连接While(mrc.EOF=False)'检查是否库中已有记录IfTrim(mrc.Fields(0))=Val(Trim(Text1.Text))ThenMsgBox"该记录已经存在,请重新输入!",vbOKOnly+vbExclamation,"警告"Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ExitSubElsemrc.MoveNextEndIfWendmrc.AddNew'增加新纪录!mrc.Fields(0)=Text1.Textmrc.Fields(1)=Text2.Textmrc.Fields(2)=Text3.Textmrc.Fields(3)=Text4.Textmrc.Updatemrc.CloseMsgBox"添加成绩成功!",vbOKOnly+vbExclamation,"提示"菜单窗口.ShowEndSubPrivateSubCommand2_Click()Me.Hide菜单窗口.ShowEndSub4.7成绩删除窗口设计代码:PrivateSubCommand1_Click()DimintcountAsIntegerDimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgtextAsStringDimmrc1AsADODB.RecordsetDimtxtSQL1AsStringIfList1.List(List1.ListIndex)<>""ThenIfMsgBox("确认要删除此信息"&List1.List(List1.ListIndex),vbOKCancel+vbExclamation,"警告")=vbOKThentxtSQL="deletefromscwhere学号='"&Trim(List1.List(List1.ListIndex))&"'"Setmrc=ExecuteSQL(txtSQL,Msgtext)txtSQL1="deletefromswhere学号='"&Trim(List1.List(List1.ListIndex))&"'"Setmrc1=ExecuteSQL(txtSQL1,Msgtext)List1.ClearForm_LoadMsgBox"删除信息成功!",,"提示"ExitSubEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMe菜单窗口.ShowEndSubPrivateSubForm_Load()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgtextAsStringtxtSQL="select学号fromsc"Setmrc=ExecuteSQL(txtSQL,Msgtext)Whilemrc.EOF=FalseList1.AddItemmrc.Fields(0)mrc.MoveNextWendEndSub5.总结学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统设计是以能够为用户提供充足的信息和快捷的查询手段为核心内容的。一直以来人们所使用的传统的人工管理文件信息的方式实在是太落后,它存在着许许多多的缺点,效率低、保密性差的问题尤其突出。另外工作量稍微一大,将会有大量的文件和数据需要维护,有些问题是人工所无法解决的。随着科学技术的不断提高,计算机应用越来越广泛,其强大的功能已为人们所深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生信息进行管理,具有着手工管理所无法比拟的优点,检索快捷、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些显而易见的优点能够极大地提高学校管理人员的工作效率,也即提高进行学生信息管理的效率。当然,我做的这个系统只是自己的一种思想,要把它用到实际中去还需要很大的改进,这有待以后再逐完善。
本文档为【VB学生信息管理系统课程设计报告】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_072127
暂无简介~
格式:doc
大小:497KB
软件:Word
页数:13
分类:建筑/施工
上传时间:2018-11-18
浏览量:0