基于圖書倉庫管理系統(tǒng)的數(shù)據(jù)庫設(shè)計方案與實(shí)現(xiàn)

PAGEPAGE1設(shè)計題目：圖書倉庫管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)專業(yè)：計算機(jī)科學(xué)與技術(shù)姓名：李海洋王哲學(xué)號：0825829026,0825829043指導(dǎo)老師：邱自華時間:2010—6—15目錄TOC\o”1—3"\h\z\u_Toc265081452"一、系統(tǒng)分析 5二、數(shù)據(jù)庫設(shè)計 72、數(shù)據(jù)庫邏輯設(shè)計 8HYPERLINK\l”_Toc265081457”三、數(shù)據(jù)庫的管理 9四、數(shù)據(jù)庫的實(shí)施和維護(hù) 104.1主界面設(shè)計 10_Toc265081461"五、代碼 12text/html；charset=utf—8"/〉〈title>倉庫管理系統(tǒng)</title>〈/head〉〈body>〈divalign="center">〈br〉〈fontcolor=”＃000000”>倉庫管理管理系統(tǒng)</font><br>〈/div><formmethod=”post"action=”checklogin。asp">〈divalign=”center”〉<p>用戶名稱<inputmaxlength=25name="username"size=13value=””〉</p><p〉管理密碼<inputmaxlength=25name=”password"size=13type="password”value=””>〈/p〉<p〉〈inputtype="submit”value="確定"name="cmdOk”> ；〈inputtype="reset”value="重填"name=”cmdReset"> </p></div〉〈/form></body></html>manage。asp〈html〉<head〉〈metahttp-equiv=”Content-Type"content=”text/html；charset=gb2312”/〉〈title〉管理界面</title></head>〈body〉〈% ifSession(”zhanghao")<>”admin”then response.redirect”login.asp”endif％><tablealign="center”><tr〉<tdalign=”left">歡迎您：<％Response。Write（Session("zhanghao”）)％>〈/td〉〈tdalign=”right"〉時間：〈%Response。Write（Date（))%〉〈/td〉〈/tr〉<tr〉〈tdcolspan=”2”><% setconn=Server.CreateObject("ADODB。Connection"） conn.open”Driver={SQLServer}；server=(local);uid=sa；pwd=123456;database=ckguanlixitong;” setrs=Server.CreateObject(”ADODB.Recordset"） sql="SELECT*FROMbook” rs.Opensql,conn，3'rs。open"sql語句，conn，打開方式,鎖定方式” rs。PageSize=4 ’第一次顯示沒有頁碼，默認(rèn)顯示第一頁 IfRequest（"page”)〈>””Then iPage=Cint（Request（”page”）) IfiPage〈1Then iPage=1’頁碼小于1,則顯示第一頁 ’當(dāng)大于總頁數(shù)的時候,顯示最后一頁 IfiPage>rs.PageCountTheniPage=rs.PageCount Else iPage=1 EndIf Response.Write(”當(dāng)前第"&iPage＆”頁,共"＆rs。PageCount＆”頁") rs.AbsolutePage=iPage%><TABLECELLPADDING="2"BORDERCOLOR="Black”BORDER="1”〉〈TRSTYLE=”BACKGROUND-COLOR:＃AAAADD;"〉 〈TD〉ID</TD><TD〉書名</TD〉〈TD>作者</TD〉〈TD>出版社</TD〉 <TD〉修改〈/TD><TD〉刪除</TD></TR〉〈%ForI=0Tors.PageSize-1 Ifrs.EOFORrs。BOFThenExitFor ’設(shè)置奇數(shù)和偶數(shù)行顯示不同的背景顏色 If IMod2=1Then Response。Write(”<TRSTYLE=’BACKGROUND-COLOR：＃FFFFCD;'>”） Else Response。Write（”<TR〉”） Endif Response.Write（"〈TD〉”＆rs("ID"）＆”〈/TD>")%> 〈TD〉〈AHREF=’detail。asp?shuming=<%=rs("SM")％>’TARGET='_blank’> 〈%=rs("SM")％〉〈/A〉〈/TD>〈％ Response.Write（”<TD〉"&rs("ZZ”)＆"〈/TD>") Response.Write("〈TD〉"＆rs(”CBS”）&"〈/TD〉"） %> <TD〉<AHREF=”show_uppdat。asp?id=<%=rs(”ID"）％〉”>修改〈/A>〈/TD> <TD><AHREF=”del.asp?id=〈%=rs（”ID"）%>"〉刪除</A〉〈/TD><% Response。Write（"</TR〉”） rs.movenext（）Next％></TABLE>〈BR〉<divalign=”center”〉<％'當(dāng)前是第一頁的時候,不顯示"第一頁”IfiPage〈>1Then%> 〈AHREF=”manage。asp？page=1”〉第一頁〈/A〉 〈AHREF=”manage.asp?page=<%=i1%>”〉上一頁</A>〈% EndIf'當(dāng)前是最后一頁的時候，不顯示"最后頁” IFiPage<〉rs.PageCountThen%>〈AHREF="manage.asp？page=〈％=iPage+1%>”>下一頁〈/A〉<AHREF="manage.asp？page=〈％=rs.pageCount%〉"〉最后頁〈/A><％EndIf conn。close（）％〉</div></td></tr></table><palign=”center"〉〈ahref="show_add.asp"〉添加數(shù)據(jù)〈/a>〈/p></body>〈/html〉checklogin.asp〈html〉〈head><metahttp—equiv="Content—Type"content="text/html;charset=utf—8"/>〈title>驗證登陸</title>〈/head><body〉<％dimsqldimrsdimseekerrsdimfounduserdimusernamedimcompanyiddimpassworddimerrmsgdimfounderrfounderr=falseFoundUser=falseusername=Request。Form("username"）password=Request.Form(”password”)’如果管理員帳號為空'ifusername="”thenResponse.Redirect(”false.html”)Endififpassword=””thenResponse。Redirect(”false.html”)Endififusername="admin”andpassword="admin”then'如果管理員名稱和密碼都正確則設(shè)置COOKIES保證全站生效’';Response。Cookies(”name”）=”admin”Session("zhanghao”)="admin”Response。Redirect(”manage.asp”)elseResponse.Redirect（"false.html")Endif%〉〈/body>〈/html〉del。asp〈HTML>〈head〉 <title>刪除數(shù)據(jù)庫</title〉</head〉<BODY〉〈％ ifSession（”zhanghao"）〈>”admin”then response.redirect"login。asp"endif％><% str=Request（"id") setconn=Server.CreateObject("ADODB.Connection”） conn.open"Driver={SQLServer}；server=(local）;uid=sa；pwd=123456;database=ckguanlixitong;" setcmd=Server。CreateObject("ADODB.Command”) cmd。ActiveConnection=conn sql=”DELETEFROMbookWHEREID="&str Response。Write(sql) cmd。CommandText=sql cmd。Execute(） Response.Redirect（”successed。html"）％〉〈/BODY〉</HTML>do_add.asp〈html>〈head>〈metahttp—equiv="Content-Type"content=”text/html；charset=utf-8”/〉〈title>添加</title></head><body>〈％ ifSession("zhanghao"）<〉”admin”then Response。redirect”login.asp”endif%〉<% str=Request.Form("int_id”） shuming=Request.Form("shuming”) zuozhe=Request.Form("zuozhe"） chubanshe=Request.Form("chubanshe”） setconn=Server。CreateObject（”ADODB。Connection") conn。open”Driver=｛SQLServer}；server=（local);uid=sa;pwd=123456；database=ckguanlixitong；" setcmd=Server.CreateObject(”ADODB。Command”) cmd。ActiveConnection=conn sql="insertintobook(ID，SM，ZZ,CBS）values(”＆str&"，’"＆shuming&"’,’"&zuozhe&”'，’”&chubanshe＆"')；" Response.Write(sql) cmd.CommandText=sql cmd.Execute(） Response。Redirect(”successed.html"）%></body〉〈/html〉do_uppdat。asp〈HTML〉〈head><title>更新界面〈/title>〈/head〉<BODY〉<% ifSession("zhanghao"）<>"admin"then response。redirect"login.asp”endif%>〈％ str=Request。Form（”int_id"） shuming=Request.Form（"shuming”) zuozhe=Request.Form（”zuozhe”） chubanshe=Request。Form(”chubanshe”) setconn=Server。CreateObject（”ADODB.Connection”） conn.open”Driver=｛SQLServer};server=（local）；uid=sa;pwd=123456；database=ckguanlixitong；" setcmd=Server。CreateObject（”ADODB。Command"） cmd。ActiveConnection=conn 'sql="updatebookset書名='c’whereID=1” ’sql="UPDATEbookSET書名=”＆shuming＆"，作者=”＆zuozhe&”，出版社="＆chubanshe&"whereID=”＆str sql="UPDATEbookSETSM=”&”’"＆shuming&”’”&"，ZZ="＆"’”&zuozhe＆"'"＆",CBS="&"'”&chubanshe＆”’"&”whereID=”&str Response.Write（sql） cmd。CommandText=sql cmd。Execute（） Response。Redirect（”successed.html"）%></BODY>〈/HTML>false。html<html>〈head>〈metahttp-equiv=”Content-Type”content="text/html;charset=utf—8”/><title>顯示錯誤〈/title>〈/head>〈body>〈h1align=”center”〉密碼或者帳號錯誤！</h1〉<palign=”center"〉〈ahref=”login.asp”〉重新登陸！</a〉〈/p></body></html〉show_add。asp〈html>〈head>〈metahttp—equiv=”Content—Type"content="text/html；charset=utf-8”/><title>添加</title〉</head〉<body>〈％ ifSession（”zhanghao"）<>”admin"then response.redirect"login.asp"endif%><divalign=”center"〉〈FORMACTION="do_add.asp”METHOD="post”〉〈table>〈tr〉<td>ID：</td>〈Td><INPUTTYPE=”TEXT"NAME=”int_id"〉〈/Td〉〈/tr><tr>〈td>書名:</td><td〉〈INPUTTYPE="TEXT”NAME="shuming"〉〈/td〉〈/tr><tr〉〈td>作者:〈/td〉<td〉〈INPUTTYPE="TEXT”NAME="zuozhe”〉</td〉</tr>〈tr><td>出版社：〈/td〉〈td〉<INPUTTYPE=”TEXT"NAME="chubanshe”〉</td></tr>〈/td>〈/tr>〈/table〉〈INPUTTYPE="SUBMIT"VALUE="修改”>〈/FORM>〈/div〉</body>〈/html>show_uppdat。asp<HTML〉<head〉<title>更新界面〈/title>〈/head〉<BODY〉〈% ifSession(”zhanghao")〈〉”admin"then response。redirect”login.asp”endif%〉〈％ str=Request("id") setconn=Server.CreateObject("ADODB.Connection”） conn。open"Driver=｛SQLServer｝;server=(local);uid=sa;pwd=123456；database=ckguanlixitong；" setcmd=Server。CreateObject（"ADODB.Command"） cmd。ActiveC