图书管理系统实例.ppt

《图书管理系统实例.ppt》由会员分享，可在线阅读，更多相关《图书管理系统实例.ppt（29页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、网页设计与制作教程网页设计与制作教程(第第2版版)机械工业出版社同名教材配套电子教案第第14章章 图书管理系统实例图书管理系统实例14.114.1 任务要求任务要求14.214.2 开发环境开发环境开发环境开发环境 14.314.3 界面设计界面设计14.414.4 数据库设计数据库设计14.514.5 代码设计代码设计14.614.6 在浏览器中测试在浏览器中测试习题习题习题习题141414.1 任务要求14.2 开发环境14.3 界面设计14.4 数据库设计 使 用 Access 2002建 立 一 个 book.mdb数 据 库 将 其 保 存 在C:Inetpubwwwrootbook

2、文件夹中也就是站内，库中有一个名为mytable的表。14.5 代码设计 使用FrontPage 2002的模板创建一个目录型框架页。主框架的文件名为default.htm代码清单如下：图书管理系统 此网页使用了框架，但您的浏览器不支持框架。左框架文件名为left.asp，图书管理系统的功能界面在此页中显示。该页代码用于用户输入信息，根据用户输入的不同信息来触发服务器上对应的程序。该页代码清单如下：图书管理系统 图书查询请输入作者：添加新书书名：作者：删除图书:(输入编号)借阅图书图书编号：借阅人：归还图书：(输入编号)右框架页文件名为right.asp。本页程序用于判断数据库中是否有图书，如

3、果有图则显示图书的目录和借阅情况。代码清单如下：图书管理系统 图书编号 书 名 作 者 是 否 在 架 借 阅 人 查询网页执行程序代码文件名为find.asp。本页程序用于当用户在查询表单中输入了要查询图书作者名子后将是该作者的图书显示出来。代码清单如下：图书管理%dim author,sql,rs,conn,totalput 声明变量set Rs=server.createobject(adodb.recordset)使用recordset对象连接book.mdb数据库conn=DBQ=+server.mappath(book.mdb)+;DefaultDir=;DRIVER=Micros

4、oft Access Driver(*.mdb);判断查询变量是否为空值。不为空使用该变量检索数据库，为空检索整个数据库if Request.form(author)thensql=select*from mytable where author like%&author&%elsesql=select*from mytableend ifRs.Open sql,conn,1,1 使用recordset对象的recordcount属性取得当前记录集的记录个数totalput=Rs.RecordCountif Rs.EOF and Rs.BOF thenResponse.Write 当前没有图书

5、.else%符合条件的共有 本图书 图书编号 书 名 作 者 是 否 在 架 借 阅 人 添加图书执行程序代码文件名为add.asp。本页程序用于当用户执行添加图书表单的命令按钮后，将正确的图书信息输入数据库。代码清单如下：%以判断用户是否输入完整图书的信息if Request.form(text1)=thenresponse.write&chr(13)&alert(请输入书名！);&history.back()&Response.Endend ifif Request.form(text2)=thenresponse.write&chr(13)&alert(请输入作者！);&history.

6、back()&Response.Endend ifdim name,author,sql,rs,conn 声明变量name=Request.form(text1)赋值author=Request.form(text2)set Rs=server.createobject(adodb.recordset)使用recordset对象连接book.mdb数据库conn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(book.mdb)使用SQL语句将用户输入的数据插入数据库sql=insert into mytable(nam

7、e,author)values(&name&,&author&)Rs.Open sql,conn,1,1response.redirect right.asp 转到right.asp页%删除图书页文件名为del.asp。本页程序当用户执行删除图书表单中的命令按钮后执行，用于删除数据库中的图书。代码清单如下：%将变量text3从表单中取出，以判断用户是否输入了图书编号if Request.form(text3)=thenresponse.write&chr(13)&alert(请输入图书编号！);&history.back()&Response.Endend ifdim sql,rs,conn,

8、id 声明变量id=Request.form(text3)获取图书编号set Rs=server.createobject(adodb.recordset)使用recordset对象连接book.mdb数据库conn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(book.mdb)使用SQL语句删除数据sql=delete from mytable where id=+idRs.Open sql,connresponse.redirect right.asp 转到right.asp页%借阅图书执行程序代码文件名为lan

9、d.asp。本页程序用于当用户执行了借阅表单命令按钮后执行，用户输入正确的图书编号后程序将该图做标记并显示出来。代码清单如下：%判断是否输入了借书信息if Request.form(text4)=thenresponse.write&chr(13)&alert(请输入图书编号！);&history.back()&Response.Endend ifif Request.form(text6)=thenresponse.write&chr(13)&alert(请输入借阅人姓名！);&history.back()&Response.Endend ifdim sql,rs,conn,islend,i

10、d,username 声明变量id=Request.form(text4)username=Request.form(text6)islend=trueset rs=server.createobject(adodb.recordset)使用recordset对象连接book.mdb数据库conn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(book.mdb)使用SQL更新数据，注意单引号与双引号的使用 单引号作为字符串的分界符，双引号用作变量sql=update mytable set islend=&islend

11、&,username=&username&where id=+idrs.Open sql,connresponse.redirect right.asp 转到right.asp页%还书执行程序代码文件名为still.asp，本页程序用于当用户执行了还书表单命令后，将借书标记清除并显示出在架信息。代码清单如下：%将变量text5从表单中取出，以判断用户是否输入了图书编号if Request.form(text5)=thenresponse.write&chr(13)&alert(请输入图书编号！);&history.back()&Response.Endend ifdim sql,rs,conn

12、,islend,id,name,author 声明变量id=Request.form(text5)将取出的编号变量赋给IDislend=false 赋值，用于取出的图书set Rs=server.createobject(adodb.recordset)使用recordset对象连接book.mdb数据库conn=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(book.mdb)使用SQL语句更新数据sql=update mytable set islend=&islend&,username=where id=+idRs.Open sql,connresponse.redirect right.asp 转到right.asp页%14.6 在浏览器中测试习题14 14.1 为图书管理添加按图名查询程序代码。14.2 请参看第13.7节“分页技术”为图书管理添加分页模块。如果右框架页超过20条记录则分页显示。