- 1、本文档共16页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)