1、教材管理系统设计说明教材管理系统设计说明题目：教材管理系统 本系统主要实现对教材信息的管理，主要功能为基本信息的维护功能，教材需求管理功能，采购/入库管理功能以及其他操作功能等。分为管理员登陆和教师登陆两大模块，管理员操作部分主要是教材管理，用户管理，订单管理；教师登陆后的主要操作是教材的查询模块。第一章 系统开发概述1.1 建立系统的必要性教材管理对各个学校而言,都是一项复杂、烦琐的工作, 是高校教务管理中的一个重要环节, 由于大学中专业设置门类多，各专业每期开设课程种类多，其业务不仅涉及出版部门，而且要面对全校各系、部的授课教师，各班级的学生，教材科涉及管理的入出库教材种类非常多，涉及人员
2、广，工作量大，再者是近年来，我国高等教育规模的不断扩大，学校学生人数迅速增加，使教材管理工作更加繁重不堪。因此,需要一个自动化的工具进行统筹管理，才能及时，准确的反应教材征订状态。1.2 可行性研究 1.2.1技术上可行性分析Visual Basic 6.0是一种可视化的、面对对象和事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美。在Visual Basic 6.0环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(
3、DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。 ACCESS数据库是个人、部门及企业管理数据的最易操作的新一代数据库。它兼容传统的数据库，同时进一步增强了Web支持，具有Web特性的信息共享特性。可以非常方便地跨平台作业和共享数据。它不仅有一个数据库管理系统所应具有的功能而且还是一个面向对象的采用时间驱动机制的新型关系数据库管理系统。它有丰富的信息管理分析工具，可以通过ODBC与其他数据库相连, 实现数据交换与共享数据库是进行信息管理的基础。ACCESS有两种使用方
4、式：作为创建个人或部门数据库的独立应用程序，或作为更强健、更具扩展性的后端数据库的接口客户端。不论选用了何种后端数据源，最终用户都将得到使用流行的桌面数据库客户端时易于使用的好处。1.2.2经济上的可行性在教材管理系统中，实现对教材的信息的管理，提高工作效率、减少人为差错提供良好的管理平台。 极低成本的数据处理、信息查询、信息录入等，可实现教材需求信息、订单管理、教材出入库管理、库存管理等功能。从目前校园网和教材管理系统的推广和运行情况来看，本系统不需增加过多的硬件投入和应用方面的培训，因此，其经济成本是很低的。1.2.3管理上可行性分析 经过领导同意可以进行开发实施。第二章 系统分析2.1
5、业务流程分析 通过业务流程分析对对教材管理系统作进一步的分析，教研室教师书面提出需要使用的教材名，上交后由系领导审核，审核通过后，由教学秘书统计需要数量，然后提交给教材科。教材科将教材订单进行处理，以确定本学期的教材数量（除库存外的订单），同时对教材的基本信息进行完善处理，以保证教研室提出新的教材需求在教材基本信息中存在。教材科根据库存的情况发放教材，若库存有货，教材管理员打印领取教材通知单给教研室，通知领取教材。若库存无货，打印订书单交给采购员，采购员根据订货单制定补货单并将其交给相应的供应商。供应商将提货通知单发给采购员。采购员进行采购并将教材入库并打印入库单，交给教材科（见图2.1.1）
6、 图2.1.1 业务流程图2.2 数据流程分析 出库单 入库单图2.2.1教材管理子系统的顶层流程图教材需求单1教研室 教材科库存台帐F1P1.1制定学生教材使用计划P1.3教材采购处理P1.4教材出库处理库存台账F1P1.2判定教材处理方式已批准教材需求单教材需求单2教材需求单3订书单入库单入库单出库单图2.2.2教材管理子系统的第二层数据流程图2.3数据字典数据项描述数据项编号: I-BOOK1数据项名：教材编号简述：存储每本教材的信息简要说明：学校教材编码类型及长度：数字型，4位取值范围：00019999 数据项编号:I-BOOK2数据项名：教材名简述：存储每本教材名称的信息简要说明：学
7、校教材名称类型及长度：字符型，320位取值范围： 表2.3.1表2.3.2数据项编号:I-TC1数据项名：教师编号简述：存储教师的信息简要说明：学校教师的编号类型及长度：字符型，3位取值范围：001999表2.3.3数据项编号:I-TC2数据项名：教师姓名简述：存储教师的信息简要说明：学校教师的名称类型及长度：字符型，24位取值范围：表2.3.4数据结构描述数据结构编号：DS001数据结构名：入库单简述： 存储教材入库的表单数据结构组成：教材编号+教材名+数量+入库时间+入库来源+备注 表2.3.5数据结构编号：DS002数据结构名：出库单简述： 存储教材出库信息的表单数据结构组成：教材编号+
8、教材名+数量+出库时间+出库去向+备注 表2.3.6数据结构编号：DS003数据结构名：教材需求单1简述： 学生上课需要的教材种类数据结构组成：教材编号+教材名+时间+教师姓名+备注 表2.3.7数据结构编号：DS004数据结构名：已批准教材需求单简述：领导批准的教材需求表单数据结构组成：教材编号+教材名+时间+教师姓名+备注 表2.3.8数据结构编号：DS005数据结构名：订书单简述：教材科制定的教材采购表单数据结构组成：教材编号+教材名+时间 +备注 表2.3.9数据流描述数据流编号：D01数据流名称： 教材需求单1简述： 学生上课需要的教材种类数据流来源：教研室数据流去向：制定教材使用的
9、计划数据流组成：教材编号+教材名+作者+出版社+时间数据流量：16份/年表2.3.10数据流编号：D02数据流名称： 已批准教材需求单简述： 领导批准的教材需求表单数据流来源：制定教材使用的计划数据流去向：教材科 数据流组成：教材编号+教材名+作者+出版社+时间+教师名称数据流量：16份/年表2.3.11数据流编号：D03数据流名称：教材需求单2简述： 教材科确定的教材需求数量数据流来源：教材科数据流去向：判定教材处理的方式数据流组成：教材编号+数量+教材名+作者+出版社+时间+教师名称数据流量：16份/年表2.3.12数据流编号：D04数据流名称： 订书单简述： 教材科制定的教材采购表单数据
10、流来源：判定教材处理的方式数据流去向：教材采购处理数据流组成：教材编号+教材名+作者+出版社+时间+数量数据流量：16份/年数据流编号：D05数据流名称： 教材需求单3简述： 教材科确定的发放教材的数量数据流来源：判定教材处理的方式数据流去向：教材出库处理数据流组成：教材编号+教材名+作者+出版社+时间+数量+教师姓名数据流量：16份/年表2.3.13数据流编号：D06数据流名称：出库单简述： 存储教材出库信息的表单数据流来源：教材出库处理数据流去向：库存台帐数据流组成：教材编号+教材名+作者+出版社+时间+数量+教师姓名数据流量：16份/年表2.3.14数据流编号：D07数据流名称： 入库单
11、简述：教材入库信息的表单数据流来源：教材采购处理数据流去向：库存台帐数据流组成：教材编号+教材名+作者+出版社+时间+数量数据流量：16份/年表2.3.15表2.3.16处理逻辑描述处理逻辑名：制定学生教材计划加工编号：P1.1简要描述：根据教师上课内容，确定学生需要使用的教材种类输入数据流: 教研室制定的的教学计划输出数据流: 教材需求单表2.3.17处理逻辑名：判定教材处理方式加工编号：P1.2简要描述：教材科统计各种教材使用数量，确定需要购买的教材数量 输入数据流:教材需求单输出数据流: 订书单+教材需求单 表2.3.18加工名：教材采购处理加工编号：P1.3简要描述：根据订书单，采购员
12、进行教材采购 输入数据流：订书单输出数据流: 订书单加工名： 教材出库处理加工编号：P1.4简要描述：根据教材需求单进行教材发放处理 输入数据流: 教材需求单输出数据流: 出库单表2.3.19表2.3.20 数据存储描述数据存储编号：F1数据存储名：库存台帐 简述：记录教材种类，数量，单价信息数据存储组成：教材编号+教材名+数量+作者+出版社。关键字：教材编号相关联的处理：P1.3 ，P1.4, 表2.3.21外部实体描述外部实体编号：W1外部实体名：教材科简述： 对于学校的教材订购发放进行管理输入数据流:已批准教材需求单输出数据流：教材需求单2表2.3.22外部实体编号：W2外部实体名：教研
13、室简述： 确定教材需求种类的部门输入数据流: 领教材通知单输出数据流：教材需求单表2.3.23第三章 系统设计3.1 系统功能设计 本系统是以教材管理业务为原型设计开发的，教材科的日常业务大体上有如下几项： 1 .教材预订。教材种类的预订工作基本上是由老师或者管理员完成。教材科将教材征订通知下发到各系（轮流传阅），各系从中选订所开课程的教材，填写预订单，经系、部汇总报教材科。教材科编制填写正式订单寄发到各出版社。2 . 教材发放。按预订数量发放专业和年级用书。通常是以班级为单位领进行领书。3 . 查询。这项工作包括四项内容，其一是预订查询及时了解各系教材的订购情况；再就是入库查询及时掌握入库情
14、况；第三是库存查询情况：打印与报表，主要用于订书、购书的打印。4 .系统管理主要包括用户、密码的更改和用户的添加。图3.1.1教材管理系统功能模块设计图3.2 数据结构与数据库设计1.E-R模型设计 图3.2.1 教材实体E-R图图3.2.2仓库实体E-R图图3.2.3班级实体E-R图图3.2.4供应商实体E-R图图3.2.4整体E-R图2数据库设计系统数据库中有用户管理表，教材出库表，教材入库表，教材征订表，教材库存表3.2.1.用户管理表：字段名称数据类型姓名文本密码文本权限文本3.2.2.教材出库表：字段名称数据类型教材名称文本系别文本班级文本单价数字数量数字总金额数字出库时间日期 3.
15、2.3.教材征订表：字段名称数据类型教材名文本作者文本出版社文本出版日期日期数量数字征订时间日期征订人文本3.2.4.教材入库表字段名称数据类型教材名文本作者文本出版社文本出版日期日期书类别文本单价数量数量数量总金额数量经手人文本入库日期日期3.2.5.教材库存表字段名称数据类型教材名文本作者文本出版社文本出版日期日期单价日期书类别文本库存数量数量3.3 代码设计设计问题是一个科学管理的问题。设计出一个好的代码方案对于系统的开发工作是一件极为有利的事情。它可以使很多机器处理(如某些统计、校对查询等)变得十分方便,另外还把一些现阶段计算机很难处理的工作变成很简单的处理。 代码就是以数或字符来代表
16、各种客观实体。在现实世界中有很多东西如果我们不加标识是无法区分的,这时机器处理就十分困难。所以能否将原来不能确定的东西,唯一地加以标识是编制代码的首要任务。以教材编号为例。在教材管理中不难发现,有的书籍虽然名字一样，但是出版日期，著作人不一样,为了能够区分开这样的书籍而编制教材编码（教材号：001001 001002 001003 001004 001005）。唯一化虽是代码设计的首要任务。但如果我们仅仅为了唯一化来编制代码,那么代码编出来后可能是杂乱无章的,使人无法辨认,而且使用起来也不方便。例如,在管理系统中关于计算机类的书籍以“01”打头，其中“01001”表示计算机硬件书籍，01002
17、表示计算机软件书籍，01003”表示计算机信息管理书籍等。这样在查找或统计某一类专业书籍时就十分方便了。（专业代码：01001 01002 01003 02002 03003 04004）为了保持系统的合理性，在代码设置时也要注意系统化规范。例如，001表示书记所在的地区里面拥有的书籍编号从001001到001070当有新书加入时则会自动生成书号001071。（区号：001 002 003 004 ） 如教材代码设计=教材编号+教材类别+出版社+任课教师 =0001（数理统计）001（数学类） 001（机械工业出版社） 001（胡雷） 3.4界面设计 登陆界面包括姓名，权限和密码，与数据库用户
18、管理表相连 如图3.1 图 3.1 代码设计; Private Sub Command1_Click() Adodc1.RecordSource = select * from 用户管理 where user= & Trim(DataCombo1.Text) & Adodc1.Refresh Dim cn$ If Trim(DataCombo1.Text) = Then MsgBox 用户名不能为空!, , 错误 DataCombo1.SetFocus Exit Sub End IfIf Adodc1.Recordset.EOF Then MsgBox 用户不存在!, , 错误 DataCom
19、bo1.Text = Text3.Text = Adodc1.RecordSource = select * from 用户管理 Adodc1.Refresh DataCombo1.Refresh DataCombo1.SetFocus Else cn = Trim(DataCombo1.Text) If Adodc1.Recordset.Fields(qx) RTrim(Combo1.Text) Then MsgBox 权限错误, , 错误 Combo1.SetFocus Adodc1.RecordSource = select * from 用户管理 Adodc1.Refresh Data
20、Combo1.Refresh DataCombo1.Text = cn Else If Trim(Text3.Text) Trim(Adodc1.Recordset.Fields(password) Then If mi = 2 Then MsgBox 密码输入错误三次 + Chr(13) + Chr(10) + 自动关闭本系统, , 学生教材管理软件 Unload Me Else MsgBox 密码错误!, , 错误 mi = mi + 1 Adodc1.RecordSource = select * from 用户管理 Adodc1.Refresh DataCombo1.Text = cn
21、 Text3.Text = Text3.SetFocus End If Else If Trim(Combo1.Text) = 管理员 Then Unload Me 主窗体.Show Else Unload Me 主窗体.Show With 主窗体 .mnuyhgl.Enabled = False .mnujcrk.Enabled = False .mnujcchk.Enabled = False End With End If End If End If End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub
22、Form_Activate()mi = 0End SubPrivate Sub Form_Load()mi = 0End SubPrivate Sub Form_Load()End Sub 主界面在登陆界面输入姓名，权限和密码正确后，进入主界面 ，包括系统管理和教材管理两大模块，其中系统管理有用户管理和退出；教材管理有教材征订，教材入库，教材出库和教材库存查询。 如 图3.2 图3.2教师界面A 教材征订 ：选择主界面教材征订进入教材征订界面， 征订时输入教材名，作者，出版社，出版时间，征订时间，征订人还有数量。如图3.3 图3.3代码设计： Private Sub Command1_Clic
23、k() Dim i%, j%, m% Select Case Command1.Caption Case 继续 Command1.Caption = 征订 Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Command2.Enabled = True Combo1.SetFocus Case 征订 i = Len(Trim(Text1.Text) If Combo1.Text = Or Combo4.Text = Or Trim(Text1.Text) = Then MsgBox 信息不完整！
24、, vbOKOnly + vbInformation: Combo1.SetFocus ElseIf Trim(Text1.Text) Then m = 1 For j = 1 To i If Asc(Mid$(Trim(Text1.Text), j, 1) 57 Then MsgBox 请正确输入数据！, vbOKOnly + vbInformation Text1.Text = Text1.SetFocus m = 0 Exit For End If Next j If m Then Adodc1.RecordSource = select * from 教材征订表 where 教材名=
25、& Trim(Combo1.Text) & and 作者= & Trim(Combo2.Text) & and 出版社= & Trim(Combo3.Text) & and 出版日期 =# & Trim(Str$(DTPicker2.Value) & # Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Adodc1.RecordSource = select * from 教材征订表 Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Trim(C
26、ombo1.Text) Adodc1.Recordset.Fields(1) = Trim(Combo2.Text) Adodc1.Recordset.Fields(2) = Trim(Combo3.Text) Adodc1.Recordset.Fields(3) = DTPicker2.Value Adodc1.Recordset.Fields(4) = Trim(Text1.Text) Adodc1.Recordset.Fields(5) = DTPicker1.Value Adodc1.Recordset.Fields(6) = Trim(Combo4.Text) Adodc1.Reco
27、rdset.Update Adodc1.Refresh Else Adodc1.Recordset.Fields(4) = Adodc1.Recordset.Fields(4) + Val(Text1.Text) Adodc1.Recordset.Update Adodc1.Refresh End If Adodc1.RecordSource = select * from 教材征订表 Adodc1.Refresh Text1.Text = Combo1 = Combo2 = Combo3 = End If End If End SelectEnd SubPrivate Sub Command
28、2_Click() zd = 1 教材征订查询.ShowEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Command5_Click() Dim i%, j%, m% i = Len(Trim(Text1.Text) If Combo1.Text = Or Combo4.Text = Or Trim(Text1.Text) = Then MsgBox 信息不完整,请重新输入！, vbOKOnly + vbInformation: Combo1.SetFocus Else m = 1 For j = 1 To i If Asc(Mid$(Trim(Text1.Text), j, 1) 57 Then MsgBox 请正确输入数据！, vbOKOnly + vbInformation Text1.Text = Text1.SetFocus m = 0
