📄 quoteliststs.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../Conndb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>商品管理</title>
<link href="../style.css" rel="stylesheet">
</head>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST" action="QuoteListSts.asp">
<%Dim rs,sch,psch,csch
  sch = ""
  psch = Request("pname")
  csch = Request("cust")
  Set rs = Server.CreateObject("ADODB.RecordSet")
  If psch<>"" Then
    sch = " And q.ProId=" & psch
  End If
  If csch<>"" Then
    sch = sch & " And q.CustId=" & csch
  End If
%>
<p align="center"><font color="#000080"><b><font style="font-size: 12pt">商 品 报 价 统 计</font></b></font></p> 
<P>选择商品名称&nbsp;<select size="1" name="pname">
           <option value="">--全部--</option>
      <%
        sql = "Select * From Product  ORDER BY ProId" 
        rs.Open sql,conn,1,3
        Do While Not rs.EOF
          If CStr(rs("ProId"))=psch Then
       %>
          <option value="<%=rs("ProId")%>" selected><%=rs("ProName")%></option>
        <%Else%>
          <option value="<%=rs("ProId")%>"><%=rs("ProName")%></option>
        <%End If
          rs.MoveNext()
        Loop
        rs.Close()%>
         </select>&nbsp;&nbsp;&nbsp;选择客户名称&nbsp;<select size="1" name="cust">
           <option value="">--全部--</option>
     <%
        sql = "Select * From Customer  ORDER BY CustId" 
        rs.Open sql,conn,1,3
        Do While Not rs.EOF
          If CStr(rs("CustId"))=csch Then
       %>
          <option value="<%=rs("CustId")%>" selected><%=rs("CustName")%></option>
        <%Else%>
          <option value="<%=rs("CustId")%>"><%=rs("CustName")%></option>
        <%End If
          rs.MoveNext()
        Loop
        rs.Close()%>
         </select>
         <input type="submit" value=" 统计 " name=sts></P>
<table align=center border="1" cellspacing="0" width="100%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
  <tr>
   <td width="20%" align="center" bgcolor="#C1E0FF"><strong>商品名称</strong></td>
   <td width="40%" align="center" bgcolor="#C1E0FF"><strong>客户名称</strong></td>
   <td width="20%" align="center" bgcolor="#C1E0FF"><strong>客户报价</strong></td>
   <td width="20%" align="center" bgcolor="#C1E0FF"><strong>报价日期</strong></td>
  </tr>
<%
  '读取数据到记录集rs中,数据来源：报价表、商品信息表、客户信息表、商品类型表
  sql = "SELECT q.*,p.ProName,c.CustName FROM PurchaseQuote q,Product p,Customer c " _
     + " WHERE q.ProId=p.ProId AND q.CustId=c.CustId" & sch & " ORDER BY q.ProId,q.CustId"
  rs.Open sql,conn,1,1
  '在表格中显示问题记录
  If rs.Eof Then
    Response.Write "<tr><td colspan=8 align=center>目前还没有记录。</td></tr></table>"
  Else
    Do While Not rs.EOF
 %>
  <tr>
    <td align="center"><%=rs("ProName")%></td>
	<td align="center"><%=rs("CustName")%>&nbsp;</td>
	<td align="right"><%=rs("QuotePrice")%>&nbsp;</td>
    <td align="center"><%=rs("CreateDate")%>&nbsp;</td>
  </tr>
  <%
      rs.MoveNext()
    Loop
  %>
</table>
<%End If%>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -