图书管理信息系统课程设计.doc

管理信息系统管理信息系统 课课程程设设计计 报报告告 题目: 图 书 管 理 信 息 系 统 院 系： 经 济 管 理 学 院 专业班级： 电 子 商 务 2008-1 学生姓名： 王洪云、袁堂兴、王江、杨亚民 指导教师： 周 长 红 2011 年 1 月 14 日 指导教师评语 指导教师： 年 月 日 成绩评定 学 号姓 名任务分工成绩 0801060522王洪云系统规划和系统分析 0801060523王江系统设计 0801060530袁堂兴系统实施 0801060527杨亚民收集资料 目目 录录 1.1.系统规划系统规划 1 1 1.1 问题的提出 1 1.2 研究路线 1 1.3 战略规划说明书 2 2.2.系统分析系统分析 5 5 2.1 可行性分析报告 5 2.2 管理业务调查6 2.3 数据流程分析 7 2.4 数据字典 9 3.3.系统设计系统设计 1212 3.1 功能结构图设计 12 3.2 信息系统流程图设计 13 3.3 输入设计 13 3.4 输出设计 15 3.5 数据存储设计 17 3.6 处理流程图设计 19 4.4.系统实施系统实施 2121 4.1 系统功能界面和主要代码 21 4.2 系统的数据查询和修改 27 4.3 系统的测试 34 5.5.总结总结 4343 参考文献参考文献 4545 1.系统规划系统规划 1.1 问题的提出问题的提出 图书馆作为信息资源的集散地,图书和用户借阅资料繁多,包含很多信 息数据的管理,现今,有很多的图书馆都是初步开发使用,甚至尚未使用计 算机进行信息管理，根据调查得知，他们以前对信息的管理都基于文本， 表格等纸介质的手工处理，对图书借阅情况（如借阅天数，超过借阅的天 数）的统计和审核都通过借书卡的方式人工查询。 对借阅的权限，借阅天数用人工计算，手工抄写。数据处理工作量大， 容易出错。由于数据量大容易丢失，且不容易查找。 总的来说，缺乏系统规范的管理手段。尽管有的图书馆有计算机，但 是尚未由于信息管理，没有发挥它的效力，资源闲置比较突出，这就是信 息管理系统开发的基本环境。 基于这个问题，我们认为有必要建立一个图书管理系统，使图书管理 工作规范化。 1.2 研究路线研究路线 用户对新系统提出 的需求(各种问题) 开发一个原型系统 开发人员对问题进 行总结 完成系统开发并交 付使用 修改 运行原型系统 增加功能 有修改意见否? 增加新功能否? Y Y N N 1.3 战略规划说明书战略规划说明书 新系统的名称：新系统的名称：图书音像信息管理系统 新系统的目标：新系统的目标：针对各中等院校的图书管理现状设计出符合一般学校 的计算机辅助图书管理信息系统.实现对图书基本信息、读者基本信息进 行计算机辅助管理,完成借书和还书有关信息的记录、修改、查询、删除 等一系列任务的计算机管理和实现.我们总体设计的目标就是实现图书管 理的系统化、规范化和自动化，具体有： （1）系统维护方便可靠、有较高的安全性，满足实用性、先进性的 要求。 （2）商品管理信息化，提高服务质量、提高工作效率、降低管理成 本。 （3）系统界面友好美观，操作简单易行，查询灵活方便，数据存储 安全。 新系统总体结构：新系统总体结构： 系统能完成的任务主要服务于企业发展流程中的三大子系 该系统界 面友好,操作简单,能完成添加图书信息,修改图书信息,查询图书信息,添 加读者类别,修改读者类别,查询读者信息,修改读者信息等一系列图书管 理功能,开发本系统的任务是实现图书管理的系统化和自动化,帮助管理人 员更好更高效的完成图书管理工作.本着实用性和介绍性原则整个系统有 三大模块,每个大模块又包含几个小模块: 第一板块、读者管理部分:包括读者信息管理,其功能是实现对各部分 数据内容的添加和修改等操作。 第二板块、图书管理部分:包括图书信息管理和类别管理, 其功能是 实现对各部分数据内容的添加和修改、查询等操作。 第三板块、图书借阅管理部分:包括借书管理和还书管理, 其功能是 实现对各部分数据内容的添加和修改、查询等操作。 开发方法：开发方法：结构化系统开发方法，它是目前应用得最普遍的一种开发 方法。 系统分析：对要开发的新系统的可行性进行论证和详细的系统调查， 进行。 系统化分析、建立信息系统的逻辑模型 系统设计：在逻辑模型的基础上设计系统的物理模型，包括：代码设 计、信息系统流程图设计、数据库设计、处理流程图设计和编写程序设计 说明书。 系统实施：程序设计及调试、系统转换及系统运行与评估、编写使用 说明书。 我们选择这个开发方法的原因：我们选择这个开发方法的原因：结构化系统开发方法是在生命周期基 础上发展起来的。与生命周期法相比，结构化系统开发方法更强调开发人 员与用户的紧密结合，而且在开发策略上强调“从上到下” ，注重开发过 程的整体性和全局性，适合大型信息系统的开发。 允许组织根据自身精确的需求定制一个系统 采用多个阶段逐一进行的结构化方式 建立工厂专业人员与知识工作者之间的任务分离 下面是我们根据规划，课程设计的完成的进度表： 周一：我们首先确立了课程题目，进行了大体方向研究，然后具体分 工，并提出工作计划 周二：我们一起深入讨论了系统的有关东西；比如职能，业务过程， 数据类，总体结构等等， 周三：查阅资料的人搜查有关资料，代码设计者开始准备有关数据库 和程序语言的东西 周五周二：文档编写者编写文档 周三：最后检查文档和程序，再由排版者进行最后的排版 2.系统分析系统分析 2.1 可行性分析报告可行性分析报告 （1）系统简述：VB 和 ACCESS 开发，即使遇到困难，也能从丰富的参 考书中找到解决方案。 （2）管理上的可行性分析：在该单位中，从主管领导、管理人员到 具体的业务人员在建立一个计算机产品库存管理新系统的必要性的认识是 一致的。 （3）技术上的可行性分析：技术方面，我们选择的是 VB 和 ACCESS, 都是组员熟悉的语言，即使遇到部分困难，也可以从丰富的参考书中找到 解决方案。所以技术方面是绝对可行的。 （4）经济上的可行性分析：开发需求较低,加上成熟的软硬件环境、 目标系统并不是十分复杂和开发周期较短,人员经济支出有限。开发完成 运行后，为使用者带来便利，为新系统的进一步推广创造了条件，经济收 益将远超过投资。从经济角度考虑,此系统开发可行。 （5）法律上的可行性分析：由于整个系统是自行开发,自行使用，所 以系统本身不存在版权争议，符合国家各种政策法规。服务器软件方面， 它的操作系统可能会被微软跟踪,如果不是正版软件,将会面临民事诉讼的 风险。 （6）结论：由于该单位有良好的管理基础，单位的经济效益良好， 对建立新系统所需的费用由能力支持，因而建立新系统在管理上，技术上 合经济上都是可行的，所以我们可以立即开发系统。 2.2 管理业务调查管理业务调查 1. 管理功能调查 图书管理系统 图 书 管 理 读 者 管 理 借 阅 管 理 图 书 登 记 图 书 查 询 读 者 登 记 读 者 查 询 借 阅 归 还 2 组织结构调查 图书借阅 室 馆 长 财务室采编室 采 购 统 计 组 会 计 组 成 本 组 图 书 编 目 组 采 购 组 借 阅 组 办 公 室 采 购 计 划 组 仓 库 2.3 数据流程分析数据流程分析 数据流程调查： 通过调查可以绘制出数据流程图。数据流程图是一种能全面地描述信 息系统逻辑模型的主要工具，它可以用少数几种符合综合的反映出信息在 系统中的流动、处理和存储情况。 0 层数据流程图： 读者 管理 员 图书 P0 图书管理系 统 第一层数据流程图： P1.1 注册为系 统成员 P1.2 登录处理 P1.3 入库处理 读者数据库 读者和图书信 息管理文件 图书明细 D1 根据系统读者名单 D2 系统数据库 D3 系统管理员名单 D4 管理系统的权限 D5 图书入库单 D6 登记图书信息 F 1.1 F 1.2 F 1.3 第二层数据流程图： S1 读 者 S3 图 书 P2.1 读者注册 系统 P2.2 系统处理 读者数据 库 系统文件 P2.3 图书入库处 理 图书种类 图书数据库 系统数据库 读者资料 图书信息 注册明细 系统的各方面请求 F 2.3 F 2.1 F 2.2 D2 D3 D1 D4 D6D7 S3 图 书 S1 读 者 S2 系统 管理员 S2 管 理员 2.4 数据字典数据字典 数据字典的内容包括对数据流程图中的数据项、数据结构、数据流、 处理逻辑、数据存储和外部实体等六个方面进行具体的定义。数据流程图 配以数据字典，就可以从图形和文字两个方面对系统的逻辑模型进行完整 的描述 下面是我们的数据字典（以图书采编过程为例）： 数据项的定义： 数据项 编号 数据项 名称 别名简称类型及 宽度 取值范围 I1 书号书码书代码字符型， 11 位 “00000000001” “99999999999 ” 数据结构的定义： 数据结构编号名称简述组成 DS0203 借书证图书借阅图书信息+借阅 人信息+ 数据流的定义 编号名称简述来源去向组成数据流量高峰流量 D02 03 图书 借阅 单 图书 借阅 单 用户填 写图书 借阅单， 输入计 算机。 P2_1 1 检 查读 者身 份 借阅日期 书名 读者账号 读者姓 名借阅 100 部 / 日 500 部 / 日 数量） 处理逻辑的定义： 编号名称简述输入的 数据流 处理输出的 数据流 处理频 率 P0203 计算借 书数量 计算所 借阅的 所有图 书数量 数据流 书的代 码，来 源于商 品库存 表；数 据流数 量和图 书类别， 来源于 处理逻 辑“个 人资料” 和数据 存储 “图书 入库” 根据数 据流 “借阅 单”和 “顾客 信息” ， 检索学 生文件， 确定该 学生的 类别； 在根据 已经确 定的该 学生类 别，检 索库存 表，以 确定该 顾客的 收费标 数据流 “借书 单”一 是去学 生，二 是写入 数据存 储“借 阅库” 对每个 学生的 每一次 借阅处 理一次 准. 数据储存的定义 编号名称简述组成关键字相关联的 处理 F0203 图书入库借阅图书 的名称和 编号 图书编号+ 图书类别+ 图书名称+ 单价+数量 +备注 商品编号 名称 类别 P02，P03 外部实体的定义 编号名称简述输入的数据 流 输出的数据 流 S0203 借书人借阅该馆图 书的人员 D0206D0208 2.5 主要数据处理的描述 决策规则号 1234 是否登记 NYYY 是否有书 NY 条 件是否归还 N 不借 YY 借书 Y 处 理催还 Y 3.系统设计系统设计 3.1 功能结构图设计功能结构图设计 3.2 信息系统流程图设计信息系统流程图设计 管理员设置图书设置 主文件 文件更新模块 上月文件 读者设置工具 图书借阅/归 还 注销 帮助 数据备份模块 备份文件 实用查询模块 统计模块 3.3 输入设计输入设计 管理员注册： 读者登记 图书登记 3.4 输出设计输出设计 管理员信息查询输出设计 读者信息查询设计 图书信息查询 3.5 数据存储设计数据存储设计 采用 access 数据库,VB6 开发 管理员表（ID,NAME,PASS,USER,BOOK,PHOTO） 图书信息表（ID,NAME,SORT,DATE,PRICE,WRITER,CONCERN,REMARK, CHECK_DATE） 图书库存表（ID,QUANTITY） 读者信息表（ID,NAME,SEX,IDENTIFICATION,TEL,ADDRESS,PHOTO, CHECK_DATE） 借阅信息表（UER_ID,BOOK_ID,LEND_DATE） 图书类型(BOOK_SORT) 1管理员表 编号字段名数据类型说明 1MANAGER_ID文本，长度 20管理员 ID 2MANAGER_NAME文本，长度 50管理员姓名 3MANAGER_PASS文本，长度 50密码 4MANAGER_USER是/否读者权限 5MANAGER_BOOK是/否图书权限 6MANAGER_PHOT O 文本，长度 150管理员相片 2图书信息表 编号字段名称数据结构说明 1BOOK_ID文本记录编号，主键 2BOOK_NAME文本，长度 50图书名称 3BOOK_SORT文本，长度 10图书类别 4BOOK_DATE文本，长度 50出版日期 5BOOK_PRICE文本，长度 50图书价格 6BOOK_WRITER文本，长度 50图书作者(主编) 7BOOK_CONCERN文本，长度 50出版社 8BOOK_REMARK文本，长度 50备注 9BOOK_CHECK_DAT E 日期/时间登记日期 3书库存表 编号字段名称数据结构说明 1BOOK_ID 文本，长度 20图书编号 2BOOK_QUANTITYInt 图书库存 4读者信息 编号字段名称数据结构说明 1USER_ID文本，长度 20记录编号，主键 2USER_NAME文本，长度 50读者姓名 3USER_SEX文本，长度 50读者性别 4USER_IDENTIFICA TION 文本，长度 50读者身份证 5USER_TEL文本，长度 11读者电话 6USER_ADDRESS文本，长度 50读者地址 7USER_PHOTO文本，长度 50读者相片 8USER_CHECK_DA TE 日期/时间登记日期 5借阅信息表 编号字段名称数据结构说明 1USER_ID文本，长度 20 记图书编号 2BOOK_ID文本，长度 20 图书编号 3LEND_DAT E 文本，长度 50 6图书类型表 编号字段名称数据结构说明 1BOOK_SOR T 文本，长度 50 图书类型 3.6 处理流程图设计处理流程图设计 管理员设置 管理员注册管理员查询修改 建立管理员设置程序 文件 更改管理员模块登陆界面 文件更新模块 数据备份模块 备份文件 上次 文件 退出系统 读者信息管理 读者登记 读者修改 修改 读者查询 建立读者信息管 理 程序 文件更新 上次 文件 文件 图书管理 图书登记 图书修改 修改 图书查询 建立图书管理程序 管理 程序 文件更新 上次 文件 文件 图书借阅/ 归还 4.系统实施系统实施 4.1系统功能界面和主要代码系统功能界面和主要代码 登录窗口： Option Explicit Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim str_manager As String str_manager = “ If txt_ManagerID = “ Then MsgBox “请输入管理员 ID“ txt_ManagerID.SetFocus Exit Sub End If 管理员注册： Private Sub Cmd_manager_check_Click() 确定 If Txt_Mid = “ Then: MsgBox “请输入管理员 ID“: Txt_Mid.SetFocus: Exit Sub If Txt_Mname = “ Then: MsgBox “请输入管理员名“: Txt_Mname.SetFocus: Exit Sub If Txt_Mpass(0) = “ Then: MsgBox “请输入密码“: Txt_Mpass(0).SetFocus: Exit Sub If Txt_Mpass(0) 2 Then If txt_user(i) = “ Then MsgBox “请输入“ + lbl_user(i): txt_user(i). SetFocus: Exit Sub End If Next i If Option1(0) = True Then str_sex = “男“ Else: str_sex = “女“ 控制身份证号的长度为 15 或 18 位,且要求除最后一位可以 X 外, 其它全为数字 判断身份证号前 17 位是否为数字 If Not IsNumeric(Mid(txt_user(3), 1, 17) Then MsgBox “请输入正确的身份证号“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If 判断身份证号是否等于 15 位或 18 位 If Not (Len(txt_user(3) = 15 Or Len(txt_user(3) = 18) Then MsgBox “请输入正确的身份证号“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub 如果是 18 位最后一位如果不是数字允许是X或x ElseIf Len(txt_user(3) = 18 Then If Not IsNumeric(Mid(txt_user(3), 18, 1) And Not (Mid(txt_user(3), 18, 1) = “x“ Or Mid(txt_user(3), 18, 1) = “X“) Then MsgBox “请输入正确的身份证号“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If End If 读者一览表： Debug.Print Mid(user_s, 5) Set rds_user = New ADODB.Recordset If Mid(user_s, 5) = “ Then rds_user.Open “select * from 读者信息“, myconn, adOpenKeyset, adLockOptimistic, 1 rds_usercount.Open “select count(USER_ID) from 读者信息“, myconn, adOpenKeyset, adLockOptimistic, 1 Else rds_user.Open “select * from 读者信息 where“ + Mid(user_s, 5), myconn, adOpenKeyset, adLockOptimistic, 1 rds_usercount.Open “select count(USER_ID) as cu from 读者信息 where“ + Mid(user_s, 5), myconn, adOpenKeyset, adLockOptimistic, 1 End If If rds_user.RecordCount 0 Then Set MSHFlexGrid1.DataSource = rds_user MSHFlexGrid1.TextMatrix(0, 0) = “读者编号“ MSHFlexGrid1.TextMatrix(0, 1) = “读者姓名“ MSHFlexGrid1.TextMatrix(0, 2) = “读者性别“ MSHFlexGrid1.TextMatrix(0, 3) = “身份证号“ MSHFlexGrid1.TextMatrix(0, 4) = “电话“ MSHFlexGrid1.TextMatrix(0, 5) = “家庭住址“ MSHFlexGrid1.TextMatrix(0, 6) = “相片存储位置“ MSHFlexGrid1.TextMatrix(0, 7) = “登记日期“ rds_user.Close MsgBox “共有“ Me.Tag 判断状态 For i = 0 To 7 If i 7 And txt_book(i) = “ Then MsgBox “请输入“ + lbl_book(i): txt_book(i).SetFocus: Exit Sub Next i If DTPicker1.Value = Date Then MsgBox “出版日期错误“: DTPicker1.SetFocus: Exit Sub 判断图书价格是否为数值且小数点后为两位数字 If Not IsNumeric(txt_book(4) Then MsgBox “图书价格有误，请输入正 确的价格“: txt_book(4).SetFocus: txt_book(4).SelStart = 0: txt_book(4). SelLength = Len(txt_book(4): Exit Sub InStr(1, txt_book(4), “.“) Val(txt_book(4)判 断小数点后位数:50/50./50.0/50.00 If InStr(1, txt_book(4), “.“) Val(txt_book(4) Then MsgBox “图书价格只保留两位小数“ txt_book(4).SetFocus txt_book(4).SelStart = 0 txt_book(4).SelLength = Len(txt_book(4) Exit Sub End If If Me.Tag = “check“ Then If .State = adStateOpen Then .Close .Open “图书信息“, myconn, adOpenKeyset, adLockPessimistic, adCmdTable .AddNew .Update “BOOK_ID“, txt_book(0) ElseIf Me.Tag = “modify“ Then If .State = adStateOpen Then .Close Or Left(.Source, 34) 2 Then If txt_user(i) = “ Then MsgBox “请输入“ + lbl_user(i): txt_user(i). SetFocus: Exit Sub End If If Option1(0) = True Then str_sex = “男“ Else: str_sex = “女“ 控制身份证号的长度为 15 或 18 位,且要求除最后一位可以 X 外, 其它全为数字 判断身份证号前 17 位是否为数字 If Not IsNumeric(Mid(txt_user(3), 1, 17) Then MsgBox “请输入正确的身份证号“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If 判断身份证号是否等于 15 位或 18 位 If Not (Len(txt_user(3) = 15 Or Len(txt_user(3) = 18) Then MsgBox “请输入正确的身份证号“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub 如果是 18 位最后一位如果不是数字允许是X或x ElseIf Len(txt_user(3) = 18 Then If Not IsNumeric(Mid(txt_user(3), 18, 1) And Not (Mid(txt_user(3), 18, 1) = “x“ Or Mid(txt_user(3), 18, 1) = “X“) Then MsgBox “请输入正确的身份证号“ txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then CommonDialog1.Filter = “*.bmp|*.bmp;*.jpg|*.jpg;*.ico|*.ico“ CommonDialog1.ShowOpen If CommonDialog1.FileName “ Then Image1.Picture = LoadPicture(CommonDialog1.FileName) Else Image1.Picture = LoadPicture(App.Path + “icophoto.ico“) End If End If If Button = 2 And Image1.Picture.Type = 1 Then If MsgBox(“确认删除照片？“, vbCritical + vbOKCancel) = vbOK Then Image1.Picture = LoadPicture(App.Path + “icophoto.ico“) End If End Sub Private Sub txt_user_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys “ENTER“ End Sub 5.总结总结 这次课程设计让我感触良深。在课程的学习中还没有这么深刻的体会 到一个系统或者说一个整体所以涉及的方面或东西是那么具体和细致。只 有在自己切身实践之后才更有体会。系统从规划、再到开发和维护，文档 的编写和整理，程序的实现这些都需要团队成员的密切合作，不断的讨论 和完善。 所以注定了从一开始的团队分工就必须做到物尽其人，分工上不仅仅 要考虑到个人的实际技术能力，还要考虑到合作中相互交流和沟通能力。 在一个团队中必要的一点就是考虑到队员的性格因素，这样才能在分工上 做到不疏漏。 上面是我在团队成员合作和分工上的一点体会，接下来我再说一下这 次课程设计在工作上的认识。以前做课程设计的时候是