本文运用VB6.0软件，从开发工具的介绍、系统分析、系统设计等三个层面，对企业图书馆管理系统进行设计开发，增强多条件检索、模糊查询、借还图书自动管理功能，使得企业的图书管理迈向科学化、正规化管理。
企业图书馆管理系统分析与设计
孟洋
当前，对于一些企业来讲，多数都有自己的图书馆或资料室。然而，有很多的图书馆尚未使用计算机进行信息管理。管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况的统计和核实等往往采用对借书卡的人工检查进行，数据信息处理工作量大，容易出错。为此，创新信息管理手段，有效配置系统资源，显得尤为迫切而重要。
开发工具介绍
在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。SQLServer企业管理器提供了一个遵从MMC标准的用户界面，使用户得以定义SQLServer实例组，为每个已注册的服务器配置所有SQLServer选项，通过唤醒调用SQL查询分析器，交互设计并测试SQL语句、批处理和脚本。
系统分析
可行性分析。对于一般企业来说，藏书量不是很大，不像专业的图书馆，有着健全的编码设置等，因此本系统可以定位为小型的管理系统。作为一个小型的管理系统，其开发费用相对较低，并且对系统软、硬件及开发人员自身的技术水平要求相对较低，硬件资源要求能够运行VB6.0和SQLServer2000的计算机，目前大多数企业中现有的配置大多能支持。
应用需求分析。对于大多数企业图书馆管理人员来说，系统管理员首先分配普通管理员权限，完成其帐户密码的设置。设置好类别后可以根据一定条件，如职称等级等把企业内部所有职工的基本信息录入，包括编号，姓名，性别，电话，部门，住址等，以便日后管理。当读者选好要借阅的图书时，管理人员输入图书编号和读者编号，确定借书。当读者还书时判断是否超期，如果超期则进行相应的罚款，如果图书丢失，则根据读者补偿方式确定是否需要修改数据库中图书信息。
系统设计
数据库设计。用户的需求具体体现在各种信息的提供，保存，更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出。针对一般企业图书馆管理系统的需求，设计如下所示的数据项和数据结构：书籍信息：书籍编号，书籍名称，作者，出版社，等。读者信息：读者编号，姓名，性别，读者种类等。读者类别信息：类别编号，类别名称，最大借阅数，等书籍类别信息：类别编号，类别名称，关键词，备注等。借阅信息：借阅信息编号，书籍名称，读者姓名，借书日期，还书日期等。
数据库概念结构设计。根据上面的设计规划出的实体有：读者类别信息实体、读者信息实体、书籍类别信息实体、书籍信息实体、借阅信息实体。
数据库逻辑结构设计。现在将上面的数据库概念结构转化为SQLServer2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。企业图书馆管理系统数据库中各个表格的设计结果如下面表格所示，每个表表示在数据库中的一个表。
Readertype读者种类信息表：
各个功能模块的详细设计
登陆界面设计
系统启动后，将出现登陆窗体，用户需输入用户名和密码。本窗体是为了让图书馆管理员和系统管理员按照用户名和密码进行登录，以分辩是否具有合法权限及权限大小。
当用户输入完用户名和密码后，单击cmdok按钮将对用户信息进行判断。当输入为空时将出现消息框提示输入；如果输入用户名在用户表中没有，则提示重输，文本框txtusername将重新获得输入焦点。如果密码不正确，则文本框txtpassword将重新获得焦点。当登陆用户为系统管理员时，用户登陆成功后，则出现主窗体，并赋予所有的操作权限，当登陆用户为一般用户时，登陆成功后出现的主窗体中用户管理项为灰色，不可用，限制其用户管理部分的权限。如果三次输入都错误，则自动退出系统。
系统主窗体的设置
主窗体菜单创建：在主窗体中，单击右键，选择menudeitor,创建菜单结构。在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。选中状态栏控件，单击鼠标右件，选中Property菜单，然后设置属性。面板1用来显示各种文本信息，面板2用来显示当前日期，面板3用来显示当前时间。在主窗体中，单击鼠标右件，选中MenuEditor,创建表单结构，为了使用方便，再创建一些快捷按钮。
系统用户管理模块的创建
该模块只对系统管理员开放，包括添加用户，修改用户密码和删除用户功能。在添加用户窗体中放置了3个文本框，用来输入用户名和密码。用户需要两次输入密码，用来确保输入密码的正确。当输入不一致时系统会提示，相关代码如下:
IfTrim(Texti(1).Text)<>Trim(Texti(2).Text)Then
MsgBox"两次输入密码不一样，请确认！",vbOKOnly+vbExclamation,"警告"
Texti(1).SetFocusText1(1).Text=""
Texti(2).Text=""
ExitSub
修改用户密码窗体中，当单击cmdOK按钮是，将触发click事件，代码如下:
PrivateSubcmdOK_Click()
DimtxtSQL,MsgTextAsStringDimmrcAsADODB.RecordsetIfTrim(Text1(1).Text)<>Trim(Text1(2).Text)Then
MsgBox"密码输入不正确！",vbOKOnly+vbExclamation,"警告"
Text1(1).SetFocus
Text1(1).Text=""
Else
txtSQL="select*fromuser_Infowhereuser_ID='"&Text2.Text&"…
Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.Fields(1)=Trim(Text1(1).Text)mrc.Updatemrc.Close
MsgBox"密码修改成功！",vbOKOnly+vbExclamation,"修改密码"
Me.HideEndIf
EndSub
当管理员要暂时退出或更换管理员时可以选择注销，之后重新登陆，以确保安全，代码为
PrivateSubCommand5_Click()
PrivateSubexit1_Click()
IfMsgBox("你确定要注销吗？",vbInformation+vbOKCancel,"注销"）=vbOKThenUnloadMe
DimfLoginAsNewfrmLoginfLogin.ShowvbModalIfNotfLogin.OKThen
'LoginFailedsoexitappEndEndIf
UnloadfLoginIffLogin.OKThenfMainForm.ShowEndIf EndIfEndSub
由于各个企业基本情况不同，因此其使用者的具体需求也有所变化。而且随着企业的发展，还存在着对软件一些扩展功能的需求，这就需要系统管理员不断的对系统实行维护工作。除了矫正系统原来开发时可能存在的不足，还要根据实际情况设置改进系统以使其能更好的运用。
（作者单位：秦皇岛图书馆) |
