tongji.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include virtual="/manage/include/top.asp"-->
		 <tr bgcolor="#dddddd">
		     <td height="1" colspan="4"></td>
		 </tr>
		 <tr>
		     <td height="34" colspan="2" valign="middle" bgcolor="#efefef">		     
	             　<img src="/manage/images/borrow.gif"><strong> 销售统计</strong></td>
	         <td>&nbsp;</td>
	         <td>&nbsp;</td>
		 </tr>
		 <tr align="right">
		     <td height="184" colspan="4" valign="top">
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
  Response.End()
End If
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa;database=DB_lsmanage"
conn.open
set rs1=conn.execute("select * from tb_MedicineName")
set rs2=conn.execute("select * from tb_User where UserId <> '1000'")
%>
<script language="javascript" src="/manage/include/calendar.js"></script>
<br>
<form action="<%=request.ServerVariables("PATH_INFO")%>" method="post" name="sForm">
<table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#0099cc">
   <tr>
       <td bgcolor="#FFFFFF" align="center">
	       条件搜索：&nbsp;
          <%
			strStartDate = request("strStartDate")
			strEndDate = request("strEndDate")
			if len(strStartDate) = 0 or len(strEndDate) =0  then
			    strStartDate = year(date) &"-"&right("0"&month(date),2) &"-"& right("0"&day(date),2)
				strEndDate = strStartDate
			end if
		  %>
	       <input type=text name="strStartDate" value="<%=strStartDate%>" size=10 readonly maxlength=6 onclick="ftn_calendar_compare('sForm','strStartDate','strStartDate','strEndDate')" ID="Text2">
              &nbsp;~&nbsp;
           <input type=text name="strEndDate" value="<%=strEndDate%>" size=10 readonly maxlength=6 onclick="ftn_calendar_compare('sForm','strEndDate','strStartDate','strEndDate')" ID="Text3">
	   &nbsp;&nbsp;
	   <select name="yName">
	     <option value="">选择药品名称</option>
　　　　<%
          do while not rs1.eof
		%>
		  <option value=<%=rs1("yName")%><%if rs1("yName")=request("yName") then response.write " selected"%>><%=rs1("yName")%></option>
		<% 
		  rs1.movenext
		  loop
        %>
	   </select>
	   &nbsp;<select name="UserId">
	   <option value="">选择连锁店</option>
	   <%
	   do while not rs2.eof
	   %>
	   <option value="<%=rs2("UserId")%>"<%if rs2("UserId")=request("UserId") then response.write " selected"%>><%=rs2("UserName")%></option>
       <%
	   rs2.movenext
	   loop
	   %>
	   </select>
	   &nbsp;<input type="submit" value="搜　索" name="b1" style="border:1px solid;border-color:#4c99d4;background-color:#f2ebc3">	 </td>
	 </tr>
</table>
</form><br>
<%
if request.ServerVariables("CONTENT_LENGTH")>0 then     '客户端所提交正文的长度
     strStartDate = request("strStartDate")
	 strEndDate = request("strEndDate")

     sqlstr=" where itType=2 "
     if len(Cstr(request("strStartDate")))=0 then
         sqlstr=sqlstr&"and Time1 >= '"&date()&" 00:00:01' "
     else
         sqlstr=sqlstr&"and Time1 >= '"&request("strStartDate")&" 00:00:01' "
     end if
     if len(Cstr(request("strEndDate")))=0 then
         sqlstr=sqlstr&"and Time1 <= '"&date()&" 23:59:59' "
     else
         sqlstr=sqlstr&"and Time1 <= '"&request("strEndDate")&" 23:59:59' "
     end if
  
     if len(request("UserId"))=0 or isnull(request("UserId")) then
         sqlstr=sqlstr&" "
     else
         sqlstr=sqlstr&" and UserId='"&request("UserId")&"' "
     end if
   
     if len(request("yName"))=0 or request("yName")="" then
         sqlstr=sqlstr&" "
     else
	     sqlstr=sqlstr&" and yName='"&request("yName")&"' "
     end if
	 sql="select yName,sum(Sl) AS Sl,sum(TotalPrice) AS TotalPrice,Mode from tb_Sell "&sqlstr&" GROUP BY yName,Mode"
     set rs=conn.execute(sql)
if len(request("UserId"))>0 then
         set rs3=conn.execute("select * from tb_User where UserId="&request("UserId"))
         response.write "<h3><center><font color=red>"&rs3("UserName")&"</font></center></h3>"
else
         response.write "<center><h3><font color=red>您没有选择连锁店的结果显示</font></h3></center>"
end if
%>
<table width="78%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#0099cc">
   <tr>
      <td width="9%" bgcolor="#f5f5f5"><div align="center">编号</div></td><td width="41%" bgcolor="#f5f5f5"><div align="center">商品名称</div></td><td width="23%" bgcolor="#f5f5f5"><div align="center">销售数量</div></td><td width="27%" bgcolor="#f5f5f5"><div align="center">合计</div></td>
   </tr>
<% 
i=1          '为销售记录的编号赋初始值
sum1=0        '为销售数量赋初始值
sum2=0      '为销售额赋初始值
do while not rs.eof             '如果没到记录尾
sum1=sum1+rs("Sl")          '计算药品的销售数量
sum2=sum2+rs("TotalPrice")     '计算药品销量合计金额
%>
   <tr>
       <td  bgcolor="#ffffff"><div align="center"><%=i%></div></td><td bgcolor="#ffffff"><div align="center"><%=rs("yName")%></div></td><td bgcolor="#ffffff"><div align="center"><%=rs("Sl")%>&nbsp;<%=rs("Mode")%></div></td><td bgcolor="#ffffff"><div align="center"><%=rs("TotalPrice")%>元</div></td>
   </tr>
<%
 rs.movenext
 i=i+1
 loop
%>
   <tr>
       <td colspan="2" bgcolor="#EDEDF0"><div align="right">数量合计：</div></td><td bgcolor="#EEEEEE"><div align="center"><%=sum1%></div></td><td bgcolor="#EEEEEE"><div align="center"><%=sum2%>元</div></td>
   </tr>
</table>
<p>&nbsp;    </p>
<p>
<%
end if
%>
</p>
<!--#include virtual="/manage/include/bottom.asp"-->