📄 menutj.asp

📁 星级酒店管理系统（附带系统自写控件源码）
💻 ASP
字号:
<%
 If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
 End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="menutjcode.asp"-->
<%
 '检查用户的操作权限
  if GetSess("UserName")<>"超级用户" Then  CheckAuthor(19)
  
  Dim MySql
  Dim sDate1,sDate2,sHour1,sHour2
  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
%>
<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; ">【<%=CompanyName%>】按菜名汇总</span></td>
  </tr>
  <tr><form method="POST" action="menutj.asp" name="Query">

    <td align="center" bgcolor="#EEEEFF" height="25" style="font-family: 宋体; font-size: 9pt">
    <%
    If request("mode")<>"print" Then
    %>
    <a href="menutj.asp?mode=print&txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>">
    <font color="#006699"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a><font color="#006699">
    <%
     Else
     %> </font>
    <a href="menutj.asp?txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>">
    <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">&nbsp; 
    <input type="text" value="<%=sDate1%>" name="txtDate1" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:3; padding-right:3; padding-top:1; background-color:#EEEEFF">
    <input type="text" value="<%=sHour1%>" name="txtHour1" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#EEEEFF">点<font color="#0099CC"><span lang="en-gb">-</span></font><input type="text" name="txtDate2" value="<%=sDate2%>" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:2; padding-right:2; padding-top:1; background-color:#EEEEFF">
    <input type="text" value="<%=sHour2%>" name="txtHour2" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#EEEEFF">点<span lang="en-gb">
    </span>
    <input type="submit" value="搜索" name="B1" style="color: #FFFFFF; height: 20; font-size: 10pt; font-family: 宋体; border: 1px solid #FFFF00; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"><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>
   <%                  
    Dim NewDBC      
    Dim SqlTmp
    Set NewDBC=CreateObject("ADODB.Connection")   
        NewDBC.Open Constring
        
        '首先清除原来的临时数据   
        'sqlTMp = "Delete From GatherTodayCust" 
        'NewDBC.Execute sTMp
        'sqlTMp = "Delete From TodayCustX"
        'newDBC.Execute sTMp
        
    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'>没有记录,请改变日期再试试?</font></P>"             
      Else            
       %>
<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="61" bgcolor="#F1FAFC" align="center">消费单号</td>
    <td bgcolor="#F1FAFC" align="center" width="70"> 消费时间</td>
    <td bgcolor="#F1FAFC" align="center" width="60">食品分类</td>
    <td width="84" 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="80" bgcolor="#F1FAFC" align="center">金额</td>
    <td width="50" bgcolor="#F1FAFC" align="center">加工费</td>
    <td width="90" bgcolor="#F1FAFC" align="center">总金额</td>
  </tr>
  <%        
      WriteList         '写列表
      CloseDatabase NewDBC
    %>   <tr>
    <td  colspan="4" 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">    
    <span lang="en-gb"><font color="#006699"></font></span>　</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="80">
    <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="90">
    <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 "           
   '检测是SQL还是access数据库 
     MySql ="SELECT DType,Name,Unit, Price, Sum(Quanty) AS Quantys,Sum(Amo) As JE, Sum(JGF) AS JGFs, Sum(Amos) AS Amoss From Cust Where SheelID In(Select ID From Site "    

    '两日期相同,为同一天时 
     If sDate1=sDate2 Then
        If IsSqlDat = True Then
            MySql=MySql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
          & " And (Date>='" & sDate1 & "' And Date<='" & sDate2 & "')) Order By ID"
        Else
            MySql=Mysql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
            & " And (Date>=#" & sDate1 & "# And Date<=# " & sDate2 & "#)) Order By ID"
        End If
     Else
    '两日之间的间隔时
     If IsSqlDat = True Then
        MySql=Mysql & " Where ((lHour>=" & sHour1 _
          & " And  Date='" & sDate1 & "') OR (Date>'" & sDate1 & "' And Date<'" & sDate2 _
          & "') Or (lHour<=" & sHour2 & " And Date='" & sDate2 & "')) Order By ID"
      Else       
        MySql=Mysql & " Where ((lHour>=" & sHour1 _
          & " And  Date=#" & sDate1 & "#) OR (Date>#" & sDate1 & "# And Date<#" & sDate2 _
          & "#) Or (lHour<=" & sHour2 & " And Date=#" & sDate2 & "#)) Order By ID"
     End If     
  End If
  
  Mysql=Mysql & ") GROUP BY  Dtype,Name,Unit, Price"
    
End sub           

'给出查询变量参数
Sub GetInput           
    '给出日期段 ******************************
     sDate1=request("txtDate1")    
     sDate2=request("txtdate2") 
     If Not Isdate(sDate1) Then    
        sDate1=Date-7
     End If    
     If Not Isdate(sDate2) Then    
        sDate2=Date    
     End If        
     If cDate(sdate1)>CDate(sDate2) Then   
        sDate1=sDate2   
     End If     
    '*****************************************                  
    '给出点段---------------------------------
     sHour1=request("txtHour1")
     sHour2=request("txtHour2")
     If sHour1="" Then sHour1=0
     If sHour2="" Then sHour2=23
     If Not IsNumeric(sHour1) Then
        sHour1=0
       Else
        If cInt(sHour1)>23 Then
           sHour1=23
        End If
     End If   
     If Not IsNumeric(sHour2) Then
        sHour2=23
       Else
        If cInt(sHour2)>23 Then
           sHour2=23
        End If
     End If    
    '-----------------------------------------    
    '打开查询字符串
      GenerateSQL            
End sub            
  %>
⌨️ 快捷键说明

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