《图书管理系统实例课件.ppt》由会员分享，可在线阅读，更多相关《图书管理系统实例课件.ppt（29页珍藏版）》请在三一文库上搜索。
1、图书管理系统实例,1,(第2版),机械工业出版社同名教材配套电子教案,图书管理系统实例,2,第14章 图书管理系统实例,14.1 任务要求14.2 开发环境 14.3 界面设计14.4 数据库设计14.5 代码设计14.6 在浏览器中测试习题14,图书管理系统实例,3,14.1 任务要求14.2 开发环境14.3 界面设计,图书管理系统实例,4,14.4 数据库设计 使用Access 2002建立一个book.mdb数据库将其保存在C:Inetpubbook文件夹中也就是站内，库中有一个名为mytable的表。,图书管理系统实例,5,14.5 代码设计 使用FrontPage 2002的模板创
2、建一个目录型框架页。主框架的文件名为default.htm代码清单如下：图书管理系统,图书管理系统实例,6, 此网页使用了框架，但您的浏览器不支持框架。 左框架文件名为left.asp，图书管理系统的功能界面在此页中显示。该页代码用于用户输入信息，根据用户输入的不同信息来触发服务器上对应的程序。该页代码清单如下：,图书管理系统实例,7,图书管理系统,图书管理系统实例,8, 图书查询请输入作者： 添加新书书名： ,图书管理系统实例,9,作者： 删除图书:(输入编号) ,图书管理系统实例,10,借阅图书图书编号： 借阅人： 归还图书：(输入编号) ,图书管理系统实例,11, 右框架页文件名为rig
3、ht.asp。本页程序用于判断数据库中是否有图书，如果有图则显示图书的目录和借阅情况。代码清单如下：图书管理系统,图书管理系统实例,12, ,图书管理系统实例,13,图书编号 书名作者是否在架借阅人 %if Rs(islend)= true then 判断图书是否借出Response.Write 已经借出,图书管理系统实例,14,elseResponse.Write 在架end if% ,图书管理系统实例,15, 查询网页执行程序代码文件名为find.asp。本页程序用于当用户在查询表单中输入了要查询图书作者名子后将是该作者的图书显示出来。代码清单如下：图书管理,图书管理系统实例,16, th
4、ensql=select * from mytable where author like% & author & %elsesql=select * from mytableend if,图书管理系统实例,17,Rs.Open sql,conn,1,1 使用recordset对象的recordcount属性取得当前记录集的记录个数totalput=Rs.RecordCountif Rs.EOF and Rs.BOF thenResponse.Write 当前没有图书.else% 符合条件的共有 本图书 ,图书管理系统实例,18,图书编号 书名作者是否在架借阅人 ,图书管理系统
5、实例,19, ,图书管理系统实例,20, 添加图书执行程序代码文件名为add.asp。本页程序用于当用户执行添加图书表单的命令按钮后，将正确的图书信息输入数据库。代码清单如下： & history.back() & Response.Endend ifif Request.form(text2)= then,图书管理系统实例,21,response.write Data Source = & Server.MapPath(book.mdb) 使用SQL语句将用户输入的数据插入数据库sql=insert into mytable(name,author) values(&
6、amp;name&,&author&),图书管理系统实例,22,Rs.Open sql,conn,1,1response.redirect right.asp 转到right.asp页% 删除图书页文件名为del.asp。本页程序当用户执行删除图书表单中的命令按钮后执行，用于删除数据库中的图书。代码清单如下： & history.back() & Response.Endend ifdim sql,rs,conn,id 声明变量,图书管理系统实例,23,id=Request.form(text3) 获取图书编号set Rs=server.createob
7、ject(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页% 借阅图书执行程序代码文件名为land.asp。本页程序用于当用户执行了借阅表单命令按钮后执行，用户输入正确的图书编号后
8、程序将该图做标记并显示出来。代码清单如下：,图书管理系统实例,24, & history.back() & Response.Endend ifdim sql,rs,conn,islend,id,username 声明变量,图书管理系统实例,25,id=Request.form(text4)username=Request.form(text6)islend=trueset rs=server.createobject(adodb.recordset) 使用recordset对象连接book.mdb数据库conn = Provider = Microsoft.Jet.OLEDB
9、.4.0; Data Source = & Server.MapPath(book.mdb) 使用SQL更新数据，注意单引号与双引号的使用 单引号作为字符串的分界符，双引号用作变量sql=update mytable set islend=&islend&,username=&username& where id=+idrs.Open sql,connresponse.redirect right.asp 转到right.asp页,图书管理系统实例,26,% 还书执行程序代码文件名为still.asp，本页程序用于当用户执行了还书表单命令后，将借书标记清
10、除并显示出在架信息。代码清单如下： & history.back() & Response.Endend ifdim sql,rs,conn,islend,id,name,author 声明变量id=Request.form(text5) 将取出的编号变量赋给ID,图书管理系统实例,27,islend=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页%,图书管理系统实例,28,14.6 在浏览器中测试,图书管理系统实例,29,习题14 14.1 为图书管理添加按图名查询程序代码。 14.2 请参看第13.7节“分页技术”为图书管理添加分页模块。如果右框架页超过20条记录则分页显示。,