vb教务管理信息系统

《vb教务管理信息系统》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、目录1.系统任务的提出和功能说明11.1任务的提出11.2系统软件运行的硬件和软件要求11.3系统主要功能说明11.4系统结构图22.软件系统的设计方法及属性、事件代码22.1数据结构22.2功能模块32.2.1登录界面的设计32.2.2主窗体的设计62.2.3“系统”各子菜单程序的设计82.2.4“学籍管理”程序的设计103.程序调试及故障分析171.系统任务的提出和功能说明1.1任务的提出17随着科学技术的发展，计算机已被广泛的用于社会的各个领域，成为推动社会发展的技术动力。而在计算机应用中，软件的作用十分突出，软件已经发展成为信息技术的核心，主导着信息产品的开发和信息技术市场的

2、进一步的开拓。软件产业已成为社会信息化进程中的一个战略性产业。在软件技术的应用中，软件的开发技术尤其是应用型软件产品的开发技术成了重中之重。不断开发适应用户需求、市场需要的新型软件产品迫在眉睫。随着社会的发展，软件也在不断的更新换代。计算机领域不断取得的新研究成果使计算机在代替和延伸脑力劳动方面发挥越来越重要的作用，不仅在工业方面而且在日常生活中也越来越离不开计算机。尤其是在学校里，要处理大量的学生数据。在数字化的今天，使用教务管理信息系统能使学校对学生数据的管理更加简单、到位，可大大的减轻管理人员的负担，实现高效办公。1.1系统软件运行的硬件和软件要求一台个人电脑，安装了Micro

3、softSQLServer数据库管理软件1.2系统主要功能说明本教务管理信息系统可实现学生基本信息、成绩信息、课程信息、学院信息、选课信息、学籍信息等的录入、修改、查询、更新和删除。程序分为以下四个模块：用户注册信息管理、学籍管理、班级管理、成绩管理功能模块。1.3系统结构图登录模块系统模块学籍管理班级管理成绩管理帮助修改密码添加用户退出系统添加学籍信息修改学籍信息查询学籍信息……172.软件系统的设计方法及属性、事件代码2.1数据结构用sqlserver2000建立数据库教务管理信息系统，包含有Userid、Class、Student、Score四个表，表的结构如下所示：Useri

4、d表的结构：Class表的结构：Student表的结构：Score表的结构：172.2功能模块2.2.1登录界面的设计1、登录界面的窗体如下：注意：将两个textbox控件的name属性修改为txtusername、txtuserpassword。2、使用“解决方案资源管理器”在当前项目中增加一个模块，名为module1.vb，模块中的程序代码如下：ImportsSystem.Data.SqlClientModulemodule1PublicadocmdAsSqlDataAdapterPublicdsAsDataSet=NewDataSet()'建立dataset对象Publicmy

5、tableAsDataTable'建立表对象PublicmyrowAsDataRow'建立数据行对象PublicrownumberAsInteger'定义一个整型变量来存放当前行数PublicsearchsqlAsStringPubliccmdAsSqlCommandBuilder'定义一个判断字符串是否为空的函数PublicFunctiontesttxt(ByValtxtAsString)AsBooleanIfTrim(txt)=""Thentesttxt=FalseElsetesttxt=TrueEndIf17EndFunction'定义一个执行sql语句的函数PublicSub

6、executesql(ByValsqlAsString,ByValtableAsString)TryDimconstrAsStringconstr="server=localhost;database=教务管理信息系统;integratedsecurity=true"adocmd=NewSqlDataAdapter(sql,constr)ds.Clear()ds.Tables.Clear()adocmd.Fill(ds,table)mytable=ds.Tables.Item(0)'取得名为table的表rownumber=0'设置为第一行myrow=mytable.Rows.Ite

7、m(rownumber)'取得第一行数据CatchexAsExceptionMsgBox(Err.Description)EndTryEndSubEndModule3、在txtusername的validating事件中写入代码：Iftxtusername.Text=""ThenErrorProvider1.SetError(txtusername,"用户名不能为空")ElseErrorProvider1.SetError(txtusername,"")E