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

库进行检索，并将查询结果集通过信息展示部分输出到浏览器中，数据处理页的程序代码如下：
<!--#include file="../conn/conn.asp"-->
<%
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

企业进销存管理系统设计(十)相关范文