📄 sheet.asp

📁 星级酒店管理系统（附带系统自写控件源码）
💻 ASP
字号:
<%
 If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
 End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="sheetcode.asp"-->
<%
 '检查用户的操作权限
  if GetSess("UserName")<>"超级用户" Then  CheckAuthor(19)
  
  Dim MySql,sSite
  Dim QuaTotal,AmoTotal,STotal,BxfTotal,AmosTotal                    '合计参数          
      QuaTotal=0
      AmoTotal=0
      STotal=0
      AmosTotal=0
      bxfTotal=0
        
 '给出数据      
  GetInput         
  
%>
<title>客人消费总报表</title>
<body style="font-family: 宋体; font-size: 10pt">
<%
'浏览模式显示该表格
 If request("mode")<>"print" Then
 %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="20">
  <tr>
    <td width="100%">　</td>
  </tr>
</table>
<%
    End If                  

    Dim NewDBC      
    Set NewDBC=CreateObject("ADODB.Connection")   
        NewDBC.Open Constring
    Set objRs=CreateObject("ADODB.Recordset")
        objRs.Open MySQL,NewDBC,adOpenKeySet, adLockOptimistic, adcmdText         
    If objRS.eof then             
       objRS.Close             
       set objRS=nothing             
       CloseDatabase NewDBC
       Response.write "<P Align='Center'>没有查询到该座位消费记录。</P>"             
      Else            
       %>
<div align="center">
  <center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#808080" width="99%" id="AutoNumber3" height="21">
  <tr>
    <td height="50" colspan="2" align="center" width="760">
<br><span style="letter-spacing: 3pt; ">单号【<%=sSite%>】消费明细</span></td>
  </tr>
  <tr><form method="POST" action="sheet.asp" name="Query">
    <td align="center" bgcolor="#EEEEFF" height="25" style="font-family: 宋体; font-size: 9pt">
    <%
    If request("mode")<>"print" Then
    %>
    <a href="sheet.asp?mode=print&ID=<%=sSite%>">
    <font color="#006699"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a><font color="#006699">
    <%
     Else
     %> </font>
    <a href="sheet.asp?ID=<%=sSite%>">
    <font color="#006699">
    <img border="0" src="images/paper.gif" align="texttop" alt="浏览模式"> 浏览模式</font></a><font color="#006699">     
     <%
    End If
    %> </font>
    </td>
    <td align="right" style="font-family: 宋体; font-size: 9pt" bgcolor="#EEEEFF" height="25">
    <font color="#FF0000">【</font>餐桌号<span lang="en-gb">:</span><font color="#FF0000"><%=ObjRs("Site")%>】</font><span lang="en-gb">&nbsp;
    </span>日期<span lang="en-gb">:<font color="#FF0000"><%=ObjRs("Date")%></font></span>日<span lang="en-gb">
    <font color="#FF0000"><%=ObjRs("lHour")%></font></span>时<font color="#FF0000"><span lang="en-gb"><%=ObjRs("lMinute")%></span></font>分<span lang="en-gb">&nbsp;
    </span>服务员<span lang="en-gb">:</span><font color="#FF0000"><%=NullValue(ObjRs("Waiter"))%></font><span lang="en-gb">&nbsp;
    </span>收银员<span lang="en-gb">:</span><font color="#FF0000"><%=NullValue(ObjRs("CheckOutMan"))%></font><span lang="en-gb">
    </span>&nbsp;<span lang="en-gb">
    </span>
    <input type="button" value="打印" name="Printit" onClick="window.print();" style="color: #FFFFFF; height: 20; border: 1px solid #FFFF00; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"> </td>
  </tr></form>
  </table>  
   </center>
</div>   
<div align="center">
  <center>         
<table border="1" cellspacing="1" style="border-collapse: collapse; font-family: 宋体; font-size: 9pt; color:#006699" bordercolor="#808080" width="99%" id="AutoNumber4" bordercolordark="#808080" bordercolorlight="#808080" height="40">

  <tr>
    <td width="655" bgcolor="#F1FAFC" colspan="9">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size: 9pt" bordercolor="#111111" id="AutoNumber6">
      <tr>
        <td height="25"><span lang="en-gb">&nbsp;</span>会员编号<span lang="en-gb">:<font color="#FF0000"><%=NullValue(ObjRs("MID"))%></font></span></td>
        <td><span lang="en-gb">&nbsp;&nbsp; </span>名称<span lang="en-gb">:</span><font color="#FF0000"><%=NullValue(ObjRs("Name"))%></font><span lang="en-gb">
        </span></td>
        <td><span lang="en-gb">&nbsp;&nbsp; </span>消费总额<span lang="en-gb">:<font color="#FF0000"><%=FormatNumber(ObjRs("JEAmo"),2,-1)%></font></span><font color="#FF0000">元</font></td>
        <td><span lang="en-gb">&nbsp;&nbsp; </span>打折率<span lang="en-gb">:<font color="#FF0000"><%=ObjRs("Discount")%>%
        </font></span></td>
        <td><font color="#FF0000"><span lang="en-gb">&nbsp;&nbsp; </span></font>
        包厢费<span lang="en-gb">:<font color="#FF0000"><%=FormatNumber(ObjRs("BXF"),2,-1)%></font></span><font color="#FF0000">元</font></td>
        <td><span lang="en-gb">&nbsp;&nbsp; </span>实付金额<span lang="en-gb">:<font color="#FF0000"><%=FormatNumber(ObjRs("SFAmo"),2,-1)%></font></span><font color="#FF0000">元</font></td>
      </tr>
    </table>
    </td>
  </tr>

  <tr>
    <td width="80" bgcolor="#F1FAFC" align="center">菜单编号</td>
    <td bgcolor="#F1FAFC" align="center" width="80">菜单助记码</td>
    <td width="100" bgcolor="#F1FAFC" align="center">菜名</td>
    <td width="30" bgcolor="#F1FAFC" align="center">单位</td>
    <td width="70" bgcolor="#F1FAFC" align="center">单价</td>
    <td bgcolor="#F1FAFC" align="center" width="60">数量</td>
    <td width="70" bgcolor="#F1FAFC" align="center">金额</td>
    <td width="50" bgcolor="#F1FAFC" align="center">加工费</td>
    <td width="80" bgcolor="#F1FAFC" align="center">总金额</td>
  </tr>
  <%        
      WriteList "Select * From Cust Where SheelID=" & clng(sSite)          '写列表
      CloseDatabase NewDBC
    %>   <tr>
    <td  colspan="3" bgcolor="#FFFFFF" align="center"  bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="259">
    <span lang="zh-cn">【</span>合计<span lang="zh-cn">】</span> <span lang="zh-cn">共〖</span><b><font size="2"><%=FormatNumber(STotal,0,-1)%></font></b><span lang="zh-cn">〗条记录</span>
    　</td>
    <td bgcolor="#EEEEFF" align="right"  bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="30">    
    　</td>
    <td bgcolor="#EEEEFF"  align="right"  bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="70">
    　</td>
    </td>
    <td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="60"><font color="#006699"><%=FormatNumber(QuaTotal,2,-1)%></font>　</td>
    <td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="70">
    <font color="#006699"><%=FormatNumber(AmoTotal,2,-1)%></font>　</td>
    <td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="50"><font color="#006699"><%=FormatNumber(BxfTotal,2,-1)%></font>　</td>
    <td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="80">
    <font color="#006699"><%=FormatNumber(AmosTotal,2,-1)%></font>　</td>
  </tr>
</table>
  </center>
</div>
<div align="center">
  <center>
<table border="0" cellspacing="1" style="border-collapse: collapse; font-family:宋体; font-size:9pt" bordercolor="#111111" width="99%" id="AutoNumber5">
  <tr>
    <td width="33%" height="3"></td>
    <td width="33%" height="3"></td>
    <td width="34%" align="right" height="3"></td>
  </tr>
  <tr>
    <td width="33%"><font color="#808080">&nbsp;制单：</font><font color="#006699"><span lang="en-gb"><%=Getsess("Username")%></span></font></td>
    <td width="33%">　</td>
    <td width="34%" align="right"><font color="#808080">日期：</font><font color="#006699"><span lang="en-gb"><%=Date%></span></font></td>
  </tr>
  <tr>
    <td width="33%">　</td>
    <td width="33%">　</td>
    <td width="34%" align="right"><font color="#808080"><%=CompanyName%></font></td>
  </tr>
</table>
       </center>
</div>
 <%                    
    End if       
                  
'生成查询串,再第一次访问时。
Sub GenerateSQL           
    Dim Sqlproc           
    Dim Key           
    Dim Sqladd           
    SqlAdd=" And "               
    MySql ="Select Site.Site,Site.Date,Site.lHour,Site.lMinute,Site.CheckOutman,Site.MID," _
       & "tbdMember.Name,Site.JeAmo,Site.SFAmo,Site.Waiter,Site.BXF,Site.Discount " _
       & " From Site Left Join tbdMember On Site.MID=tbdMember.ID  Where Site.ID=" & clng(sSite)
  
End sub           

'给出查询变量参数
Sub GetInput           

     sSite=request("ID")                        '餐桌名称
     If Not IsNumeric(sSite) Then
        sSite=0
     End If   
     
    '打开查询字符串
      GenerateSQL            
End sub            
  %>
⌨️ 快捷键说明

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