教材管理系统设计说明书_(编辑修改稿)

教材管理系统设计说明书_(编辑修改稿)内容摘要：

有用户管理表，教材出库表，教材入库表，教材征订表，教材库存表 ： 字段名称 数据类型 姓名 文 本 密码 文本 权限 文本 ： 字段名称 数据类型 教材 仓库 供应商 班级 入库 1 N N M N M 订货 出库 沈阳理工大学 17 教材名称 文本 系别 文本 班级 文本 单价 数字 数量 数字 总金额 数字 出库时间 日期 ： 字段名称 数据类型 教材名 文本 作者 文本 出版社 文本 出版日期 日期 数量 数字 征订时间 日期 征订人 文本 字段名称 数据类型 教材名 文本 作者 文本 出版社 文本 出版日期 日期 书类别 文本 单价 数量 数量 数 量 总金额 数量 经手人 文本 入库日期 日期 字段名称 数据类型 教材名 文本 作者 文本 出版社 文本 出版日期 日期 单价 日期 书类别 文本 库存数量 数量 沈阳理工大学 18 代码设计 设计问题是一个科学管理的问题。 设计出一个好的代码方案对于系统的开发工作是一件极为有利的事情。 它可以使很多机器处理 (如某些统计、校对查询等 )变得十分方便 ,另外还把一些现阶段计算机很难处理的工作变成很简单的处理。 代码就是以数或字符来代表各种客观实体。 在现实世界中有很 多东西如果我们不加标识是无法区分的 ,这时机器处理就十分困难。 所以能否将原来不能确定的东西 ,唯一地加以标识是编制代码的首要任务。 以教材编号为例。 在 教材管理中 不难发现 ,有的书籍虽然名字一样，但是出版日期，著作人不一样 ,为了能够区分开这样的书籍而编制教材编码（教材号： 001001 001002 001003 001004 001005）。 唯一化虽是代码设计的首要任务。 但如果我们仅仅为了唯一化来编制代码 ,那么代码编出来后可能是杂乱无章的 ,使人无法辨认 ,而且使用起来也不方便。 例如 ,在管理系统中 关于 计算机类 的 书籍以“ 01”打头 ， 其中 “01001”表示 计算机硬件书籍， 01002 表 示 计算机软件书籍， 01003”表示 计算机信息管理书籍 等。 这样在查找或统计某一类 专业书籍 时就十分方便了。 （专业代码： 01001 01002 01003 02020 03003 04004）为了保持系统的合理性，在代码设置时也要注意系统化规范。 例如， 001 表示书记所在的地区里面拥有的书籍编号从001001 到 001070 当有新书加入时则会自动生成书号 001071。 （区号： 001 002 003 004 ） 如教材代码设计 =教材编号 +教材类别 +出版社 +任课教师 =0001（数理统计） 001（数学类） 001（机械工业出版社） 001（胡雷） 界面设计 登陆界面 包括姓名，权限和密码，与数据库用户管理表相连 如图 图 代码设计。 沈阳理工大学 19 Private Sub Command1_Click() = select * from 用户管理 where user=39。 amp。 Trim() amp。 39。 Dim $ If Trim() = Then MsgBox 用户名不能为空 !, , 错误 Exit Sub End If If Then MsgBox 用户不存在 !, , 错误 = = = select * from 用户管理 Else = Trim() If (qx) RTrim() Then MsgBox 权限错误 , , 错误 = select * from 用户管理 = Else If Trim() Trim((password)) Then If mi = 2 Then MsgBox 密码输入错误三次 + Chr(13) + Chr(10) + 自动关闭本系统 , , 学生教材管理软件 Unload Me Else MsgBox 密码错误 !, , 错误 mi = mi + 1 = select * from 用户管理 = = End If Else If Trim() = 管理员 Then 沈阳理工大学 20 Unload Me 主窗体 .Show Else Unload Me 主窗体 .Show With 主窗体 . = False . = False . = False End With End If End If End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Activate() mi = 0 End Sub 39。 Private Sub Form_Load() 39。 mi = 0 39。 End Sub Private Sub Form_Load() End Sub 主界面 在登陆界面输入姓名，权限和密码正确后，进入主界面 ，包括系统管理和教材管理两大模块，其中系统管理有用户管理和退出；教材管理有教材征订，教材入库，教材出库和教材库存查询。 如 图 沈阳理工大学 21 图 教师界面 A 教材征订 ：选择主界面教材征订进入教材征订 界面， 征订时输入教材名，作者，出版社，出版时间，征订时间，征订人还有数量。 如图 图 代码设计： Private Sub Command1_Click() Dim i%, j%, m% Select Case Case 继续 = 征订 = False = False = False = True Case 征订 沈阳理工大学 22 i = Len(Trim()) If = Or = Or Trim() = Then MsgBox 信息不完 整。 , vbOKOnly + vbInformation: ElseIf Trim() Then m = 1 For j = 1 To i If Asc(Mid$(Trim(), j, 1)) 48 Or Asc(Mid$(Trim(), j, 1)) 57 Then MsgBox 请正确输入数据。 , vbOKOnly + vbInformation = m = 0 Exit For End If Next j If m Then = select * from 教材征订表 where 教材名 =39。 amp。 Trim() amp。 39。 and 作者 =39。 amp。 Trim() amp。 39。 and 出版社 =39。 amp。 Trim() amp。 39。 and 出版日期 = amp。 Trim(Str$()) amp。 If = 0 Then 39。 = select * from 教材征订表 39。 (0) = Trim() (1) = Trim() (2) = Trim()。