版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
PAGEPAGE1设计题目:图书仓库管理系统的设计与实现专业:计算机科学与技术姓名:李海洋王哲学号:0825829026,0825829043指导老师:邱自华时间:2010—6—15目录TOC\o”1—3"\h\z\u_Toc265081452"一、系统分析 5二、数据库设计 72、数据库逻辑设计 8HYPERLINK\l”_Toc265081457”三、数据库的管理 9四、数据库的实施和维护 104.1主界面设计 10_Toc265081461"五、代码 12text/html;charset=utf—8"/〉〈title>仓库管理系统</title>〈/head〉〈body>〈divalign="center">〈br〉〈fontcolor=”#000000”>仓库管理管理系统</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 ’第一次显示没有页码,默认显示第一页 IfRequest("page”)〈>””Then iPage=Cint(Request(”page”)) IfiPage〈1Then iPage=1’页码小于1,则显示第一页 ’当大于总页数的时候,显示最后一页 IfiPage>rs.PageCountTheniPage=rs.PageCount Else iPage=1 EndIf Response.Write(”当前第"&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 ’设置奇数和偶数行显示不同的背景颜色 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”〉<%'当前是第一页的时候,不显示"第一页”IfiPage〈>1Then%> 〈AHREF=”manage。asp?page=1”〉第一页〈/A〉 〈AHREF=”manage.asp?page=<%=i1%>”〉上一页</A>〈% EndIf'当前是最后一页的时候,不显示"最后页” 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"〉添加数据〈/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'如果管理员名称和密码都正确则设置COOKIES保证全站生效’';Response。Cookies(”name”)=”admin”Session("zhanghao”)="admin”Response。Redirect(”manage.asp”)elseResponse.Redirect("false.html")Endif%〉〈/body>〈/html〉del。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。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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- DB11T 1315-2015 绿色建筑工程验收规范
- 医师资格考试合格考生医师联网注册及考核管理系统数据库信息补录(修改)办理申请审核表
- 山东省烟台市招远市2024-2025学年七年级上学期期中生物试题(含答案)
- 黑龙江省哈尔滨市南岗区哈尔滨市第六十九中学校2024-2025学年八年级上学期期中地理试题(含答案)
- 制冰机市场发展预测和趋势分析
- 带升降设备的立体车库产业规划专项研究报告
- 存储卡读卡器产业规划专项研究报告
- 家具用皮缘饰市场需求与消费特点分析
- 人教版英语八年级下册 英语暑假作业(一)
- 人教版八年级英语上册 暑假预习Unit 1 Section A
- 医疗废物泄露的应急预案及处置流程
- 《研学旅行课程设计》课件-制订研学课程目标
- 环境监测仪器设备采购环境监测仪器设备配送方案
- 广东省课程思政示范高职院校申报书
- 基于幼小衔接的幼儿学习品质培养研究以小学为例
- 2023版(五级)脊柱按摩师技能认定考试题库(单选题部分)
- 工程地质剖面图的绘制(正式)
- JJG 707-2014扭矩扳子行业标准
- 2024 团校考试入团考试题库(含答案)
- 2024医保练兵理论知识考试题库(浓缩500题)
- 三重一大培训课件
评论
0/150
提交评论