企业进销存管理系统设计(十)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

企业进销存管理系统设计(十) 库进行检索，并将查询结果集通过信息展示部分输出到浏览器中，数据处理页的程序代码如下：

<%
set rs=server.createobject("adodb.recordset")
if request.QueryString("type")="all" then         '显示全部内容
sql="select * from tab_cgdan"
else
flag=request.Form("flag")
i=0        '为变量赋初始值
if flag<>"" then
          if instr(flag,"1")>0 then              '当有一个条件时进行相应的处理
   sel=request.Form("sel")
   tj=request.Form("tj")
   qname=request.Form("qname")
   i=1
   flag_deal="inIF"
  end if
  if instr(flag,"2")>0 then             '当有两个条件时进行相应的处理
   sdate=request.Form("sdate")
   edate=request.Form("edate")
   i=i+1
   flag_deal="inDate"
  end if
  if i>1 then
   flag_deal="double"
  end if
  session("flag")=flag_deal         '创建Session变量
  session("sel")=sel
  session("tj")=tj
  session("qname")=qname
  session("sdate")=sdate
  session("edate")=edate
end if
'查询条件判断
select case session("flag")
case "inIF"
  if session("tj")="=" then           '精确查询
   sql="select * from tab_cgdan where "&session("sel")&" = '"&session("qname")&"' "
  else                            '模糊查询
   sql="select * from tab_cgdan where "&session("sel")&" like '%"&session("qname")&"%'"
   end if
case "inDate"                      '日期查询
  sql="select * from tab_cgdan where cgdate between '"&session("sdate")&"' and '"&session("edate")&"'"
case "double"                      '多条件的精确查询
  if session("tj")="=" then
   sql="select * from tab_cgdan where "&session("sel")&" = '"&session("qname")&"' and cgdate between '"&session("sdate")&"' and '"&session("edate")&"'"
  else                         '多条件的模糊查询
   sql="select * from tab_cgdan where

首页上一页 7 8 9 10 11 12 13 下一页尾页 10/13/13

企业进销存管理系统设计(十)由毕业论文网（www.huoyuandh.com）会员上传。