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

1、数据库技术课程设计目级号名学生信息管理系统计控100131*指导教师承德石油高等专科学校计算机与信息工程系2011年12月2602011年12月30日学生信息管理系统设计说明书一、导言随着高校规模的不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，庞大学生信息的管理工作成了高校教学管理工作中的一项重要任务，一方面，假如遵从以往旧式的工作方式，该工作的工作量大，管理繁琐，既耗人力,乂耗物力；另一方面，由于计算机技术的飞速发展及应用的普及，学生信息管理这样烦琐的工作更需要由计算机來完成。因此开发一套对学生信息进行管理的软件是极其重要的，而且是必需的，通过这样的系统，可以做到信息的规范管理

2、、科学统计和快速的查询，从而减少管理方面的工作量。学生信息管理系统是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。二、学生信息管理系统分析与设计（一）学生信息管理系统的需求分析此学生信息管理信息系统是面向大学的管理系统，其目的是对学校内的学生，班级，和其它信息进行统一有序的管理。该系统分为如下几个模块：1、学生信息查询模块：该模块主要实现对学生基本信息的查询。根据学生学号信息查询学生的姓名、性别、班级、电话。2、学生信息修改模块：实现学校

3、课程信息的修改功能。通过学生的学号來修改学生的姓名、性别、班级、电话。3、学生信息插入模块：实现学生信息的录入操作。录入学生信息为学号、姓名、性别、班级、电话。4、学生信息删除模块：主要实现信息的删除功能。通过学生的学号把这个学生的所有信息删除。（二）系统功能模块图学生信息管理系统（三）系统开发坏境简介该软件是在WindowsXPProfessional+VisualBasic6.0+SQLServer2000的环境下完成的。下面就对这些开发工具进行介绍:1、VisualBasic6.0微软公司的VisualBasic6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象

4、的开发工具。VisualEasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。利用TSUALBASIC程序设计语言，可以很方便地设计出在WINDOWS环境下运行的应用程序。故而，实现本系统VB是一个相对较好的选择。1.1、VisualBasic的编程特点VisualBasic语言的出现为Windows下的编程提出了一个新概念，利用VisualBasic的动态数据交换、对象的链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大的应用程序。利用VisualBasic语言编程有以下儿

5、个特点：1）、QLServer数据库特点概括起來，SQLServer2000数据库管理系统具有以下主要特点。1）、丰富的图形管理工具，使系统管理、操作更为直观方便。SQLServer企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQLServer服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQLServer2000还提供了SQL事件探查器、SQL查询分析器、SQLServer服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。2）、动态自动管理和优化功能。即使SQLServ

6、er数据库管理员不做任何设置，SQLServer也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。3）、充分的Internet技术支持。Internet网络发展到今天己经成为一条重要的信息发布渠道，SQLServer增强了对Internet技术支持，它除保留了前期版本中的数据库Web出版工具“Web助手”夕卜，还增强了对XML和HTTP技术的支持，这使得电子商务系统能够通过XML等访问SQLServer数据库系统，也扩展了SQLServer在数据挖掘和分析服务领域的应用。4）、丰富的编程接口工具，使用户开发SQLServer数据库应用程序更加灵活。S

7、QLServer提供了Transact-SQL、DB-LibraryforC、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。此外，SQLServer2000还支持ODBC、OLEDB.ADO规范，可以使用ODBC、OLEDB、ADO接口访问SQLServer数据库。5）、具有很好的伸缩性和可靠性。SQLServer2000既能运行在Windows桌面操作系统下，乂可运行在服务器操作系统（包括WindowsNT和Windows2000）下；既能运行在单CPU计算机上，乂能运行在对称多处理系统下。所以，它具

8、有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。6）、简单的管理方式。SQLSeiver2000与MicrosoftWindows2000有机集成，所以可以使用Windows2000的活动目录（ActiveDirectoiy）功能对SQLServer进行集中管理，大大简化大型企业中的系统管理工作。此外，与Windows2000的集成还使SQLServer能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、内存管理和异步I/O等），从而增强了SQLSeiver数据库系统的功能，并且只需要占用很少的系统资源。（四）数据库设计1、概念设计E-R图用户

9、实体图2、逻辑设计学生（学号,姓名，性别，班级，电话）用户（用户账号,密码）3、数据库实施表1学籍信息表字段名称类型说明S110char(10)主键notnullsnamechar(8)notnullsexchar(2)nullclasschar(20)nullteleohonechar(20)null表2用户登录表字段需称类型说明adminchar(10)notnullpasswardchar(10)null三、图书管理系统的功能实现（一）“登录界面”编码设计PrivateSubCommand3_Click()DimcnAsADODB.Connection引用ADO对象方法：工程一引用一mi

10、crosoftactiveXdataobjects2.6libraryDimrsAsADODB.Recordset创建对象DimcmAsADODBCommandSetcn=NewADODB.Connection对象实例化Setrs二NewADODB.RecordsetSetcm二NewADODBCommandDimstrcnnAsStringstrcnn二driver二sqlserver;server二K52;uid=sa;pwd二；database二studecn.Openstrcnn打开到数据库的连接cm.ActiveConnection二cnstrsql二select*fromscwhe

11、readmin=，+TextlText+andpassward二+Text2Text+Setrs=cn.Execute(strsql)在连接对象cn上执行SQL命令strSQL,返回的记录集赋给rsIfrs.EOF=FalseThen判断指针是否指向结束Form2ShowUnloadMeElseMsgBox(用户名或密码错误正确！)EndIfEndSub（二）“学生信息管理界面”编码设计PrivateSubCommand1_Click()Form3ShowUnloadMeEndSubPrivateSubCommand2_Click()Form4.ShowUnloadMeEndSubPrivat

12、eSubCommand3_Click()Form6ShowUnloadMeEndSubPrivateSubCommand4_Click()FormSShowUnloadMeEndSubPrivateSubCommand5_Click()FormoShowUnloadMeEndSub（三）“学生信息查询界面”编码设计瓠斎询信息PrivateSubCommand2_Click()DimcnAsADODB.Connection引用ADO对象方法：工程一引用一microsoftactiveXdataobjects2.6libraryDimrsAsADODB.Recordset创建对象DimcmAsAD

13、ODBCommandSetcn=NewADODB.Connection对象实例化Setrs二NewADODBRecordsetSetcm二NewADODBCommandDimstrcnnAsStringstrcnn二driver二sqlserver;server二K52;uid二sa;pwd二；database二studencn.Openstrcnn打开到数据库的连接rs.CursorType=adOpenStatic设置游标类型为静态rs.CursorLocation=adUseClient设置游标位置在客户端strsql二selectclass,sname,sex,telephonefro

14、mswheresno=，+Textl.Text+Setrs=cn.Execute(strsql)在连接对象cn上执行SQL命令strSQL,返回的记录集赋给rsDoWhilers.EOF=False，判断指针是否指向结束Text2.Text二rs!snameText3.Text二rs!sexText4.Text二rs!ClassText5.Text二rs!telephoners.MoveNext记录指针下移一个记录LoopSetrs=Nothing，释放recordset对象cn.Close关闭连接，关闭后还可用OPEN打开Setcn二Nothing释放connection对象，再打开要重新创

15、建对象实例EndSub（四）“学生信息添加界面”编码设计PrivateSubCommandl_Click()DimcnAsADODB.Connection引用ADO对象方法:工程一引用一microsoftactiveXdataobjects2.6libraryDimrsAsADODB.Recordset创建对象DimcmAsADODBCommandSetcn=NewADODB.Connection对象实例化Setrs二NewADODB.RecordsetSetcm二NewADODBCommandDimstrcnnAsStringstrcnn二driver二sqlserver;server二K5

16、2;uid二sa;pwd二；database二studentcn.Openstrcnn打开到数据库的连接rs.CursorType=adOpenKeyset设置游标类型为动态rs.CursorLocation=adUseClient设置游标位置在客户端rs.LockType二adLockOptimistic设strsql二select*fromswheresno二+Text1.Text+cn.ErrorsClearOnErrorGoToerror11:rs.Openstrsql,cn,adCmdTextrs!sname二Text2.Textrs!sex二Text3.TextrsIClass二T

17、ext4.Textrs!telephone二Text5.Textrs.Updateid=MssBoxC成功更新数据！气vbOKOnly,/z更新数据）Setrs二Nothingcn.CloseSetcn二NothingExitSuberror11:id=MsgBox（，z更新数据失败！”，vbOKOnly,/z更新数据）Setrs=Nothing释放recordset对象cn.Close关闭连接，关闭后还可用OPEN打开Setcn=Nothing释放connection对象，再打开要重新创建对象实例EndSub（五）“学生信息修改界面”编码设计PrivateSubCommandl_Click（

18、）DimcnAsADODB.Connection引用ADO对象方法：工程一引用一microsoftactiveXdataobjects2.6libraryDimrsAsADODB.Recordset，创建对象DimcmAsADODBCommandSetcn=NewADODB.Connection对象实例化Setrs二NewADODB.RecordsetSetcm二NewADODBCommandDimstrcnnAsStringstrcnn二driver二sqlserver;server二K52;uid二sa;pwd二；database二studentcn.Openstrcnn打开到数据库的连接

19、rs.CursorType=adOpenDynamic设置游标类型为动态rs.CursorLocation=adUseClient设置游标位置在客户端rs.LockType=adLockOptimistic设置游标锁定类型，只在调用Update方法时锁定记录，没有这一句，将不允许更新数据库strsql二select*fromscn.ErrorsClearOnErrorGoToerror11rs.Openstrsql,cn,adCmdTextrs.AddNew在rs对象中插入一新行rs!sname二Textl.Textrs!sex二Text2.Textrs!sno二Text3.Textrs!Cl

20、ass二Text4Textrs!telephone二Text5.Textrs.Updateerrorll：Ifcn.ErrorsCount二0Thenid=MsgBoxC成功插入数据！”,vbOKOnly,插入信息）Elseid=MsgBoxC插入数据失败!,vbOKOnly,插入信息）EndIfSetrs=Nothing释放recordset对象cn.Close关闭连接，关闭后还可用OPEN打开Setcn=Nothing释放connection对象，再打开要重新创建对象实例EndSub（六）“学生信息删除界面”编码设计PrivateSubCommandl_Click()IfMsgBoxC您确

21、定要删除?”,vbOKCancel,请选择)=vbCancelThenCancel=1FormSShowElseDimcnAsADODB.Connection引用ADO对象方法：工程一引用一microsoftactiveXdataobjects2.6libraryDimrsAsADODB.Recordset创建对象DimcmAsADODBCommandSetcn=NewADODB.Connection对象实例化Setrs二NewADODBRecordsetSetcm二NewADODBCommandDimstrcnnAsStringstrcnn二driver二sqlserver;server二K52;uid二sa;pwd二；database二studentcn.Openstrcnn打开到数据库的连接rs.CursorType=adOpenDynamic设置游标类型为动态rs.CursorLocation=adUseClient设置游标位置在客户端rs.LockType=adLockOptimistic设置游标锁定类型，只在调用Update方法时锁定记录，没有这一句，将不允许更新数据库cn.ErrorsClearOnErrorGoToerror11strsql二select*fromswheresno二+Te