【摘要】
本课题针对当前我国图书借阅管理多数采用人工管理的现状以及即使采用了计算机图书管理系统却不能完全满足本单位图书管理的需要的实际情况出发，对图书管理业务经过详细的系统调查，开发出的操作简单而且方便实用的一个图书借阅管理系统，以适应新时代发展的需要。
本系统使用Visual Basic6.0开发工具，主要使用SQL 语句，结合Access 数据库、VB 的DAO 数据访问对象，DATA 控件和ADO 控件来实现数据库的操作。
图书借阅管理系统主要对图书管理日常工作中遇到的实际问题，例如书籍信息、读者信息、借阅信息、能够实现以下任务：用户分级权限操作、借还图书操作、书库维护操作等。本系统经过测试，运行稳定，可投入使用。
【关键词】
图书；Visualbasic6.0；ACCESS ；读者；借阅
前言
随着计算机技术的不断发展，计算机作为知识经济时代的产物，已被广泛应用于社会各个行业和领域。目前，我国的科技水平高速发展，计算机作为今天使用最广的现代化工具已深入到各个领域，并且正在成为未来社会——信息社会的重要支柱。在这样的大背景下，现代图书馆的管理方式，资源建设等方面都发生了重大变化，这种变化表现在图书馆工作，管理和服务平台发生的变化，图书馆不再是传统的手工操作，人工管理，而是全面实行计算机管理。
图书馆的正常运营中总是面对大量的读者信息，图书信息以及两者相互作用产生的借书信息，因此要对读者资源，图书资源，借书信息进行管理。本系统的开发就是在于提高图书管理的工作效率，加强图书馆的管理，全面实行计算机管理。
第一章 图书借阅管理系统概述 1.1图书借阅管理系统简介
1、图书借阅管理系统的发展历史
图书借阅管理系统的发展历史可以追溯到20世纪60年代末期。由于当时计算机技术已经进入实用阶段，同时大型图书馆用手工来查找图书信息或统计借阅信息既费时费力又非常容易出差错，为了解决这个矛盾，第一代的图书借阅管理系统应运而生。当时由于技术条件和需求的限制，用户非常少，它的出现为图书借阅的管理展示了美好的前景，即用计算机的高速度和自动化来代替手工的巨大工作量，用计算机的高准确性来避免手工的错误和误差。
第二代的图书借阅管理系统出现于20世纪70年代末。由于计算机技术的飞速发展，无论是计算机的普及性，还是计算机系统工具和数据库技术的发展，都为图书借阅管理系统的阶段发展提供了可能。但未能系统地考虑图书借阅的需求和理念。
图书借阅管理系统的革命性变革出现在20世纪90年代末。随着信息爆炸、知识经济时代的到来，使个人、单位、社会对图书借阅管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/服务器技术，特别是Internet/Intranet技术的发展，使得第三代图书借阅管理系统的出现成为必然。第三代图书借阅管理系统的特点是从图书借阅管理的角度出发，用集中的数据库处理几乎所有与图书借阅相关的数据。友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得图书借阅管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑图书借阅规划和政策。
1.2 图书借阅管理相关软件简介
随着计算机的发展及网络技术的应用，当今社会正快速向信息化社会前进，信息自动化的作用也越来越大。而在日常生活中信息技术的不断融入，在技术越来越先进的同时，应该从以前繁琐的事务中解放出来，来提高我们的工作效率。目前在大的图书馆已经有一整套比较完整的信息管理系统，而
在一般小型的图书馆中大部分工作还是进行着手工管理，工作效率很低，并且不能及时了解图书馆各类图书的存库，读者比较需求的图书难以在短时间找到、图书的入库和更新比较麻烦等等，不便于动态及时调整图书结构。同时由于不可避免的人为因素，造成数据的遗漏、误报等。
为了更好的适应当前读者的借阅需求，缓解手工管理存在的各种弊端，我们开发了图书馆查询管理系统，图书查询管理系统向用户提供的服务将传统的“采——编——借——查”基础上，进一步提供全方位的信息服务。具有以下几个特点：
⏹ 可以存储所有馆中图书的资料以及借阅人员的情况，具有安 全，高效的特性。
⏹ 只需一至二名档案录入人员即可操作系统，节省大量人力。
⏹ 可以迅速查到所需信息。
用户的需求可分为如下4个方面：第一是图书馆人员通过计算机来管理各种图书、编号、增加图书库存、适应读者的需求；第二是读者能通过计算机来查询浏览图书馆中的图书，来确定自己需要的书籍，为借阅做好准备；第三是管理员可以对管理者和操作员及读者进行增删改；第四是工作人员对读者的借书情况能做好全面掌握，对图书的借阅进行管理。
在软硬件方面对系统的需求，软件要求易学，容易掌握，可以很方便地管理各种图书信息。硬件的配置要求不能太高，这样可以很好的适应当前的学校图书馆。在开发过程中，采用了SQL Server 2000网络数据库，使得本系统可以方便的和其他子系统进行数据交换。同时，注意从软件的图形应用界面上优化软件质量，使得本系统具有较强的可操作性。 总之，图书管理系统旨在提供一个可以操作的，查询的，易于修改的辅助管理系统。同时提供了系统智能辅助与用户自主选择的两种方式，提高查询效率。
第二章 图书借阅管理系统分析
2.1 系统初步调查
我所在的学校，在三年的时间里，我经常光顾我校图书馆借阅图书，发现我校图书馆的借阅操作仍使用手工管理。在本系统被批准立项之后，我实地去我校图书馆进行了参观和学习，现对该单位图书馆的整体情况进行调研，调研分两步进行，一是初步调研，二是详细调研。由于该图书馆职工人数较少，因此在调研时采用了会议讨论法和个人访谈法两种方法，通过会议讨论法了解图书馆的整体情况，对开发新系统的态度等。通过个人访谈法了解各个部门的主要职能及具体运作方式、过程等。 对该图书馆进行初步调研的具体内容为：（1）图书馆的规模：现藏书册数、种类；（2）图书馆的主要业务；（3）图书馆中的几个部门；（4）图书馆职工情况；（5）职工受教育程度；（6）主要购书单位；（7）图书编码方式；（8）现在多少读者在此借书；（9）读者借书凭证；（10）读者分类；
（11）图书馆的上级领导；（12）对开发新系统的态度；（13）开发新系统所需的时间（规定多长时间开发完成）。
2.2 现行业务描述
我校图书馆现在藏书七十余万册，分为社会、人文、哲学、数理、工具、期刊等六大类，图书馆的主要业务是对图书进行入库、出库管理、借阅管理、读者管理等，图书馆分为采购处、办公室、借阅室、阅览室、工具书期刊室，职工相应地分为图书采购小组、书籍维护小组、借阅室工作人员、阅览室工作人员。图书编码采用国家标准进行编码，如类别＋小类＋序号的方式。现有7000多人借阅，读者分为教职员工和学生，图书馆的上级领导是总务处，对开发新系统持支持态度，开发本系统约需2个月时间。
2.3 系统详细调查及安全性
绝大多数管理人员已经认识到采用图书借阅管理系统的必要性，纷纷开发或选购适合本企业特点的图书借阅管理系统。图书借阅管理系统具体以下优点：
1、采用图书借阅管理系统，可以用集中的数据库将与图书借阅管理相关的信息全面、有机地联系起来，有效地减少了信息更新和查找中的重复劳动，保证了信息的相容性，从而大大地提高了工作效率。
2、图书借阅管理系统有着易访问、易查询的信息库。在没有采用和实施图书借阅管理系统之前，当管理人员要统计数字时，往往依赖于某个人或某些人来获取。这种依赖于人的过程往往会因为花费的时间较长或某个人不在办公室而不能及时完成。在采用和实施图书借阅管理系统之后，就会将依赖于人的过程改为依赖于计算机系统的过程。管理人员只要获取了相应的权限，就可以随时进入系统，直接查阅相应的信息。实施了图书借阅管理系统之后，不仅可以得到较为全面的、详细的、未经过过滤的第一手图书借阅信息，还可以从这些信息中得到某些有用的决策信息及灵感和启发，从而改进图书馆的管理及经营效率，避免或减少经营风险。
3.2 数据字典
图书管理系统数据流图中，数据信息和处理过程需要通过数据字典才能描述清楚。在定义的图书管理系统数据字典中，主要对数据流图中的数据项、数据流、数据存储和处理过程进行说明。
（1） 数据项描述
1）数据项名称：借书证号
含义说明：惟一标识一个借书证
类型：字符型
长度：50
逻辑关系：不允许为空
2）数据项名称：用户名
含义说明：读者的名称
类型：字符型
长度：20
逻辑关系：不允许为空
3）数据项名称：密码
含义说明：对用户名和操作员管理员进行加密
类型；字符型
长度：10
逻辑关系：允许为空
4）数据项名称：性别
类型：字符型
长度：10
逻辑关系：允许为空
5）数据项名称：所在系别
类型；字符型
长度：10
逻辑关系：允许为空
6）数据项名称：所在班级
类型：字符型
长度：10
逻辑关系：允许为空
7）数据项名称：操作员名称
类型：字符型
长度：30
逻辑关系：不允许为空
8）数据项名称：操作员简称
含义说明：惟一标识一个操作员 类型：字符型
长度：10
逻辑关系：不允许为空
9）数据项名称：操作员级别
含义说明：对操作员和管理员进行区分 类型：字符型
长度：10
逻辑关系：不允许为空
10）数据项名称：图书编号
含义说明：惟一标识一个图书 类型：字符型
长度：10
逻辑关系：不允许为空
11）数据项名称：图书名称
类型：字符型
长度：50
逻辑关系：不允许为空
12）数据项名称：作者 类型：字符型
长度：50
逻辑关系：不允许为空
13）数据项名称：作者 类型：字符型
长度：50
逻辑关系：不允许为空
14）数据项名称：作者 类型：字符型
长度：50
逻辑关系：不允许为空
15）数据项名称：出版社 类型：字符型
长度：50
逻辑关系：不允许为空
16）数据项名称：出版时间 类型：日期时间型 长度：8
逻辑关系：不允许为空
17）数据项名称：价格 类型：整型
长度：4
逻辑关系：不允许为空 18）数据项名称：备注 类型：字符型 长度：200
逻辑关系：允许为空 19）数据项名称：借书日期 类型：日期时间 长度：8
逻辑关系：不允许为空 20）数据项名称：还书日期 类型：日期时间 长度：8
逻辑关系：不允许为空 （2）数据结构描述
1）数据流名称：用户情况
含义说明：定义了一个读者的有关信息
组成结构：用户情况=用户名+借书证号+密码+性别+所在系别+所在班级
2）数据流名称：操作员情况
含义说明：定义了一个操作员的有关信息
组成结构:操作员情况=操作员名称+操作员简称+操作员级别+操作员密码
3） 数据流名称：图书情况
含义说明：定义了一个图书的有关信息
组成结构：图书情况=图书编号+图书名称+作者+出版社+出版时间+价格+备注
（3） 数据流（非数据项）说明
1）数据流名称：借书单
含义：读者借书时要填写的单据 来源：读者 去向：审核借书 数据流量：250份/天
组成：借书单=借书证号+图书编号+借书日期 2）数据流名称：还书单
含义：读者还书时要填写的单据 来源：读者 去向：审核还书 数据流量：250份/天
组成：还书单=图书编号+还书日期
（4） 数据存储说明
1） 数据存储名称：图书数据表 含义说明：存放图书的有关信息
组成结构：图书编号+图书名称+作者+出版社+出版时间+价格+备注 说明；书号具有惟一性和非空性 2） 数据存储名称：用户信息表 含义说明：存放读者的注册信息
组成结构：用户名+借书证号+密码+性别+所在系别+所在班级 说明：证号具有惟一性和非空性，性别只能是男和女 3） 数据存储名称：借书记录
含义说明：存放读者的借书，还书信息
组成结构：借书证号+图书编号+借书日期+还书日期 说明：要求能够立即查询
（5） 处理过程说明
1）处理过程名称：图书管理 输入：图书情况， 输出：图书记录
处理说明：对馆内所有图书按图书编号进行管理，将图书数据数据化，存储图书数据表
中。
2）处理过程名称：读者管理 输入：读者情况， 输出：读者记录
处理说明：建立读者信息表，对读者进行统一编号，实现读者记录 表的增删改
维护功能。
3）处理过程名称：查看数目 输入：借书请求，读者，， 输出：借书记录，图书信息
处理说明：实现根据图书编号等查询图书。 4）处理过程名称：借书处理 输入：图书情况，读者，借书记录 输出：借书记录
处理说明：确认读者符合借书条件，办理借书手续。 5）处理过程名称：还书处理 输入：图书情况， 输出：借书记录
处理说明：对照相应的图书编号可办理还书手续。 6）处理过程名称：安全管理 输入：操作员情况，用户情况
输出：操作员级别，操作员记录，用户记录
处理说明：通过用户名和口令，确认用户身份，保证系统的安全型。
用户表的设计如表4-1所示
表4-1 用户表
操作员信息表的设计如表4-2所示
表4-2 操作员信息表
图书数据表的设计如表4-3所示
表4-3 图书数据表
借阅图书信息的设计如表4-4所示
表4-4 借阅图书信息
4.2.2本系统中所涉及到的主要实体图
系统E-R 图设计
E-R 模型的“联系”用于刻画实体之间的关联。一种完整的方式是对局部结构中任意两个实体类型，依据需求分析的结果，考察局部结构中任意两个实体类型之间是否存在联系。若有联系，进一步确定是1:N，M:N，还是1:1等。还要考察一个实体类型内部是否存在联系，两个实体类型之间是否存在联系，多个实体类型之间是否存在联系，等等。根据上面的设计可以规划出的实体有：读者实体、操作员实体、图书实体和借书信息实体。
系统分E-R 图设计
图4-2 系统总E-R 图设计
4.2.4 系统的模块设计
a.图书管理员管理模块设计
（1） 当管理员登录后出现如图4-4所示的界面，用户单击系统菜单里的“基本信息管理”出现的
界面如图4-5所示
在“基本信息管理”窗口主要实现的如下功能
添加图书分类管理。
A ：界面上出现图书分类 。分为：金融类，社会学类，文学类等 B ：当你想要添加，修改，删除时，可点下面的按钮。 C ：在A ，B 都完成时，可点返回按钮退出程序。
修改图书分类信息。当要修改某个内容时，只需直接在上面修改即可实现数据库的修改。
删除图书信息。当在操作员名称中输入所要删除的图书名称时，点击删除按钮时，出现“确实要删除当期图书信息吗？”的对话框。点击‘OK “时，即出现”该记录已删除“的对话框。
调出所有图书信息时。即可把所有的图书的信息调出来。
查询图书信息：在所有的查询条件都填写完后，点击查询按钮时即可查到所要的信息，否则出现“请输入查询信息，不能为空“的对话框。 登入界面：
图4.4 系统的主界面
图书借阅模块设计
（1）。当用户当击系统菜单的“图书借阅管理”时出现的界面如图4-5所示。 “图书借阅管理”窗口主要实现如下功能： ◆ 图书编号 ◆ 图书名称 ◆ 姓名
◆ 借阅数量 ◆ 借阅编号 ◆ 借阅证编号 ◆ 借阅日期
4-5 图书借阅管理的界面
（2）在本窗体中设置的主要属性如表所示
. 系统用户管理模块设计
（1）用户管理的界面如图
4-8所示，修改密码的界面如图4-9所示。系统用户管理主要完成如下功能：
◆ 添加用户 ◆ 删除用户 ◆ 修改用户 ◆ 返回 ◆ 用户名 ◆ 密码 ◆ 确认密码 ◆ 确定 ◆ 取消
图4-8 用户管理的界面
图4-9 编辑用户信息界面
(2)在本窗体中设置的主要属性如表所示
4.3 计算机系统的配置方案
A. 系统的总体框架
本系统主要由几个模块构成分别为登陆模块，图书查询模块，图书馆管理员模块，图书管理模块和工作人员-图书借阅/归还模块等。 其中本人所做的功能包括：
1）图书馆管理员模块：浏览操作员信息，添加操作员信息，修改操作员信息，删除和查询操作员信息等。浏览用户信息，添加用户信息，修改用户信息，删除和查询用户信息等。
2）图书管理模块：新图书信息入库，整理图书库（包括添加，修改和删除图书信息）。 3）工作人员-图书借阅/归还模块：操作员操作借阅，归还及超期提示等功能。
第五章 系统的测试
5.1 软件功能测试
软件测试是一个长期的过程，只要软件还在使用中，测试工作就一直存在。软件的测试从编码就开始了，并贯穿着软件的始终。
一．模块测试
在设计好的软件系统中，每个模块都应当完成一个清晰定义的子功能而且这个功能和同级其他
模块的功能之间没有相互依赖的关系。因此，有可能把每个模块作为一个单独的实体来测试而且通常比较容易设计检验模块正确性的测试方案。模块测试的目的是保证每个模块作为一个单元能正确运行，所以模块测试通常又称为单元测试。在这个测试步骤中所发现的往往是编码和详细实际的错误和异常。
二．子系统测试
了系统测试是把经过单元测试的模块放在一起形成一个子系统来测试。模块相互间的协调和通信是这个测试过程的主要问题，因此这个步骤着重测试模块的接口。
三．系统测试
系统测试是把经过测试的子系统装配成一个系统来调试。在这个过程中不仅应该发现实际和编码的错误，还应该验证系统能否提供需求说明中指定的功能，而且系统的动态特性也应该符合预定的要求。在这个测试步骤中发现的往往是软件设计中的错误，也有可能发现的是需求说明中的错误。
测试工作可以说是整个编程过程中最复杂、最费事的一个过程，但这一过程不是独立的，合理的系统设计以及好的文档的设计都是提高测试效率的重要方面，将使我们的测试工作事半功倍。这样的教训在日后的软件开发工作中都大有益处。
此次设计好的程序在本机上可以正常运行，但拿到其他机器上编码调试后就无法运行，运行失败的原因主要是由于没能机器上安装配置数据库而引起的。只要将数据库添加到数据源管理器（ODBC ）中，
经测试，本系统的各项功能模块运行良好，基本达到了设计要求。
第六章 结论
6.1 系统开发遇到的问题
在系统的开发时，遇到了很多问题，比如在建数据库时，不但要符合实验的要求还要与同组人的相联系起来，因此在编写数据库时进行了多次的修改。在更换电脑进行数据库连接时也常犯些小错误，如忘记填写服务器名称或则是个错误的服务器名称导致在连接测试时老是报错。还有在进行界面设计时，只是按照参考书上的进行设计，最后导致编程的时候很难和数据库表的记录符合上，于是抛开了所有的参考书，自己根据数据库的内容设计了界面，独立的编程。虽然有点过于简单。 6.2 总结
本系统是一个校园图书管理系统，具有一定实用性的数据库信息管理系统。它只要完成了对图书的分类，图书进步信息管理，图书入库管理，图书盘点管理，节约证件类型管理，借阅证件管理，图书借阅，用户管理。本系统采用当前流行的VB 来完成整个系统的设计，在数据库的设计上利用了SQL Server 的便利性和实用性。
本系统具有一定的实用功能。在查询方面，系统实现了多条件任意字段的模糊查询，系统可以自动识别用户不同的输入。在图书入库、借出和归还三者之间建立了良好的链接关系，某一部分地修改均会自动引发系统对与其相关的部分进行连锁修改。在用户管理方面，系统较好地实现了办理借书卡，以及用户密码修改等各项功能。
总之，关于本次设计的命题，我的设计只能提供其基本的功能。还有许多的设想由于时间和自身和因素无法得以实现，这不能不说是本次设计的遗憾之处。不过，至少它已经启发了自己的思维，提高了我的动手能力，这是我在课本中学不到的。它为我们在以后的学习上发挥自己的才能奠定了坚实的基础。
31
参考文献:
[1] 黄明，梁旭，石兴民等编著. 《Visual Basic课程设计》电子工业出版社，2006
[2] 李春葆，张植民等编著. 《Visual Basic 6.0数据库系统设计与开发》清华大学出版社，2003
[3] 黄明，梁旭等编著. 《Visual Basic 6.0信息系统设计与开发实例》机械工业出版社，2005
[4] 唐邦民，郭瑞军等编著. 《Visual Basic数据库开发实例精粹》电子工业出版社，2005
[5] 蔡敏，汪杰等编著. 《Visual Basic 6.0数据库开发工程案例》人民邮电出版社，2007
32
感谢我们的老师张老师，他的严谨细致、一丝不苟的作风一直是我在学习和生活种的榜样。你的循循善诱的教导和不拘一格的思路给予我无尽的启迪。
感谢我们的陶老师，这篇论文的每个实验细节和每个数据，都离不开您的悉心教导。而您开朗的性格和宽容的态度，帮助我很快的融入到了这个新的实验中。
还要感谢和我一起做这个实验的三个朋友们，谢谢你们一直陪在身边，我们一起努力完成这个实验，当结果演示出来的时候，我们都很高兴。
在论文即将完成的时候，我的心情无法平静。从开始进入课题到论文的顺利完成，有多少可敬的师长、同学、朋友给了我无言的帮助，在这里请接收我诚挚的谢意。最后，还要感谢培养我长大含辛茹苦的父母，谢谢你们！
33
程序代码：
图书借阅管理：
Public SchCnd As String
Private Sub Cmd_Add_Click()
'初始化FrmBorrowEdit 信息
'设置借阅编号为当前编号最大值+1
Dim JYNo As String
'取表中的最大借阅编号
JYNo = "00" + Trim(Str(Val(MyBorrow.GetMaxNo()) + 1))
FrmBorrowEdit.txtBorrowNo = "JY" + JYNo
FrmBorrowEdit.txtBorrowDate = Date
FrmBorrowEdit.txtReturnDate = ""
FrmBorrowEdit.txtBCount = 0
FrmBorrowEdit.txtCardNo = ""
FrmBorrowEdit.txtName = ""
FrmBorrowEdit.txtCardType = ""
FrmBorrowEdit.txtMaxCount = 0
FrmBorrowEdit.txtMaxDays = 0
FrmBorrowEdit.txtBookNo = ""
FrmBorrowEdit.txtBookName = ""
FrmBorrowEdit.txtBookType = ""
34
FrmBorrowEdit.txtLCount = 0
FrmBorrowEdit.txtTotal = 0
'设置添加图书按钮不能用
FrmBorrowEdit.Cmd_Add.Enabled = False
FrmBorrowEdit.Cmd_Del = False
FrmBorrowEdit.Cmd_Ok.Enabled = False
'设置图书信息不能用
FrmBorrowEdit.Frame2.Enabled = False
'启动编辑窗体
FrmBorrowEdit.Show 1
'刷新DataGrid 表格的内容
GridRefresh
End Sub
' 单击“返回”按钮
Private Sub Cmd_Back_Click()
Unload Me
End Sub
Private Sub Cmd_Push_Click()
' 列出离应归还日期小于等于5天的图书
FrmPush.Show 1
End Sub
Private Sub Cmd_Return_Click()
'归还调用FrmReturnEdit 窗体，需要输入借阅证号，提取该证借阅信息
35
FrmReturnEdit.Show 1
GridRefresh
End Sub
Private Sub ComboFlag_click()
GridRefresh
End Sub
' 启动窗体
Private Sub Form_Load()
'设置借阅状态为" 借阅"
ComboFlag.ListIndex = 0
'刷新DataGrid 表格的内容
GridRefresh
End Sub
Private Sub GridRefresh()
If ComboFlag.ListIndex > 0 Then
SchCnd = " AND l.Status='" + Trim(ComboFlag.Text) + "'"
Else
SchCnd = ""
End If
'设置ADO 控件的连接字符串
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
+ App.Path + "\Books.mdb;Persist Security Info=False" '刷新DataGrid 记录 '设置数据源
36
Adodc1.RecordSource = "SELECT l.BookNo AS 图书编号,i.BookName AS 图书名称, " _
+ "l.BCount AS 借阅数量,b.BorrowNo AS 借阅编号,b.CardNo AS 借阅证编号,c.Name AS 姓名," _
+ "BorrowDate AS 借阅日期 " _
+ " FROM Borrow b,BorrowList l,Cards c,BookInfo i " _
+ " WHERE l.BNo=b.BorrowNo AND b.CardNo=c.CardNo AND l.BookNo =i.BookNo" + SchCnd _
+ " ORDER BY l.BookNo,b.BorrowDate DESC"
' MsgBox (Adodc1.RecordSource)
Adodc1.Refresh
DataGrid1.Columns(0).Width = 1200
DataGrid1.Columns(1).Width = 1600
DataGrid1.Columns(2).Width = 1200
DataGrid1.Columns(3).Width = 1400
DataGrid1.Columns(4).Width = 1400
DataGrid1.Columns(5).Width = 1200
DataGrid1.Columns(6).Width = 1400
End Sub
编辑用户信息：
Public Modify As Boolean
Public OriUser As String
Private Sub Cmd_Cancel_Click()
Unload Me
37
End Sub
Private Sub Cmd_OK_Click()
If Trim(txtUserName) = "" Then
MsgBox "请输入用户名"
txtUserName.SetFocus
Exit Sub
End If
If Len(txtPass)
MsgBox "密码长度不能小于6"
txtPass.SetFocus
txtPass.SelStart = 0
txtPass.SelLength = Len(txtPass2)
Exit Sub
End If
If txtPass txtPass2 Then
MsgBox "密码和确认密码不相同，请重新确认"
txtPass2.SetFocus
txtPass2.SelStart = 0
txtPass2.SelLength = Len(txtPass2)
Exit Sub
End If
With MyUser
If Modify = False Or OriUser Trim(txtUserName) Then
38
If .In_DB(MakeStr(txtUserName)) = True Then
MsgBox "用户名已经存在，请重新输入"
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtUserName)
Exit Sub
End If
End If
.UserName = MakeStr(txtUserName)
.Pwd = MakeStr(txtPass)
If Modify = False Then
.Insert
MsgBox "添加完成"
Else
.Update (OriUser)
MsgBox "修改完成"
'如果修改自身用户名，则更新CurUser 对象
If OriUser = CurUser.UserName And Trim(txtUserName) OriUser Then CurUser.UserName = Trim(txtUserName)
CurUser.GetInfo (CurUser.UserName)
End If
End If
End With
39
Unload Me
End Sub
Private Sub Form_Load() End Sub
Private Sub txtPass_Change() End Sub
用户管理：
Private Sub Cmd_Add_Click() With FrmUserEdit
.txtUserName = ""
.txtPass = ""
.txtPass2 = ""
.Modify = False
.Show 1
End With
AdoUserList.Refresh DataList1_Click
End Sub
Private Sub Cmd_Back_Click() Unload Me
End Sub
Private Sub Cmd_Del_Click() 40
If DataList1.Text = "" Then
MsgBox "请选择要删除的用户"
Exit Sub
End If
If MyUser.UserName = "Admin" Then
MsgBox "此用户不能删除"
Exit Sub
End If
'确认删除
If MsgBox("是否删除当前用户", vbYesNo, "请确认") = vbYes Then
MyUser.Delete (DataList1.Text)
MsgBox "成功删除"
AdoUserList.Refresh
DataList1_Click
End If
End Sub
Private Sub Cmd_Modi_Click()
If DataList1.Text = "" Then
MsgBox "请选择要修改的用户"
Exit Sub
End If
With FrmUserEdit
.OriUser = MyUser.Overcame
41
.txtUserName = MyUser.UserName
.txtPass = MyUser.Pwd
.txtPass2 = MyUser.Pwd
If Trim(MyUser.UserName) = "Admin" Then
.txtUserName.Enabled = False
End If
.Modify = True
.Show 1
End With
AdoUserList.Refresh
DataList1_Click
End Sub
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Exit Sub
End If
'读取用户数据
MyUser.GetInfo (DataList1.Text)
lblUserName = MyUser.UserName
If Trim(MyUser.UserName) = "Admin" Then
lblUserType = "系统管理员"
Else
lblUserType = "普通用户"
42
End If
End Sub
Private Sub Form_Load()
lblUserType = ""
lblUserName = ""
'设置ADO 控件的连接字符串
AdoUserList.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ + App.Path + "\Books.mdb;Persist Security Info=False"
'设置数据源
AdoUserList.RecordSource = "SELECT * FROM Users"
AdoUserList.Refresh
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
43