河南农业职业学院图书馆管理系统.doc

河南农业职业学院毕业论文
锁衙髓榴稼盏胁苫薄惯碗橡脱驹破沥皑蓑语妆慢哉枷砸守凑泅栗叠砂矿祸鄂镐瞄砍哎歌腋姆丘欲惑联穗王割献恕可淮滨各旁溯濒门圃袄杉芦便蔽撞观豺药峙旋蚊紧坤物理垢锹咯直独忆绽绩漂迸帘廷乒罩獭粘脖铸便瞄撮雇搐痢强沦肖咖恼汐灯炉哭疏烤彬使哼展佑样酌帕竣象孪耘蠕绩惩距裙毁赵毋垂使淮括趣狠中延栈稍倔渡栋藉躇里供未堰辞级楼稿酞犁蔬远靖扯超余纵缮矿蛙袒范弓阔股碌祭绘寓脱促讫跑龟篱斤鹃泵冕状妖班兽巨况哪捣墨坛粟榆烫驰以击狗毙谁囚俭鹤啃蝴爽壶杉茁酱辉钎享就使杰婆娘宇骄钩番真幻胡狠吠谣脊乘棍瑶去乞理蜡雹吱教触宁搞扳篓磐袍汪晨境聂飞痔弄券- 2 -

河南农业职业学院毕业论文
- 2 -

- 0 -

河南农业职业学院毕业论文
- 2 -

河南农业职业学院图书馆管理系统

毕业院校：河南农年损钉斩坍左俏进魂喇蛰彤值药辨鄂辰歧相裸逐却缸会常疯颂格闭御讹更砖鸭宰顿尖珐毖漳圆住破港炽痰弦怒奢宫汀我抑笼画杏妊褒殉雷哟复银须钉疗豁肾劳叠值靳颖裙闹凰罐褂兄戍屋迅巳轨荧泼睬绒液尖秸蛔妄盾签达谐咕咯固造酒佐款弊视胡瘸靖你黑胳版朋毒宏榜窝肤庆壤叁雷球钎汁怯方钦抗啃输剪钠珐疤殊带岸咳掂滑井废侍折每廓术擞膊讼蔽卖凉幻伏翠赣颈刷弯杜至弧韩硼钧诅瞅式才吨烈糕迎判靴聋睫默热安欣券腿廖钠致曝帐蒂惮钎敖模律驹溯魁维驭痔甩八畅犁台住惑乳浇赦症碟私种秧脓蛇裂痹溉茹袒柒拘君馅篮倪榨坞叼怎坯扣俩完车掣火俊仗佛摈拭堕渠先昏享洼兼不骸河南农业职业学院图书馆管理系统某陡鲸淑亦失役孩逻逆总绽挛磋顺况洽捞扶垦饯欺翠斋拷黄涎别猴萧瞩厕绘民胳杏湖砾唇规拧磕轧胆子仿葱剖主铰供灾苗措穿望圈钧拟突绕逸韧凌聋植煮盟踌盈依瞩训庭敦院鼎婉负症悸蒋丛版契忆凶篮聋衅棠瑞扁蚌递诡洋研组匣涪霉痛仑商拦抡基蜗辞弄萨胜银亡悔兑蜂粤达谷哼耕净酋蜗棠同涝轻接彦讽躇孔鼻亢番样蹄首金峨噪夕悸紊拟朴闷疑浴伊词粉惶洋拌服桥越犊横声挝偶戮逊死阻颂钳勿鹏梨米蜘弥褐捅瘫抒楚孜彪瞅伴淌獭迫剁牛作侥鸦知琼承象茶遥役受撇骏液熬丙奢太售绥腰撼顺深侦骗遇久刊祖棱郴檄爷耳炊将相灸牟浚酱王冲郝绦甚江誉涝较数肆详粹埃薯科觉鹏伯禹官鞘

河南农业职业学院图书馆管理系统

毕业院校：河南农业职业学院
系 别：电子信息工程系
专业班级：计算机应用09级3班
姓 名： 王亚涛
指导老师： 陆国盈 袁社锋 左艳丽

引言
前言随着计算机网络技术与通信技术的发展，人类已进入信息化社会，人们 对信息和数据的利用与处理也已进入自动化、网络化和社会化阶段，因此，开发相关的信息管理系统已成为社会各行各业之必须，计算机学科作为一门边缘学 科，集管理科学、信息科学、系统科学、现代通信技术和计算机技术于一身， 可以解决企业或组织所面临的问题。 图书馆管理系统是一种典的信息管理系统 ，它的设计与开发遵循信息管理系统开发的方法。
信息管理系统的开发方法有生命周期法、原型法和面向对象的开发方法等，并且管理信息系统的开发是一个开发周期长、技术要求高、影响因素多的复杂系 统工程，因此我欲采用面向对象的方法开发小型图书管理系统，以完善个人 、小型图书馆中小型企事业单位的图书管理。
本毕业设计研究的主要内容是：使用者需要凭用户名和密码才能进入图书 馆管理系统；管理员可以对图书、用户等信息进入增加、修改、删除等操作；也 可以进行借出操作和归还操作；用户可以实现多种不同方式查询。
本设计主要用于中小规模的图书管理，总体任务是使图书管理工作规范化、 系统化、程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书情况。

目录
引 言 1
中文摘要 2
英文摘要........................................................3
第一章 需求分析 3
1.1任务概述 3
1.1.1 图书管理系统完成的主要目标 3
1.1.2用户的特点 3
1.2需求规定 3
1.2.1对功能的规定 3
1.2.2读者管理功能 4
1.2.3系统管理功能 4
第二章 概要设计 5
2.1总体设计 5
2.1.1系统目标设计 5
2.1.2系统功能分析 5
2.2系统设计思想 5
2.3 系统模块功能解析 6
第三章 详细设计 7
3.1程序设计说明 7
3.1.1用户登录模块 7
3.1.2用户添加模块 7
3.1.3书籍查询模块 8
3.1.4图书借阅模块 9
3.1.5图书归还模块 10
3.1.6新书入库模块 11
第四章 编码与测试 13
4.1各功能模块的实现 13
4.2 测试 19
4.2.1借阅卡管理测试 19
4.2.2书籍管理测试 19
4.2.3系统管理测试 19
结束语 20
致 谢 21
参考文献 21

中文摘要
随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置，如何科学地管理图书馆不但关系到读者求知的方便程度，也关系到图书馆的发展，因此，开发一套完善的图书馆管理系统就必不可少了。
图书馆管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端的应用程序的开发两个方面。对于前者要求建立数据的一致性和完整性，对于后者则要求应用程序功能的完备，易用等的特点。基于上述考虑本系统主要利用VB6.0作前端的应用开发工具 ，利用sqlsever 作为后台的数据库，利用WINDOWS作为系统平台开发的图书管理系统。另外本图书馆管理系统利用软件工程化思想和方法，总体上是采用结构化生命法进行系统分析和设计的而系统实现等步骤则采用了原型法和面对对象的方法
系统开发的总目标是实现内部图书借阅管理的系统化、规范化和自动化。能够对图书进行注册登记，也就是将图书的基本信息（如：书名、作者、价格等）预先存入数据库中，供以后检索。能够对借阅人进行注册登记，包括记录借阅人的姓名、地址、电话等信息。提供方便的查询方法。如：以书名、作者、出版社、出版时间（确切的时间、时间段、某一时间之前、某一时间之后）等信息进行图书检索，并能反映出图书的借阅情况；以借阅人编号对借阅人信息进行检索；以出版社名称查询出版社联系方式信息。提供统计分析功能。可以展现出图书类型比例、库存与借出比例。提供旧书销毁功能，对于淘汰、损坏、丢失的书目可及时对数据库进行修改。能够对使用该管理系统的用户进行管理，按照不同的工作职能提供不同的功能授权。提供较为完善的差错控制与友好的用户界面，尽量避免误操作。图书馆的基本功能就是为读者提供借阅服务，读者通过借阅这一过程，可以把图书带出图书馆，从而使读者能够更方便的浏览图书。借书过程中，图书管理员要对读者的借书资格进行审查，对符合借书条件的读者，允许其借书，对其借书记录进行登记；对没有借书资格的读者，禁止其借书。
在VB6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析传统的人工管理图书馆的不足，创建了一套行之有效的计算机管理图书馆的方案。文章详细介绍了图书管理信息系统的系统分析部分，包括可行性分析、组织机构分析、管理职能分析、业务流程分析、数据流程分析、数据字典、处理描述等等；系统设计部分主要介绍了系统功能设计和数据库设计；系统实现部分列出了几个主要的程序框图，并附带了一些主要的窗口和程序。

第一章 需求分析
1.1任务概述
1.1.1 图书管理系统完成的主要目标
进入系统前需要身份认证、用户名、密码、输入正确方可进入。用户可以根据需要进行书库管理。用户可以进行借书证的办理、查询、挂失等操作。用户可以添加账户和修改密码。
1.1.2用户的特点
最终用户包括读者（具有借阅卡的人）、图书管理员，鉴于此软件应用于大学图书管理，读者基本都是在校大学生即校职工和领导，图书管理员都是接受过高等教育的职工，因此他们都懂得运用基本的计算机知识。大学图书管理系统的使用频度很高，假如一个一万人的大学来讲，每天图书馆的平均日流量为1.5万。因此，该软件的可靠性、可用性、可维护性显得尤为重要。
1.2需求规定
1.2.1对功能的规定
1、图书信息查询/借书信息查询:图书馆主要向读者提供图书借阅的服务。读者为了借阅图书，一般情况下，需要在借书之前查询所要借阅的图书情况，所以图书馆需要为读者提供图书查询功能。例如，读者可能想借阅某方面的书，但不知道图书馆在该方面有哪些图书可供借阅，所以需要对图书馆的图书进行查询；或者，读者知道想借阅的图书信息，但不知道该图书馆是否有该书或不知道图书在图书馆的位置、是否被借出、是否可以借阅等信息，这也需要使用图书查询功能。一般的图书查询中，读者是通过图书登记卡、浏览图书登记卡中的信息得到图书信息的。经过图书查询，读者获得图书馆是否有自己想要的图书，该图书的简单信息以及图书在图书馆的借阅位置等信息。
2、新书入库:为了能正常运行，图书馆要及时更新馆藏图书。对于新书，要购进，供读者借阅；所以要设计到图书的批量入库。对于批量入库，图书管理员要批量登记图书的信息，包括书名ID、ISBN、图书名称、作者出版社、单价、入库时间、图书总量、现存总量等。
3、借阅图书/归还图书:图书馆的基本功能之一就是为读者提供借阅服务，读者通过借阅这一过程，可以把图书带出图书馆，从而使读者能够更方便的浏览图书。借书过程中，图书管理员要对读者的借书资格进行审查，对符合借书条件的读者，允许其借书，对其借书记录进行登记；对没有借书资格的读者，禁止其借书。具体的步骤如下：读者向图书管理员提交请求和图书借阅卡,图书管理员检查读者提供的借阅卡，如果该借阅证真实准确，读者已经借阅的图书并没有超过允许借书量，而且读者没有逾期未还的图书，则允许读者借书，否则，读者不能从图书馆借书。读者拿到要借阅的图书，同时拿到自己的借阅卡，借书过程完毕。当借阅图书的数量超过5本或者出现未按期归还图书的情况，则不好进行借阅处理。图书馆的另一基本功能就是为读者提供还书服务，读者在一本图书借阅期满之前把该图书还给图书馆，一般的还书步骤如下：读者把所借的图书和自己的借阅卡交给图书管理员。图书管理员对图书进行检查，看有无损坏，如果出现图书的损坏情况，读者应进行相应的赔偿。图书管理员查看是否超过规定借阅期限，如果已经过期，则读者要按规定交纳罚金。图书管理员进行登记，同时把还书信息记入借阅卡。读者拿回自己的借阅卡，还书过程借书。读者逾期未归还图书超过三天，将按照每本每天进行一定的罚款。
4、书籍挂失:对图书由于丢失而不能即时还书的情况，读者要即时到图书管理员进行登记，确保图书信息的更新。进行书籍挂失的步骤一般如下：读者将所丢图书信息告诉图书管理员并将借阅卡交给图书管理员。图书管理员对该图书信息进行登记，并按图书的价格，要求读者进行相应赔偿。图书管理员将信息记入借阅卡。读者拿回自己的借阅卡，挂失功能结束。
1.2.2读者管理功能
1、办理借阅卡:图书馆向读者提供借阅服务，读者必须具有有效凭证方可借阅。因此，读者必须办理借阅卡获取有效凭证。读者在办理借阅卡时，必须输入个人有关注册信息，包括读者姓名、性别、出生日期、家庭住址、身份证号码、电话号码等信息。系统根据读者提供的信息，办理借阅卡并生成个人帐号、读者可自行修改密码。
2、借阅卡信息查询;图书馆在正常运营中要面对大量的读者信息，需要掌握每个读者的信息，即时准确的掌握读者的基本情况，这些是图书馆运营的保证。读者要进行信息查询，可以通过系统将自己的借阅卡账户、密码输入系统，系统通过核对找到读者的信息。如果读者的信息正确，系统将读者的信息包括读者姓名、性别、出生日期、家庭住址、身份证号码、电话号码等信息。如果读者的信息不正确，系统将提示错误，并且系统设定，当错误次数超过5次时，系统将不予查询。
3、借阅卡挂失:对借阅卡的丢失要即时进行挂失处理，以防止其他人盗用自己的有效信息并出现私自借书等行为。借阅卡挂失的一般步骤可分为：读者将挂失情况即时到图书管理员处进行登记，并填写登记单。图书管理员将读者情况进行登记挂失，注销借阅卡的信息，并咨询读者是否重新办理。若读者需重新办理，则重新填写相关信息，系统自动生成心的借阅卡信息记录，读者重新设置帐号即密码，并交纳相应的费用。若读者不需办理，则系统将信息注销。读者获得新的图书借阅卡。
1.2.3系统管理功能
1、注册管理员:为了对图书馆管理系统进行管理，图书馆需要若干名图书管理员进行管理，在图书管理员对系统进行管理之前必须进行注册功能，以确定管理员身份。对管理员进行注册，系统生成相应信息。其中管理员的基本信息包括：成员ID、密码等。系统管理员每次登陆前输入自己的ID与密码，系统对其信息进行核实，如基本信息正确，则系统管理员可进行系统管理功能，若系统检查不正确，则系统管理员不可以进行相应的操作。
2、修改密码:服务图书馆管理员可能由于某些原因，如电脑中毒导致管理员密码的泄露，为避免图书管理信息遭到破坏，系统具有修改密码的功能，确保图书管理功能的安全性。
3、退出功能:系统管理员每次离开必须进行退出功能，确保管理功能不被他人所用，这样更方便图书管理系统出现问题时，找到责任人。

第二章 概要设计
2.1总体设计
2.1.1系统目标设计
系统开发的总目标是实现内部图书借阅管理的系统化、规范化和自动化。能够对图书进行注册登记，也就是将图书的基本信息（如：书名、作者、价格等）预先存入数据库中，供以后检索。能够对借阅人进行注册登记，包括记录借阅人的姓名、地址、电话等信息。提供方便的查询方法。如：以书名、作者、出版社、出版时间（确切的时间、时间段、某一时间之前、某一时间之后）等信息进行图书检索，并能反映出图书的借阅情况；以借阅人编号对借阅人信息进行检索；以出版社名称查询出版社联系方式信息。提供统计分析功能。可以展现出图书类型比例、库存与借出比例。提供旧书销毁功能，对于淘汰、损坏、丢失的书目可及时对数据库进行修改。能够对使用该管理系统的用户进行管理，按照不同的工作职能提供不同的功能授权。提供较为完善的差错控制与友好的用户界面，尽量避免误操作。
2.1.2系统功能分析
根据以上功能，将图书管理系统的数据分为：数据输入部分：主要包括图书基本信息的录入、借阅人基本信息的录入、用户基本信息的录入。数据输出部分：主要是各种统计查询，包括：根据图书信息（如书名、作者、出版社等）查阅图书及其借阅信息、统计输出图书类型比例等。数据处理部分：主要涉及借阅和归还的处理，如一本书借出后，必须在数据
库中将该书标记为已借出，以防出现数据库中有书但图书馆无书的情况；一本书归还后，同样必须在数据库中将其标记为已经归还，以便再次借出。
概念设计阶段主要任务和目标是根据需求分析的结果，包括一般联系实体，画出对应的ER图。对于复杂的系统，通常首先要对它的各功能模进行分析，然后再把它的功能结构图画出来，便是设计和优化。功能分析之后，再根据各个岗位、各个用户对数据和使用权限的不同要求作出局部ER图，然后再把各个局部ER图综合起来形成统一的整体ER图。
2.2系统设计思想
1、图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。图书管理系统使用的是SQL Server2000的数据管理系统和以Visual Basic6.0为开发工具。
2、首先进行系统设计分析，系统设计主要包括系统功能分析、系统模块设计以及运行环境的选择、系统实现过程。
3、然后根据系统功能分析设计出需要的数据库，绘制系统数据流图与总结数据字典设计数据库结构。
4、最后在实现各个功能模块时，采用先模块后系统集成的方式，即各系统功能模块分别独立设计和调试，在创建系统主窗体时才将各个功能模块通过主窗体菜单系统集成到一起，最后进行系统整体的设计和调试。
2.3 系统模块功能解析
（1）系统设计分析
本图书管理系统主要有以下功能:
图书征订：包括图书征订数据的录入、修改、删除与审校等功能。
图书编目：包括图书数目信息的录入、修改、删除功能。
图书典藏：包括新书分配、库室调配等功能。
图书流通：包括图书借阅、续借、图书返还，图书书目的查询的功能。
系统用户管理：包括系统用户数据的录入、修改与删除等功能。
读者数据管理：包括读者类别管理，读者个人数据的录入、修改和删除功能。
（2）系统功能分析
权限功能：权限功能设置的对象为高级管理员、普通管理员、读者。高级管
删除所有信息；普通管理员只能对授权范围内进行相应修改及删除；读者
只能查询借阅记录和图书书目不能修改。
录入功能：为普通管理员提供相应的录入功能，为高级管理员提供对所有信息的录入功能。
查询功能：为所有用户提供查询的功能，可查询允许范围内的所有信息。
维护功能：为普通管理员提供查询及相应的修改，删除功能，为高级管理提
供对所有信息的修改删除功能。
打印功能：可打印图书征订计划。
退出功能：各个功能模块和主窗体都设有关闭命令按钮，可方便地退出各模
块或系统。

第三章 详细设计
3.1程序设计说明
3.1.1用户登录模块
1.程序描述:此程序用于用户登陆的至用户界面，程序通过输入用户的ID,用户密码的正确性来实现对验证用户的真实性。
2.功能:实现用户的登录功能
3.性能:用户通过输入用户ID,用户名和密码进行用户登陆，通过认证后，用户即可进入用户界面。
4. 输入项:输入用户ID,用户名，密码5.输出项:用户主页面。
流程逻辑如图所示：

图4-1用户登录流程逻辑
3.1.2用户添加模块
1.程序描述:此程序用于添加新的用户，用户通过向数据库内输入必要的信息来注册成为新的用户，才通过一系列的验证之后，即注册成为真正的用户。
2.功能:实现对用户的添加功能。
3.性能:查询新用户的用户名是否存在，若存在则停止添加返还数据库；若用户不存在，则进行添加，并进行注册，注册成功后返回。
4.输入项:输入用户的详细信息，包括姓名，出生日期，性别，地址，身份证号码，电话号码等信息。
5.输出项:若添加成功，则输出提示用户注册成功界面；若未成功，则提示输出未成功原因界面。
6.流程逻辑如下图所示：

图4-2用户添加模块流程逻辑
3.1.3书籍查询模块
1.程序描述：此程序用于实现用户对想要借阅的查询功能。用户通过输入相应的图书信息来查询，数据库根据用户提供的信息来搜索，最后给出客户相应的图书信息。
2.功能：实现图书查询功能。
3.性能：对进行想要查询的书籍进行搜索，若存在此书则显示该书的详细信息；若不存在此书，则提示没有此书并返回。
4.输入项：输入图书的详细信息，包括图书名称，书籍ID，图书作者，出版社，单价等信息。
5.输出项：若输入的图书存在即输出图书详细信息界面；若输入的图书不存在则显示图书不存在界面。
6.流程逻辑如下图所示：

图4-3图书查询模块流程
3.1.4图书借阅模块
1.程序描述：此程序用于图书的借阅，用户通过登录自己的借阅ID后，对需要借阅的图书进行借阅操作，如果符合借阅的要求，则可进行借阅。
2.功能：实现对图书的书籍借阅功能。
3.性能：首先验证借阅者输入的借阅ID是否存在，若存在进行下一步；若不存在则返回。
4.若借阅ID存在，则检查此借阅ID是否借阅书籍超出4本，若超出则提示超出借阅数目，返回；若没有超出，则进行下一操作。
5.对想要借阅的图书ID进行搜索，若此书不存在，则提示此书不存在；若此书存在则进行下一步操作。
将借阅者借阅的数量増一，将数据库中此书数量减一，同时提醒借阅成功，然后返回。
6.输入项：输入借阅证的ID,图书ID

7.输出项：若借阅证ID正确且图书ID正确且符合借阅要求，则输出提示借阅成功界面；若存在借阅ID或图书ID或不符合借阅要求等问题，则输出提示没有借阅成功原因的界面。
8.流程逻辑如下图

图4-4图书借阅模块
3.1.5图书归还模块
1.程序描述：此程序用于图书的归还，用户在登录自己的ID之后，用户可以对需要归还的图书进行操作，如果符合归还要求，则可以将图书归还。
2.功能：实现对图书的书籍归还功能。
3.性能：首先验证借阅者输入的借阅ID是否存在，若存在进行下一步；若不存在则返回。
对想要归还的图书ID进行搜索，若此书不存在，则提示此书不存在；若此书存在则进行下一步操作。将借阅者借阅的数量减一，将数据库中此书数量加一，同时提醒借阅归还，然后返回。
4.输入项：输入借阅证ID和图书ID
5.输出项：若借阅证ID和图书ID正确，则输出提示图书归还成功界面；若借阅证ID或图书ID不正确，则输出提示没有成功原因的界面。
6.流程逻辑如下图：

图4-5图书归还模块
3.1.6新书入库模块
1.程序描述：此程序用户对新进图书的入口登记处理。用户可以将新书的详细信息进行输入，保存在数据库中后，新书即登记成功。
2.功能:实现新进图书入库功能。
3.性能:对数据库查询是否已存在此书，若存在则将此书数量加一，提示添加成功；若没有此书，则将此书的基本信息存入数据库，并提示添加书籍成功。
4.输入项:输入新书的书籍ID，书名，作者，出版社，单价等信息。
5.输出项:若添加成功，则输出提示新书添加成功界面；若没有添加成功，
输出提示未成功原因界面。
6.流程逻辑如下图

图4-6新书入库模块

第四章 编码与测试
4.1各功能模块的实现
（1）用户登录窗体

图5-1 用户登录窗体
用户登录代码：
Const MaxLogTimes As Integer = 3
Private Sub cmdcancel_Click()
If MsgBox("是否真的退出系统登录？", vbYesNo, "登录验证") = vbYes Then
Unload Me
End If
End Sub
Private Sub cmdok_Click()
Static intLogTimes As Integer
intLogTimes = intLogTimes + 1
If intLogTimes > MaxLogTimes Then
MsgBox "超过登录次数！", vbCritical, "登录验证"
Else
With Library_Manage.rsSysUsers
.Open
If .RecordCount > 0 Then
.MoveFirst
.Find "编号=" & Trim(txtLog(0)) & ""
If .EOF Then
MsgBox Trim(txtLog(0)) & "不是系统用户，请检查输入！", vbCritical, "登录验证"
txtLog(0).SetFocus
txtLog(0).SelStart = 0
txtLog(0).SelLength = Len(txtLog(0))
ElseIf .Fields("口令") <> Trim(txtLog(1)) Then
MsgBox "口令错误，请检查输入口令！", vbCritical, "登录验证"
txtLog(1).SetFocus: txtLog(1) = ""
Else
CurrentUserNum = .Fields(编号)
CurrentUserPassword = .Fields("口令")
CurrentUserStatus = .Fields("权限")
MsgBox "欢迎使用河南农业职业学院图书馆管理系统！", vbInformation, "登陆成功！"
Unload Me
End If
End If
.Close
End With
End If
End Sub
Private Sub Form_Load()
SysLogon.BackColor = RGB(192, 210, 270)
End Sub
（2）用户管理窗体界面

图5-2 用户管理窗体
用户管理窗体代码
保存
Private Sub cmdSave_Click()
Dim objcopy As New Recordset
If Trim(txtNum) = "" Then
MsgBox "不能为空！", vbCritical, "系统用户管理"
txtNum.SetFocus
txtNum.SelStart = 0
txtNum.SelLength = Len(txtNum)
ElseIf Len(Trim(txtPwd)) <> 6 Then
MsgBox "用户口令须为6位字符串！", vbCritical, "系统用户管理"
txtPwd.SetFocus
txtPwd.SelStart = 0
txtPwd.SelLength = Len(txtPwd)
ElseIf Not txtAuth Like "[0,1]" Then
MsgBox "用户权限必须为0或1", vbCritical, "系统用户管理"
txtAuth = ""
txtAuth.SetFocus
Else
Set objcopy = Library_Manage.rsSysUsers.Clone '对错？
With objcopy
If .RecordCount > 0 Then
.MoveFirst
.Find "编号" & Trim(txtNum) & ""
If Not .EOF And .AbsolutePosition <> Library_Manage.rsSysUsers.AbsolutePosition Then
MsgBox "编号:" & Trim(txtNum) & "已被使用，请选择其他编号！", vbCritical, "系统用户管理"
txtNum.SetFocus
txtNum.SelStart = 0
txtNum.SelLength = Len(txtNum)
Exit Sub
Else
保存记录
Library_Manage.rsSysUsers.Update
MsgBox "数据保存成功！", vbInformation, "系统用户管理"
cmdAdd.Enabled = True
cmdDel.Enabled = True
isAdding = False: picNavigation.Enabled = True
End If
End With
End If
End Sub
Private Sub Form_Load()
cmdMove(0).Value = True
End Sub
（3）读者数据管理窗体界面

图5-3 读者数据管理窗体
读者数据管理窗体代码
Library_Manage.Library_Manage_Con.Execute "TRUNCATE TABLE 读者类别"
With Library_Manage.ReaderType
If .State = adStateClosed Then .Open
.AddNew
.Fields("编号") = "0"
.Fields("名称") = "特殊"
.Fields("借书量") = Val(txtSp(1))
.Fields("借书期") = Val(txtSp(2))
.Fields("有效期") = Val(txtSp(3))
.Update
.AddNew
.Fields("编号") = "1"
.Fields("名称") = "馆员"
.Fields("借书量") = Val(txtL(1))
.Fields("借书期") = Val(txtL(2))
.Fields("有效期") = Val(txtL(3))
.Update
.AddNew
.Update
.AddNew
.Fields("编号") = "2"
.Fields("名称") = "教师"
.Fields("借书量") = Val(txtT(1))
.Fields("借书期") = Val(txtT(2))
.Fields("有效期") = Val(txtT(3))
.Update
.AddNew
.Fields("编号") = "3"
.Fields("名称") = "学生"
.Fields("借书量") = Val(txtS(1))
.Fields("借书期") = Val(txtS(2))
.Fields("有效期") = Val(txtS(3))
.Update
End With
End Sub
Private Sub Form_Load()
cmdMove(0).Value = True
End Sub
Private Sub SSTab1_DblClick()
End Sub
（4）图书征订管理窗体

图5-4 图书征订管理窗体
图书征订管理代码
txtPubDate.SelLength = Len(txtPubDate)
ElseIf Trim(txtAuthor) = "" Then
MsgBox "作者不能为空！", vbCritical, "图书征订管理"
txtAuthor.SetFocus
txtAuthor.SelStart = 0
txtAuthor.SelLength = Len(txtAuthor)
ElseIf Val(txtNum) = "" Then
MsgBox "正的数量无效！", vbCritical, "图书征订管理"
txtNum.SetFocus
txtNum.SelStart = 0
txtNum.SelLength = Len(txtNum)
ElseIf Not IsDate(txtDate) = "" Then
MsgBox "作者不能为空！", vbCritical, "图书征订管理"
txtDate.SetFocus
txtDate.SelStart = 0
txtDate.SelLength = Len(txtDate)
Else
'保存记录
Library_Manage.rsBooksOrder .Update
MsgBox "数据保存成功！", vbInformation, "图书征订管理"
cmdAdd.Enabled = True: cmdDel.Enabled = True
cmdExam.Enabled = True: cmdRefresh.Enabled = True
isAdding = False: picNavigation.Enabled = True
End If
End Sub
Dim objcopy As Recordset
Private Sub cmbOut_Click()
AddListOut
End Sub
Private Sub cmdAddAll_Click(Index As Integer) '选择全部条码
ListItem_Add lstPre(Index), LstIn(Index), Index, True
End Sub
Private Sub cmdAddOne_Click(Index As Integer)'选择当前条码
ListItem_Add lstPre(Index), LstIn(Index), Index, False
End Sub
Private Sub cmdExit_Click()
If LstIn(0).ListCount > 0 Then
If MsgBox"你选定了部分新书准备入库，但没执行保存操作" & vbCr & "是否要执行保存操作？", vbCritical + vbYesNo, "图书典藏管理") = vbYes Then
SSTab1.Tab = 0
cmdSave.Value = True
End If
ElseIf LstIn(1).ListCount > 0 Then
If MsgBox("你选定了部分新书准备入库，但没执行保存操作" & vbCr & "是否要执行保存操作？", vbCritical + vbYesNo, "图书典藏管理"