网站大量收购闲置独家精品文档,联系QQ:2885784924

学生信息管理系统详细设计说明书.doc

  1. 1、本文档共16页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[学生信息管理系统] 详细设计说明书 [V1.0(版本号)] 拟 制 人 审 核 人 批 准 人 [二OO五 年 十 月 十五 日] 详细设计说明书 引言 随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科,任何一个单位要生存要发展,要高效率地把内部活动有机地组织起来,就必须建立与自身特点相适应的管理信息系统。 编写目的 建成一个完整统一、技术先进、高效稳定、安全可靠的管理信息系统。这是一个集教务工作自动化和信息化为一体的先进的电脑网络系统,在为教务工作有关部门提供优质、高效的业务管理和事务处理的同时,采用安全可靠的现代化处理和控制技术,及时、准确、可靠地采集和传输信息,建立完备、可靠的教学信息处理系统。对各院(系)教务办实现统一的信息浏览、成绩管理。与学生处学生管理系统、就业办公室的学生就业管理系统等实现学生基本信息的共享。通过校园网为教务处网站访问者提供全面及时的信息和数据,如课程设置、学生的信息查询、成绩单核实等。.《VB6.0办公自动化编程》.国防工业出版社 3 王要武,管理系统,电子工业出版社,2003 4李红等编著,管理信息系统开发与应用,电子工业出版社,2003 5 康博工作室,张红军,王红等缟著《Visual Basic 6.0中文版高级应用与开发指南》,人民邮电出版社,2001年4月第一版 6 林立军,程斌,翁迪恩缟著《Visual Basic 6.0数据库开发指南》,西安电子科技大学出版社,2000年2月第一版 7 张宏林,孔艳,王哲等编著。《按实例学Visual Basic 6.0北京,人民邮电出版社,2000 8[美]Jeffrey P.McManus著赵学锁,龚波,李志,曹天伟等译《Visual Basic 6.0数据库存访问技术》 总体设计 需求概述 系统需求 ⑴ 由于操作人员的计算机知识普遍较差,要求有良好的人机界面; ⑵ 由于该系统的使用对象多,要求有较好的权限管理; ⑶ 原始数据修改简单方便,支持多条件修改 ⑷ 方便的数据查询,支持多条件查询; ⑸ 在相应的权限下,删除数据方便简单,数据稳定性好; ⑹ 数据计算自动完成,尽量减少人工干预; 软件结构 本系统在执行时,先根据不同的操作人员的需要来进行相应的模块,然后可以输入数据或者进行其它的查询操作;总体来说,本系统属于一个事务型管理系统。处理流程如图 数据流程图 学生成绩管理系统0层数据流程图 学生成绩管理系统1层数据流程图 整体框架图 程序描述 班级信息 Private Sub Command1_Click() If Text1(0) = Then MsgBox 班级编号不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班级名称不能为空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 导员姓名不能为空!, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txtSQL = select * from class_Form where class_NO= Trim(Text1(0)) Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此班级编号已存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0)) mrc.Fields(1) = Trim(Text1(1)) mrc.Fields(2) = Trim(Text1(2)) mrc.Fields(3) = Trim(Text1(3)) mrc.Update mrc.Close For i

文档评论(0)

***** + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档