小型图书资料管理系统论文.doc

小型图书资料管理系统设计与实现

 胡昆鹏

（合肥财经职来学院）

    摘  要  本文为大家介绍一个小型图书资料管理系统设计与实现，该系统适用于各中小学、中小企业及较大单位的某一部门。使用该系统可以帮助图书管理员使用计算机等工具来辅助其完成图书管理及借阅方面的工作，从而使得管理人员更加省时省力。本系统主要包括图书管理系统和用户借阅系统，其中图书管理系统包括了用户管理、分类管理、图书检索、新书入库管理和借阅管理等五大模块，而借阅系统包括了借书和还书等模块。该系统具有清晰的数据流和控制流，并有很好的安全性。
    关键词  图书管理；图书借阅；检索；ASP；B/S
1  引言 
   当今社会是一个信息化的社会，图书资料仍是获取信息的一个主要来源，随着人们对信息需求的增强，各中小单位及有关部门都为日益增多的图书的管理而困扰。 本文为大家介绍一个小型图书资料管理系统的设计与实现，该系统适用于各中小学、中小企业及较大单位的某一部门。使用该系统可以帮助图书管理员使用计算机等工具来辅助其完成图书管理及借阅方面的工作，从而使得管理人员更加省时省力。
2  数据结构
   一个实用而高效的信息管理系统必须建立在良好的数据结构基础上，图书管理主要包括用户管理、分类管理、新书入库管理和借阅管理。为此我们在数据库中设立了四个数据表：借书日志表、图书表、图书分类表、管理员表。
2.1  数据库设计
    （1）借书日志表，包含如下信息：
    编号、图书条形码、图书ID、姓名、借书类型(1借出 0 归还)、借阅时间、操作人、归还时间、备注。
    （2）图书表，包含如下信息：
    编号、条件码、书编号、书名、出版社、主编、简介、定价、购买时间、分类ID、册数、已经借出数、备注、借阅数、借阅记录、用户ID。
    （3）图书分类表，包含如下信息：
编号、目录名称、上级目录I（根目录为0）、目录简要描述。
    （4）管理员表，包含如下信息：
    编号、用户名、密码、是否是管理员。
2.2  表的实现
    使用Access建立表，注意备注栏填写字段的中文备注。
3  系统功能设计
本系统主要分为两大部分：一是图书管理系统，包括用户管理、分类管理、新书入库管理和借阅管理等五大模块。二是用用借阅系统，主要包括读者管理、借书模块、还书模块（这里读者管理我们不做介绍）。其功能结构如图1所示。
图1 系统结构图
3.1  管理员管理
   该模块主要有管理用户的添加、删除和修改及管理用户的登陆功能。
（1） 管理员的管理功能，即数据记录增加、删除和修改的功能，比较简单，请参考本系统的原代码。如图2所示。

图2 管理员管理功能

（2）用户登陆表单的设计。如图3

图3 管理用户登陆表单

/*用表格嵌套登陆表单*/
olor="#FFFFFF">

dim action
action=trim(request.QueryString("action"))
if action="chkuser" then
dim password,username
username=request.Form("username")
password=request.Form("password")
password=md5(password,16)
set rs=conn.execute("select * from manager where userid='"&username&"' and password='"&password&"'")
if not rs.eof then
session("username")=rs("userid")
session("userid")=rs("id")
if rs("isadmin")=true then
session("isadmin")="admin"
end if
response.Write "alert('登录成功 \n\n 图书管理系统');window.location.href='main.asp';"
else
response.Write "alert('密码错误 \n\</p><p style='padding:5px 0px;'>12、n 校园图书管理系统');window.location.href='index.asp';"
end if
end if
%>
3.2  分类管理
   该模块具有分类的添加、删除、修改和分类图书记录浏览的功能。采用框架设计，框架的左边是具体的分类，右边的缺省页是分类管理（如图4），当你选择左边相应的分类时，它还可以显示该分类下的有关图书信息。我们采用action变量作为select开关语句的变量表达式，来判断用户所要执行的操作。如果action的值是add，系统就做添加分类操作；如果是edit系统就做编辑操作；如果是del系统就做删除操作。

图4  分类管理

function checkadd(){
if (document.form1.foldername.value==""){
alert('分类名称不能为空');
document.form1.foldername.select();
document.form1.foldername.focus();
return false;
}
}
分类管理
<%
//分类的管理，通过action值判断做分类的添加、删除和修改
Dim action,id
action=trim(request.QueryString("action"))
select case action
case "add"
foldername=cstr(request.Form("foldername"))
Set rs=server.CreateObject("adodb.recordset")
sql="select * from folder"
rs.open sql,conn,1,3
rs.addnew
rs("foldername")=foldername
rs("folderparentid")=0
rs.update
rs.close
set rs=nothing
response.Write "alert('添加分类成功！');window.location.href='foldermanage.asp';"
case "editfolder"
%>

le not rs.eof
%>
有图书都将删除！');">删除ue="<%=rs("foldername")%>" />
foldername=cstr(request.Form("foldername"))
Set rs=server.CreateObject("adodb.recordset")
sql="select * from folder where folderid="&id
rs.open sql,conn,1,3
rs("foldername")=foldername
rs.update
rs.close
set rs=nothing
response.Write "alert('修改分类成功！');window.location.href='folderma</p><p style='padding:5px 0px;'>23、nage.asp';"

case "del"
id=cint(request.QueryString("id"))
conn.execute("delete from folder where folderid="&id)
conn.execute("delete From ebook where folderid="&id)
response.Write "alert('删除分类成功！');window.location.href='foldermanage.asp';"

case else
%>
p;g>操作管理lderid")%>">修改 | " onclick="return confirm('删除分类，分类下所有图书都将删除！');">删除 align="center">操作管理
shu=request.form("ceshu")
dingjia=request.form("dingjia")
jianjie=request.form("jianjie")
beizhu=request.form("beizhu")
shijian=request.form("shijian")
bookpic=request.form("bookpic")
set rs=server.createobject("adodb.recordset")
sql="select * from ebook where id="&bookid&""
rs.open sql,conn1,3
rs("tiaoxingma")=tiaoxingma
rs("shuming")=shuming
rs("folderid")=folderid
rs("zhubian")=zhubian
rs("chubanshe")=chubanshe
rs("ceshu")=ceshu
rs("dingjia")=dingjia
rs("jianjie")=jianjie
rs("shijian")=shijian
rs("beizhu")=beizhu
rs("bookpic")=bookpic
rs.update
rs.close
set rs=nothing
response.write ""
response.write "alert('修改书籍成功! \n\n 图书管理系统！');"
response.write "window.location.href='bookedit.asp?tiaoxingma="&tiaoxingma&"'"
response.write ""

else

%>
图书入库

<!--
fu</p><p style='height:0px;padding:0;overflow:hidden'>37、nction MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->

<%
//在数据库中查询指定条形码对应的信息并显示，在该状态下也可以修改该图书的信息
tiaoxingma=trim(request("tiaoxingma"))
Set rs=conn.execute("select * from ebook where tiaoxingma='"&tiaoxingma&"'")
%>

onKeyDown="checkit();" value="<%=tiaoxingma%>" />0")
do while not rs1.eof
%>
height="150" border="0" />"text" id="chubanshe" tabindex="3" value="<%=rs("chubanshe")%>" />Data.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onKeyDown="if(event.keyCode==13)event.keyCode=9" />
册0" />
元关于我们      便捷服务       自信AI       AI导航        抽奖活动©2010-2026 宁波自信网络信息技术有限公司  版权所有客服电话：[phone]  投诉电话：[phone]浙公网安备33021202000488号   浙ICP备2021020529号-1  |  浙B2-20240490  关注我们 ：