下载

2下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 vb+SQL学生信息管理系统

vb+SQL学生信息管理系统.doc

vb+SQL学生信息管理系统

evagle
2012-04-24 0人阅读 举报 0 0 暂无简介

简介:本文档为《vb+SQL学生信息管理系统doc》,可适用于IT/计算机领域

贵州师范大学职业技术学院计算机工程系毕业设计题目:学生信息管理系统系别: 计算机工程系专业、班级: 级计算机应用班姓名: 杨茂科学号: 指导教师: 尹丹老师完成时间: 年 月 日前言学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理学生学籍档案这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生学籍信息进行管理,具有着手工管理所无法比拟的优点例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此开发这样一套管理软件成为很有必要的事情,在下面的各章中将以开发一套学生信息管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。目录摘要第一章引言课题介绍课题目的及意义研究方法、发展趋势第二章开发环境、工具介绍VisualBasicVisualBasic的编程特点vb支持的数据库系统数据库开发中的三大工具SQLServer简介SQLServer数据库特点ADO对象概述利用ADO开发网络数据库应用程序ADO组件的主要对象及其功能用来操控数据的SQL命令VB访问数据库过程第三章系统分析与设计系统功能分析系统结构图系统ER图数据库设计第四章系统具体实现模块设计登录窗体设计主界面设计ImageLisToolbarStatusBar菜单编辑器数据库维护窗体设计管理员信息管理管理员注册窗体设计密码修改窗体设计学生基本情况更新窗体设计学生基本情况维护窗体设计数据环境DateReport设计班级查找对话框成绩维护窗体设计DateReport设计班级查找对话框关于系统和系统帮助窗体设计第五章总结结束语参考文献摘要随着信息技术在管理上越来越深入而广泛的应用管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科任何一个单位要生存要发展要高效率地把内部活动有机地组织起来就必须建立与自身特点相适应的管理信息系统。本系统是在管理信息系统的理论和方法指导下、数据库技术支持下完成的。本文在结构上首先论述了毕业设计选题的背景、目的和意义然后叙述了开发环境、开发平台以及数据库技术接着用表格和图片的方式介绍了系统的整体规划接下来是系统在具体实现中的详细内容最终本系统能够完成信息的输入、输出,数据的修改、查询以及打印报表等功能本系统界面友好操作简单比较实用。关键词:控件窗体报表关系数据库管理系统VB。第一章引言课题介绍高校学生信息的管理是一项既重要又繁琐的工作。为更好的做好这项工作提过工作效率更好的为学校的发展和一线教学服务决定:结合我校实际情况自行研制一个学生信息管理系统。课题目的及意义由于现今的学生信息管理非常繁琐行政人员付出大量的工作时间得到的效率很低。因此为提高工作效率减轻校方人员的工作负担决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手:今天计算机的价格已经十分低廉性能有了长足的进步。它已经被应用于许多领域计算机之所以如此流行的原因主要有以下几个方面:首先计算机可以代替人工进行许多繁杂的劳动其次计算机可以节省许多资源第三计算机可以大大的提高人们的工作效率第四计算机可以使敏感文档更加安全等等。为了解决传统学生信息的管理正面临着的这些问题我所设计的学生信息管理系统也就应运而生了。研究方法、发展趋势本系统采用功能分析法即通过说明社会现象怎样满足一个社会系统的需要(即具有怎样的功能)来解释社会现象和CS模式共同完成。现代教育技术特别是网络与多媒体技术的发展对学习活动产生了具有深远意义的冲击人们可以选择或者设计适合其学习特点的信息采集、加工与重组方式。本系统采用CS模式在某些方面还不是表现的很好但未来有关学生信息管理的应该采用多层架构的系统是真正适应教育信息化发展三大趋势的校园网络应用系统全面支持Internet功能、远程访问功能采用先进的CS和BS模式共同开发支持有关学校信息交流、日常教学、教务管理等的各种应用提供一个基于校园内联网中支持各种类型的学校应用产品的服务平台和开发平台基本目标是在学校内部和外部建立起顺畅的信息通道让信息技术成为推动教育生产力的有力工具提高学校的管理水平和效率同时充分利用全球的教育资源为学校的教育服务克服目前大部分学校的校园网建设只起到宣传作用的通病。第二章开发环境、工具介绍该软件是在WindowsXPProfessionalVisualBasicSQLServer的环境下完成的。下面就对这些开发工具进行介绍:VisualBasic微软公司的VisualBasic是Windows应用程序开发工具是目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件这些控件可用于设计界面和实现各种功能减少了编程人员的工作量也简化了界面设计过程从而有效的提高了应用程序的运行效率和可靠性。利用VISUALBASIC程序设计语言可以很方便地设计出在WINDOWS环境下运行的应用程序。故而实现本系统VB是一个相对较好的选择。VisualBasic的编程特点VisualBasic语言的出现为Windows下的编程提出了一个新概念利用VisualBasic的动态数据交换、对象的链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大的应用程序。利用VisualBasic语言编程有以下几个特点:)、可视化程序设计在VisualBasic中开发的应用程序不但有丰富的图形界面同时由用户为开发图形界面添加的代码真是少而又少因为在设计图形界面的过程中只需设置ActiveX控件的属性即可。)、强大的数据库和网络功能随着VisualBasic语言的向前发展它在数据库和网络方面的功能优势就愈加明显利用VisualBasic中的ODBC开放式的数据库访问技术可以很方便地开发出自己的数据库应用程序利用VisualBasic自带的可视化数据管理器和报表生成器完全可以在VisualBasic就完成数据库的开发工作。)、其他特性在VisualBasic以前的版本中由于仍然摆脱不了解释执行的代码运行机制所以在相当的程度上制约了VisualBasic的发展。从VisualBasic版本开始在VisualBasic中制作的应用程序都改变为编译执行使得VisualBasic的代码效率有了很大的提高同时执行的速度也加快了解(同VisualBasic相比)。当然在VisualBasic中还有其它特性例如:·面向对象的编程语言·结构化程序设计·事件驱动的程序设计:在传统的或“过程化”的应用程序中应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行必要时才会调用过程。在事件驱动的应用程序中代码不是按预定的路径执行而是在响不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序决定了代码执行的顺序因此应用程序每次运行时所经过的路径都是不同的。·支持动态链接库·应用程序之间的资源共享·事件驱动的程序设计在传统的或“过程化”的应用程序中应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行必要时才会调用过程。在事件驱动的应用程序中代码不是按预定的路径执行而是在响不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序决定了代码执行的顺序因此应用程序每次运行时所经过的路径都是不同的。·支持动态链接库·应用程序之间的资源共享vb支持的数据库系统VB支持对多格式的数据库的访问和维护无论是Access还是Foxpro中创建的数据库都可以用VB打开对其进行查询、修改和删除等操作。事实上VB几乎支持对市面上所有数据库的访问。VB可以访问的数据库可以简单的分为三类即:MicrosoftAccess格式数据库外部数据库和ODBC数据库。VB对多种数据库格式的支持大大的增强了开发数据库应用程序的能力。数据库开发中的三大工具VisualBasic在数据库应用程序的开发领域中提供包含数据管理(DataManager)数据控件(DataControl)以及数据编程对象(数据访问对象(DAO)、远程数据对象(RDO)和ActiveX数据对象(ADO))等功能强大的工具协助设计人员轻松的连接数据库文件并访问其中的数据在功能方面与其他一些专业数据库软件(如FoxProMicosoftAccess等)不相上下。数据管理器(DataManager)是VisualBasical已有的老成员之一拓本盛举有的Jet数据库引擎(DatabaseEngine)可以帮助VB程序元件立即维护数据库内容并可通过输入查询或查找数据库信息而不必再通过其他数据库软件另外去设计数据库。数据控件是VB所提供的基本控件成员之一。它使得设计者省下一堆程序代码编写的工作能够轻松的设计及维护数据库内容。数据控件可以通过一些属性的设置去链接某个数据库文件但是它本身并无法显示数据库各个记录的内容必须在搭配其他具有数据感知(DataAware)功能的控件对应并显示一个字段内容以方便地进行记录的浏览及编辑工作。VB提供的数据访问对象(DataAccessObjectDAO)让程序设计者拥有更大的发挥空间。借助程序代码编写直接控制Jet数据库引擎配合数据库控件能够开发出更具弹性且高效率的数据应用程序。RDO是处理远程数据库的一些专门需要的对象集合。使用RDO可以不用本地的查询机就能访问ODBC数据源这无疑将大大提高应用程序的性能。ADO是VB中新增的对象它是一个更简单的对象模型它更好的集成了其它数据访问技术并且对本地和远程数据库均有共同的界面可以取代DAO和RDO。ADO更易于使用。我们在本系统中利用数据管理器创建了数据库及数据库表并采用了ADO数据访问技术。SQLServer简介SQLServer是微软公司最新版的大型数据库服务器其性能指标在各方面都有赶超Oracle数据库的趋势。用它可以方便地管理数据库和开发应用程序它使用了最先进的数据库构架与WindowsNT平台紧密集成具有完全的Web功能。通过对高端硬件平台、网络和存储技术的支持为WEB站和企业的应用最大限度地提供了可扩展性和高可靠性能在Internet商业领域快速建立并应用。此外还增强了安全性保护防火墙内外的数据。支持基于角色的安全并拥有安全审计工具。在经历了SQLServer和两个版本的尝试后微软公司终于开始了大规模的业务。记得在以前各种关于SQLServer的文章都会将其定位成中小型应用方面这种感觉被大家自然的延续到了版之中。其实这是一种误解。在过去的很长一段时间中微软公司聘请了世界上最优秀的数据库专家以及专门搭建了信息量可谓空前的地理信息系统励精图治就是为了摘掉扣在自己头上的这顶帽子。有了强大的性能和功能支持再配合其一向为人称道的易用性SQLServer可以说成为了开发者手中的一柄利器!另外目前国内的一些关于微软平台的数据库编程教程喜欢使用Access作为数据库平台的案例并展开相关的内容。这其实对于开发真正的数据库应用并没有直接的帮助作用只能使大家停留在应用的初级阶段。SQLServer提供的非常傻瓜的缺省安装和使用模式其上手难度并不比Access大。另外SQLServer可以兼顾小、中、大规模的应用有着远远比Access强大的伸缩性。SQLServer数据库特点概括起来SQLServer数据库管理系统具有以下主要特点。)、丰富的图形管理工具使系统管理、操作更为直观方便。SQLServer企业管理器是一个基于图形用户界面(GUI)的集成管理工具利用它可以配置管理SQLServer服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外SQLServer还提供了SQL事件探查器、SQL查询分析器、SQLServer服务管理器和多种操作向导等图形界面管理工具大大简化了用户操作从而增强了系统的易用性。)、动态自动管理和优化功能。即使SQLServer数据库管理员不做任何设置SQLServer也能够在运行过程中根据环境配置和用户访问情况动态自动配置以达到最优性能从而减轻管理员工作。)、充分的Internet技术支持。Internet网络发展到今天已经成为一条重要的信息发布渠道SQLServer增强了对Internet技术支持它除保留了前期版本中的数据库Web出版工具“Web助手”外还增强了对XML和HTTP技术的支持这使得电子商务系统能够通过XML等访问SQLServer数据库系统也扩展了SQLServer在数据挖掘和分析服务领域的应用。)、丰富的编程接口工具使用户开发SQLServer数据库应用程序更加灵活。SQLServer提供了TransactSQL、DBLibraryforC、嵌入式SQL(ESQL)等开发工具TransactSQL与工业标准SQL语言兼容并在其基础上加以扩充使它更适合事务处理方面的需要。此外SQLServer还支持ODBC、OLEDB、ADO规范可以使用ODBC、OLEDB、ADO接口访问SQLServer数据库。)、具有很好的伸缩性和可靠性。SQLServer既能运行在Windows桌面操作系统下又可运行在服务器操作系统(包括WindowsNT和Windows)下既能运行在单CPU计算机上又能运行在对称多处理系统下。所以它具有很好的伸缩性能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。)、简单的管理方式。SQLServer与MicrosoftWindows有机集成所以可以使用Windows的活动目录(ActiveDirectory)功能对SQLServer进行集中管理大大简化大型企业中的系统管理工作。此外与Windows的集成还使SQLServer能够充分利用操作系统所提供的服务和功能(如安全管理、事件日志、性能监视器、内存管理和异步IO等)从而增强了SQLServer数据库系统的功能并且只需要占用很少的系统资源。ADO对象概述ADO对象能够存取到数据库的内容首先要求数据库的驱动程序(ODBC驱动程序与OLEDB驱动程序)必须安装上否则ADO对象是无法存取数据库中内容其原理示意图如下图所示:请注意:上图中的“各种数据库所对应的驱动程序”即ODBC驱动程序与OLEDB驱动程序。利用ADO开发网络数据库应用程序ADO(ActiveDateObjects,即ActiveX数据对象)是一个ASP内置的ActiveX服务器组件(ActiveXServerComponent)。可把它与ASP结合起来建立提供数据库信息的网页内容对数据库进行查询、插入、更新、删除等操作并可以把在用户端实现“网上实时更新显示”的最新Web数据库技术。要执行ADO服务器端必须安装WindowsNTServer和InternetInformationServer(IIS)而客户端只要有IE或NETSCAPE较新版本的浏览器即可。利用ADO开发网络数据库应用程序有以下几个优点:)、支持客户机服务器结构(ClientServer)与Web系统开发技术。)、内部有多个互相独立的对象模型。)、支持分批修改数据库内容。)、支持多种不同的数据控制指标形式。)、先进的Recordset数据高速缓存管理功能。)、允许在程序中使用多个Recordset对象或者多个分批修改区块传送。)、ADO属于Freethreaded对象利用它可以开发出更有效的Web应用程序。ADO组件的主要对象及其功能ADO组件又称为数据库访问组件它提供了以下七种对象:)、Connection对象:提供对数据库的连接服务。)、Command对象:定义对数据库源操作的命令。)、Recordset对象:由数据库服务器所返回的记录集。Recordset对象的LockType属性的设置值如下表所示:常量值说明adLockReadOnly默认值只读。无法更改数据adLockPressimistic保守式记录锁定(逐条)。提供者执行必要的操作确保成功编辑记录通常采用立即锁定数据源的记录的方式。adLockOptimistic开放式记录锁定(逐条)。提供者使用开放式锁定只在调用Updata方法时锁定记录。adLockBatchOptimistic开放式批更新。用于与立即更新模式相反的批更新模式。)、Fields对象:由数据库服务器所返回的单一数据字段)、Parametes对象:表示Command对象的参数。)、Property对象:单独的一个Property对象提供属性功能。)、Error对象:提供处理错误的功能。使用ADO对象可以建立和管理数据库的连接按数据库服务器的要求获得数据执行更新、删除、添加数据等操作获取ODBC的错误信息等。用来操控数据的SQL命令SQL命令是发送给数据库并要求数据库操作的指令它是专门为数据库设计的语言比一般的计算机程序语言简单的多。SQL命令主要分成两部分:DDL(DataDefinitionLanguage)和DML(DataManipulationLanguage),其中DDL是建立数据表及数据列的指令群而DML则是操作数据库记录的指令群如数据库记录的添加、更新、删除、和查询等。SQL命令包括Select、Delete、Update、InsertInto、SelectInto等。)、筛选及排序记录的Select指令基本句型一:Select字段串列From数据表基本句型二:Select…From…Where筛选条件基本句型三:Select…From…OrderBy字段串列SelectTop:限定选取数据的条数)、删除数据记录的Delete指令基本语法:DeleteFrom数据表Where条件式)、更新数据记录的Update指令基本语法:Update数据表Set表达式)、增加数据记录的InsertInto指令基本句型一:InsertInto数据表(字段串列)Values(字段串列)基本句型二:InsertInto数据表(字段,字段,…,字段n)Select…)、建立新数据表的SelectInto指令该指令与“InsertInto…Select…”指令的区别是这个指令将建立另一个新的数据表而InsertInto是增加数据记录到“现存的”数据表中。VB访问数据库过程)、定义数据库组件DimconnAsNewADODBConnection其中conn为连接对象DimrecoAsNewADODBRecordset其中reco为结果集对象)、打开数据库对于SQL数据库其连接语句为connOpen"driver={sqlserver}server=localhostuid=sapwd=database=student"。而对于Access数据库连接语句为connOpen"Provider=MicrosoftJetOLEDBDataSource="AppPath"studentmdb")、设定SQL语句使用“Execute”命令即可开始执行访问数据库的动作)、关闭结果集对象断开与数据库的连接recoCloseconnClose第三章系统分析与设计系统功能分析随着学校的规模不断扩大学生数量急剧增加有关学生的各种信息量也成倍增长。面对庞大的信息量就需要有一个学生信息管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等从而减少管理方面的工作量。设计内容为管理员或普通用户登录该系统进行五个模块操作:)、学生基本情况更新:增加、修改、删除、查询(按学号))、学生基本情况维护:增加、修改、删除、打印、查询(按专业))、学生成绩维护:添加成绩、打印、查询(按学号、专业))、密码修改:修改所有用户密码(管理员)、修改自己密码(普通用户))、数据维护:对该系统数据库进行备份和还原系统结构图本系统主要包括学生基本情况更新学生基本情况维护、学生成绩维护、密码修改和数据维护个大的模块各个模块的具体功能如下图所示:系统ER图)、用户(普通用户、管理员)实体图如下图所示:)、学生实体图如下图所示:)、学生选课关系图如下图所示:数据库设计在系统设计过程中首先要建立的就是数据库。本数据库采用SQLServer来构造共使用了个表它们分别是用户信息表(admin)、学生基本情况表(student)、学生成绩表(grade)。)、用户信息表(admin):表结构如下表所示:名称字段名称类型长度用户IDidint用户名namechar用户密码passwordchar用户类型typechar注册时间registdatedatetime)、学生基本情况表(student):表结构如下表所示:名称字段名称类型长度学号snovarchar姓名snamechar性别ssexchar班级sclassvarchar出生年月sbirthdaychar政治面貌spavarchar地址saddressvarchar电话sphonevarcharEmailsemailvarchar)、学生成绩表(grade):表结构如下表所示:名称字段名称类型长度学号snoint课程名cnamechar成绩gradechar学期semesterchar第四章系统具体实现本部分主要内容为本系统的各个运行界面以及主要界面的源代码模块设计添加一个模块module。该部分主要包括一些公共变量的定义、main过程定义以及自动把备份的数据库文件还原到SQLServer中的代码设计。代码如下:PublicDeclareFunctionGetComputerNameLib"kernel"Alias"GetComputerNameA"(ByVallpBufferAsString,nSizeAsLong)AsLong'获取主机名的定义PublicAname,AsortAsString'状态栏上显示当前用户的名称和用户类型PublicconnAsNewADODBConnection'新建连接对象PublicrecoAsNewADODBRecordset'新建记录集对象PublicrecoAsNewADODBRecordsetPublicconnstr,connstrAsString'=====定义一个main过程从main过程启动程序同时连接到数据库===PublicSubMain()recoCursorLocation=adUseClientrecoCursorLocation=adUseClientconnstr="Provider=SQLOLEDBIntegratedSecurity=SSPIPersistSecurityInfo=FalseInitialCatalog=maokeyangDataSource="GetPcName()connstr="Provider=SQLOLEDBIntegratedSecurity=SSPIPersistSecurityInfo=FalseInitialCatalog=masterDataSource="GetPcName()DBADD'先调用DBADD来将maokeyang数据库添加到SQLServer中connOpenconnstr'连接到数据库"frmloginShow'登录窗体显示EndSub'==================此函数用来获取主机名!==================PublicFunctionGetPcName()AsStringDimcompnameAsString,retvalAsLongcompname=Space()retval=GetComputerName(compname,)compname=Left(compname,InStr(compname,vbChar))GetPcName=compnameEndFunction'====关闭记录集====PublicSubCloseReco()IfrecoState=ThenrecoCloseEndIfEndSub'此过程用来在启动软件的时候把maokeyang数据库添加到SQLServer中PublicSubDBADD()DimsAsStringOnErrorGoToErrorChecka:connOpenconnstrrecoOpen"select*fromsysdatabaseswherename='maokeyang'",conn,,'查询是否存在maokeyang数据库IfrecoRecordCount<>Then'如果maokeyang数据库不存在则添加maokeyang数据库否则不添加mkdirkillconnExecute"restoredatabasemaokeyangfromdisk='"AppPath"backupmaokeyang'"ElserecoCloseconnCloseExitSubEndIfrecoCloseconnCloseExitSubErrorCheck:MsgBox"您可能没有启动SQLServer服务",,"提示"Shell"netstartmssqlserver"MsgBox"启动成功!",,"提示"GoToaEndSub'新建路径并删除原有的数据库PublicSubmkdirkill()OnErrorResumeNextMkDir"c:programfiles"MkDir"c:ProgramFilesMicrosoftSQLServer"MkDir"C:ProgramFilesMicrosoftSQLServerMSSQL"MkDir"C:ProgramFilesMicrosoftSQLServerMSSQLData"Kill"C:ProgramFilesMicrosoftSQLServerMSSQLDatamaokeyangLogLDF"Kill"C:ProgramFilesMicrosoftSQLServerMSSQLDatamaokeyangDataMDF"EndSub登录窗体设计添加一个窗体(frmlogin)。该部分主要包括用户的验证以及登录次数的限制。窗体运行情况如下图所示:代码如下:DimnAsInteger'n为限制登陆次数的变量PrivateSubFormLoad()n=EndSubPrivateSubCommandClick()'确定按钮CloseRecoWithreco'连接到表并产生记录集Open"select*fromadminwherename='"Trim(TextText)"'andpassword='"Trim(TextText)"'",conn,,IfRecordCount>ThenAname=Trim(Fields("name"))'将成功登录的用户名赋给AnameAsort=Trim(Fields("type"))'将成功登录的用户类型赋给AsortCloseUnloadMefrmmainShow'主界面显示Elsen=nCloseOpen"select*fromadminwherename='"Trim(TextText)"'",conn,,IfRecordCount=ThenMsgBox("用户名错误请重新输入!您还有"n"次机会登陆!"),,("错误")TextSetFocusCloseElseMsgBox("密码错误请重新输入!您还有"n"次机会登陆!"),,("错误")CloseTextSetFocusEndIfEndIfIfn=ThenCloseRecoUnloadMeEndIfEndWithEndSubPrivateSubCommandClick()'取消按钮IfMsgBox("你真的不登录学生信息管理系统吗",vbQuestionvbYesNo,"退出系统提示信息")=vbYesThenEndEndIfEndSub'=======只有当用户名和密码框都不为空时“登录”按钮才可用=======PrivateSubTextChange()'密码文本框IfTextText<>""AndTextText<>""ThenCommandEnabled=TrueCommandDefault=TrueElseCommandEnabled=FalseEndIfEndSubPrivateSubTextChange()'用户名文本框IfTextText<>""AndTextText<>""ThenCommandEnabled=TrueCommandDefault=TrueElseCommandEnabled=FalseEndIfEndSub主界面设计添加一个窗体(frmmain)。该部分主要添加ImageList、StatusBar、Toolbar控件和菜单编辑器。以用户名为杨茂科、密码为登录窗体运行情况如下图所示:代码如下:PrivateSubaClick()frmbeifenShowEndSubPrivateSubbClick()frmregistShowEndSubPrivateSubbClick()frmmodifyShowEndSubPrivateSubcClick()frmqkbgxShowEndSubPrivateSubcClick()frmqkbwhShowEndSubPrivateSubcClick()frmcjbwhShowEndSubPrivateSubdClick()frmaboutShowEndSubPrivateSubdClick()frmhelpShowEndSubPrivateSubeClick()UnloadMefrmloginShowEndSubPrivateSubfClick()EndEndSubPrivateSubFormLoad()StatusBarPanels()Text="用户:"Aname'状态栏第一格显示用户名StatusBarPanels()Text="类型:"Asort'状态栏第二格显示用户类型EndSubPrivateSubToolbarButtonClick(ByValButtonAsMSComctlLibButton)SelectCaseButtonKeyCase"one"frmqkbgxShow'情况表更新窗体显示Case"two"frmqkbwhShow'情况表维护窗体显示Case"three"frmcjbwhShow'成绩表维护窗体显示Case"four"frmmodifyShow'密码修改窗体显示Case"five"frmbeifenShow'数据库维护窗体显示EndSelectEndSubImageLis在主界面上添加一个图像列表控件在属性页设置插入张图片。Toolbar在主窗体上添加一个工具栏控件在属性页上将图像列表从无设置到ImageList添加个按钮按钮属性如下表所示:索引标题情况表更新情况表维护成绩表维护密码修改数据备份关键字onetwothreefourfive图像StatusBar在主窗体上添加一个状态栏控件在状态栏上添加个格子后三个格子分别设置为日期、时间、文本菜单编辑器在主窗体上添加一个菜单编辑器菜单结构、属性如下表所示:菜单结构标题名称标题名称文件a情况表维护c数据库维护a成绩表维护c管理员信息b帮助d注册b关于系统d修改密码b系统帮助d数据维护c重新登录e情况表更新c退出f数据库维护窗体设计添加一个窗体(frmbeifen)、一个CommonDialog控件。该部分主要包括数据库的备份与还原。窗体运行情况如下图所示:代码如下:PrivateSubCommandClick()'备份按钮DimbackUpFileNameAsString'变量声明CommonDialogDialogTitle="备份文件"'设置对话框的标题CommonDialogFilter="**"CommonDialogShowSave'设置对话框的按钮类型为保存backUpFileName=CommonDialogFileName'将保存的文件名赋给变量IfCommonDialogFileName=""ThenMsgBox("文件名不能为空,请输入文件名")CommonDialogShowSaveElseconnExecute("backupdatabaselibrarytodisk='"backUpFileName"'")'执行备份语句MsgBox("备份成功")EndIfEndSubPrivateSubCommandClick()'还原按钮connCloseconnOpen"Provider=SQLOLEDBIntegratedSecurity=SSPIPersistSecurityInfo=FalseInitialCatalog=masterDataSource="GetPcName()'借助master数据库来恢复CommonDialogDialogTitle="还原的文件名"CommonDialogFilter="**"backUpFileName=CommonDialogFileNameCommonDialogShowOpenrecOpen"selectspidfromsysprocesseswheredbid=dbid('maokeyang')",conn'查询是否有maokeyang数据库,找出进程号DoWhileNotrecEOFconnExecute"kill"reco("spid")'结束sql服务器的所有连接否则会出现:数据库正在使用无法完成排它操作等等recoMoveNextLoopconnExecute("restoredatabasemaokeyangfromdisk='"backUpFileName"'")'还原数据库MsgBox("数据库已还原")recoCloseconnCloseconnOpen"Provider=SQLOLEDBIntegratedSecurity=SSPIPersistSecurityInfo=FalseInitialCatalog=masterDataSource="GetPcName()'借助master数据库来恢复EndSub管理员信息管理该部分包括管理员注册和密码修改的管理管理员注册窗体设计添加一个窗体(frmregist)。该部分主要完成管理员的注册功能。窗体运行情况如下图所示:代码如下:PrivateSubCommandClick()'确认按钮IfTextText<>TextTextThenMsgBox"两次输入的新密码不同请重新输入!",vbOKOnlyvbExclamation,"警告"TextSetFocusTextText=""TextText=""ExitSubEndIfWithrecoOpen"select*fromadmin",conn,,AddNewFields("name")=Trim(TextText)Fields("password")=Trim(TextText)Fields("type")=ComboTextFields("registdate")=Trim(TextText)UpdateCloseMsgBox("注册成功"),,("提示")TextText=""TextText=""TextText=""TextText=""ComboText=""EndWithEndSubPrivateSubCommandClick()'更改按钮TextEnabled=TrueTextText=""TextSetFocusEndSubPrivateSubFormLoad()'窗体加载时候注册时间文本框获得当前时间TextEnabled=FalseTextText=DateEndSub密码修改窗体设计添加一个窗体(frmmodify)、一个图像列表控件、一个ListView控件。在图像列表控件属性页插入一张图片作为用户的图标在ListView属性页图像列表把图标图像列表选项设置为ImageList。该部分主要完成用户密码修改的功能(管理员修改首页用户的密码、普通用户修改自己的密码)。窗体运行情况如下图所示:代码如下:PrivateSubCommandClick()'确认按钮WithrecoIfTextText<>trim(Fields("password"))ThenMsgBox("当前密码错误!请重新输入!"),,("错误")TextText=""ElseIfTextText<>TextTextThenMsgBox("两次密码输入不一致!"),,("错误")TextText=""TextText=""ElseFields("password")=TextTextUpdateMsgBox("密码修改成功!"),,("提示")TextText=""TextText=""

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/45

vb+SQL学生信息管理系统

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利