vb教务信息系统.docVIP

目录 1.系统任务的提出和功能说明 1 1.1 任务的提出 1 1.2 系统软件运行的硬件和软件要求 1 1.3 系统主要功能说明 1 1.4 系统结构图 2 2.软件系统的设计方法及属性、事件代码 2 2.1 数据结构 2 2.2 功能模块 3 2.2.1 登录界面的设计 3 2.2.2 主窗体的设计 6 2.2.3 “系统”各子菜单程序的设计 8 2.2.4 “学籍管理”程序的设计 10 3.程序调试及故障分析 17 1.系统任务的提出和功能说明 任务的提出 随着科学技术的发展，计算机已被广泛的用于社会的各个领域，成为推动社会发展的技术动力。而在计算机应用中，软件的作用十分突出，软件已经发展成为信息技术的核心，主导着信息产品的开发和信息技术市场的进一步的开拓。软件产业已成为社会信息化进程中的一个战略性产业。在软件技术的应用中，软件的开发技术尤其是应用型软件产品的开发技术成了重中之重。不断开发适应用户需求、市场需要的新型软件产品迫在眉睫。随着社会的发展，软件也在不断的更新换代。计算机领域不断取得的新研究成果使计算机在代替和延伸脑力劳动方面发挥越来越重要的作用，不仅在工业方面而且在日常生活中也越来越离不开计算机。尤其是在学校里，要处理大量的学生数据。在数字化的今天，使用教务管理信息系统能使学校对学生数据的管理更加简单、到位，可大大的减轻管理人员的负担，实现高效办公。 系统软件运行的硬件和软件要求 一台个人电脑，安装了Microsoft SQL Server数据库管理软件 系统主要功能说明 本教务管理信息系统可实现学生基本信息、成绩信息、课程信息、学院信息、选课信息、学籍信息等的录入、修改、查询、更新和删除。程序分为以下四个模块：用户注册信息管理、学籍管理、班级管理、成绩管理功能模块。 系统结构图 2.软件系统的设计方法及属性、事件代码 数据结构 用sql server 2000建立数据库教务管理信息系统，包含有Userid、Class、Student、Score四个表，表的结构如下所示： Userid表的结构： Class表的结构： Student表的结构： Score表的结构： 功能模块 登录界面的设计 1、登录界面的窗体如下： 注意：将两个textbox控件的name属性修改为txtusername、txtuserpassword。 2、使用“解决方案资源管理器”在当前项目中增加一个模块，名为module1.vb，模块中的程序代码如下： Imports System.Data.SqlClient Module module1 Public adocmd As SqlDataAdapter Public ds As DataSet = New DataSet() 建立dataset对象 Public mytable As DataTable 建立表对象 Public myrow As DataRow 建立数据行对象 Public rownumber As Integer 定义一个整型变量来存放当前行数 Public searchsql As String Public cmd As SqlCommandBuilder 定义一个判断字符串是否为空的函数 Public Function testtxt(ByVal txt As String) As Boolean If Trim(txt) = Then testtxt = False Else testtxt = True End If End Function 定义一个执行sql语句的函数 Public Sub executesql(ByVal sql As String, ByVal table As String) Try Dim constr As String constr = server=localhost;database=教务管理信息系统;integrated security=true adocmd = New SqlDataAdapter(sql, constr) ds.Clear() ds.Tables.Clear() adocmd.Fill(ds, table) mytable = ds.Tables.Item(0) 取得名为table的表