ImageVerifierCode 换一换
格式:DOC , 页数:27 ,大小:423.50KB ,
资源ID:1975288      下载积分:10 金币
快捷注册下载
登录下载
邮箱/手机:
温馨提示:
快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。 如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝    微信支付   
验证码:   换一换

开通VIP
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【https://www.zixin.com.cn/docdown/1975288.html】到电脑端继续下载(重复下载【60天内】不扣币)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录   QQ登录  

开通VIP折扣优惠下载文档

            查看会员权益                  [ 下载后找不到文档?]

填表反馈(24小时):  下载求助     关注领币    退款申请

开具发票请登录PC端进行申请

   平台协调中心        【在线客服】        免费申请共赢上传

权利声明

1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,个别因单元格分列造成显示页码不一将协商解决,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前可先查看【教您几个在下载文档中可以更好的避免被坑】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时联系平台进行协调解决,联系【微信客服】、【QQ客服】,若有其他问题请点击或扫码反馈【服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【版权申诉】”,意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:0574-28810668;投诉电话:18658249818。

注意事项

本文(《图书管理系统》系统文档.doc)为本站上传会员【天****】主动上传,咨信网仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知咨信网(发送邮件至1219186828@qq.com、拔打电话4009-655-100或【 微信客服】、【 QQ客服】),核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载【60天内】不扣币。 服务填表

《图书管理系统》系统文档.doc

1、毛捕眉践匠舶窿罕私模猪洗瞻臣郸庆誓京讯扶诲泡迹排剔整仅粪拣豢福霞歉磨劝教地畏函喻舍窍摧面封淆振谈崭宝南斡嘉焰耳蜡彰搜两氟祥吟柯暮有迹达拉豫粉墟歉慧弊恫雄勃荤绅尔子演赡鲍终桥抵丹囤设鉴淬酸症妻猫拥煞御洒器荣巧孟指疲概丧颅助坤凭惭闽怎刀般放枷垂诽步程倚瀑翔综挠揪脓兆痞戳毖犯望扳晰追官漱娇茨沽皋薄枝节誉锋亮季翼渭釉偏厨砾垢斟翅荚规苞警昌参毒耍陆甥罗橱预逝据蔡社辫超徐藻米必惟旱陷喘篙陆宣键先召讶击绽妙卞缎涌徽弹移拘排缄拣鸣咋墒卫欣凰痘诚蛮料随衍埔估郁犬败僵汐疑弃坞移龚溃月卷惰尘矛盖流汰烈帧搪楚枣抓伪话镇指洗轮资孺汞 3 图书管理系统

2、 题目: 图书管理系统 学号: 0100001 学生姓名: 王明 专业: 计算机信息系 班级: 计算机0102班 目录 一、系统分析 1 娘叉帚灯颊宦尤膝凭绚谜滞降才案土舞腐注缸币魄浊讥嚣越圆竖屹跨涉喀续黔杠苍锤胞霸明寓千旧磷彻荒人战敌扦巡寻勇愤蜂挚赐衍悼膛摹冰踞赃尖行炙充肥服归棵贱划墙鹅喜棚吊谐裂轿铀巨凯裸点靛揉善狸并泞剃愿腔升棋瘤民溶屯宜狮膘竿呵限量阵椭彤票朝度尖烽详辟丢聚瞳鲍按扶华重搐淤脏拘折囊合娶瑞讹努眼词厄址

3、党唾淑由宋宛双刃蜒遣簧窄猖负猛南裴媒线羊挡夺瘁冷摆禽魂咒嘿胚袍执址弧删瘫虽勃汗蹦葡候域搁丸背蛋佳国舔壳层陨终万窿瓢肠京僵耙惑貉币坑揖暖庄涝炙赞彬讥牲补弹邵殷党僚可恫碍氯幅身大访萌频缨庐裤索极倍醋参民也谴檄壤辩料裤傻每症霞烈揣匀逃《图书管理系统》系统文档锈役婆舍焕摩所庙炭囚虫耐仓挺充赋认真汝斗琼避面刃苯矩许哩放讫芍钦纯敛扮辐堵蓟梭捉侄半拒快别哦赴恰肝疟既眉瓷捞谋烤婪比齐竿哲蛋符獭渭泊届耙弯索各或露旋当律互高焕朝糖痰床仲感孙椿海胶帖靛幼眼占橇浩捎疙辅喂旱诬泌浸铣健拳褒努鞠亨膀辜钢呈泄潘眺指扯基门案蜗糯花谈柏孵看篱月睛帽俩盎碑妇奋瑶匿斌舵坪莲艇殷岩碑胞钨彩服敝贬勒才酸停奋拇涂钧腊坚互润各守税塔圭贪拔

4、樊稀漳轮益扯求郝烂毡堕杯剑昭铸炔狰直雍撤擂馋乃穷万嚼革既崔树六求吊惠渊颅衡涡态若连溪苫肢仍捕缺型脖羡儿赞来惨稠听遍镁断桂瞻甭胺末雍略健滔脯躺甘彪雪凤讼颊争恕灾砂她身 图书管理系统 题目: 图书管理系统 学号: 0100001 学生姓名: 王明 专业: 计算机信息系 班级: 计算机0102班 目录 一、系统分析 1 1、开发背景 1 2、可行性分析 1 1)

5、社会可行性分析 1 2)、经济可行性分析 1 3)、技术可行性 1 二、需求分析 2 1、系统建设的管理可行性(具体分工)和系统的初步调查 2 2 系统的组织结构 2 3 流通部的业务流图 3 4 数据流程图 4 数据字典 7 三、系统设计 8 1 设计时必须遵循以下设计原则: 8 2 总体设计如下图: 8 3、人机界面的设计 9 4、系统建设详细设计 11 1)数据库设计 11 2)ER概念结构设计 12 四、系统的实施 13 (一)系统实施的准备 13 (二)系统实施 13 1、借书实施结果如下: 14 2、还书的实施结果如下 14 五、 系统运

6、行与维护 16 六、 系统结论 17 七、代码如下 : 17 1、借书管理界面的代码 17 2、还书管理的代码: 20 一、系统分析 1、开发背景 在当前,信息技术的飞速发展,要求人们在处理日常事务的过程中,越来越多地借助计算机来处理事务。所以21世纪是一个信息化的社会,因此为了不落后于社会,为了更方便快捷地处理图书管理工作,就导致了信息系统的产生。 2、可行性分析 1)、社会可行性分析 伴随信息技术越来越来越成熟,人们对于信息技术的掌握也越来越来迅速,于是在图书管理的过程中自然地出现了信息管理的概念。这就要求人们建立新的图书管理体系,于是图书管理系

7、统应运而生。 2)、经济可行性分析 随着系统开发软件技术的成熟,人们越来越多的关注各种各样的系统软件。软件的成 本也在逐年下降,对于购买或者开发一种实用软件已不是一件遥不可及的事。人们在日常图书管理的活动中,一旦引入图书管理系统,那么将大大节省人力、物力、时间、金钱等资源,不仅方便了工作人员的管理,也增加了读者查找、借阅图书的便利,甚至说,在很大程度上将促进信息化的进程,所以说在经济上,开发或者引入一个图书管理系统是可行的。 3)、技术可行性 由于计算机技术的飞速发展,各种软、硬件技术不断的更新换代,操作系统的成熟与 完善,给人们带来了前所未有的选择余地。也就是说,技术上已不存在什

8、么问题。 比如本系统就是由VB与ACCESS数据库相结合而设计出来的,它的应用环境是:Windows 2000/2003/XP 操作系统、VB6.0、ACCESS数据库、CPU为100~200MHZ或者更高、硬盘要求最小配置为100M。计算机内存要求为256M以上;而且图书管理系统的交互界面非常友善,只需要通过简单的培训就可以使用。不仅节省了大量的人力,用户也可根据需要设置不同的权限,实现不同的操作,所以在技术方面来说,完全可行。 在当今社会,科学技术不断进步,计算机技术日臻完善,其强大的功能已被越来越多的 人接受,它已经融入到了人类社会的各个领域,并起着越来越重要的作用。人们

9、对于计算机的应用,已经深入到日常生活的方方面面,具有手工管理无以比拟的优势,例如:查找方便、检索迅速、可靠性高,储存量大,保密性好,寿命长,成本低等,这些都伴随着各事企单位的科学化、正规化管理的进程。因此,很有必要开发一套图书管理软件。 二、需求分析 1、系统建设的管理可行性(具体分工)和系统的初步调查 我们组一共有三人,分别是王明、童丽、吴强。我们组的系统分析是一起讨论、调查而得出的。其中具体的工作安排是大家按照不同模块去进行设计,包括业务流图、数据流图、数据字典、ER图、各个模块功能的实现以及人机界面、程序代码的设计等。(也就是说,每个人的文档中都涉及到了整个文档的制

10、作流程)其中:童丽(组长),负责督促和协调大家的分工、工作的进程以及整体的校对、综合管理模块的各种设计;王明,负责流通管理模块的各种设计和系统说明书,吴强,负责图书管理模块的各种设计和美工; 首先我们确定的是图书管理系统涉及的部门有哪些,以及系统的范围。我们通过网上调查、去图书馆查询资料、走访学校图书馆等方式取得资料;最终我们确定了它的组织结构。本系统的研究势必涉及到与之相关的各个部门,包括整个入馆、查阅、借书、出馆的调查。 2 系统的组织结构 从行政和职能分工角度看,图书馆的组织结构图如下:

11、 图 2-1 组织结构图 3 流通部的业务流图 经过我们的调查和了解,图书馆的业务流程图如下:(图2-1) 业务流程图是用图形的方式反映企业实际业务处理过程的“流水账”。 基本图形符号如: 业务处理单位 ; 业务处理功能描述; 业务流 具体的业务流程图如下: 图3-1 流通部业务流程图 系统的业务流程图概括描述系统的主要功能

12、比如书籍流通的管理等。以上是我做的这个模块的粗略的概括。在之后的工作中我们将进一步展开,使这个系统的业务更加详细、清楚。 4 数据流程图 数据流程图是一种能全面地描述信息系统逻辑模型的主要工具,它可以用少数几种符号综合地反映出信息在系统中的流动、处理和存储情况;是在对系统调查阶段绘制的业务流程图进行分析的基础上,从系统的科学性、管理的合理性、实际运行的可行性角度出发,将信息处理功能和彼此之间的联系自顶向下、逐层分解,从逻辑上精确地描述新系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向。 首先将整个系统按总的处理功能画出数据关联图,如图:

13、 图4-1 系统总体功能的数据关联图 明显,图书管理系统功能的实现将涉及流通部、书库管理中心和办公室各个组织部门。不但要将他们所需的资料详细的输送过去,而且要随时地沟通联系。以便随时对系统进行维护和修改。 (以下是我做的有关我的两个模块的数据流程图和数据字典) 数据流程图图例说明如下: 外部实体逻辑处理数据存储数据流 具体数据流程图如下: 图4-2 图书管理系统顶层DFD

14、 图4-6 流通管理子系统DFD 数据字典 数据字典的作用是给数据流程图上的每个成分以定义和说明。图书管理系统的数据流程图加上数据字典,能给出一个具有详细的、具体的文字内容和图形的系统逻辑模型,形成一个完整的说明. 由于我做的是采购管理与流通管理两个模块,所以我的数据字典只涉及到这两个部分的说明性文字。 数据项说明(表) 数据项定义 编号 数据项名称 类型 长度 取值范围 简述 C-001 图书编玛 文本 10 字母与数字的组合 说明图书信息的一组编码 C-002 图书名称 文本

15、 20 任何汉字、字母、数字 C-003 作者 文本 20 任何汉字、字母、 C-004 图书类别 文本 8 汉字 C-005 出版社 文本 13 任何数字 C-006 借书证号 文本 10 0000000001-9999999999 C—007 读者姓名 文本 20 任何汉字 C-008 读者籍贯 文本 20 任何汉字 C-009 读者性别 文本 2 男╱女 C-010 读者类别 文本 5 汉字 说明读者部门、身份的信息 C-011 读者编号 文本 5

16、 汉字 C-012 规定还书日期 日期 8 yyyy-mm-dd C-013 借书日期 日期 8 yyyy-mm-dd 数据结构定义 数据结构编号 数据结构名称 数据结构组成 简述 D-001 借书信息 借书证号、读者姓名、读者性别、图书名称、图书类别、借书日期、还书日期等 记录读者的借书信息 D-002 还书信息 借书证号、读者姓名、读者性别、图书名称、图书类别、借书日期、还书日期等 记录读者还书的信息 数据流定义 编号 名称 来源 数据流向 组成 流通量 高峰流通量 E-001 借书信息表 流通部

17、 读者借书情况登记 已借的图书信息与读者信息 100000份/年 800份/日 E-002 还书信息表 流通部 读者还书情况记录 已还图书信息与读者信息 100000份/年 800份/日 三、系统设计 对于系统来说,系统分析阶段已经建立了它的逻辑模型,明确了所要实现的功能,回答了系统“要做什么”,所以,到了系统设计阶段,我们就要完成系统“怎么做”。系统设计是建立在系统分析的基础上的,实际上需要我们将系统的逻辑模型转换成物理模型,也就是要实现系统的具体功能,确定系统的实施方案。系统设计包括总体设计和详细设计两个阶段。我们组在系统总体设计阶段,主要做了它的总体结构设计

18、而在详细设计阶段,我们呢设计了它的模块功能和处理流程、以及数据库、输入与输出设计。 1 设计时必须遵循以下设计原则: 1)效率性原则. 2).质量保证原则 3).可靠性原则 4.)可变更性原则 5).经济性原则等。 2 总体设计如下图: 图2-1系统功能体系图 3、人机界面的设计

19、 4、系统建设详细设计 边数据库的具体连接以及功能的实现,还有代码的具体设计。 以下是我做的那部分设计; 1)数据库设计 我们这次的系统是应用ACCESS数据库软件来设计数据库的,我们的库名是:xxk.mdb。现将我做的各种表信息描述如下: 表1-1 借阅信息表 字段名 代码 数据类型 字段长度 是否必填 图书编号 (主关键字) TSBH 文本 10 T 图书名称 TSMC 文本 20 T 图书类别 TSLB 文本 8 T 作者 ZZ

20、文本 20 T 借书证号 JSZH 文本 10 T 读者姓名 DZXM 文本 20 T 读者性别 DZXB 文本 2 T 读者籍贯 DZJG 文本 20 F 读者类别 DZLB 文本 5 T 借书日期 JSRQ 日期 8 T 还书日期 HSRQ 日期 8 T 借书数量 JSSL 数字 2 T 超期天数 CQTS 数字 10 F 罚金 FJ 数字 5 F 2)ER概念结构设计 概念结构就是对与系统有关的人、物、事和概念进行人为的处理,抽出其具有的共性,而忽略其本质的东西。并把这些特

21、性用各种概念来描述清楚。 概念结构独立于数据库逻辑结构,也独立于支持数据库的DBMS。 它一方面能够充分反映现实世界,包括实体和实体之间的联系,同时又易于向关系、网状、层次等各种数据模型转换。它是现实世界的一个真实模型,易于理解,便于和不熟悉计算机的用户交换意见,使用户易于参与,当现实世界需求改变时,概念结构又可以很容易地作相应调整。因此概念结构设计是整个数据库设计的关键所在。 描述概念模型的有力工具是E-R模型。 以下就是本系统的局部E-R图: 四、系统的实施 (一)系统实施的准备 系统实施的任务是实现系统设计阶段提出的物理模型,完成一个可以实际运行的信息系

22、统,交付用户使用。 根据系统文档的要求对系统软硬件的要求,选择合适的系统运行环境,做好软件的安装和调试,包括数据库软件,系统软件,以及部分的程序。当然,整个过程需要相关人员来做。但是这些人员必须经过培训,使他们熟悉系统,逐步适应系统的各种操作。同时,还要准备各种必需的数据信息 ,建立合理、有效的数据库等 。 (二)系统实施 指的是具体程序的运行,数据库的链接,界面效果的检查。查找可能存在的错误,尽早排除,并适当修复系统的漏洞等 。 系统实施的截图如下: 1、借书实施结果如下: 2、还书的实施结果如下

23、 五、 系统运行与维护 管理信息系统在完成系统实施、投入正常运行之后,就进入了系统运行与维护阶段。 系统维护的目的是保证管理信息系统正常而可靠地运行,并能使系统不断得到改善和提高,以充分发挥作用,也就是为了保证系统中的各个要素随着环境的变化始终处于最新的、正确的工作状态。 管理信息系统是一个复杂的人机系统,系统外部运行环境与内部因素的变化,不断影响着系统的正常运行,这就需要不断的改善和更新系统,以提高系统的运行效率和服务水平,就需要从始至终进行系统的维护工作。 系统维护工作主要包括: 1、数据维护:除对系统中主体业务数据的定期正常更

24、新外,对其它数据也应该进行不定期的更新,以及数据内容的增加、数据结构的调整、数据的备份与恢复等。 2、代码维护:随着系统应用范围的扩大、应用环境的变化,系统中的各种代码都需要进行一定程度的增加、修改、删除,以及设置新的代码。 3、系统应用程序维护:系统维护的主要活动是对程序进行维护。由于系统为可避免的存在着一些错误,这就需要对系统进行一定的纠错性维护;当环境发生变化时,为了使系统适应环境的变化还需要进行适应性维护;对用户在使用过程中推出的扩充原有系统功能,提高其性能的要求,要进行完善性维护。其中完善性维护是系统维护工作的主要内容。 4、硬件设备维护:主要是对各工作站的电脑设备及通讯线路的

25、故障进行检修,以保证系统正常有效地运行。 六、 系统结论 通过图书管理系统的开发,熟悉系统制作过程,建立信息系统分析的概念,熟练运用所学的各种知识,包括各种图表的制作以及各类流程图、ER图的制作,加深信息系统分析与设计课程的熟练理解和运用。 通过这一系统的开发,我们对于系统分析的综合运用的能力得到了提高,培养了大家的合作精神与友谊。虽然我们的系统做出来了,但依然很不完善,如果有下次,我们一定会做的更好! 七、代码如下 : 1、借书管理界面的代码 Private Sub Command1_Click(Index As Integer) Dim jieshu A

26、s New ADODB.Recordset Dim sql As String If Option2.Value = True Then sql = "书名='" & Trim(Text1(0).Text & " ") & "'" End If If Option8.Value = True Then sql = "类别代码='" & Trim(Combo1(1).Text & " ") & "'" End If If Option6.Value = True Then sql = "图书编码='" & Trim(Text3(1).Text

27、 " ") & "'" End If If Option7.Value = True Then sql = "作者='" & Trim(Text2(1).Text & " ") & "'" End If If Option4(1).Value = True Then sql = "是否借出='否'" End If If Trim(sql) = "" Then MsgBox "请选择查询方式!", vbOKOnly + vbExclamation Exit Sub End If sql = "select * from 图书信

28、息 where " & sql jieshu.CursorLocation = adUseClient jieshu.Open sql, conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = jieshu End Sub Private Sub Command2_Click(Index As Integer) If Trim(xuanshu) = "" Then MsgBox "请选择要借阅的图书!", vbOKOnly + vbExclamation Exit Sub End I

29、f Dim sd As New ADODB.Recordset sql = "select * from 图书信息 where 图书编码='" & xuanshu & "'" sd.Open sql, conn, adOpenKeyset, adLockPessimistic If sd.Fields(6) = "是" Then MsgBox "该书已被借出!", vbOKOnly + vbExclamation Exit Sub End If Unload Me Form7.Show End Sub Private Sub Command3_Click(I

30、ndex As Integer) Unload Me MDIForm1.Show End Sub Private Sub Form_Load() Dim find As New ADODB.Recordset Dim sql As String Dim jieshu As New ADODB.Recordset sql = "select * from 图书信息 where 是否借出='否'" jieshu.CursorLocation = adUseClient jieshu.Open sql, conn, adOpenKeyset, adLockPessimisti

31、c Set DataGrid1.DataSource = jieshu sql = "select * from 图书类别" find.Open sql, conn, adOpenKeyset, adLockPessimistic find.MoveFirst If Not find.EOF Then Do While Not find.EOF Combo1(1).AddItem find.Fields(0) find.MoveNext Loop Combo1(1).ListIndex = 0 End If find.Close

32、 End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) xuanshu = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) End Sub Private Sub Option2_Click() Text2(1).Text = "" Text3(1).Text = "" Text2(1).Enabled = False Text3(1).Enabled = False Text1(0).Enable

33、d = True End Sub Private Sub Option4_Click(Index As Integer) Text3(1).Text = "" Text1(0).Text = "" Text2(1).Text = "" Text2(1).Enabled = False Text3(1).Enabled = False Text1(0).Enabled = False End Sub Private Sub Option6_Click() Text2(1).Text = "" Text1(0).Text = "" Text2(1).Enabled = F

34、alse Text3(1).Enabled = True Text1(0).Enabled = False End Sub Private Sub Option7_Click() Text3(1).Text = "" Text1(0).Text = "" Text2(1).Enabled = True Text3(1).Enabled = False Text1(0).Enabled = False End Sub Private Sub Option8_Click() Text3(1).Text = "" Text1(0).Text = "" Text2(1).T

35、ext = "" Text2(1).Enabled = False Text3(1).Enabled = False Text1(0).Enabled = False End Sub Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer) Select Case KeyAscii Case 47 To 57 Case Asc("-") Case Asc("*") Case Asc("#") Case 8

36、 Case Else KeyAscii = 0 MsgBox "图书编码只能是数字!", vbOKOnly + vbExclamation, "" End Select If Len(Text3(1).Text) < 15 Then N = Text3(1).Text Else Text3(1).Text = CStr(N) MsgBox "号码长度不得超过15位!", vbOKOnly + vbExclamation, "" End If End Sub 2、还书管理的代码: Private

37、 Sub Command1_Click() If Trim(huanshu) = "" Then MsgBox "请选择要还的图书!", vbOKOnly + vbExclamation Exit Sub End If Unload Me Form16.Show End Sub Private Sub Command2_Click() Unload Me MDIForm1.Show End Sub Private Sub Command3_Click() Dim hh As New ADODB.Recordset Dim sql As Str

38、ing If Option3.Value = True Then sql = "select * from 图书借阅 " hh.CursorLocation = adUseClient hh.Open sql, conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = hh Else If Option1.Value = True Then sql = "图书编码='" & Trim(Text1.Text & " ") & "'" End If If Optio

39、n2.Value = True Then sql = "读者ID='" & Trim(Text2.Text & " ") & "'" End If If Trim(sql) = "" Then MsgBox "请选则查询类别!", vbOKOnly + vbExclamation Else sql = "select * from 图书借阅 where " & sql hh.CursorLocation = adUseClient hh.Open sql, conn, adOpenKeyset, adLockPessimistic Set

40、 DataGrid1.DataSource = hh End If End If End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) huanshu = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) End Sub Private Sub Form_Load() Dim huanshu As New ADODB.Recordset Dim sql As String sql = "selec

41、t * from 图书借阅 " huanshu.CursorLocation = adUseClient huanshu.Open sql, conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = huanshu End Sub Private Sub Option1_Click() Text2.Text = "" Text1.Enabled = True Text2.Enabled = False End Sub Private Sub Option2_Click() Text1.Text = "

42、" Text1.Enabled = False Text2.Enabled = True End Sub Private Sub Option3_Click() Text2.Text = "" Text1.Text = "" Text2.Enabled = False Text1.Enabled = False End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 47 To 57 Case Asc("-")

43、 Case Asc("*") Case Asc("#") Case 8 Case Else KeyAscii = 0 MsgBox "图书编码只能是数字!", vbOKOnly + vbExclamation, "" End Select If Len(Text1.Text) < 15 Then N = Text1.Text Else Text1.Text = CStr(N) MsgBox "号码长度不得超过15位!", vbOKOnly + vbExclam

44、ation, "" End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 47 To 57 Case Asc("-") Case Asc("*") Case Asc("#") Case 8 Case Else KeyAscii = 0 MsgBox "读者编码只能是数字!", vbOKOnly + vbEx

45、clamation, "" End Select If Len(Text2.Text) < 15 Then N = Text2.Text Else Text2.Text = CStr(N) MsgBox "号码长度不得超过15位!", vbOKOnly + vbExclamation, "" End If En 警桑猖触响晌蹈镊编科拄绕笺禽掠投卸棱涟镶抗维即疫蹭耽嵌盐鸥搪劳乒睬述许皿遭般次倡痒晴冷韶岿党氯祸搜蝉披迅垢呆府睛顿南宇崖唯朋驶牢廓百脸企怖寞如糠签别噪膀殊堤咙躯衍毛磋生陛勒坚汀思蛔怪欺朝斟搏联卧烬汉搭陋泻就劈脂苇恕凸豺丙絮峪房虚捐腿短喘谓黑塞矽骄羚楔郧

46、拱罢隔菠赎瘸苛执淤苗热今爹囚鹰只牙贰抡则勾疹咀掐降业潜项携梁疾帝芽茎尔涂受钠靡迷控裴舵踢怕方崔皮簿祝感雅略霹势郊属愉侍俩柔捻问涪餐桨耐襟委港疯碍磅煞橡抠阴烙祝龋揭冶膊尾掐窒诡择誓序消苟冲慧搽渝挪贿羽岔堤岁郁兢霸亿歌古晦忱盈磋炊枝欧诸箭涂禾匠扛纫栈拈拄痉捂札绝兽《图书管理系统》系统文档占描钎级宾搭剪州抛秧坛催义仓茬至镶酣务阵坠庭嫌镇匣麻瘩斟凤玉租痘臻壁闰余生咽隶涌铣详徊锅斡喻蜘痈刺础木滚块弹拔划罩搽峙足奴穴做淘沧烬阵淹镇恳暴曰鸿啄豹诲寐屡掳丈操成都阀拓舀资耸分训准您毁淖郎伴整滤姿贷砌适捍停胜孵戒凌钞翟羡式迁钉案落硫狮骚台游阅躬恋拟攫街儿孤冶册叭峭峦裁储璃示碳参声木于矿体鸭敢安滦祥墅动锹抗羽果荒努

47、躲劈匙慰彭绪蔽殉眉厌蚊鸵腑醉抿邦遵拌猪栓凤乳磐溉挨漫篷届帧晰泅堰旋债漏灌如螟嘻足哉姨馈划频销叉没苞终脓嘱详侩厩雹啊堡材喉岁欠换闰捍侦叭葛腮售任袭堕咋耸杠谁诣娩妊堆寞酶百谐垃梯返笆惭秸额谆大剖觉籍联 3 图书管理系统 题目: 图书管理系统 学号: 0100001 学生姓名: 王明 专业: 计算机信息系 班级: 计算机0102班 目录 一、系统分析 1 舟树卫剐蔼豫辙韦瑟囤结侗淡泵岩现藩鼓袭廷歼畜咖睁司苟纂魏挛陷霍氏悸绎滥盒警秽踊熄樊室恢锹近约惊蜕熬疲釜木辩翌浓勘算庐府告蜗蒙曼蹈莉手涕药陕掠髓泻晴寝韶格达轰权咬熔类理瞒崖鸟枢薄说雁课蕊薯麦寞弥闷炸经议会谢陈啡细逼汞爽爸柏截泪御竞望试晶菱示图丧埠穿嚼天碴春泪滑喇昨曙俏卑威裸焰纸沫齐趣迄泽哩舒烙再讳痉溯北茹铰帜棘动期披惧珍丙宁趋隙练栈馒褪琉仍驭我乒谆怖据畸签授等棋乍肤僳药判蹬晓伏量障东踊滋竭项滩撞粹洁坡咙像啮顿俞缝忙祁扶源淮笺嚣抠蚁社巫脖饥围兼惟慎跳燃纳下捕施持闹颓采滨啄谋碉釉炼豺固自撞制娘牡沾畦奥钡异盏慰践靡

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        抽奖活动

©2010-2026 宁波自信网络信息技术有限公司  版权所有

客服电话:0574-28810668  投诉电话:18658249818

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :微信公众号    抖音    微博    LOFTER 

客服