校园图书管理系统设计书

校园图书管理系统系统设计书 一、需求调查经调查发现：图书管理系统需要的是通过录入图书的详细资料，建立读者档案、系统用户资料，设置各类参数，找出图书与读者之间的对应关系，实现日常的借阅操作。基于得到的这些基础数据，系统自行生成相应的统计数据以供管理员查询、分析；另外，管理员还可以对这些基本信息进行定期的数据更新和数据库维护；为读者借阅时提供图书是否在馆，以及自己借书、还书等情况的查询功能，图书管理系统需要给图书管理员提供操作简单、方便快捷的途径去管理这些庞大，繁琐的信息和图书。二、需求分析通过这段时间的调查和分析，初步了解到现在各种图书管理软件的优点及不足。因此我们准备开发出具有以下特点的图书管理系统：1、界面清晰、功能少而实用、操作简单。实用于某学校的图书借阅。2、开发周期短、维护费用低、软件更新速度快。3、轻松管理，容易上手，达到一看就懂、一学即会。三、概要设计总体架构借书-根据图书条形码和图书编号确认图书，再根据读者的编号确认读者后把此书借给这位读者。还书-根据图书条形码和图书编号确认图书，再根据读者的编号确认读者后把此书归还。图书管理-对所有图书的资料进行添加，修改和删除等操作。读者管理-对所有读者的资料进行添加，修改和删除等操作。打印表报-对所有情况的总结。设置-修改管理员的登录密码和对单位名称的修改。四、数据库设计 创建数据库：数据自由表 Book_recno 借、还书表 Book_table 图书表 B_table 读者表说明 Group_table 图书表说明 Mcsz 用户单位名称说明 Pass_word 操作员表 User_table 读者用户表文档表单 Huans 还书管理 Jies 借书管理 Password 操作员密码维护 Login_form 操作员登录管理 Tsgl 图书管理背景菜单 Tsgl_dzgl 读者管理 Tsgl_mcsz 用户单位名称设置 Tsgl_tsgl 图书管理报表 book_table 图书资料报表代码 程序 Login_app Main_tsgl 主程序菜单 menu_tsgl 主菜单 表结构简介：BOOK_Recno 借书登记表 字段说明 字段名称 字段类型 字段宽度图书编号 Tsbh 字符型 10条形码 Txm 字符型 10书名 SM 字符型 10读者编号 BH 字符型 20姓名 XM 字符型 10借书备注 JSBZ 字符型 4借书时间 JSSJ 字符型 8BOOK_table 图书资料表 字段说明 字段名称 字段类型 字段宽度图书编号 tsbh 字符型 10条形码 txm 字符型 10书名 sm 字符型 20作者 zz 字符型 20出版社 cbs 字符型 40出版时间 cbsj 字符型 8类别 lb 字符型 20现存数量 xcsl 数值型 3图书总数 tszs 数值型 3入馆时间 rgsj 日期型 8图书价格 Tsjg 数值型 8.2租出次硕 zccs 数值型 5借书期限 jcqx 数值型 2.五、源代码主控程序: main_tsgl.prgclear all _screen.visible=.f.set escape off set talk off set excl off set safety offset dele on set century onset date to YMDpublic M_js,M_hs,mypath,tsgl,demo3M_js= .T. M_hs= .T.mypath=left(sys(16),rat(,sys(16)set defa to &mypathdimension demo3 store .F. to demo1 store .F. to demo2 store .F. to demo3sele 1use book_table sele 2use group_tablesele 3use b_tablesele 4 use user_tabledo form login_formread events密码验证表单： Login_form.scxselect gly_id,mm,gly_name from pass_word ;where gly_id=allt(thisform.text1.value) and ;mm=allt(thisform.text2.value) into array demo if demo1=.F. = messagebox(操作员或密码错误！, 提示) thisform.text1.setfocus * return .T.else thisform.releasedo login_app endif 借书子程序：Jies.scxsele 1if thisform.optiongroup1.option1.value=0 locate for txm=upper(allt(thisform.text2.value) if not found() =messagebox(没有该图书的条形码!, 提示) go top else mand3.enabled=.T. endifendif if thisform.optiongroup1.option1.value=1 locate for tsbh=upper(allt(thisform.text1.value) if not found() =messagebox(没有该图书编号