求商品库存查询源码_软件运维

按你要求做的，直接复制便可

数据库中字段

商品代号：文本

商品名称：文本

商品颜色：文本

商品尺寸：文本

商品价格：数字

商品库存：是/否、或文本数字看习惯

conn.asp页面

dim conn,rs,sql,db '声明变量

set conn=server.createobject("adodb.connection") '创建一个数据库的实例派生给一个变量

db = server.MapPath("db.mdb")

conn.connectionstring="provider=microsoft.jet.oledb.4.0data source="&db '连接数据库

conn.open '打开数据库

sub close_conn

conn.close

set conn=nothing

end sub

index.asp页面

if request.Form("send")="" then '判断是否有查询提交

sql = "select * from 商品表" '无查询者输出全部

else

if request.Form("key")="" then '判断关键字是为空

response.write "<script>alert('关键字不能雀扒为空')window.history.back()</script>"

call close_conn

response.End()

end if

if request.Form("mode")="高级查询" then '判断查询方式

dim ys,cc,jg

ys=""

cc=""

jg=""

if request.Form("ys")<>"0" then '判断是否有选颜色

ys=" and 商品颜色='"&request.Form("ys")&"'" '将查询表达式中条件赋给 ys

end if

if request.Form("cc")<>"0" then '判断是否有选尺寸

cc=" and 商品尺寸='"&request.Form("cc")&"'" '将查询表达式中条件赋给 cc

end if

if request.Form("jg1")<>"" and request.Form("jg2")<>"" then '判断是否有价格要求

jg=" and (商品价格>="&request.Form("jg1")&" and 商品价格<="&request.Form("jg2")&")"'将查询表达式中条件赋给 jg

end if

if request.Form("style")="0" then '如果style等于0表示以商品代号查询否者以名称

sql="select * from 商品表 where 商品代号 like '%"&request.Form("key")&"%'"&ys&cc&jg

else

sql="select * from 商品表 where 商品名称 like '%"&request.Form(庆岁滚"key")&"%'"&ys&cc&jg

end if

else

if request.Form("style")="0" then '如果style等于0表示以商品代号查询否者以名称

sql="select * from 商品表 where 商品代号 like '%"&request.Form("key")&"%'"

else

sql="select * from 商品表 where 商品名称 like '%"&request.Form("key")&"%'"

end if

set rs=server.createobject("adodb.recordset") '创建一个记录集的实例派生给一个变量

rs.open sql,conn,1,1 '打开记录集

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

td{

text-align:center

background:#fff

line-height:25px

font-size:12px

}

</style>

</head>

<body>

<tr>

</select>

</form>

</td>

</tr>

<tr>

</tr>

if not rs.bof and not rs.eof then

do while not rs.eof

<tr>

<% if rs("商品库存") then %>

<%else%>

<%end if%>

</tr>

rs.movenext

loop

else

<tr>

<td colspan="6">没有关于[<%=request.Form("key")%>]的商品信息</td>

</tr>

end if

rs.close

set rs=nothing

call close_conn

</table>

</body>

</html>

没有做分页显示，如有需要留言

search.asp页面

sub clas(names)

sql = "select * from 商品表"

set rs=conn.execute(sql)

do while not rs.eof

response.write "<option value='"&rs(names)&"'>"&rs(names)&"</option>"

rs.movenext

loop

set rs=nothing

end sub

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

ul{

list-style-type:noen

width:70%

margin:0 auto

}

li{

height:35px

}

</style>

</head>

<body>

<ul>

<li>

</li>

<li>

</select>

</li>

<li>

<%call clas("商品颜色")%>

</select>

</li>

<li>

<%call clas("商品尺寸")%>

</select>

</li>

<li>

<input type="text" name="jg1" />至<input type="text" name="jg2" />元

</li>

<li>

</li>

</ul>

</form>

</body>

</html>

<% call close_conn %>

有不明处留信

保存为code.asp复制下面代码

有添加、修改、删除和简单分页

if request.QueryString("types")<>"" then '判断是否有添加/修改/删除的请求

if request.QueryString("types")<>"del" then '验证添加或修改的表单

dim dh,mc,ys,cc,jg,kc

dh=request.Form("dh")

mc=request.Form("mc")

ys=request.Form("ys")

cc=request.Form("cc")

jg=request.Form("jg")

kc=request.Form("kc")

if dh="" or mc="" or ys="" or cc="" or jg="" then

response.write "<script>alert('信息不完整')window.history.back()</script>"

call close_conn

response.End()

end if

if not isnumeric(jg) then '判断价格栏是否是整数型

response.write "<script>alert('商品价格只能是整数')window.history.back()</script>"

call close_conn

response.End()

end if

if kc="1" then '判断库存状态

kc=true

else

kc=false

end if

select case request.QueryString("types") '判断 *** 作类型

case "in"

'添加商品

sql="insert into 商品表(商品代号,商品名称,商品颜色,商品尺寸,商品价格,商品库存) values('"&dh&"','"&mc&"','"&ys&"','"&cc&"','"&jg&"',"&kc&")"

conn.execute(sql)

response.write "<script>alert('商品添加成功')window.location.href='code.asp'</script>"

call close_conn

response.End()

case "up"

'修改商品

sql="update 商品表 set 商品代号='"&dh&"',商品名称='"&mc&"',商品颜色='"&ys&"',商品尺寸='"&cc&"',商品价格='"&jg&"',商品库存="&kc&" where 编号="&request.QueryString("id")

conn.execute(sql)

response.write "<script>alert('商品修改成功')window.location.href='code.asp'</script>"

call close_conn

response.End()

case "del"

'删除商品

sql="delete from 商品表 where 编号="&request.QueryString("id")

conn.execute(sql)

response.write "<script>alert('商品删除成功')window.location.href='code.asp'</script>"

call close_conn

response.End()

end select

end if

if request.QueryString("str")="up" then

sql = "select * from 商品表 where 编号="&request.QueryString("id")&" order by 编号 desc"

else

sql = "select * from 商品表 order by 编号 desc"

end if

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

h2{

text-align:center

}

ul{

list-style-type:noen

width:70%

margin:0 auto

}

li{

height:35px

float:left

width:50%

}

td{

text-align:center

background:#fff

line-height:25px

font-size:12px

}

</style>

</head>

<body>

if request.QueryString("str")="up" then

<form action="code.asp?id=<%=rs("编号")%>&types=up" name="form1" method="post">

<ul>

<li>

</li>

<li>

</li>

<li>

</li>

<li>

</li>

<li>

<input type="text" id="jg" name="jg" value="<%=rs("商品价格")%>" />元

</li>

<li>

<input type="radio" name="kc"<%if not rs("商品库存") then%>checked="checked"<%end if%>value="0" />充足

<input type="radio" name="kc"<%if rs("商品库存") then%>checked="checked"<%end if%>value="1" />下架

</li>

<li>

</li>

</ul>

</form>

else

<ul>

<li>

</li>

<li>

</li>

<li>

</li>

<li>

</li>

<li>

<input type="text" id="jg" name="jg" />元

</li>

<li>

<input type="radio" name="kc" checked="checked" value="0" />充足

<input type="radio" name="kc" value="1" />下架

</li>

<li>

</li>

</ul>

</form>

<hr />

<tr>

</tr>

if not rs.bof and not rs.eof then

dim i,page

rs.pagesize=10

page=request.QueryString("page")

if page="" or not isnumeric(page) or isnull(page) then

page=1

else

page=cint(page)

end if

rs.absolutepage=page

i=1

do while not rs.eof and i<=rs.pagesize

<tr>

<% if rs("商品库存") then %>

<%else%>

<%end if%>

<td><a href="code.asp?id=<%=rs("编号")%>&types=del">删除</a></td>

</tr>

rs.movenext

i=i+1

loop

<tr>

<% if page<=1 then %>

<span style="color:#aaaaaa">首页上一页</span>

<% else %>

end if

if page>=rs.pagecount then

<span style="color:#aaaaaa">下一页尾页</span>

<% else %>

<% end if %>

</td>

</tr>

else

<tr>

<td colspan="8">没有商品信息</td>

</tr>

end if

rs.close

set rs=nothing

call close_conn

</table>

</body>

</html>

#include <stdio.h>

#include <stdlib.h>

#include <conio.h>

struct BOOK

{

int id,usr[10],total,store,days[10]

char name[31],author[21]

}books[100]

/*上面是结构体的定义，用于存放书籍及借书的信息。*/

void page_title(char *menu_item)

{

clrscr()

printf(">>>图书管理系统 <<<\n\n- %s -\n\n",menu_item)

}

/*上面是打印页眉的函数，同时通过参数menu_item，可以显示当前的状态。*/

void return_confirm(void)

{

printf("\n按任意键返回……\n")

getch()

}

/*上面是返回前请求确认的函数，以便在返回前观察结果*/

int search_book(void)

{

int n,i

printf("请输入图书序号:")

scanf("%d",&i)

for(n=0n<100n++)

{

if(books[n].id==i)

{

printf("书名:%s\n",books[n].name)

printf("作者:%s\n",books[n].author)

printf("存数:%d of ",books[n].store)

printf("%d\n",books[n].total)

return n

}

printf("\n输入错误或无效图书序号.\n")

return -1

}

/*上面的函数是在数组中找到图书号匹配的记录，显示其信息并返

回数组下标，如果找不到相应记录则提示错误并返回-1。*/

void book_out(void)

{

int n,s,l,d

page_title("借阅图书")

if((n=search_book())!=-1&&books[n].store>0)

{

printf("请输入借书证序号:")

scanf("%d",&s)

printf("请输入可借天数:")

scanf("%d",&d)

for(l=0l<10l++)

{

if(books[n].usr[l]==0)

{

books[n].usr[l]=s

books[n].days[l]=d

break

}

books[n].store--

}

if(n!=-1&&books[n].store==0) printf("此书已经全部借出.\n")

return_confirm()

}

/*上面是借书的函数，首先调用找书函数*/

void book_in(void)

{

int n,s,l

page_title("归还图书")

if((n=search_book())!=-1&&books[n].store<books[n].total)

{

printf("借阅者图书证列表:\n")

for(l=0l<10l++)

if (books[n].usr[l]!=0)

printf("[%d] - %d天世铅\n",books[n].usr[l],books[n].days[l])

printf("请搜喊好输入借书证序号:")

scanf("%d",&s)

for(l=0l<10l++)

{

if(books[n].usr[l]==s)

{

books[n].usr[l]=0

books[n].days[l]=0

break

}

books[n].store++

}

if(n!=-1&&books[n].store==books[n].total)

printf("全渗携部入藏.\n")

return_confirm()

}

void book_add(void)

{

int n

page_title("注册新书")

for(n=0n<100n++)

if(books[n].id==0) break

printf("序号:")

scanf("%d",&books[n].id)

开发环境为Visual Studio 2012，数据库为SQL SERVER2012R2，使用.net 4.5开发。

一、源码介绍

所有行业的ERP系统/进销存/仓库系统，该系统为vs2012 .net+MsSQL版，目前标准版功能简单、明了、满足公司正常谨携使用，已有多家企业正常使用，成熟稳定，有需要的可以下载看看。

二、主要功能

1、电商管理（可以和公众号、小程序对接）微信订单、小程序订单、公众号订单

参数设置：轮播图片设置、分类导航设置、小程序参数设置、公众号参数设置

2、销售管理：销售订单、销售出库

3、采购管理：采购订单、采购入库

4、生产管理：BOM分组、BOM清单、生产计划、生产领料、生产入库

5、仓库管理：其他入库、其他出库、商品组装、商品拆卸、库存盘点、库存调拨

6、财务管理：销售收款、其他收款、采购付款、其他付款、收款核销、付款核销

7、采购报表

采购订单跟踪表采购明细表采购汇总表（按商品）采购汇总表（按供应商）

8、销售报表

销售订单跟踪表销售明细表凳宽销售汇总表（按商品）销售汇总表（按客户）

9、生产报表

生产计划跟踪表生产领料明细表生产领料汇总表生产入库明细表生产入库汇总表

10、仓存报表

商品库存余额表商品收发明细表商品收发汇总表

11、资金报表

现金银行报表应付账款明细表应收账款明细表

客户对账单供应商对账单其他收支明细

12、基础资料

供应商管理商品管理仓库管祥粗伏理账户管理员工管理企业号通讯录

工序管理辅助资料客户类别供应商类别商品类别商品品牌

收支类别计量单位结算方式工序类别高级设置 *** 作日志

参数设置打印设置 Logo印章

3、默认数据库连接字符串在web.config配置文件中修改

获取源码方式：点赞+转发+关注+私信【进销存ERP】

******************************************************************************

欢迎点赞+转发+关注！大家的支持是我分享最大的动力！！！

******************************************************************************

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/yw/12253432.html

求商品库存查询源码

发表评论

评论列表（0条）