




已阅读5页,还剩16页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
图书馆信息管理系统数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息,简而言之,数据库就是信息的集合。计算机的数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息,数据库含有各个不同部分的术语,象记录、域等。 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库,设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。(1) 标识需要的数据;(2) 收集被标识的字段到表中;(3) 标识主关键字字段;(4) 绘制一个简单的数据图表;(5) 规范数据;(6) 标识指定字段的信息;(7) 创建物理表。 创建数据库参照VF自带的数据库,可以很方便地创建了本系统将要使用的本地数据库。系统的组织结构图如下:馆 长采编组书库阅览室工具书室目录厅借阅室 表的说明如下:Book_recno.dbf 借书登记表Book_table.dbf 图书资料表B_table.dbf 读者类别查询中间表 Group_table.dbf 图书类别查询中间表Pass_word.dbf 管理员ID密码表User_table.dbf 读者资料表表结构介绍:Book_recno.dbf 借书登记表字段名称字段类型字段说明TSBHC(10)图书编号TXMC(10)条形码SMC(20)书名BHC(10)编号XMC(10)姓名JSBZC(4)借书标志JSSJD(8)借书日期Book_table.dbf 图书资料表字段名称字段类型字段说明TSBHC(10)图书编号TXMC(10)条形码SMC(20)书名ZZC(20)作者CBSC(40)出版社CBSJD(8)出版时间LBC(20)类别XCSLN(3)现存数量TSZSN(3)图书总数RGSJD(8)入馆时间TSJGN(8,2)价格ZCCSN(5)借出次数JSQXN(2)借书时限B_table.dbf 读者类别查询中间表 字段名称字段类型字段说明CHINA_LBC(10)中间字段LBC(15)中间字段Group_table.dbf 图书类别查询中间表字段名称字段类型字段说明CHINA_LBC(10)中间字段LBC(15)中间字段Pass_word.dbf 管理员ID密码表字段名称字段类型字段说明GLY_IDC(10)管理员IDMMC(10)管理员密码GLY_NAMEC(10)管理员姓名 User_table.dbf 读者资料表字段名称字段类型字段说明BHC(10)编号XMC(10)姓名XBC(2)性别YXMCC(20)院系名称ZZC(40)住址YJTSN(4)已借天数BZC(20)备注LBC(10)职业DJRQD(8)登记日期JSRQD(8)借书日期HSRQD(8)还书日期系统的具体实现程序菜单功能介绍:借书-根据您提供的图书条形码和图书编号确认图书,再根据学生的编号确认学生后把此书借给这位学生。还书-根据您提供的图书条形码和图书编号确认图书,再根据学生的编号确认学生后把此书归还。图书馆信息管理-对所有图书的资料进行添加,修改和删除等操作。读者管理-对所有读者的资料进行添加,修改和删除等操作。查询-所有图书、不在馆图书,今天借出图书、今日归还图书、今日新进图书和有条件查询。统计-图书基础状况统计排名。管理员-在这里修改管理员的登录密码。系统程序构成: 图书馆信息管理系统的所有模块都包括在一个项目中,这个项目我们命名为Tsgl.pjx,项目由数据、文档、类库、代码、其它五部分组成。其中数据又分为数据库和自由表;文档分为表单、报表和标签;代码分为程序、API、01/10应用程序;其它分为菜单文件、文本文件、其它文件。系统构成图表如下图:项目的各部分完成系统的不同任务,但从总体上讲,可分成两个方面分析,一个是数据源,为程序处理提供原始数据;一个是程序模块,是数据处理的方法和平台。把这两者有机的结合起来,就是一个完整的程序应用系统。 程序运行界面图说明:系统登录界面,只有输入正确的ID和密码才能进行图书馆信息管理系统。说明:图书馆信息管理系统主界面。说明:借书子程序操作界面。说明:还书子程序操作界面。说明:图书馆信息管理操作界面。提供图书新增、修改、删除等功能。说明:读者管理操作界面。提供读者新增、修改、删除等功能。说明:打印模块具有打印图书信息的功能说明:管理员密码维护操作界面。系统登陆界面用户名:1密码:1如果出现打不开问题 请先 打开FoxPro 程序选择程序 -运行-图书馆信息管理系统.exe如遇到路径不存在 问题 直接点击忽略我已经先设置了一个借书人 编号12345 王鑫 图书信息 在任务窗口 可以选择查询附:程序清单程序功能介绍:*-主控程序: main_tsgl.prgclear all 从内存中释放所有的内存变量和数组以及所有用户自定义菜单栏、菜单和窗口的定义。_screen.visible=.f.主窗口VFP不可见set escape off 禁止运行的程序和命令在按 Esc 键后被中断。set talk off 阻止对话结果传送到 Visual FoxPro 主窗口、系统信息窗口set excl off (私有数据工作期的默认方式)允许网络上的任何用户共享和修改网络上打开的表set safety off 指定在改写已有文件时不显示对话框。set dele on 使用范围子句处理记录(包括在相关表中的记录)的命令忽略标有删除标记的记录set century on 指定在包含 10 个字符(包括日期分隔符)的日期格式中,用四位数字表示年。set date to YMD 决定日期在日期时间表达式中的格式: yy/mm/ddpublic M_js,M_hs,mypath,tsgl,demo3 定义变量、数组为公共变量M_js= .T.为变量赋值M_hs= .T.mypath=left(sys(16),rat(,sys(16)把当前路径赋给一个变量set defa to &mypath指定默认的驱动器、目录或文件夹*-dimension demo3创建一维内存变量数组 store .F. to demo1为数组赋值 store .F. to demo2 store .F. to demo3*-传递ID、密码变量-sele 1 激活指定工作区1 ,以下类似use book_table 打开一个表,以下类似sele 2use group_tablesele 3use b_tablesele 4 use user_tabledo form login_form 运行表单read events 当发出 READ EVENTS 命令时,Visual FoxPro 启动事件处理说明: 设置程序运行的环境参数、变量等。*- 密码验证表单: Login_form.scx *- 控件: command1 *- click事件代码如下:select 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(登录ID或密码错误!,0+16+0,提示) 信息提示窗口 thisform.text1.setfocus 控件text1获得了焦点* return .T.else thisform.release从内存中释放表单集或表单do login_app运行程序endif 代码说明:SQL语句从密码表“Pass_word.dbf中选出gly_id,mm,gly_name三个字段的记录与所输入的数据进行比较,如果相等。则把它们赋值到一个数组中,然后执行下一步程序。否则数组为最初所赋的值“.F.”,程序返回到数据输入状态,直到正确输入或者退出。 *- 控件: command2 *- click事件代码如下:thisform.releaseclear events 发出 CLEAR EVENTS 命令停止事件处理代码说明:释放当前表单,清除当前事件。*-联接程序: main_tsgl.prgDO FORM tsgl.scx name tsgl &窗口句柄传递DO Menu_tsgl.mpr WITH tsgl,.t.,.t. 运行菜单代码说明:运行图书馆信息管理主表单以后,再运行菜单组件。*-图书馆信息管理主表单:Tsgl.scx 主要属性: AlwaysOnTop = .F. 其他窗口可以覆盖住表单窗口。 AutoCenter = .T.指定表单对象第一次显示于 Visual FoxPro 主窗口时,自动居中放置 ShowWindows = 2 作为顶层表单 Caption = 岳阳电信-图书馆信息管理系统 V1.0 表单标题属性说明:当前表单优先居前,自动居中,为顶层表单,表单标题为“岳阳电信-图书馆信息管理系统 V1.0”。 *- Init 事件代码如下:bo1.listindex=1 表单上的页中的组合框的属性bo1.listindex=1代码说明:控件“Combol”的数据源是“Group_Table.dbf”,Listindex1,则当前控件“Combol”中所显示的数据为“图书编号”。 *- Resize 事件代码如下:mandgroup1.width = this.width-5thisform.pageframe1.width = this.width-5thisform.pageframe1.height = this.height-100thisform.pageframe1.page1.grid1.width = thisform.pageframe1.width -22thisform.pageframe1.page1.grid1.height =;thisform.pageframe1.height -82thisform.pageframe1.page2.grid1.width = ;thisform.pageframe1.width -22thisform.pageframe1.page2.grid1.height = ;thisform.pageframe1.height -82thisform.pageframe1.refresh代码说明:页框“page1”和“page2”、表格控件“grid1”随当前表单大小的变化而变化。 *- QueryUnload 事件代码如下:thisform.release从内存中删除内存变量和数组。clear events*-借书子程序:Jies.scx *- 控件: command1 *- click事件代码如下:sele 1if thisform.optiongroup1.option1.value=0 当前单选框的值为0 locate for txm=upper(allt(thisform.text2.value) 从表中查找输入的条形码 if not found() =messagebox(没有该图书的条形码!,0+64+0,提示) go top 指针定位到表头 else mand3.enabled=.T. 指定对象可以响应用户引发的事件 endifendif if thisform.optiongroup1.option1.value=1 当前单选框的值为1 locate for tsbh=upper(allt(thisform.text1.value) if not found() =messagebox(没有该图书编号!,0+64+0,提示) go top else mand3.enabled=.T. endif endif thisform.refresh代码说明:根据图书的条形码或图书编号查询所借书目。只有所借书目存在,才能对读者信息进行操作。*- 控件: command2 *- click事件代码如下:thisform.text2.value= 赋文本框text2的值为空thisform.text1.value= thisform.text1.setfocus *- 控件: command3 *- click事件代码如下:sele 4 locate for bh=upper(allt(thisform.text12.value) if not found() =messagebox(没有该读者的编号!,0+64+0,提示) go top mand5.enabled=.T.thisform.refresh代码说明:对借书读者的资料进行确认。 *- 控件: command5 *- click事件代码如下:nAnswer = MESSAGEBOX(确认所借书目的资料无误吗?,4+32+0,重要提示)DO CASE CASE nAnswer = 6 sele 1 If xcsl=0 =messagebox(该图书已经没有库存!,0+64+0,提示) return .T. Else replace xcsl with xcsl-1 ,zccs with zccs+1 现存数量减1,借出数量加1 insert into book_recno (tsbh,txm,sm,bh,xm,jssj,jsbz) ; values( upper(allt(thisform.text7.value), ; upper(allt(thisform.text4.value), ; upper(allt(thisform.text3.value), ; upper(allt(thisform.text13.value),; upper(allt(thisform.text14.value),; datetime(),借出 ) 把当前资料插入到表book_recno中 sele 4 replace yjss with yjss+1 读者资料表中的已借书数加1 Endif CASE nAnswer = 7 ENDCASE代码说明:在确认所输入的图书和读者资料无误后,程序开始对图书资料表、读者资料表、借书记录表这三个表进行修改和录入。MESSAGEBOX( ) 对应每个按钮的返回值。返回值 按钮1 确定2 取消3 放弃4 重试5 忽略6 是7 否*-还书子程序:Jies.scx *- 控件: command1 *- click事件代码如下:sele 1if thisform.optiongroup1.option1.value=0 locate for txm=upper(allt(thisform.text2.value) if not found() =messagebox(没有该图书的条形码!,0+64+0,提示) go top endifendif if thisform.optiongroup1.option1.value=1 locate for tsbh=upper(allt(thisform.text1.value) if not found() =messagebox(没有该图书编号!,0+64+0,提示) go top endifendif mand3.enabled=.T.thisform.refresh*- 控件: command3 *- click事件代码如下: thisform.text13.visible= .T. 显示当前文本框text13sele 4 locate for bh=upper(allt(thisform.text12.value) if not found() =messagebox(输入的读者编号有错吧?,0+32+0,提示) go top else thisform.refresh mand5.enabled=.T. endif*- 控件: command5 *- click事件代码如下:sele 1 replace xcsl with xcsl+1 现存数量加1 insert into book_recno (tsbh,txm,sm,bh,xm,jssj,jsbz) ; values( upper(allt(thisform.text7.value), ; upper(allt(thisform.text4.value), ; upper(allt(thisform.text3.value), ; upper(allt(thisform.text12.value),; upper(allt(thisform.text13.value),; datetime(),还回 ) thisform.refresh =messagebox(操作完成,该书已经归档!,0+64+0,完成) mand5.enabled=.F. 代码说明:还书程序代码和借书程序代码比较相似,请看借书程序代码说明。*- 控件: command7 *- click事件代码如下:M_hs= .T.thisform.release*-图书馆信息管理子程序:Tsgl_tsgl.scx *- 控件: command1 *- click事件代码如下:sele 1if thisform.optiongroup1.option1.value=0 locate for txm=upper(allt(thisform.text2.value) if not found() =messagebox(没有该图书的条形码!,0+64+0,提示) go top endifendif if thisform.optiongroup1.option1.value=1 locate for tsbh=upper(allt(thisform.text1.value) if not found() =messagebox(没有该图书编号!,0+64+0,提示) go top endifendif thisform.refresh代码说明:根据图书的条形码或图书编号查询图书。并且可以对当前所选定的图书进行修改。*- 控件: command3 *- click事件代码如下:sele 4if .not.bof() 如果不到表头 skip -1指针上移一条记录 mand1.setfocus thisform.refresh endif 代码说明:当前所查询的图书资料上翻一条。*- 控件: command4 *- click事件代码如下:sele 4if .not.eof() 如果不到表尾 skip 指针下移一条记录 mand2.setfocus thisform.refresh endif 代码说明:当前所查询的图书资料下翻一条。*- 控件: command5 *- click事件代码如下:x=mess
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 二零二五年度电梯安装与电梯安全教育培训合同范本
- 仁怀市公益性岗位人员招聘笔试真题2024
- 二零二五版工程招投标与合同管理信息化平台升级服务协议
- 2025年电梯广告位租赁与安装服务合同
- 2025版科技公司正式员工健康与安全劳动合同
- 二零二五年电商平台广告宣传保密协议书
- 二零二五年度住宅小区安防监控系统安装合同
- 二零二五年室内装修设计合同纠纷起诉状
- 2025抵押设备进口贸易合同
- 二零二五年创新设计建筑围墙与门楼安装维护服务协议
- 医疗健康领域的数字化人才培养计划
- 汽车贴膜外包合同范本
- DB31/T 1341-2021商务办公建筑合理用能指南
- 综合门诊部管理制度
- 特岗服务协议书
- GB/T 10250-2025船舶电气与电子设备电磁兼容性金属船体船舶
- 2025年自动驾驶卡车在港口物流中的应用与挑战报告
- 菜籽饼供货合同协议
- 穿电缆合同协议
- 风力发电征地合同协议
- 夏令营安全知识课件
评论
0/150
提交评论