图书库存管理系论文.docVIP

图书库存管理系统设计与开发 课程设计目的： 无论是学校、出版社或其他一些单位，往往需要对图书库存和出库进行管理，而这些工作是一个繁杂的事情，如何用一个现代化的管理手段来代替复杂的手工劳动，这是一个重要的问题。本例结合图书库存与出库两方面的问题，开发出一个比较科学的图书库存管理系统，可以供一些图书使用单位和出版单位参考使用。 需求分析： 功能需求 对图书入库的管理（更新、添加、修改和删除） 对图书出库的管理（更新、添加、修改和删除） 对图书进行入库统计 对图书进行出库统计 对图书入库结存报表的查询 对图书出库结存报表的查询 对用户权限的维护 总体设计 （1） 系统层次框图 （2） 系统模块设计（各模块功能说明 名称 字段类型 字段大小 索引 忽略空值 图书编号 Text 50 普通索引 否 书名 Text 50 无 否 作者 Text 10 无 否 出版社 Text 50 无 否 版次 Text 10 无 否 库存数 Integer 默认 无 否 单价 Currency 默认 无 否 库存金额 Currency 默认 无 否 入库时间 Date/time 默认 无 否 2、名称：图书出库数据表 名称 字段类型 字段大小 索引 忽略空值 图书编号 Text 50 普通索引 否 书名 Text 50 无 否 作者 Text 10 无 否 出版社 Text 50 无 否 版次 Text 10 无 否 出库数 Integer 默认 无 否 单价 Currency 默认 无 否 出库金额 Currency 默认 无 否 出库时间 Date/time 默认 无 否 3、名称：图书主表数据表 名称 字段类型 字段大小 索引 忽略空值 图书编号 TEXT 50 主要的、唯一的 否 书名 TEXT 50 无 否 作者 TEXT 10 无 否 出版社 TEXT 50 无 否 4、名称：密码数据表 名称 字段类型 字段大小 索引 忽略空值 密码 Text 20 主要的、唯一的 否 用户名 Text 50 无 否 三、详细设计： 各模块界面简介及代码 a、FLASH画面： 计时器控件的过程代码： Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 If Text1.Text = 20 Then Timer1.Interval = 0 Form1.Hide Form2.Show End If End Sub 退出系统标签的过程代码： Private Sub Label3_Click() Unload Me End Sub b、系统主控界面： “图书入库”标签的过程代码： Private Sub Label1_Click() Dim msg oldmark = Data1.Recordset.Bookmark msg = Trim(InputBox(请输入用户密码: , 权限认证)) msg = 密码 like msg Data1.Recordset.FindFirst msg If Data1.Recordset.NoMatch Then MsgBox (你无权进入系统操作！) Else 入库管理.Show End If End Sub “图书出库”标签的过程代码： Private Sub Label2_Click() Dim msg oldmark = Data1.Recordset.Bookmark msg = Trim(InputBox(请输入用户密码: , 权限认证)) msg = 密码 like msg Data1.Recordset.FindFirst msg If Data1.Recordset.NoMatch Then MsgBox (你无权进入系统操作！) Else 图书出库.Show End If End Sub “权限维护”标签的过程代码： Private Sub Label3_Click() MMFORM.Show End Sub “入库结存”标签的过程代码： Private Sub Label4_Click() Dim msg oldmark = Data1.Recordset.Bookmark msg = Trim(InputBox(请输入用户密码: , 权限认证)) msg = 密码 like msg Data1.Recordset.FindFirst msg If Data1.Recordset.NoMatch The