求即时库存查询源码!
按你要求做的，直接复制便可
数据库中字段
商品代号：文本
商品名称：文本
商品颜色：文本
商品尺寸：文本
商品价格：数字
商品库存：是/否、或文本数字看习惯
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.0;data 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 "alert('关键字不能为空');window.history.back();"
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
end if
end if
set rs=server.createobject("adodb.recordset") '创建一个记录集的实例派生给一个变量
rs.open sql,conn,1,1 '打开记录集
%>
查询商品
td{
text-align:center;
background:#fff;
line-height:25px;
font-size:12px;
}
商品代号
商品名称
商品代号
商品名称
商品颜色
商品尺寸
商品价格
库存
<%
if not rs.bof and not rs.eof then
do while not rs.eof
%>
下架
充足
<%
rs.movenext
loop
else
%>
没有关于[]的商品信息
<%
end if
rs.close
set rs=nothing
call close_conn
%>
没有做分页显示，如有需要留言
search.asp页面
<%
sub clas(names)
sql = "select * from 商品表"
set rs=conn.execute(sql)
do while not rs.eof
response.write ""&rs(names)&""
rs.movenext
loop
set rs=nothing
end sub
%>
高级查询
ul{
list-style-type:noen;
width:70%;
margin:0 auto;
}
li{
height:35px;
}
关 键 字：
查找方式：
商品代号
商品名称
颜色：
-请选择-
尺寸：
-请选择-
价格范围：
至元
有不明处留信
保存为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 "alert('信息不完整');window.history.back();"
call close_conn
response.End()
end if
if not isnumeric(jg) then '判断价格栏是否是整数型
response.write "alert('商品价格只能是整数');window.history.back();"
call close_conn
response.End()
end if
if kc="1" then '判断库存状态
kc=true
else
kc=false
end if
end if
select case request.QueryString("types") '判断操作类型
case "in"
'添加商品
sql="insert into 商品表(商品代号,商品名称,商品颜色,商品尺寸,商品价格,商品库存) values('"&dh&"','"&mc&"','"&ys&"','"&cc&"','"&jg&"',"&kc&")"
conn.execute(sql)
response.write "alert('商品添加成功');window.location.href='code.asp';"
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 "alert('商品修改成功');window.location.href='code.asp';"
call close_conn
response.End()
case "del"
'删除商品
sql="delete from 商品表 where 编号="&request.QueryString("id")
conn.execute(sql)
response.write "alert('商品删除成功');window.location.href='code.asp';"
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
%>
高级查询
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;
}
<%
if request.QueryString("str")="up" then
%>
&types=up" name="form1" method="post">
添加商品
商品代号：
" />
商品名称：
" />
商品颜色：
" />
商品尺寸：
" />
商品价格：
" />元
商品库存：
checked="checked" value="0" />充足
checked="checked" value="1" />下架
<%
else
%>
添加商品
商品代号：
商品名称：
商品颜色：
商品尺寸：
商品价格：
元
商品库存：
充足
下架
全部商品
商品代号
商品名称
商品颜色
商品尺寸
商品价格
库存
基本操作
<%
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
%>
下架
充足
&str=up">修改
&types=del">删除
<%
rs.movenext
i=i+1
loop
%>
首页 上一页
首页
">上一页
<%
end if
if page>=rs.pagecount then
%>
下一页 尾页
">下一页
">尾页
<%
else
%>
没有商品信息
<%
end if
end if
rs.close
set rs=nothing
call close_conn
%>
即时库存查询中，单击取消选中菜单【视图】-【只显示下一级明细】即可。
1、我们通过SQL事件探查器（这可真是个好东东啊！），不难跟踪到以下内容EXEC CheckInventory
2、我们进入SQL企业管理器，也不难得到CheckInventory的详细代码[K/310.1]
CREATE Procedure CheckInventory
as
Declare @CurYear Int, --当前年份
@CurPeriod int, --起始的会计期间
@StartPeriod SmallInt, --启用期间
@NowPeriod Smallint, --当前期间
@StartTime DateTime, --期间开始日期
@EndTime DateTime, --期间结束日期
@DiffCount Decimal(28,0) --计算是否有差异数量
--2.取出当前年份
SELECT @CurPeriod=FValue FROM t_Systemprofile WHERE FKey='CurrentPeriod' And FCategory='IC'
SELECT @CurYear=FValue FROM t_Systemprofile WHERE FKey='CurrentYear' And FCategory='IC'
--3.取出当前期间的起始日期
EXEC GetPeriodStartEnd @CurPeriod,@StartTime output,@EndTime output
SELECT FItemID,FStockID,FBatchNo,FStockPlaceID,case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) End as FKFDate,ISNULL(FKFPeriod,'') as FKFPeriod,
Sum(FBegQty) As FQty ,0 As FQtyLock Into #RealTimeQty
FROM ICInvBal WHERE FPeriod=@CurPeriod And FYear=@CurYear
Group By FItemID,FStockID,FBatchNo,FStockPlaceID,FKFDate,FKFPeriod
Having sum(FBegQty)<>0
--SELECT FItemID,FStockID,FBatchNo,FQty FROM #RealTimeQty
Insert Into #RealTimeQty
SELECT t1.FItemID,t2.FDCStockID As FStockID,IsNull(t1.FBatchNO,''),ISNULL(t1.FDCSPID,'') as FStockPlaceID, case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) end ,ISNULL(t1.FKFPeriod,''),
Sum(t1.FQty) As FQty,0 As FQtyLock
FROM ICStockBillEntry t1,ICStockBill t2
WHERE t1.FInterID=t2.FInterID And (t2.FCheckerID>0 or t2.FCheckerID <0 or FUpStockWhenSave=1)
And t2.FCancelLation=0
And t2.FTranType In (1,2,5,10,40,41) And FDate>=@StartTime
Group By t1.FItemID,t2.FDCStockID,t1.FBatchNo,t1.FDCSPID,t1.FKFDate,t1.FKFPeriod
......[以下代码省略]
3、我们也不难看出其中几个参数的意思
@CurYear Int, --当前年份
@CurPeriod int, --起始的会计期间 [原代码注释可能有歧义,应为当前期间，当然，也可以解释为校对即时库存的起始期间]
@StartPeriod SmallInt, --启用期间 [该参数基本没有用]
@NowPeriod Smallint, --当前期间 [源代码注释错了,该参数基本没有用]
@StartTime DateTime, --期间开始日期
@EndTime DateTime, --期间结束日期[该参数基本没有用]
@DiffCount Decimal(28,0) --计算是否有差异数量
除了几个没有使用的参数外,其他几个重要的参数就是时间节点了。
从SQL代码可以看出，“校对”即时库存的功能应该就是从当前期间的第一天开始的。
4、我们是否可以经过改进，来控制校对即时库存的起始点呢？应该是可以的。
CREATE Procedure CheckInventoryEX
@CurYear Int=0, --起始年份
@CurPeriod int=0, --起始会计期间
as
Declare @StartPeriod SmallInt, --启用期间
@NowPeriod Smallint, --当前期间
@StartTime DateTime, --期间开始日期
@EndTime DateTime, --期间结束日期
@DiffCount Decimal(28,0) --计算是否有差异数量
--2.取出当前年份
if @CurPeriod<=0 or @CurPeriod>12
begin
SELECT @CurPeriod=FValue FROM t_Systemprofile WHERE FKey='CurrentPeriod' And FCategory='IC'
end
if @CurYear<=0
begin
SELECT @CurYear=FValue FROM t_Systemprofile WHERE FKey='CurrentYear' And FCategory='IC'
end
--3.取出当前期间的起始日期
EXEC GetPeriodStartEnd @CurPeriod,@StartTime output,@EndTime output
SELECT FItemID,FStockID,FBatchNo,FStockPlaceID,case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) End as FKFDate,ISNULL(FKFPeriod,'') as FKFPeriod,
Sum(FBegQty) As FQty ,0 As FQtyLock Into #RealTimeQty
FROM ICInvBal WHERE FPeriod=@CurPeriod And FYear=@CurYear
Group By FItemID,FStockID,FBatchNo,FStockPlaceID,FKFDate,FKFPeriod
Having sum(FBegQty)<>0
--SELECT FItemID,FStockID,FBatchNo,FQty FROM #RealTimeQty
Insert Into #RealTimeQty
SELECT t1.FItemID,t2.FDCStockID As FStockID,IsNull(t1.FBatchNO,''),ISNULL(t1.FDCSPID,'') as FStockPlaceID, case when FKFDate is null then '' else convert(varchar(10),FKFDate,120) end ,ISNULL(t1.FKFPeriod,''),
Sum(t1.FQty) As FQty,0 As FQtyLock
FROM ICStockBillEntry t1,ICStockBill t2
WHERE t1.FInterID=t2.FInterID And (t2.FCheckerID>0 or t2.FCheckerID <0 or FUpStockWhenSave=1)
And t2.FCancelLation=0
And t2.FTranType In (1,2,5,10,40,41) And FDate>=@StartTime
Group By t1.FItemID,t2.FDCStockID,t1.FBatchNo,t1.FDCSPID,t1.FKFDate,t1.FKFPeriod
可以到http://www.jb51.net/codes/16126.html页面去下载
或者直接复制下列地址链接，导入迅雷即可下载或者留下邮箱发送给你！
http://wt.jb51.net/200905/yuanma/ygshop.rar
求即时库存查询源码!视频
相关评论：
吴翔强除了几个没有使用的参数外,其他几个重要的参数就是时间节点了。从SQL代码可以看出，“校对”即时库存的功能应该就是从当前期间的第一天开始的。4、我们是否可以经过改进，来控制校对即时库存的起始点呢？应该是可以的。CREATE Procedure CheckInventoryEX CurYear Int=0, --起始年份 CurPeriod int=0,...
吴翔强▼成品、在制品、刀具、工装库存管理 支持成品库、周转库、工装\/刀具库等分类库房管理支持按照企业产品成套库房检查进行出库和缺件管理拥有强大的库存检索能力，支持随时浏览当前库房情况及历史记录追溯系统所有流程都可以通过条码扫描操作，既准确又便捷车间各工作中心接到加工任务同时，工装\/刀具库房可根据该...
吴翔强仓库管理系统是通过入库业务、出库业务、仓库调拨、库存调拨和虚仓管理等功能,综合批次管理、物料对应、库存盘点、质检管理、虚仓管理和即时库存管理等功能综合运用的管理系统,有效控制并跟踪仓库业务的物流和成本管理全过程,实现完善的企业仓库信息管理。仓库管理系统是一个作业系统,侧重与仓库内每个作业环节的管理,用仓库管...
吴翔强仓库管理系统是通过入库业务、出库业务、仓库调拨、库存调拨和虚仓管理等功能,综合批次管理、物料对应、库存盘点、质检管理、虚仓管理和即时库存管理等功能综合运用的管理系统,有效控制并跟踪仓库业务的物流和成本管理全过程,实现完善的企业仓库信息管理。仓库管理系统是一个作业系统,侧重与仓库内每个作业环节的管理,用仓库管...
吴翔强医院管理信息系统(全称为Hospital Information System)即HIS系统。常规模版包括门诊管理、住院管理、药房管理、药库管理、院长查询、电子处方、物资管理、媒体管理等，为医院管理提供更有力的保障。HIS系统以财务信息、病人信息和物资信息为主线，通过对信息的收集、存储、传递、统计、分析、综合查询、报表输出和...
吴翔强VB客房管理系统全套(带源码)vb课程设计医药管理系统(VB+SQL)应要求源文件+代码+论文打包上传vb库存管理系统(论文+开题报告+源代码)VB库存管理系统2(论文+开题报告+源代码)VB评语管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩pptvb企业人事工资管理系统+论文vb企业人事管理系统vb企业人事管理信息...
吴翔强总的来说，一个好的商城系统通过用户的主动分享，口碑传播效应，让你的推广成本直线下降，推广速度倍增，粉丝迅速累积，还能获得即时资金，订单量暴增，门店引流等等作用!这种模式从整体上解决了原来传统方式的流量问题、推广成本高昂问题、0库存问题、损耗问题、资金压力等等问题。
吴翔强通过室内三维仿真建模,快速查看仓库内景、库存或告警信息,可快速查找和定位货物及基础设备信息。结合仓库数据库、RFID 设备、智能安防监控设备联动,形成态势平台,将车库、战备物资库、枪械库分类,展示仓库内物资模块化存放的特点,实现信息化、智能化管理。 车库管理:车库界面左右两侧的 2D 面板可查看车库容量、面积和...
吴翔强MES是在公司的整个资源按其经营目标进行管理时，为公司提供实现执行目标的执行手段，通过实时数据库连接基本信息系统的理论数据和工厂的实际数据，并提供业务计划系统与制造控制系统之间的通信功能。MES不只是工厂的单一信息系统，而是横向之间、纵向之间、系统之间集成的系统，即所谓经营系统，对于SCP、ERP、CRM...
吴翔强1 生命权杖使用时不消耗库存，即无限使用 2 生命权杖无CD限制，即无冷却时间，可无限连续使用。1_stone.package 这个是 物品 巨石 可无限使用的MOD，不消耗库存，无冷却时间，买一个就能无限使用。1_cre.package 这个是 创造史诗动物的技能MOD，同上，无任何限制，无限使用。第二辑：生存篇 2_ai....
